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 ;28 Jun 99 / 10:20 AM

Source Information

Source file <PSJO.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
Inpatient Medications 5 $$ENDTC^PSGMI  $$ENSET^PSGSICHK  $$LASTREN^PSJLMPRI  DRGDISP^PSJLMUT1  (ENGET,ENNP)^PSJO3  

Caller Graph

Caller Graph Total: 8

Package Total Caller Graph
Inpatient Medications 8 PSGL  PSGO  PSGVBWP  PSJADT2  PSJLMPRU  PSJOE0  PSJPR  PSJUTL1  

Entry Points

Name Comments DBIA/ICR reference
ON ;
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.
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.
BOT ; print name, ssn, and dob on bottom of page
DONE ;
TF ;

External References

Name Field # of Occurrence
$$ENDTC^PSGMI PUD+14, PUD+18, PUD+19
$$ENSET^PSGSICHK PUD+21
$$LASTREN^PSJLMPRI PUD+14
DRGDISP^PSJLMUT1 PUD+15
ENGET^PSJO3 PSJO+9
ENNP^PSJO3 ON+2

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+9
Function Call: WRITE
  • Prompt: !,$J(PSJON,4),?5
  • Line Location: ON+3
Function Call: WRITE
  • Prompt: $S(ND4="":" ",$P(ND4,"^",12):"D",$P(ND4,"^",18)&($P(ND4,"^",19)!V):"H",$P(ND4,"^",22)&($P(ND4,"^",23)!V):"H",$P(ND4,"^",15)&($P(ND4,"^",16)!V):"R",1:" ")
  • Line Location: PUD+3
Function Call: WRITE
  • Prompt: "->"
  • Condition for execution: V&(PSJSYSU)
  • Line Location: PUD+3
Function Call: WRITE
  • Prompt: $S($P(ND4,"^",12):"D",1:" "),$S(PSJSYSU:"->",1:"")
  • Line Location: PUD+8
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+16
Function Call: WRITE
  • Prompt: ?71
  • Line Location: PUD+20
Function Call: WRITE
  • Prompt: "NF "
  • Condition for execution: NF
  • Line Location: PUD+20
Function Call: WRITE
  • Prompt: "WS "
  • Condition for execution: WS
  • Line Location: PUD+20
Function Call: WRITE
  • Prompt: $E("HSM",SM,3)
  • Condition for execution: SM
  • Line Location: PUD+20
Function Call: WRITE
  • Prompt: PSJRNDT
  • Condition for execution: $G(PSJRNDT)
  • Line Location: PUD+20
Function Call: WRITE
  • Prompt: ?79,"*"
  • Condition for execution: PF
  • Line Location: PUD+20
Function Call: WRITE
  • Prompt: !?11
  • Line Location: PUD+21
Function Call: WRITE
  • Prompt: !?11
  • Condition for execution: $L(V)+$X>66
  • Line Location: PUD+21
Function Call: WRITE
  • Prompt: V_" "
  • Line Location: PUD+21
Function Call: READ
  • Prompt: E N E W A L S"
  • Timeout: "P
  • Variable: C["CD"
  • Line Location: TF+2
Function Call: READ
  • Prompt: I F I E D C O M P L E X"
  • Timeout: "P
  • Variable: C["C"
  • Line Location: TF+2
Function Call: READ
  • Prompt: I F I E D"
  • Timeout: "N
  • Variable: 1
  • Line Location: TF+2
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)
^PSD(58.8 - [#58.8] WSCHK+1
^PSI(58.1 - [#58.1] WSCHK+1
^TMP("PSJ" PSJO+7!, PSJO+9, PSJO+10, PSJO+12, DONE+1!, ON+2, TF+3
^TMP("PSJON" PSJO+7!, ON+3*

Label References

Name Line Occurrences
$$WS PUD+12
$$WSCHK WS+2
@( PSJO+7, ON+3
BOT PSJO+13
DONE PSJO+10, PSJO+13
ON PSJO+12
TF PSJO+11

Naked Globals

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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

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