Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

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.

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PS(53.44 - [#53.44] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call