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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: PSGOE

Package: Inpatient Medications

Routine: PSGOE


Information

PSGOE ;BIR/CML3-PROFILE AND ORDER ENTRY (MAIN DRIVER) ;24 Feb 99 / 10:40 AM

Source Information

Source file <PSGOE.m>

Call Graph

Call Graph

Call Graph Total: 17

Package Total Call Graph
Inpatient Medications 9 ENQL^PSGLW  ^PSGOEPO  ENDPT^PSGP  ^PSGPER  ^PSGPER1  (ENCV,ENKV)^PSGSETU  WP^PSJAC  LOCKERR^PSJOE  
$$ENORL^PSJUTL  
VA FileMan 3 NOW^%DTC  YN^DICN  ^DIK  
Kernel 2 ^%ZIS  ^%ZISC  
List Manager 1 EN^VALM  
Pharmacy Data Management 1 ($$L,UL)^PSSLOCK  
Registration 1 INP^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 PSJU NE  

Entry Points

Name Comments DBIA/ICR reference
EN ;
DONE ;
HK ; Housekeeping (a nice COBOL term)
ORSU ; Oe/Rr Set-Up ;Not used anymore
DDEV ;
DDH ;
CHUCK ; This appears to be an ancient test tag - not called from any file or other routine.

External References

Name Field # of Occurrence
NOW^%DTC HK+1
^%ZIS DDEV+1
^%ZISC EN+2
YN^DICN DDEV+6
^DIK DDEV+8
ENQL^PSGLW DONE+1, HK+4
^PSGOEPO DONE+2, HK+5, DDEV+7
ENDPT^PSGP EN+4
^PSGPER EN+22
^PSGPER1 DONE+6
ENCV^PSGSETU EN+1, EN+23, CHUCK+1
ENKV^PSGSETU DONE+6
WP^PSJAC HK+4
LOCKERR^PSJOE EN+3
$$ENORL^PSJUTL HK+6
$$L^PSSLOCK EN+6
UL^PSSLOCK EN+4
INP^VADPT HK+4
EN^VALM EN+9, EN+14, EN+17

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$C(7),$P(PSJLK,U,2)
  • Line Location: EN+6
Function Call: READ
  • Formatting: !!
  • Prompt: "Select Device to print ORDERS (10-1158): "
  • Variable: DDEV
  • Timeout: DTIME
  • Line Location: DDEV+1
Function Call: WRITE
  • Prompt: $C(7),!!?2,"The device you have selected is not a printer. You must select a printer."
  • Line Location: DDEV+2
Function Call: WRITE
  • Prompt: !,"You cannot print the orders to your terminal."
  • Condition for execution: PSGION=ION
  • Line Location: DDEV+2
Function Call: WRITE
  • Prompt: !!?2,"You have unprinted orders. If you do not print them now, you will not be",!,"able to print them from here later."
  • Line Location: DDEV+5
Function Call: WRITE
  • Prompt: !!,"Do you want to print them now"
  • Line Location: DDEV+6
Function Call: WRITE
  • Prompt: !!?2,"Enter 'YES' to print the orders now. If you enter 'NO', you will not be",!,"able to print them from here later. (Enter '^' to exit this option.)"
  • Line Location: DDEV+6
Function Call: WRITE
  • Prompt: !!?2,"Select a device to print each patient's orders (VA Form 10-1158) after you",!,"have entered them. If you do not select a device, no orders will print."
  • Line Location: DDH+1
Function Call: READ
  • Formatting: !!
  • Prompt: "PSJSYSU: "
  • Variable: PSJSYSU
  • Timeout: DTIME
  • Line Location: CHUCK+1
Routine Call
  • %ZIS
  • Line Location:
    • DDEV+1
Routine Call
  • VALM
  • Line Location:
    • EN+9
    • EN+14
    • EN+17

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PS(53.44 - [#53.44] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(53.44 - [#53.44] DONE+2, DDEV+4
^PS(53.45 - [#53.45] EN+3, DONE+4
^PS(55 - [#55] HK+1
^TMP("PSJ" EN+5!, EN+16, EN+24!
^TMP("PSJON" EN+24!
^TMP("PSJPRO" EN+24!
^TMP($J DONE+3!

Label References

Name Line Occurrences
DDEV EN+2, DDEV+2
DDH DDEV+1
DONE EN+2, EN+3
EN CHUCK+1
HK EN+4

Naked Globals

Name Field # of Occurrence
^( DDEV+4
^(4 HK+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % HK+1, DDEV+2*, DDEV+6*, DDEV+7*, DDEV+8*
%ZIS DDEV+1!*
D0 DONE+4!
>> DA DDEV+8*
DDEV EN+2, DONE+4!, DDEV+1*, DDEV+2, DDEV+3
DDH DONE+5!
DDN DONE+5!, DONE+6!
DFN EN+9*, EN+22~*, HK+3~*
>> DIK DDEV+8*
DRGI DONE+5!
DTIME DDEV+1, CHUCK+1
DUZ DONE+2, DDEV+4, DDEV+8
FQ DONE+5!
FQC DONE+4!
HF DONE+5!
I1 DONE+5!
I2 DONE+6!
IO DDEV+3
IO("Q" DDEV+1!
ION EN+2, DDEV+2, DDEV+3
>> IOP DDEV+1*
IOST DDEV+2
J DONE+4!
MRN DONE+4!
ND DONE+4!
ND1 DONE+5!, DONE+6!
ND2 DONE+4!
ND2P1 DONE+5!
NF DONE+5!
NXTPT EN+7~*, EN+10, EN+18*, EN+19*, EN+20*
ORETURN DONE+5!
ORIFN DONE+5!
PDRG DONE+5!
>> POP DDEV+1*, DDEV+2
PRI DONE+4!
PSBEBN DONE+6!
PSG25 DONE+6!
PSG26 DONE+6!
PSGACTO DONE+5!
PSGAL DONE+5!
PSGCANFL DONE+5!
PSGDA DONE+5!
PSGEB DONE+6!
>> PSGION EN+2*, DDEV+2
PSGNEF EN+2*, DONE+4!
PSGNEFDO DONE+4!
PSGNESDO DONE+4!
PSGNODE DONE+6!
PSGOAT DONE+6!
PSGOE DONE+4!
PSGOEA DONE+4!
PSGOEAV EN+2*, DONE+4!
PSGOEDMR DONE+4!
PSGOENOF DONE+4!, HK+1*
PSGOEORF DONE+5!
PSGOEPOF DONE+2*, DONE+4!, HK+5*, DDEV+7*
PSGOL EN+2*, DONE+4!
PSGOP EN+2*, DONE+1, DONE+2, DONE+4!, HK+2, HK+3, HK+5, HK+6*
PSGP EN+4, EN+6, EN+9, EN+21, EN+22~*, HK+1, HK+2, HK+5, HK+6
PSGPEN DONE+5!
PSGPENWS DONE+5!
>> PSGPTMP EN+4*
PSGPX DONE+4!
>> PSGPXN EN+2*, EN+21*, DONE+6
PSGPXPT EN+21*!, EN+22
PSGRDTX EN+11!
PSGSTAT DONE+6!
PSGTOL DONE+4!
PSGTOO DONE+4!
PSGUOW DONE+4!
PSGVBY EN+3!
PSGY DONE+5!
PSJACNWP HK+3~
PSJACPF HK+3~, HK+4*
PSJEXCPT DONE+3!
PSJLK EN+1~, EN+4, EN+6*
>> PSJLMCON EN+4*, EN+8*, EN+12, EN+14*, EN+16, EN+17*
PSJLMPRO EN+8!, EN+14*, EN+16, EN+17*, EN+24!
>> PSJNEWOE EN+12, EN+14*, EN+15*, EN+18, EN+20*
PSJNOO DONE+5!
PSJOCER DONE+3!
>> PSJOL EN+13*
PSJOPC DONE+4!
PSJORL DONE+5!, HK+6*
PSJORPCL DONE+5!
PSJORPV DONE+5!
PSJORTOU DONE+4!
PSJORVP DONE+4!, HK+6*
PSJPROT EN+1~, EN+9*
PSJPWD HK+3~, HK+4*, HK+6
PSJSYSL DONE+1, HK+3~, HK+4
PSJSYSO EN+1~, DONE+2, HK+5, DDEV+3*
>> PSJSYSP EN+3, DONE+4
>> PSJSYSU EN+2, HK+1, CHUCK+1*
PSJSYSW HK+3~
PSJSYSW0 EN+21, HK+3~
PX DONE+4!
>> Q HK+1*, DDEV+4*, DDEV+5
>> QQ HK+1*
U EN+6, EN+21
VAERR HK+3~
VAIN HK+3~
VAIN(4 HK+4
>> VALMBCK EN+15
VALMEVL EN+1~
>> X HK+6*
XQORS EN+1~
>> XQUIT EN+1, CHUCK+1
XX DONE+4!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All