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

Package: Inpatient Medications

Routine: PSGOEPO


Information

PSGOEPO ;BIR/CML3-PRINT ORDERS ENTERED BY PROVIDER ;12 Mar 98 / 3:23 PM

Source Information

Source file <PSGOEPO.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
Inpatient Medications 4 ^PSGLPI  ($$ENDTC,$$ENDTC2)^PSGMI  $$ENSET^PSGSICHK  ENTSK^PSGTI  
Kernel 2 ^%ZIS  ^%ZISC  
VA FileMan 2 NOW^%DTC  ^DIK  

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 PSGOE  

Entry Points

Name Comments DBIA/ICR reference
ENQOP ;
PO ;
LAST ;
DONE ;
HEADER ;
OPRT ;
BTM ;

External References

Name Field # of Occurrence
NOW^%DTC ENQOP+1
^%ZIS PSGOEPO+6
^%ZISC LAST+1
^DIK PO+3
^PSGLPI PO+1
$$ENDTC^PSGMI OPRT+2
$$ENDTC2^PSGMI ENQOP+1, PO+1
$$ENSET^PSGSICHK OPRT+4
ENTSK^PSGTI PSGOEPO+7

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y
  • Line Location: HEADER+1
Function Call: WRITE
  • Prompt: !!?2,"NURSE: Remove one copy and send to Pharmacy.",!!!!!,LN1,!?1,"VA FORM 10-1158",?21,"PROVIDER'S MEDICATION ORDERS",?53,"Printed: ",PSGOEPOD,!,LN1
  • Line Location: HEADER+1
Function Call: WRITE
  • Prompt: !?3,"|Date/|",?33,"ORDERS",?58,"| | Nurse's",!,"No.|Time |Action",?19,"Check here if NO SUBSTITUTE allowed. ->",?58,"| | Signature",!,LN1
  • Line Location: HEADER+2
Function Call: WRITE
  • Prompt: !,$J(OCNT,3),"|",$E(OD,1,5),"|",$S(PSGOEPOA="C":"DC ",PSGOEPOA="R":"RNW",PSGOEPOA="W":"NEW",1:"???"),"|",ND1,?58-$L(ST),ST,?58,"| |"
  • Line Location: OPRT+5
Function Call: WRITE
  • Prompt: !?3,"| | |",?58-$L(AD),AD,"| |"
  • Line Location: OPRT+7
Function Call: WRITE
  • Prompt: !?3,"| | |"
  • Line Location: OPRT+8
Function Call: WRITE
  • Prompt: ?58,"| |",!?3,"| | |"
  • Condition for execution: $X+$L(QQ)>57
  • Line Location: OPRT+8
Function Call: WRITE
  • Prompt: QQ," "
  • Line Location: OPRT+8
Function Call: WRITE
  • Prompt: ?58,"| |"
  • Condition for execution: ND6]""
  • Line Location: OPRT+9
Function Call: WRITE
  • Prompt: !,LN1
  • Line Location: OPRT+9
Function Call: WRITE
  • Prompt: !
  • Line Location: BTM+1
Function Call: WRITE
  • Prompt: !?25,"_______________",?45,"______________________________",!?25,"Date AND Time",?45,TITLE,!!
  • Line Location: BTM+2
Function Call: WRITE
  • Prompt: ?36,"THIS PATIENT'S ORDERS CONTINUE ON NEXT PAGE"
  • Line Location: BTM+2
Function Call: WRITE
  • Prompt: !,LN1,!?1,PSGLPN,?36,"Ward: ",PSGLWDN,!?7,"PID: ",PSGLSSN,?32,"Room-Bed: ",PSGLRB,?59,"Admitted: ",PSGLAD,!?7,"DOB: ",PSGLDOB," (",PSGLAGE,")",?37,"Sex: ",PSGLSEX
  • Line Location: BTM+3
Function Call: WRITE
  • Prompt: ?56,"Last Transfer: ",PSGLTD
  • Line Location: BTM+3
Routine Call
  • %ZIS
  • Line Location:
    • PSGOEPO+6

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(50.3 - [#50.3] OPRT+3
^PS(51.2 - [#51.2] OPRT+3
^PS(53.44 - [#53.44] ENQOP+2, PO+2
^PS(55 - [#55] PO+1
^VA(200 - [#200] ENQOP+1

Label References

Name Line Occurrences
BTM LAST+1, OPRT+5
DONE PSGOEPO+7
ENQOP PSGOEPO+6
HEADER PO+1, OPRT+5
LAST ENQOP+3
OPRT PO+2
PO ENQOP+2

Naked Globals

Name Field # of Occurrence
^( ENQOP+2, OPRT+1
^(0 PO+2, OPRT+3
^(2 OPRT+1
^(6 OPRT+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % ENQOP+1
%ZIS PSGOEPO+6!*
AD DONE+1!, OPRT+2*, OPRT+7
DA PO+3*, DONE+1!
DA(1 PO+3*
DIK PO+3*, DONE+1!
DO DONE+1!, OPRT+2*, OPRT+6
DUZ ENQOP+1, ENQOP+2, PO+2, PO+3
FD DONE+1!, OPRT+2*
IO PSGOEPO+6, ENQOP+1
IO("Q" PSGOEPO+6!
IO(0 PSGOEPO+6
IOF LAST+1, HEADER+1
IOP PSGOEPO+6*!
IOSL OPRT+5, BTM+1
LN1 ENQOP+1*, DONE+1!, HEADER+1, HEADER+2, OPRT+9, BTM+3
MORE PO+1*, LAST+1*, DONE+1!, BTM+2
MR DONE+1!, OPRT+2*, OPRT+3*, OPRT+6
ND DONE+1!, OPRT+1*, OPRT+2*, OPRT+6
ND1 DONE+1!, OPRT+1*, OPRT+2*, OPRT+3*, OPRT+5
ND2 DONE+1!, OPRT+1*, OPRT+2*, OPRT+6
ND6 DONE+1!, OPRT+1*, OPRT+4*, OPRT+8, OPRT+9
OCNT PO+1*, DONE+1!, OPRT+5*
OD DONE+1!, OPRT+1*, OPRT+5, OPRT+6
PSGID DONE+1!
>> PSGLAD BTM+3
>> PSGLAGE BTM+3
>> PSGLDOB BTM+3
>> PSGLPN BTM+3
>> PSGLRB BTM+3
>> PSGLSEX BTM+3
>> PSGLSSN BTM+3
>> PSGLTD PO+1*, BTM+3
>> PSGLWDN BTM+3
PSGOD DONE+1!
>> PSGOE PO+2*
PSGOEPO PO+2*, DONE+1!
>> PSGOEPOA PO+1*, PO+2*, OPRT+5, OPRT+6
PSGOEPOD ENQOP+1*, DONE+1!, HEADER+1
PSGOEPOF PSGOEPO+7, ENQOP+2, ENQOP+3, PO+3, DONE+1!
>> PSGOP ENQOP+2*, PO+1, PO+2, PO+3, OPRT+1
PSGORD PO+2*, DONE+1!, OPRT+1*
>> PSGTID PSGOEPO+7*
>> PSGTIR PSGOEPO+7*
>> PSJSYSO PSGOEPO+6
>> Q OPRT+8*, BTM+1*
>> QQ OPRT+8*
SD DONE+1!, OPRT+2*
ST DONE+1!, OPRT+2*, OPRT+5
>> TITLE ENQOP+1*, BTM+2
>> X PO+1*, OPRT+2*
>> ZTDESC PSGOEPO+7*
ZTSAVE PSGOEPO+6!
ZTSAVE("PSGOEPOF" PSGOEPO+7*
ZTSAVE("PSGOP" PSGOEPO+7*
ZTSAVE("PSJSYSU" PSGOEPO+7*
ZTSK PSGOEPO+7!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All