Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
Print Page as PDF
Routine: PSGLPI

Package: Inpatient Medications

Routine: PSGLPI


Information

PSGLPI ;BIR/CML3-PATIENT INFO FOR LABELS ;15 DEC 95 / 10:26 AM

Source Information

Source file <PSGLPI.m>

Entry Points

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

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
Info |  Source |  Entry Points |  Interaction Calls