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

Package: Inpatient Medications

Routine: PSGPER0


Information

PSGPER0 ;BIR/CML3-PRINTS PRE-EXCHANGE NEEDS REPORT ;24 JAN 94 / 11:14 AM

Source Information

Source file <PSGPER0.m>

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
Inpatient Medications 5 ($$ENDDN,$$ENDTC,$$ENMRN,$$ENNPN,$$ENPDN)^PSGMI  TASKPRGE^PSGPER1  $$NSYNC^PSGPER2  $$ENSET^PSGSICHK  $$CLINIC^PSJO1  
VA FileMan 2 NOW^%DTC  ^DIR  
Kernel 1 ^%ZISC  
Pharmacy Data Management 1 $$HAZ^PSSUTIL  
Registration 1 PID^VADPT  

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

Package Total Caller Graph
Inpatient Medications 1 PSGPER  

Entry Points

Name Comments DBIA/ICR reference
ENQ ;
ENPAT ;
ENP ;
PAT ;
DONE ;
NP ;
HEADER ;
GWR ;
ONI ;
DDS ;
PPI ;
OP ;
PRT ; find order info and print same

External References

Name Field # of Occurrence
NOW^%DTC PAT+2
^%ZISC PAT+7
^DIR NP+1
$$ENDDN^PSGMI DDS+3, PRT+8
$$ENDTC^PSGMI PAT+2, PRT+12
$$ENMRN^PSGMI ONI+5, PRT+8
$$ENNPN^PSGMI ONI+1
$$ENPDN^PSGMI ONI+2
TASKPRGE^PSGPER1 ENQ+2
$$NSYNC^PSGPER2 PAT+4, DDS+1
$$ENSET^PSGSICHK PRT+16
$$CLINIC^PSJO1 ONI+3, DDS+2
$$HAZ^PSSUTIL PRT+5
PID^VADPT PAT+1, GWR+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(13),#
  • Condition for execution: Y
  • Line Location: NP+1
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y
  • Line Location: HEADER+1
Function Call: WRITE
  • Prompt: !?20,"PRE-EXCHANGE UNITS REPORT - ",%
  • Line Location: HEADER+1
Function Call: WRITE
  • Prompt: !!,$S(($G(PSGCURCL)]""):"Clinic",1:"Ward"),?32,"Room-bed",!,"Patient",!?5,"Order",!?20,"Dispense Drug",?64,"U/D",?72,"Needs",!,L
  • Line Location: HEADER+2
Function Call: WRITE
  • Prompt: !?5,PDN," ",DO," ",MR,$S(MR]"":" ",1:""),SCH
  • Line Location: OP+2
Function Call: WRITE
  • Prompt: !
  • Line Location: PRT+6
Function Call: WRITE
  • Prompt: ?20,"<<HAZ Handle>> "
  • Condition for execution: $P(PSHAZ,U)
  • Line Location: PRT+6
Function Call: WRITE
  • Prompt: ?20,"<<HAZ Dispose>>"
  • Condition for execution: $P(PSHAZ,U,2)
  • Line Location: PRT+6
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y
  • Line Location: PRT+13
Function Call: WRITE
  • Prompt: !!?6,BORD_" PRE-EXCHANGE MED "_BORD,!?6,"#",?73,"#",!?6,"# ",PN,?50,$S(($G(PSGCURCL)]""):"Clinic: ",1:"Ward: "),WD,?73,"#",!?6,"# ("_SN_")",?52,"RB: "_RB,?73,"#",!?6,"#",?73,"#"
  • Line Location: PRT+13
Function Call: WRITE
  • Prompt: !?6,"# "_DRG,?46,"START: "_STRT,?73,"#",!?6,"# "_$S(DRGS]"":"("_DRGS_")",1:""),?47,"STOP: "_STOP,?73,"#",!?6,"# GIVE: "_$S(DO]"":" "_DO,1:"")_$S(MR]"":" "_MR,1:"")_$S(SCH]"":" "_SCH,1:""),?73,"#"
  • Line Location: PRT+14
Function Call: WRITE
  • Prompt: !?6,"#",?73,"#",!?6,"# (NO SPECIAL INSTRUCTIONS)"
  • Line Location: PRT+15
Function Call: WRITE
  • Prompt: !?6,"#",?73,"#",!?6,"# "
  • Line Location: PRT+16
Function Call: WRITE
  • Prompt: ?73,"#",!?6,"# "
  • Condition for execution: $X+$L(X)>72
  • Line Location: PRT+16
Function Call: WRITE
  • Prompt: X_" "
  • Line Location: PRT+16
Function Call: WRITE
  • Prompt: ?73,"#",!?6,"#",?73,"#",!,?6,"#",?43,"VERIFIED: "_VD,?73,"#",!?6,"#",?49,"BY: "_VU,?73,"#",!?6,"#",?38,"SEND TO FLOOR: "_PX,?73,"#"
  • Line Location: PRT+17
Function Call: WRITE
  • Prompt: !?6,"#",?73,"#"
  • Line Location: PRT+18
Function Call: WRITE
  • Prompt: !?6,"#",?73,"#",!?6,"#",?36,"_______________ _______________ #",!?6,"#",?36,"FILLED BY",?56,"CHECKED BY",?73,"#",!?6,BORD_BORD_$E(BORD,1,20)
  • Line Location: PRT+19
Routine Call
  • DIR
  • Line Location:
    • NP+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] GWR+2
^PS(53.4 - [#53.4] ENP+3, PAT+1
^PS(55 - [#55] ONI+1, ONI+3, DDS+3, PRT+7
^PSDRUG("B" PRT+4
^SC - [#44] ONI+3
^TMP( PAT+3, PAT+5, PAT+6, DONE+1!, GWR+3*, ONI+4!, ONI+5*, DDS+5*
^TMP("PSGPER" ENPAT+3!, ENP+1!
^TMP("PSGPERPC" ENPAT+3!, ONI+3*
^TMP($J ONI+6*
^VA(200 - [#200] PRT+11

Label References

Name Line Occurrences
DDS PAT+1
DONE ENPAT+3, ENP+3
ENP ENQ+1
ENPAT ENQ+1
GWR PAT+1
HEADER PAT+2
NP PAT+6, PPI+1, PRT+1
ONI PAT+1
OP PAT+5
PAT ENPAT+3, ENP+3
PPI PAT+5
PRT PAT+5

Naked Globals

Name Field # of Occurrence
^( PAT+1, PAT+3, PAT+5, GWR+2, ONI+1, PRT+7
^(0 PAT+1, GWR+2
^(2 ONI+1, PRT+7
^(4 PRT+7
^(6 PRT+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % PAT+2*, HEADER+1
BORD PAT+2*, DONE+1!, PRT+13, PRT+19
CLINIC ONI+3~*
DA ENQ+3!
DD PAT+1*, DONE+1!
DDN PAT+2*, PAT+5*, DONE+1!
>> DFN ENPAT+1, ENP+3*, PAT+1, GWR+2, GWR+3, ONI+1, ONI+3, ONI+6, DDS+2, DDS+3
, PPI+1*, PRT+7
DIK ENQ+3!
DIR NP+1!
DIR(0 NP+1*
DN PAT+2*, PAT+5*, DONE+1!, ONI+1*, ONI+2*, ONI+5, PRT+7
DO DONE+1!, ONI+1*, ONI+5, OP+1*, OP+2, PRT+7*, PRT+9, PRT+14
DONE DONE+2!
DRG DONE+1!, PRT+8*, PRT+9, PRT+14
DRGS DONE+1!, PRT+14
F PAT+2*, PAT+3*, PAT+5*, PAT+6*, DONE+1!, HEADER+3
FIL DONE+2!
I2 DONE+1!
IO ENPAT+3, ENP+1, ENP+3, PAT+2
IO(0 PAT+2
IOF PAT+7, HEADER+1, PRT+13
IOSL PPI+1, PRT+1
IOST PAT+2
L PAT+2*, DONE+1!, HEADER+2
MR DONE+1!, ONI+1*, ONI+5*, OP+1*, OP+2, PRT+8*, PRT+14
ND PAT+1*, DONE+1!, ONI+1*, ONI+5, DDS+3*, DDS+4*, DDS+5, PRT+7*
ND0 DONE+1!, PRT+7*, PRT+8
ND1 DONE+1!, DDS+3*, DDS+5
ND2 DONE+1!, PRT+7*, PRT+11
ND4 DONE+1!, PRT+7*, PRT+11
NF DONE+2!
NP PAT+2*, DONE+1!, PPI+1, PRT+1
ON PAT+1*, DONE+1!, ONI+1, ONI+3, ONI+5, ONI+6, DDS+2, DDS+3, PRT+7*
PDM DONE+2!
PDN DONE+1!, OP+1*, OP+2, PRT+2*, PRT+4
PDRG DONE+2!
PI PAT+3*, PAT+5, PAT+6, DONE+1!, PPI+1
PN DONE+1!, HEADER+3, GWR+2*, GWR+3, ONI+3, PPI+1*, PPI+2, PRT+13
PSG25 DONE+1!
PSG26 DONE+1!
PSGACTO DONE+2!
>> PSGCURCL PAT+4, HEADER+2, DDS+1, PRT+13
PSGDA DONE+2!
PSGEB DONE+1!
PSGEBN DONE+1!
PSGNEFDO DONE+2!
PSGNESDO DONE+2!
PSGNODE DONE+1!
PSGOAT DONE+1!
PSGPEN DONE+2!
PSGPENWS DONE+2!
PSGPRSUB ENPAT+2~*, ENP+2~*, PAT+3, PAT+4, PAT+5, PAT+6, DONE+1, GWR+3, ONI+3, ONI+4
, ONI+5, DDS+1, DDS+2, DDS+5
>> PSGPRTYP ENPAT+2, ENP+2
PSGPXN ENQ+2, ENQ+3!, ENP+3, PAT+1, ONI+6
>> PSGPXPT ENQ+1
PSGSTAT DONE+1!
PSGY DONE+2!
PSHAZ PRT+4~, PRT+5*, PRT+6
PSIVAC DONE+2!
PSIVCT DONE+2!
PSIVE DONE+2!
PSIVEXAM DONE+2!
PSIVUP DONE+2!
PSIVWAT DONE+2!
PSJH DONE+2!
PSJNOO DONE+2!
PSJNOON DONE+2!
PX PAT+5*, DONE+1!, OP+1, PRT+2*, PRT+9, PRT+17
>> Q PRT+12*, PRT+16*, PRT+18*
RB PAT+3*, DONE+1!, HEADER+3, GWR+2*, GWR+3, PPI+1*, PPI+2, PRT+13
RF PAT+2*, DONE+1!, PPI+1, PRT+1, PRT+9
SCH DONE+1!, ONI+1*, ONI+5, OP+1*, OP+2, PRT+11*, PRT+14
SDN DONE+1!, ONI+5*, DDS+5
SN DONE+1!, HEADER+3, PPI+1*, PPI+2, PRT+13
SND1 DONE+1!, DDS+3*, DDS+5
SPN DONE+1!, GWR+3*, ONI+3, ONI+4, ONI+5, DDS+5
STOP DONE+1!, PRT+11*, PRT+14
STRT DONE+1!, PRT+11*, PRT+14
T PAT+2*, PAT+7, DONE+1!, NP+1
U PRT+6
UD DONE+1!, DDS+3*, DDS+5, PRT+2*, PRT+9
>> VA("BID" GWR+3, ONI+3
VD DONE+1!, PRT+11*, PRT+17
VU DONE+1!, PRT+11*, PRT+17
W DONE+1!
WD PAT+2*, PAT+3*, PAT+4, PAT+5, PAT+6, DONE+1!, NP+1*, HEADER+3, GWR+2*, GWR+3
, ONI+3*, ONI+5, DDS+1, DDS+5, PPI+2, PRT+13
X DONE+1!, PRT+16*
XDRGIEN PRT+4~*, PRT+5
XL DONE+1!, PRT+15*, PRT+16*, PRT+18*
Y DONE+1!, NP+1, PRT+7*, PRT+15, PRT+16*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All