Difference between revisions of "MAN ListMan"

From VistApedia
Jump to: navigation, search
 
(7 intermediate revisions by the same user not shown)
Line 7: Line 7:
 
=== Callable Entry Points ===
 
=== Callable Entry Points ===
  
−
==== 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: [[ROUTINE VALM1 | D FULL^VALM1]] (restore full screen scroll region) ====
−
==== 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 ====
Line 23: Line 24:
 
  ^TMP("VALM DATA",$J,0,"FNL")=  code from [[FILE 409.61/FIELD 105|LIST TEMPLATE File #409.61 EXIT CODE Field #105]]
 
  ^TMP("VALM DATA",$J,0,"FNL")=  code from [[FILE 409.61/FIELD 105|LIST TEMPLATE File #409.61 EXIT CODE Field #105]]
 
  ^TMP("VALM DATA",$J,0,"HIDDEN")="PSO HIDDEN ACTIONS #2"
 
  ^TMP("VALM DATA",$J,0,"HIDDEN")="PSO HIDDEN ACTIONS #2"
−
  ^TMP("VALM DATA",$J,0,"HLP")=  
+
  ^TMP("VALM DATA",$J,0,"HLP")= code from [[FILE 409.61/FIELD 103|LIST TEMPLATE File #409.61 EXIT CODE Field #103]]
−
: code from [[FILE 409.61/FIELD 103|LIST TEMPLATE File #409.61 EXIT CODE Field #103]]
+
  ^TMP("VALM DATA",$J,0,"INIT")= code from [[FILE 409.61/FIELD 106|LIST TEMPLATE File #409.61 ENTRY CODE Field #106]]
−
  ^TMP("VALM DATA",$J,0,"INIT")=  
+
May have duplicates at (with a different INDEX value)
−
: code from [[FILE 409.61/FIELD 106|LIST TEMPLATE File #409.61 ENTRY CODE Field #106]]
+
Exact values from DEBUGGING
−
 
+
^TMP("VALM DATA",23877,0,"DAYS")=30
−
  VALM = index into ^SD(409.61,VALM,*) current entry in [[LIST TEMPLATE FILE]].
+
^TMP("VALM DATA",23877,0,"FNL")="D EXIT^PSOLMAO"
−
 
+
^TMP("VALM DATA",23877,0,"HIDDEN")="PSO HIDDEN ACTIONS #2"
−
  VALM("PROTOCOL")=IEN_";ORD(101,"
+
^TMP("VALM DATA",23877,0,"HLP")="D HELP^PSOLMAO"
−
: Current PROTOCOL MENU from LIST TEMPLATE (resolved FreeText Pointer to PROTOCOL File #101
+
^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 [[FILE 101/FIELD 26|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 [[FILE 409.61/FIELD .09| 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=

Latest revision as of 04:02, 17 June 2020

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=
Retrieved from "https://vistapedia.com/index.php?title=MAN_ListMan&oldid=18271"