Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: PSGLPI

Package: Inpatient Medications

Routine: PSGLPI


Information

PSGLPI ;BIR/CML3-PATIENT INFO FOR LABELS ;12-Dec-2003 11:23;PLS

Source Information

Source file <PSGLPI.m>

Call Graph

Call Graph Total: 3

Package Total Call Graph
Inpatient Medications 1 $$ENDTC^PSGMI  
Registration 1 (DEM,IN5,INP)^VADPT  
VA Fileman 1 NOW^%DTC  

Caller Graph

Caller Graph Total: 5

Package Total Caller Graph
Inpatient Medications 5 PSGL  PSGL0  PSGLW  PSGOEPO  PSJORMAR  

Entry Points

Name Comments DBIA/ICR reference
DONE ;
ENHEDER ; Print MAR header labels.
ENPI ;
ENPVSET ;

External References

Name Field # of Occurrence
NOW^%DTC ENPI+6, ENHEDER+5
$$ENDTC^PSGMI ENPI+7, ENHEDER+5
DEM^VADPT ENPI+1
IN5^VADPT ENPI+2
INP^VADPT ENPI+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: *13,?52,PSGLPN,?88,$J($S(PSGLRB]"":PSGLRB,1:"*NF*"),12)
  • Line Location: ENHEDER+2
Function Call: WRITE
  • Prompt: !?(41-$L(PSGLPN)/2),"*** ",PSGLPN," ***",?52,PSGLSSN,?70,PSGLDOB," (",PSGLAGE,")",?85,$J($S(PSGLTM]"":PSGLTM,1:NF),15)
  • Line Location: ENHEDER+3
Function Call: WRITE
  • Prompt: !?18,PSGLSSN,?52,$S(PSGLSEX]"":PSGLSEX,1:"____"),?65,"DX: ",PSGLDX
  • Line Location: ENHEDER+4
Function Call: WRITE
  • Prompt: !?52,$$ENDTC^PSGMI(%),!?52,$S(PSGLWGN]"":$E(PSGLWGN,1,21),1:NF),?79,$J($S(PSGLWDN]"":PSGLWDN,1:NF),21),!!
  • Line Location: ENHEDER+5

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(57.5 - [#57.5] ENPI+8, ENPVSET+3
^PS(57.7 - [#57.7] ENPI+5, ENPVSET+4

Naked Globals

Name Field # of Occurrence
^(0 ENPI+5, ENPI+8, ENPVSET+3, ENPVSET+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % ENPI+6, ENHEDER+5
>> DFN ENPI+1*
NF ENHEDER+1~*, ENHEDER+3, ENHEDER+5
PSGID DONE+1!
>> PSGLAD ENPI+3*, ENPVSET+1*
>> PSGLAGE ENPI+7*, ENPVSET+1*, ENHEDER+3
>> PSGLBID ENPI+1*
>> PSGLBS5 ENPI+8*, ENPI+9*, ENPVSET+1*, ENPVSET+2*
>> PSGLDOB ENPI+7*, ENPVSET+1*, ENHEDER+3
>> PSGLDT ENPI+6*
>> PSGLDX ENPI+3*, ENPI+4*, ENPVSET+1*, ENHEDER+4
>> PSGLPID ENPI+1*
PSGLPIWF DONE+1!
>> PSGLPN ENPI+7*, ENPI+8, ENPVSET+1*, ENHEDER+2, ENHEDER+3
>> PSGLPR ENPI+3*, ENPI+4*
>> PSGLRB ENPI+3*, ENPI+4*, ENPI+5, ENPVSET+1*, ENPVSET+4, ENHEDER+2
>> PSGLSEX ENPI+7*, ENPVSET+1*, ENHEDER+4
>> PSGLSSN ENPI+7*, ENPI+8, ENPI+9*, ENPVSET+1*, ENHEDER+3, ENHEDER+4
>> PSGLTM ENPI+5*, ENPVSET+4*, ENHEDER+3
>> PSGLTS ENPI+3*, ENPI+4*
>> PSGLWD ENPI+3*, ENPI+4*, ENPI+5, ENPI+8, ENPVSET+1*, ENPVSET+3, ENPVSET+4
>> PSGLWDN ENPI+3*, ENPI+4*, ENPVSET+1*, ENHEDER+5
PSGLWG ENPI+1~, ENPI+8*, ENPVSET+3*
>> PSGLWGN ENPI+8*, ENPVSET+3*, ENHEDER+5
PSGOD DONE+1!
>> PSGOP ENPI+1
>> PSGP(0 ENPVSET+1
>> PSJPAD ENPVSET+1
>> PSJPAGE ENPVSET+1
>> PSJPDOB ENPVSET+1
>> PSJPDX ENPVSET+1
>> PSJPRB ENPVSET+1
>> PSJPSEX ENPVSET+1
>> PSJPSSN ENPVSET+1
>> PSJPWD ENPVSET+1
>> PSJPWDN ENPVSET+1
>> VA("BID" ENPI+1, ENPI+9, ENPVSET+2
>> VA("PID" ENPI+1, ENPI+9, ENPVSET+1
VADM ENPI+1~, DONE+1!
VADM(1 ENPI+7
VADM(2 ENPI+7
VADM(3 ENPI+7
VADM(4 ENPI+7
VADM(5 ENPI+7
VAIN ENPI+1~, DONE+1!
VAIN(2 ENPI+3
VAIN(3 ENPI+3
VAIN(4 ENPI+2, ENPI+3
VAIN(5 ENPI+3
VAIN(7 ENPI+3
VAIN(9 ENPI+3
VAIP ENPI+1~, DONE+1!
VAIP("D" ENPI+2*
VAIP(5 ENPI+4
VAIP(6 ENPI+4
VAIP(7 ENPI+4
VAIP(8 ENPI+4
VAIP(9 ENPI+4
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  All