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

Package: Inpatient Medications

Routine: PSGPLUP


Information

PSGPLUP ;BIR/CML3-UPDATE A PICK LIST ;28 JUN 96 / 9:24 AM

Source Information

Source file <PSGPLUP.m>

Entry Points

Name Comments DBIA/ICR reference
CHK ;
ASK ;
DONE ;
UP ;
ENQ ;
UPC ;
DEV ;
QUEUE ;
RP ;
DIC
NL ; numeric look-up

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"THERE ARE CURRENTLY NO PICK LISTS TO UPDATE."
  • Line Location: CHK+3
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",!,"update.",!?2,"You may also 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),$C(7),!!?33,"*** WARNING ***",!,"THIS PICK LIST STARTED TO RUN ",$$ENDTC^PSGMI($P(^(0),"^",10)),", BUT HAS NOT RUN TO COMPLETION."
  • Line Location: UP+1
Function Call: WRITE
  • Prompt: $C(7),$C(7),!!?33,"*** WARNING ***",!!?15,"THIS PICK LIST IS CURRENTLY LOCKED BY ANOTHER JOB."
  • Line Location: UP+2
Function Call: READ
  • Timeout: DTIME
  • Line Location: UP+4
Function Call: WRITE
  • Prompt: !!,"Update terminated."
  • Line Location: UP+5
Function Call: WRITE
  • Prompt: !,"...this may take a few minutes..."
  • Line Location: UP+7
Function Call: WRITE
  • Prompt: !!,"DO YOU NEED A REPRINT OF THIS UPDATE"
  • Line Location: ENQ+7
Function Call: WRITE
  • Prompt: !!," Enter a 'U' if you wish to print only the new and edited (updated) orders for this pick list. Enter a 'P' to print the entire pick list, including the up- dated orders. Enter a '^' to terminate this update now."
  • Line Location: UPC+1
Function Call: WRITE
  • Prompt: "PDATE"
  • Line Location: UPC+2
Function Call: WRITE
  • Prompt: "ICK LIST"
  • Line Location: UPC+3
Function Call: WRITE
  • Prompt: $C(7)," ??"
  • Line Location: UPC+4
Function Call: WRITE
  • Prompt: !
  • Line Location: DEV+1
Function Call: WRITE
  • Prompt: !,"No device chosen."
  • Line Location: DEV+1
Function Call: WRITE
  • Prompt: !,"Pick list update queued!"
  • Line Location: QUEUE+4
Function Call: WRITE
  • Prompt: !!,"Enter a 'Y' to reprint this update. Enter an 'N' (or '^') if you do not want to reprint this update."
  • Line Location: RP+1
Function Call: WRITE
  • Prompt: " ",PSGPLWGN,!?$L(GRP)+21,Y," thru ",PSGOD
  • Line Location: NL+3

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