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

Package: Inpatient Medications

Routine: PSGO


Information

PSGO ;BIR/CML3,MV - PRINTS PATIENT'S ORDERS ;Jul 12, 2018@13:10

Source Information

Source file <PSGO.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
Inpatient Medications 7 ($$ENDTC,$$ENDTC2)^PSGMI  ENGORD^PSGOU  $$ENSET^PSGSICHK  ENTRY^PSJHEAD  $$LASTREN^PSJLMPRI  DRGDISP^PSJLMUT1  ($$TXT,$$WS)^PSJO  
VA FileMan 1 NOW^%DTC  

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

Package Total Caller Graph
Inpatient Medications 6 PSGEUD  PSGOE0  PSGPR  PSGRET  PSGVBW1  PSGVWP  

Entry Points

Name Comments DBIA/ICR reference
EN ;
DONE ;
D1 ;
DRG ;
P ;Display drug data stored in ^TMP("PSG",$J
P2
TF ;
GET ;
NP
HEADER ;
BOT ;
ENHEAD ;
ENVBW ;
ENPR ;

External References

Name Field # of Occurrence
NOW^%DTC ENHEAD+1
$$ENDTC^PSGMI ENHEAD+1
$$ENDTC2^PSGMI P2+12, P2+21, P2+27
ENGORD^PSGOU PSGO+5
$$ENSET^PSGSICHK P2+34
ENTRY^PSJHEAD HEADER+3
$$LASTREN^PSJLMPRI P2+21
DRGDISP^PSJLMUT1 P2+18
$$TXT^PSJO TF+3
$$WS^PSJO P2+13

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,SLS,SLS,$E(SLS,1,24),!?22,"NO ORDERS FOUND"
  • Line Location: EN+3
Function Call: WRITE
  • Prompt: " FOR A ",$S(PSGOL="S":"SHORT",1:"LONG")," PROFILE."
  • Condition for execution: "SL"[PSGOL
  • Line Location: EN+3
Function Call: WRITE
  • Prompt: !,$J(ON,4),?5
  • Line Location: P+8
Function Call: WRITE
  • Prompt: !
  • Line Location: P+9
Function Call: WRITE
  • Prompt: !
  • Line Location: P+10
Function Call: WRITE
  • Prompt: @($S(X=1:"?9",1:"!?11"))
  • Line Location: P2+19
Function Call: WRITE
  • Prompt: MARX(X)
  • Line Location: P2+19
Function Call: WRITE
  • Prompt: ?60,$E(SD,1,5),?67,STS
  • Line Location: P2+26
Function Call: WRITE
  • Prompt: ?71
  • Line Location: P2+28
Function Call: WRITE
  • Prompt: "NF "
  • Condition for execution: NF
  • Line Location: P2+28
Function Call: WRITE
  • Prompt: "WS "
  • Condition for execution: WS
  • Line Location: P2+28
Function Call: WRITE
  • Prompt: RNDT_" "
  • Condition for execution: RNDT
  • Line Location: P2+28
Function Call: WRITE
  • Prompt: $E("HSM",SM,3)
  • Condition for execution: SM
  • Line Location: P2+28
Function Call: WRITE
  • Prompt: ?79,"*"
  • Condition for execution: PF
  • Line Location: P2+28
Function Call: WRITE
  • Prompt: ?74
  • Line Location: P2+30
Function Call: WRITE
  • Prompt: "NF "
  • Condition for execution: NF
  • Line Location: P2+30
Function Call: WRITE
  • Prompt: "WS "
  • Condition for execution: WS
  • Line Location: P2+30
Function Call: WRITE
  • Prompt: $E("HSM",SM,3)
  • Condition for execution: SM
  • Line Location: P2+30
Function Call: WRITE
  • Prompt: ?79,"*"
  • Condition for execution: PF
  • Line Location: P2+30
Function Call: WRITE
  • Prompt: ?49,"Renewed: ",$E(RNDT,1,10)
  • Line Location: P2+31
Function Call: WRITE
  • Prompt: !?49,"Renewed: ",$E(RNDT,1,10)
  • Line Location: P2+32
Function Call: WRITE
  • Prompt: !?11
  • Line Location: P2+34
Function Call: WRITE
  • Prompt: !?11
  • Condition for execution: $L(V)+$X>66
  • Line Location: P2+34
Function Call: WRITE
  • Prompt: V_" "
  • Line Location: P2+34
Function Call: READ
  • Formatting: !
  • Prompt: " '^' TO QUIT "
  • Variable: NP
  • Timeout: DTIME
  • Line Location: NP+0
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
Function Call: READ
  • Prompt: I F I E D O R D E R S"
  • Variable: PSGVBWTO=2
  • Timeout: "P
  • Line Location: ENVBW+1
Function Call: READ
  • Prompt: D E R S"
  • Variable: 1
  • Timeout: "N
  • Line Location: ENVBW+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(53.1 - [#53.1] P+9, P+10
^TMP("PSG" EN+3, DONE+1!, DRG+1, DRG+2, DRG+3, TF+4
^TMP("PSJON" PSGO+5!, P+5*

Label References

Name Line Occurrences
BOT EN+7, NP+1
D1 ENHEAD+2
DONE EN+4, EN+6
DRG EN+6
EN ENVBW+2
GET EN+3, ENHEAD+1, ENPR+1
NP DRG+2
P DRG+2, DRG+3
P2 P+9, P+10
TF DRG+1

Naked Globals

Name Field # of Occurrence
^( DRG+2, DRG+3, P2
^(2 P2
^(4 P2
^(6 P2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % ENHEAD+1
C EN+5*, D1+1!, DRG+1*, DRG+2, DRG+3*, P+1, P+3, P+4, P+6, P+9
, P+10, P+11, P2+1, P2+2, P2+6, P2+7, P2+9, P2+16, P2+24, P2+25
, TF+2, TF+3, TF+4, TF+5, TF+6
CCL TF+6~*
CML EN+2*, EN+7, DONE+2, D1+1!, P+2, P2+2, NP, NP+1
DN D1+1!, DRG+2*, DRG+3*
DO D1+1!, P2*, P2+5
DRG EN+5*, D1+1!, DRG+2*
DTIME NP
F D1+1!, P+1~*, P2, P2+13, TF+5*, TF+6*
GIVE D1+1!
HDT D1+1!, ENHEAD+1*
IO EN+2, EN+3
IO(0 EN+2
IOSL DRG+2, BOT+1
IOST EN+2
>> LD EN+5*, DRG+3*
LN2 D1+1!, TF+3*, TF+4, GET+1*, HEADER+4, ENHEAD+1!
MARX P2+14~, P2+18
MARX( P2+19
MARX(2 P2+32
ND D1+1!, P2*, P2+2, P2+8, P2+10
ND4 D1+1!, P2*, P2+1, P2+3, P2+4, P2+6, P2+7
ND6 D1+1!, P2*, P2+34
NF D1+1!, DRG+2*, DRG+3*, P2+29, P2+30
NP EN+2*, EN+4, EN+6, D1+1!, DRG+1, DRG+2, NP*
O D1+1!, DRG+2*, DRG+3*, P+1, P+5, P+9*, P+10*, P2, P2+13, P2+16
, P2+21
O2 P2+21~*
ON DONE+2, D1+1!, P+2*, P+5, P+6, P+8, P2+1, P2+2, P2+6, P2+7
, GET+1*, NP, NP+1
OO P+9~*, P+10~*
PF D1+1!, P2+8*, P2+29, P2+30
PG D1+1!, GET+1*, HEADER+1*, HEADER+3, HEADER+4
PSGHD D1+1!
>> PSGID P2+8*, P2+9*, P2+12
>> PSGOD P2+9*, P2+12*, P2+24, P2+25
PSGODT DONE+2!
PSGOH PSGO+5*, D1+1!, ENHEAD+1*, ENVBW+1*, ENPR+1*
>> PSGOL EN+3, DRG+1, DRG+3, P+7, NP+2
>> PSGON DONE+2*
PSGONC P+6*, GET+1*, ENHEAD+2!
PSGONF PSGO+5!, P2+6*, P2+7*
PSGONR P2+2*, GET+1*, ENHEAD+2!
PSGONV P2+1*, GET+1*, ENHEAD+2!
>> PSGP P2+13, P2+18, P2+21, TF+5, TF+6, HEADER+3
>> PSGP(0 BOT+2
PSGPR ENHEAD+1!
PSGPRP EN+7, DONE+1, ENHEAD+1!
>> PSGVBW DONE+2
>> PSGVBWTO ENVBW+1
PSGVWA GET+1, ENHEAD+1*, ENHEAD+2!
>> PSJNARC HEADER+3
PSJO P+9~*, P+10~*
>> PSJOPC HEADER+2*, HEADER+3
PSJORFLG P2+15*, P2+16*, P2+18, P2+35!
PSJOSUFX P+3~*, P+4*, P+5
>> PSJPDOB BOT+2
>> PSJPPID BOT+2
>> PSJPRB GET+1
>> PSJPWD P2+13, GET+1
>> PSJPWDN GET+1
>> PSJSEL("TM" HEADER+2
>> PSJSYSU P2+1, P2+3
PSJTEAM D1+1!, HEADER+2*, HEADER+3
>> Q BOT+1*
RB EN+2~, GET+1*
RCT D1+1!
RF D1+1!
RNDT P2+21*, P2+31, P2+32, P2+33!
RTE D1+1!
S D1+1!
SCH D1+1!, P2*, P2+8
SD D1+1!, P2+8*, P2+9*, P2+27*
SLS EN+3, D1+1!, TF+1~*, TF+4, GET+1*
SM D1+1!, P2+8*, P2+29, P2+30
ST D1+1!, DRG+1*, DRG+2, DRG+3*, P2+24, P2+25
STS D1+1!, P2+8*, P2+10*, P2+27
TF D1+1!, DRG+1, TF+5*, TF+6*, GET+1*
TF2 EN+1~*, DRG+1, TF+2*
U DRG+3, P2+5, P2+6, P2+7, P2+8, P2+10
UDU D1+1!, P2+3
V D1+1!, P2+3*, P2+4, P2+5, P2+34*
WD D1+1!, GET+1*
WS D1+1!, P2+12*, P2+13*, P2+29, P2+30
WT D1+1!
X DRG+3*, P2+19~*, P2+24, P2+25, P2+27, P2+29, P2+31, P2+34*
>> Y P2+34*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All