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

Package: Inpatient Medications

Routine: PSGPER2


Information

PSGPER2 ;BIR/CML3-PRINTS PRE-EXCHANGE NEEDS REPORT ;18 MAR 03 / 5:14 PM

Source Information

Source file <PSGPER2.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
Inpatient Medications 3 ($$ENDDN,$$ENDTC,$$ENMRN,$$ENNPN,$$ENPDN)^PSGMI  TASKPRGE^PSGPER1  $$ENSET^PSGSICHK  
VA FileMan 2 NOW^%DTC  ^DIR  
Kernel 1 ^%ZISC  
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: 2

Package Total Caller Graph
Inpatient Medications 2 PSGPER0  PSGPER1  

Entry Points

Name Comments DBIA/ICR reference
ENQ ; Tasked entry point
ENP ;
DONE ;
NP ;
HEADER ;
GWR ;
ONI ;
DDS ;
PPI ;
OP ;
PRT ; find order info and print same
NSYNC(PSGPRSUB,WD,PSGCURCL) ; Don't print ward orders and clinic orders together

External References

Name Field # of Occurrence
NOW^%DTC ENP+4
^%ZISC ENP+9
^DIR NP+1
$$ENDDN^PSGMI DDS+3, PRT+4
$$ENDTC^PSGMI ENP+4, PRT+8
$$ENMRN^PSGMI ONI+5, PRT+4
$$ENNPN^PSGMI ONI+1
$$ENPDN^PSGMI ONI+2
TASKPRGE^PSGPER1 ENQ+2
$$ENSET^PSGSICHK PRT+12
PID^VADPT ENP+3, 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: @IOF
  • Condition for execution: $Y
  • Line Location: PRT+9
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+9
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+10
Function Call: WRITE
  • Prompt: !?6,"#",?73,"#",!?6,"# (NO SPECIAL INSTRUCTIONS)"
  • Line Location: PRT+11
Function Call: WRITE
  • Prompt: !?6,"#",?73,"#",!?6,"# "
  • Line Location: PRT+12
Function Call: WRITE
  • Prompt: ?73,"#",!?6,"# "
  • Condition for execution: $X+$L(X)>72
  • Line Location: PRT+12
Function Call: WRITE
  • Prompt: X_" "
  • Line Location: PRT+12
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+13
Function Call: WRITE
  • Prompt: !?6,"#",?73,"#"
  • Line Location: PRT+14
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+15
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
^PS(55 - [#55] ONI+1, ONI+3, DDS+2, DDS+3, PRT+3
^SC - [#44] ONI+3
^TMP( ENP+5, ENP+7, ENP+8, DONE+1!, GWR+3*, ONI+4!, ONI+5*, DDS+5*
^TMP("PSGPERP" ENP+2!
^TMP("PSGPERPC" ENP+2!, ONI+3*
^TMP($J ONI+6*
^VA(200 - [#200] PRT+7

Label References

Name Line Occurrences
$$NSYNC ENP+6, DDS+1
DDS ENP+3
ENP ENQ+1
GWR ENP+3
HEADER ENP+4
NP ENP+8, PPI+1, PRT+1
ONI ENP+3
OP ENP+7
PPI ENP+7
PRT ENP+7

Naked Globals

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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % ENP+4*, HEADER+1
BORD ENP+4*, DONE+1!, PRT+9, PRT+15
CLINIC ONI+3~*
DA ENQ+3!
DD ENP+3*, DONE+1!
DDN ENP+4*, ENP+7*, DONE+1!
>> DFN ENP+3*, GWR+2, GWR+3, ONI+1, ONI+3, ONI+6, DDS+2, DDS+3, PPI+1*, PRT+3
DIK ENQ+3!
DIR NP+1!
DIR(0 NP+1*
DN ENP+4*, ENP+7*, DONE+1!, ONI+1*, ONI+2*, ONI+5, PRT+3
DO DONE+1!, ONI+1*, ONI+5, OP+1*, OP+2, PRT+3*, PRT+5, PRT+10
DONE DONE+2!
DRG DONE+1!, PRT+4*, PRT+5, PRT+10
DRGS DONE+1!, PRT+10
F ENP+4*, ENP+5*, ENP+7*, ENP+8*, DONE+1!, HEADER+3
FIL DONE+2!
I2 DONE+1!
IO ENP+2, ENP+4
IO(0 ENP+4
IOF ENP+9, HEADER+1, PRT+9
IOSL PPI+1, PRT+1
IOST ENP+4
L ENP+4*, DONE+1!, HEADER+2
MR DONE+1!, ONI+1*, ONI+5*, OP+1*, OP+2, PRT+4*, PRT+10
ND ENP+3*, DONE+1!, ONI+1*, ONI+5, DDS+3*, DDS+4*, DDS+5, PRT+3*
ND0 DONE+1!, PRT+3*, PRT+4
ND1 DONE+1!, DDS+3*, DDS+5
ND2 DONE+1!, PRT+3*, PRT+7
ND4 DONE+1!, PRT+3*, PRT+7
NF DONE+2!
NP ENP+4*, DONE+1!, PPI+1, PRT+1
ON ENP+3*, DONE+1!, ONI+1, ONI+3, ONI+5, ONI+6, DDS+2, DDS+3, PRT+3*
PDM DONE+2!
PDN DONE+1!, OP+1*, OP+2, PRT+2*
PDRG DONE+2!
PI ENP+5*, ENP+7, ENP+8, DONE+1!, PPI+1
PN DONE+1!, HEADER+3, GWR+2*, GWR+3, ONI+3, PPI+1*, PPI+2, PRT+9
PSG25 DONE+1!
PSG26 DONE+1!
PSGACTO DONE+2!
PSGCURCL ENP+6, HEADER+2, DDS+1, PRT+9, NSYNC~, NSYNC+1, NSYNC+2
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 ENP+1~*, ENP+5, ENP+6, ENP+7, ENP+8, DONE+1, GWR+3, ONI+3, ONI+4, ONI+5
, DDS+1, DDS+2, DDS+5, NSYNC~, NSYNC+1, NSYNC+2
>> PSGPRTYP ENP+1
PSGPXN ENQ+2, ENQ+3!, ENP+3, ONI+6
PSGSTAT DONE+1!
PSGY DONE+2!
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 ENP+7*, DONE+1!, OP+1, PRT+2*, PRT+5, PRT+13
>> Q PRT+8*, PRT+12*, PRT+14*
RB ENP+5*, DONE+1!, HEADER+3, GWR+2*, GWR+3, PPI+1*, PPI+2, PRT+9
RF ENP+4*, DONE+1!, PPI+1, PRT+1, PRT+5
SCH DONE+1!, ONI+1*, ONI+5, OP+1*, OP+2, PRT+7*, PRT+10
SDN DONE+1!, ONI+5*, DDS+5
SN DONE+1!, HEADER+3, PPI+1*, PPI+2, PRT+9
SND1 DONE+1!, DDS+3*, DDS+5
SPN DONE+1!, GWR+3*, ONI+3, ONI+4, ONI+5, DDS+5
STOP DONE+1!, PRT+7*, PRT+10
STRT DONE+1!, PRT+7*, PRT+10
T ENP+4*, ENP+9, DONE+1!, NP+1
UD DONE+1!, DDS+3*, DDS+5, PRT+2*, PRT+5
>> VA("BID" GWR+3, ONI+3
VD DONE+1!, PRT+7*, PRT+13
VU DONE+1!, PRT+7*, PRT+13
W DONE+1!
WD ENP+4*, ENP+5*, ENP+6, ENP+7, ENP+8, DONE+1!, NP+1*, HEADER+3, GWR+2*, GWR+3
, ONI+3*, ONI+5, DDS+1, DDS+5, PPI+2, PRT+9, NSYNC~, NSYNC+1
X DONE+1!, PRT+12*
XL DONE+1!, PRT+11*, PRT+12*, PRT+14*
Y DONE+1!, NP+1, PRT+3*, PRT+11, PRT+12*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All