Difference between revisions of "MAN ListMan"
From VistApedia
DavidWhitten (talk | contribs) (→Variables while running) |
DavidWhitten (talk | contribs) |
||
Line 7: | Line 7: | ||
=== Callable Entry Points === | === Callable Entry Points === | ||
− | ==== Entry Point: D FULL^VALM1 (restore full screen scroll region) ==== | + | ==== Entry Point: [[ROUTINE VALM | D EN^VALM]] Start a screen based on a [[FILE 409.61|LIST TEMPLATE]] entry ==== |
− | ==== Entry Point: D SHOW^VALM1 (?) ==== | + | ==== Entry Point: [[ROUTINE VALM1 | D FULL^VALM1]] (restore full screen scroll region) ==== |
− | ==== Entry Point: EN^VALM2 (entry selection call) ==== | + | ==== Entry Point: [[ROUTINE VALM1 | D SHOW^VALM1]] (?) ==== |
+ | ==== Entry Point: [[ROUTINE VALM2 | D EN^VALM2]] (entry selection call) ==== | ||
==== Change Header and force redraw of screen including header ==== | ==== Change Header and force redraw of screen including header ==== |
Latest revision as of 04:02, 17 June 2020
Contents
Official Documentation
look at: https://www.va.gov/vdl/application.asp?appid=14
local copy: http://www.vistapedia.com/images/9/9d/List_manager_developer.pdf
Overview Data
Callable Entry Points
Entry Point: D EN^VALM Start a screen based on a LIST TEMPLATE entry
Entry Point: D FULL^VALM1 (restore full screen scroll region)
Entry Point: D SHOW^VALM1 (?)
Entry Point: D EN^VALM2 (entry selection call)
Change Header and force redraw of screen including header
If header needs to be changed, KILL VALMHDR SET VALMBCK="R". Then List Manager will automatically invoke this FILE LIST TEMPLATE FIELD HEADER CODE as part of the re-display of the screen.
Variables while running
^TMP("VALM DATA",$J,*) ^TMP("VALM DATA",$J,0,"DAYS")=30 ^TMP("VALM DATA",$J,0,"FNL")= code from LIST TEMPLATE File #409.61 EXIT CODE Field #105 ^TMP("VALM DATA",$J,0,"HIDDEN")="PSO HIDDEN ACTIONS #2" ^TMP("VALM DATA",$J,0,"HLP")= code from LIST TEMPLATE File #409.61 EXIT CODE Field #103 ^TMP("VALM DATA",$J,0,"INIT")= code from LIST TEMPLATE File #409.61 ENTRY CODE Field #106 May have duplicates at (with a different INDEX value) Exact values from DEBUGGING ^TMP("VALM DATA",23877,0,"DAYS")=30 ^TMP("VALM DATA",23877,0,"FNL")="D EXIT^PSOLMAO" ^TMP("VALM DATA",23877,0,"HIDDEN")="PSO HIDDEN ACTIONS #2" ^TMP("VALM DATA",23877,0,"HLP")="D HELP^PSOLMAO" ^TMP("VALM DATA",23877,0,"INIT")="D INIT^PSOLMAO" ^TMP("VALM DATA",23877,1,"DAYS")=30 ^TMP("VALM DATA",23877,1,"FNL")="D EXIT^PSOLMLST" ^TMP("VALM DATA",23877,1,"HIDDEN")="PSO HIDDEN ACTIONS" ^TMP("VALM DATA",23877,1,"HLP")="D HELP^PSOLMLST" ^TMP("VALM DATA",23877,1,"INIT")="D INIT^PSOLMLST" XQORM = IEN_";ORD(101," variable pointer into current PROTOCOL ?? same as VALM("PROTOCOL") ?? XQORM(0)= ??parameters?? including "1" "A" "R" "\" XQORM("#") = PROTOCOL IEN ^ 1:0 XQORM("H") same as PROTOCOL File #101 Field HEADER Field #26 for PROTOCOL in XQORM XQORM("??") Help code ?? default == D HELP^VALM2 XQORM("A") == Prompt at bottom of page XQORM("B") == default action XQORM("KEY", keypress-name or character ) = #^1 XQORM("M") = number XQORM("XLATE", keypress-name ) == Letter-group XQORNEST= number same as # subscript for XQORNEST(*) XQORNEST(#)= PROTOCOL IEN_";ORD(101," XQORNOD= PROTOCOL IEN_";ORD(101," ?? same as XQORNEST(#) XQORNOD(0)="" VALM = index into ^SD(409.61,VALM,*) current entry in LIST TEMPLATE FILE. VALM("PROTOCOL")=IEN_";ORD(101," Current PROTOCOL MENU from LIST TEMPLATE (resolved FreeText Pointer toW PROTOCOL File #101 Other Variables: VALM(0)="" VALM("BM")=20 VALM("DEFS")=1 VALM("ENTITY") Used with "SELECT " to allow user input. Value comes from LIST TEMPLATE File #409.61 ENTITY NAME Field #.09 VALM("EXP")="" VALM("FIXED")=0 VALM("HDR")="D HDR^PSOLMAO" VALM("IFN")=337 VALM("LINES")=11 VALM("MAX")=1 VALM("PRT")="" VALM("RM")=80 VALM("TITLE")= ListMan Title presented on row after header on left side. VALM("TM")=10 VALM("TYPE")=1 VALMAR="^TMP(""PSOPF"",$J)" VALMHDR(1-$) = Exact text for each line of the Header from line 1 to the last line VALMKEY=