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

Package: Inpatient Medications

Routine: PSJO


Information

PSJO ;BIR/CML3,PR - GET AND PRINT INPATIENT ORDERS ;Jul 16, 2018@08:25

Source Information

Source file <PSJO.m>

Call Graph

Call Graph

Call Graph Total: 12

Package Total Call Graph
Inpatient Medications 10 $$ENDTC2^PSGMI  $$ENSET^PSGSICHK  GETSI^PSJBCMA5  $$LASTREN^PSJLMPRI  DRGDISP^PSJLMUT1  $$CLINIC^PSJO1  (ENGET,ENNP)^PSJO3  $$RECDCEXP^PSJP  
$$PADEWD^PSJPAD50  $$DRGFLAG^PSJPADSI  
Registration 1 INP^VADPT  
Toolkit 1 $$GET^XPAR  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 10

Package Total Caller Graph
Inpatient Medications 10 PSGL  PSGO  PSGVBWP  PSJADT2  PSJCLOR4  PSJLMHED  PSJLMPRU  PSJOE0  
PSJPR  PSJUTL1  

Entry Points

Name Comments DBIA/ICR reference
DONE ;
ON ;
PUD ; print unit dose
; Naked reference below refers to full reference ^PS(53.1,+PSJO,0) or ^PS(55,DFN,5,+PSJO,0) using indirection.
TF ;
TXT(X) ;
BOT ; print name, ssn, and dob on bottom of page
WS(PSJPWD,PSGP,PSJF,PSJO) ; - WARD STOCK flag, input=(ward,dfn,file root,order)
; Naked reference below refers to full reference ^PS(55,DFN,5,+PSJO,1,"B",PSWS) using indirection.
WSCHK(PSJPWD,PSWS) ; Determine if drug is ward stock item.

External References

Name Field # of Occurrence
$$ENDTC2^PSGMI PUD+25, PUD+32, PUD+34
$$ENSET^PSGSICHK PUD+40
GETSI^PSJBCMA5 PUD+41
$$LASTREN^PSJLMPRI PUD+25
DRGDISP^PSJLMUT1 PUD+27
$$CLINIC^PSJO1 PUD+2, PUD+3
ENGET^PSJO3 PSJO+10
ENNP^PSJO3 ON+2
$$RECDCEXP^PSJP TXT+3
$$PADEWD^PSJPAD50 PUD+19
$$DRGFLAG^PSJPADSI PUD+20
INP^VADPT PUD+18
$$GET^XPAR PUD+15

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,SLS,SLS,$E(SLS,1,25),!!?22,"NO ORDERS FOUND FOR ",$S(PSJOL="S":"SHORT",1:"LONG")," PROFILE."
  • Line Location: PSJO+10
Function Call: WRITE
  • Prompt: !,$J(PSJON,4),?5
  • Line Location: ON+4
Function Call: WRITE
  • Prompt: $S($P(ND4,"^",12):"D",1:" ")
  • Line Location: PUD+9
Function Call: WRITE
  • Prompt: @($S(X=1:"?9",1:"!?11")),$S($E(PSJS)="*":$P(PSJS,"^"),1:MARX(X))
  • Line Location: PUD+28
Function Call: WRITE
  • Prompt: ?71
  • Line Location: PUD+35
Function Call: WRITE
  • Prompt: "NF "
  • Condition for execution: NF
  • Line Location: PUD+35
Function Call: WRITE
  • Prompt: "PD "
  • Condition for execution: (WS&'PADE) "WS " W:(WS&PADE) "WP " W:(PADE&'WS)
  • Line Location: PUD+35
Function Call: WRITE
  • Prompt: $E("HSM",SM,3)
  • Condition for execution: SM
  • Line Location: PUD+35
Function Call: WRITE
  • Prompt: PSJRNDT
  • Condition for execution: $G(PSJRNDT)
  • Line Location: PUD+35
Function Call: WRITE
  • Prompt: ?79,"*"
  • Condition for execution: PF
  • Line Location: PUD+35
Function Call: WRITE
  • Prompt: ?74
  • Line Location: PUD+37
Function Call: WRITE
  • Prompt: "NF "
  • Condition for execution: NF
  • Line Location: PUD+37
Function Call: WRITE
  • Prompt: "PD "
  • Condition for execution: (WS&'PADE) "WS " W:(WS&PADE) "WP " W:(PADE&'WS)
  • Line Location: PUD+37
Function Call: WRITE
  • Prompt: $E("HSM",SM,3)
  • Condition for execution: SM
  • Line Location: PUD+37
Function Call: WRITE
  • Prompt: ?78,"*"
  • Condition for execution: PF
  • Line Location: PUD+37
Function Call: WRITE
  • Prompt: ?49,"Renewed: ",PSJRNDT
  • Line Location: PUD+38
Function Call: WRITE
  • Prompt: !?49,"Renewed: ",PSJRNDT
  • Line Location: PUD+39
Function Call: WRITE
  • Prompt: !?11
  • Condition for execution: $L(V)+$X>66
  • Line Location: PUD+43
Function Call: WRITE
  • Prompt: V_" "
  • Line Location: PUD+43
Function Call: WRITE
  • Prompt: !
  • Line Location: BOT+1
Function Call: WRITE
  • Prompt: !,?2,$P(PSGP(0),"^"),?40,PSJPPID,?70,$E($P(PSJPDOB,"^",2),1,8)
  • Line Location: BOT+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(53.45 - [#53.45] PUD+40!, PUD+41, PUD+42
^PSD(58.8 - [#58.8] WSCHK+1
^PSI(58.1 - [#58.1] WSCHK+1
^TMP("PSJ" PSJO+8!, PSJO+10, PSJO+11, PSJO+13, DONE+1!, ON+2, TF+3
^TMP("PSJON" PSJO+8!, ON+4*

Label References

Name Line Occurrences
$$TXT TF+2
$$WS PUD+13
$$WSCHK WS+2
@( PSJO+8, ON+4
BOT PSJO+14
DONE PSJO+11, PSJO+14
ON PSJO+13
TF PSJO+12

Naked Globals

Name Field # of Occurrence
^( ON+2
^("B" WS+2
^(0 PUD+4
^(2 PUD+4
^(4 PUD+4
^(6 PUD+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% DONE+2!
%H DONE+2!
%I DONE+2!
C DONE+2!, PUD+2*, PUD+3*, TF+1~*, TF+2
DFN PUD+18~*, PUD+25, PUD+41
DN DONE+2!, ON+2*, PUD+4, PUD+13
DO DONE+2!, PUD+4*
DRG DONE+2!
DUZ PUD+40, PUD+41, PUD+42
FQ DONE+2!, ON+2*
GIVE DONE+2!
HDT DONE+2!
I DONE+2!
IO PSJO+9, PSJO+10
IO(0 PSJO+9
IOSL ON+2, BOT+1
IOST PSJO+9
JJ DONE+2!
LN2 DONE+2!, TF+2*, TF+3
MARX PUD+21~, PUD+27
MARX( PUD+28
MARX(2 PUD+39
N DONE+2!
ND DONE+2!, PUD+4*, PUD+10, PUD+11, PUD+12
ND4 DONE+2!, PUD+4*, PUD+6, PUD+7, PUD+9
ND6 DONE+2!, PUD+4*, PUD+40
NF DONE+2!, PUD+13*, PUD+37
NP PSJO+9*, PSJO+11, PSJO+13, PSJO+14, DONE+2!, ON+2
O DONE+2!
ON DONE+2!, PUD+20
ORIFN DONE+2!
ORTX DONE+2!
P DONE+2!
PADE PUD+15~*, PUD+20*, PUD+37
PF DONE+2!, PUD+11*, PUD+37
PG DONE+2!
PS DONE+2!
PSGID DONE+2!, PUD+11*, PUD+32, PUD+34
PSGOD DONE+2!
PSGODT DONE+2!
>> PSGON PSJO+9*, DONE+2*
PSGP ON+3, PUD+2, PUD+3, PUD+13, PUD+18, PUD+20, PUD+27, TF+4, TF+5, WS~
PSGP(0 BOT+2
>> PSGVBW DONE+2
PSIVSC DONE+2!
PSIVST DONE+2!
PSIVTY DONE+2!
PSJC PSJO+11*, PSJO+12, PSJO+13, DONE+2!, ON+2, ON+3, PUD+2, PUD+3, PUD+5, PUD+9
, PUD+22, PUD+23, PUD+30, PUD+32, PUD+34, TF+1, TF+3, TF+4, TF+5
>> PSJDCEXP TXT+3*, TXT+5
PSJDEV PSJO+9*, PSJO+14, DONE+2!, ON+4
>> PSJEXTP PSJO+8, PUD+32, PUD+34
PSJF DONE+2!, ON+3*, PUD+4, PUD+8, PUD+13, TF+4*, TF+5*, WS~, WS+2*
PSJNEWOE PUD+17~*, PUD+20
PSJO PSJO+11*, DONE+2!, ON+2*, ON+4, PUD+2, PUD+3, PUD+4, PUD+8, PUD+13, PUD+20
, PUD+25, PUD+27, PUD+41, WS~, WS+2
>> PSJOL PSJO+10
>> PSJON PSJO+9*, DONE+2, ON+4*
PSJORFLG PUD+22*, PUD+23*, PUD+27, PUD+44!
PSJOS DONE+2!, ON+1
>> PSJPDOB BOT+2
>> PSJPPID BOT+2
>> PSJPRP PSJO+14, DONE+1
PSJPWD PUD+13, WS~, WS+2, WSCHK~, WSCHK+1
PSJRNDT PUD+21~, PUD+25*, PUD+38, PUD+39
PSJS PSJO+11*, PSJO+13*, DONE+2!, ON+1, ON+2, PUD+28
PSJSCHT DONE+2!, ON+1*, PUD+30
PSJST PSJO+11*, PSJO+13*, DONE+2!, ON+1, ON+2
>> PSJSYSU PUD+6
PSJTMNOE PUD+16~, PUD+17*
PSWS WS+2~*, WSCHK~, WSCHK+1
>> Q BOT+1*
QQ DONE+2!
RB DONE+2!
RTE DONE+2!, PUD+10*
SCH DONE+2!, PUD+4*, PUD+11*
SD DONE+2!, PUD+11*, PUD+32, PUD+34
SLS PSJO+10, DONE+2!, TF+1~*, TF+3
SM DONE+2!, PUD+10*, PUD+37
ST DONE+3!
START DONE+3!
STAT DONE+3!, PUD+10*, PUD+12*, PUD+32, PUD+34
SUB DONE+3!
TF PSJO+12, DONE+3!, TF+4*
TF2 PSJO+8~, PSJO+9*, PSJO+12, TF+5*
TXTLN PUD+41~*, PUD+42
TYP DONE+3!
U PSJO+13, PSJO+14, PUD+12
UDU DONE+3!, PUD+6
UPD DONE+3!
V DONE+3!, PUD+6*, PUD+7, PUD+8, PUD+43*
VAIN PUD+18~
VAIN(4 PUD+18, PUD+19
WS DONE+3!, PUD+13*, PUD+37, WS+2*, WS+3
X DONE+3!, PUD+28*, PUD+30, PUD+32, PUD+34, PUD+36, PUD+38, PUD+43*, TXT~, TXT+1
, TXT+2, TXT+4, TXT+5, TXT+6, TXT+7, TXT+8, TXT+9, TXT+10, TXT+11
X1 DONE+3!
X2 DONE+3!
Y DONE+3!, PUD+40*, PUD+43
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All