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 |  Label References |  Naked Globals |  Local Variables |  All
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>

Call Graph

Call Graph Total: 5

Package Total Call Graph
Inpatient Medications 4 ($$ENDTC,$$ENDTC1)^PSGMI  $$ENSET^PSGSICHK  $$LASTREN^PSJLMPRI  DRGDISP^PSJLMUT1  
VA Fileman 1 NOW^%DTC  

Caller Graph

Caller Graph Total: 7

Package Total Caller Graph
Inpatient Medications 7 PSGL  PSGL0  PSGMAR  PSGMAR2  PSGMMAR  PSGMMAR2  PSGMMAR3  

Entry Points

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

External References

Name Field # of Occurrence
NOW^%DTC SET+32
$$ENDTC^PSGMI SET+16, SET+21
$$ENDTC1^PSGMI SET+23
$$ENSET^PSGSICHK SET+18
$$LASTREN^PSJLMPRI SET+14
DRGDISP^PSJLMUT1 SET+30

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(51.2 - [#51.2] SET+26
^PSD(58.8 - [#58.8] SET+32
^PSI(58.1 - [#58.1] SET+32
^SC - [#44] ENOI+6
^VA(200 - [#200] SET+24, SET+25, SET+27

Label References

Name Line Occurrences
NXTLNE ENP+8, ENP+9, ENP+10, ENP+13, ENP+14, ENP+15, ENP+17, ENP+19, ENP+20, ENP+21
, ENP+22

Naked Globals

Name Field # of Occurrence
^( SET+20, SET+32
^(0 SET+24, SET+25, SET+26, SET+27
^(7 SET+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % SET+32
>> DFN SET+14, SET+30
DRUGNAME SET+29~, SET+30
DRUGNAME( ENP+4, ENP+5, ENP+6, ENP+9
>> F ENOI+1*, ENOI+3, ENOI+4, ENOI+5, ENOI+6, SET+2, SET+15, SET+18, SET+20, SET+32
, ENP+1
>> L ENP+7*, ENP+8, ENP+10, ENP+14, ENP+15, ENP+18, ENP+19, ENP+21, NXTLNE+1, NXTLNE+2
, NXTLNE+6, NXTLNE+7*
>> LEN ENP+13*
>> ND ENOI+4*, ENOI+5*, SET+2*, SET+15*
>> NG ENOI+4*, SET+17
>> PSGCLN ENOI+6*
PSGDT SET+5, NXTLNE+5, ENKV+1!
PSGLAGE ENP+5, ENKV+1!
PSGLAT SET+2!*, SET+3*, SET+4, SET+6*, SET+7, SET+9, SET+12, ENKV+1!
PSGLAT( SET+8*, SET+12*, SET+13*, ENP+18, NXTLNE+1
PSGLAT(0 SET+5*, SET+7*, SET+9, SET+12
PSGLAT(1 SET+5*, SET+10*, SET+11*, ENP+3
PSGLAT(2 SET+5*, ENP+5
PSGLAT(3 SET+5*, SET+9*, SET+11*, ENP+6
PSGLAT(4 SET+5*
PSGLAT(5 SET+5*, SET+10*, SET+11*
PSGLBS5 ENP+3, ENKV+1!
PSGLDDA ENOI+5*, ENKV+1!
PSGLDO ENOI+5*, SET+28, ENKV+1!
PSGLDOB ENP+5, ENKV+1!
PSGLDRG ENOI+5*, ENKV+1!
PSGLDT SET+2*, SET+21*, ENKV+1!
PSGLDX ENP+6, ENKV+1!
PSGLFD SET+2*, SET+5, SET+22*, SET+23*, ENP+2, ENKV+1!
PSGLFFD SET+2*, NXTLNE+5, ENKV+1!
PSGLMN SET+2*, SET+3, ENKV+1!
PSGLMR ENOI+4*, SET+26*, SET+28, ENKV+1!
PSGLNF SET+32*, ENP+22, ENKV+1!
PSGLOD ENOI+4*, SET+21*, ENP+3, ENKV+1!
PSGLPN ENP+3, ENKV+1!
PSGLPR ENOI+4*, SET+27*, ENKV+2!
PSGLR SET+2*, NXTLNE+3, NXTLNE+4, NXTLNE+5, ENKV+2!
PSGLRB ENP+3, ENKV+2!
PSGLREN SET+14~*, SET+15, SET+16*, ENP+2, NXTLNE+3
PSGLRN SET+15*, SET+24*, ENP+22, ENKV+2!
PSGLRNDT SET+15~*
PSGLRPH SET+15*, SET+25*, ENP+22, ENKV+2!
PSGLSCH SET+2*, SET+4*, SET+6, SET+28*, ENKV+2!
PSGLSD SET+2*, SET+3, SET+22*, SET+23*, ENP+1, ENP+2, NXTLNE+3, ENKV+2!
PSGLSEX ENP+6, ENKV+2!
PSGLSI SET+17*, SET+18*, SET+20*, ENP+8, ENP+10, ENP+11, ENP+17, ENKV+2!
PSGLSM ENOI+4*, ENP+22, ENKV+2!
PSGLSSD SET+2*, ENKV+2!
PSGLSSN ENP+5, ENKV+2!
PSGLST ENOI+4*, SET+3, SET+6, SET+22*, ENP+5, ENKV+2!
PSGLSTAT ENOI+4*, SET+5, SET+6, SET+22, ENKV+3!
PSGLSTOP SET+33, ENKV+3!
PSGLTD ENOI+4*, ENKV+3!
PSGLTM ENP+5, ENKV+3!
PSGLWD SET+32, ENKV+3!
PSGLWDN ENOI+6*, NXTLNE+6, ENKV+3!
PSGLWGN NXTLNE+6, ENKV+3!
PSGLWS SET+32*, ENP+22, ENKV+3!
PSGNOW SET+32~*, ENKV+3!
PSGOP ENOI+1, ENKV+3!
PSGORD ENOI+1, SET+14, SET+30, ENKV+3!
>> Q SET+8*, SET+9*, SET+10, SET+11, SET+12*, SET+13*, SET+28*
U SET+20, SET+32
>> X SET+5*, SET+7*, SET+12*, SET+13, SET+20*, SET+24*, SET+25*, SET+32*, ENP+1*, ENP+2*
, ENP+3, ENP+4*, ENP+5, ENP+6, ENP+7, ENP+9
Y SET+9*, SET+10, SET+11, SET+20*, SET+32*, ENP+11*, NXTLNE+3~*, NXTLNE+4
>> Y1 ENP+11*, ENP+12, ENP+13*, ENP+15, ENP+16
>> Z SET+20*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All