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: PSGLOI

Package: Inpatient Medications

Routine: PSGLOI


Information

PSGLOI ;BIR/CML3 - ORDER INFO (AND PRINT) FOR LABELS ;30 Apr 98 / 4:41 PM

Source Information

Source file <PSGLOI.m>

Entry Points

Name Comments DBIA/ICR reference
ENOI ;
SET ;
; naked references below refer to full reference inside indirection @(F_"2)" for either file 53.1 or 55
ENP ;
NXTLNE ; Print info to right of drug
ENKV ;*** Kill var created from this routine

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(13),?1,PSGLOD," |",X,?36,"(",PSGLBS5,")",?42,"|",PSGLAT(1),?52,PSGLPN,?88,$J($S(PSGLRB]"":PSGLRB,1:"*NF*"),12)
  • Line Location: ENP+3
Function Call: WRITE
  • Prompt: !?1,DRUGNAME(X),?42,PSGLST,?43,"|",PSGLAT(2),?52,PSGLSSN,?70,PSGLDOB," (",PSGLAGE,")",?85,$J($S(PSGLTM]"":PSGLTM,1:"NOT FOUND"),15)
  • Line Location: ENP+5
Function Call: WRITE
  • Prompt: !?1,DRUGNAME(X),?43,"|",PSGLAT(3),?52,PSGLSEX,?65,"DX: ",PSGLDX
  • Line Location: ENP+6
Function Call: WRITE
  • Prompt: "See next label for continuation"
  • Line Location: ENP+8
Function Call: WRITE
  • Prompt: !,?1
  • Line Location: ENP+8
Function Call: WRITE
  • Prompt: !?1,DRUGNAME(X)
  • Line Location: ENP+9
Function Call: WRITE
  • Prompt: "See next label for continuation"
  • Line Location: ENP+10
Function Call: WRITE
  • Prompt: !,?1
  • Line Location: ENP+10
Function Call: WRITE
  • Prompt: $E(Y1,1,LEN)
  • Line Location: ENP+13
Function Call: WRITE
  • Prompt: "See next label for continuation"
  • Line Location: ENP+14
Function Call: WRITE
  • Prompt: !,?1
  • Line Location: ENP+14
Function Call: WRITE
  • Prompt: "See next label for continuation"
  • Line Location: ENP+15
Function Call: WRITE
  • Prompt: !,?1
  • Line Location: ENP+15
Function Call: WRITE
  • Prompt: ?1,"See next label for continuation"
  • Line Location: ENP+19
Function Call: WRITE
  • Prompt: !
  • Line Location: ENP+19
Function Call: WRITE
  • Prompt: $E("WS",1,PSGLWS*2)
  • Line Location: ENP+22
Function Call: WRITE
  • Prompt: ?4,$E("HSM",PSGLSM,3)
  • Condition for execution: PSGLSM
  • Line Location: ENP+22
Function Call: WRITE
  • Prompt: ?8,$E("NF",1,PSGLNF*2),?24,"RPH:",PSGLRPH,?33," RN:",PSGLRN
  • Line Location: ENP+22
Function Call: WRITE
  • Prompt: !
  • Line Location: ENP+23
Function Call: WRITE
  • Prompt: ?43,"|",$G(PSGLAT(L))
  • Line Location: NXTLNE+1
Function Call: WRITE
  • Prompt: ?52
  • Line Location: NXTLNE+3
Function Call: WRITE
  • Prompt: $S(+$G(PSGLREN):PSGLREN,1:PSGLSD),?77,$S(Y="NR":"RENEWAL ",Y["N":"NEW ",1:""),"ORDER "
  • Condition for execution: +$G(PSGLREN)!(PSGLSD)
  • Line Location: NXTLNE+3
Function Call: WRITE
  • Prompt: " (EXPIRED)"
  • Line Location: NXTLNE+5
Function Call: WRITE
  • Prompt: !,?1
  • Line Location: NXTLNE+7
Info |  Source |  Entry Points |  Interaction Calls