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 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  
Registration 2 INP^VADPT  EN^VALM  
Pharmacy Data Management 1 ($$L,UL)^PSSLOCK  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Inpatient Medications 1 PSJU NE  

Entry Points

Name Comments DBIA/ICR reference
EN ;
DDEV ;
CHUCK ;
HK ; Housekeeping (a nice COBOL term)
DDH ;
DONE ;
ORSU ; Oe/Rr Set-Up ;Not used anymore

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+5
ENCV^PSGSETU EN+1, EN+23, CHUCK+1
ENKV^PSGSETU DONE+5
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
  • Prompt: "Select Device to print ORDERS (10-1158): "
  • Formatting: !!
  • Timeout: DTIME
  • Variable: DDEV
  • 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
  • Prompt: "PSJSYSU: "
  • Formatting: !!
  • Timeout: DTIME
  • Variable: PSJSYSU
  • Line Location: CHUCK+1
Routine Call
  • VALM
  • Line Location:
    • EN+9
    • EN+14
    • EN+17
Routine Call
  • %ZIS
  • Line Location:
    • DDEV+1

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+3
^PS(55 - [#55] HK+1
^TMP("PSJ" EN+5!, EN+16, EN+24!
^TMP("PSJON" EN+24!
^TMP("PSJPRO" EN+24!

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+3!
>> DA DDEV+8*
DDEV EN+2, DONE+3!, DDEV+1*, DDEV+2, DDEV+3
DDH DONE+4!
DDN DONE+4!, DONE+5!
DFN EN+9*, EN+22~*, HK+3~*
>> DIK DDEV+8*
DRGI DONE+4!
DTIME DDEV+1, CHUCK+1
DUZ DONE+2, DDEV+4, DDEV+8
FQ DONE+4!
FQC DONE+3!
HF DONE+4!
I1 DONE+4!
I2 DONE+5!
IO DDEV+3
IO("Q" DDEV+1!
ION EN+2, DDEV+2, DDEV+3
>> IOP DDEV+1*
IOST DDEV+2
J DONE+3!
MRN DONE+3!
ND DONE+3!
ND1 DONE+4!, DONE+5!
ND2 DONE+3!
NF DONE+4!
NXTPT EN+7~*, EN+10, EN+18*, EN+19*, EN+20*
ORETURN DONE+4!
ORIFN DONE+4!
PDRG DONE+4!
>> POP DDEV+1*, DDEV+2
PRI DONE+3!
PSBEBN DONE+5!
PSG25 DONE+5!
PSG26 DONE+5!
PSGACTO DONE+4!
PSGAL DONE+4!
PSGCANFL DONE+4!
PSGDA DONE+4!
PSGEB DONE+5!
>> PSGION EN+2*, DDEV+2
PSGNEF EN+2*, DONE+3!
PSGNEFDO DONE+3!
PSGNESDO DONE+3!
PSGNODE DONE+5!
PSGOAT DONE+5!
PSGOE DONE+3!
PSGOEA DONE+3!
PSGOEAV EN+2*, DONE+3!
PSGOEDMR DONE+3!
PSGOENOF DONE+3!, HK+1*
PSGOEORF DONE+4!
PSGOEPOF DONE+2*, DONE+3!, HK+5*, DDEV+7*
PSGOL EN+2*, DONE+3!
PSGOP EN+2*, DONE+1, DONE+2, DONE+3!, 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+4!
PSGPENWS DONE+4!
>> PSGPTMP EN+4*
PSGPX DONE+3!
>> PSGPXN EN+2*, EN+21*, DONE+5
PSGPXPT EN+21*!, EN+22
PSGRDTX EN+11!
PSGSTAT DONE+5!
PSGTOL DONE+3!
PSGTOO DONE+3!
PSGUOW DONE+3!
PSGVBY EN+3!
PSGY DONE+4!
PSJACNWP HK+3~
PSJACPF HK+3~, HK+4*
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+4!
>> PSJOL EN+13*
PSJOPC DONE+3!
PSJORL DONE+4!, HK+6*
PSJORPCL DONE+4!
PSJORPV DONE+4!
PSJORTOU DONE+3!
PSJORVP DONE+3!, 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+3
>> PSJSYSU EN+2, HK+1, CHUCK+1*
PSJSYSW HK+3~
PSJSYSW0 EN+21, HK+3~
PX DONE+3!
>> 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+3!
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