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

Package: Inpatient Medications

Routine: PSGTAP


Information

PSGTAP ;BIR/CML3-SEND PICK LIST TO TRAVENOL'S ATC 212 (DRIVER) ; 05 May 98 / 10:25 AM

Source Information

Source file <PSGTAP.m>

Entry Points

Name Comments DBIA/ICR reference
EN ;
ASK ;
OUT ;
EN1 ;
EN2 ;
NL ; numeric look-up
AD ; ATC device

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Formatting: !!
  • Prompt: "Select WARD GROUP or PICK LIST: "
  • Variable: X
  • Timeout: DTIME
  • Line Location: ASK+1
Function Call: WRITE
  • Prompt: !!?2,"Select a Ward Group for which a pick list has been run that you wish to send",!,"to the ATC.",!?2,"You may also directly select a Pick List by number, which prints in the upper",!,"left corner of each pick list."
  • Line Location: ASK+2
Function Call: WRITE
  • Prompt: $C(7),!!,"This PICK LIST is currently being accessed by another task."
  • Line Location: EN1+1
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: EN1+5
Function Call: WRITE
  • Prompt: !!,"THIS PICK LIST HAS NO",$S(Y:" DATA.",1:"T RUN TO COMPLETION."),!,"Do you wish to continue"
  • Line Location: EN1+5
Function Call: WRITE
  • Prompt: !!,"THIS PICK LIST HAS NO",$S(Y:" DATA.",1:"T RUN TO COMPLETION."),!,"Do you wish to continue"
  • Line Location: EN1+5
Function Call: WRITE
  • Prompt: $C(7),!!?10,"THE ATC MACHINE IS NOT FOUND!"
  • Line Location: EN1+6
Function Call: WRITE
  • Prompt: !!,"This pick list had been previously started, but did not run to completion.",!,"Do you want to restart it where it left off"
  • Line Location: EN1+7
Function Call: WRITE
  • Prompt: "...SENT!"
  • Line Location: EN1+12
Function Call: WRITE
  • Prompt: !?5,"Ward Group: ",PSGPLWGN,!?5,Y," thru ",PSGOD
  • Line Location: NL+3
Function Call: WRITE
  • Prompt: $C(7),!!?3,"THIS WARD GROUP DOES NOT HAVE AN ATC DEVICE DESIGNATED FOR IT."
  • Line Location: AD+1

FileMan Files Accessed Via FileMan Db Call

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