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

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 ;

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
Info |  Source |  Entry Points |  Interaction Calls