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

Package: Inpatient Medications

Routine: PSGPL


Information

PSGPL ;BIR/CML3-PICK LIST ;12 DEC 97 / 10:01 AM

Source Information

Source file <PSGPL.m>

Entry Points

Name Comments DBIA/ICR reference
BEGIN ; get ward group, last pick list # for group, see if it's a rerun.
; ND2 - 2 node of WARD GROUP file or WARD GROUP^^start date^stop date from pick list ) node
; PSGPLG - pick list number PSGPLWG - ward group number
; PSGPLF - start date PSGPLWGP - 5 node from WARD GROUP
BOTH ;
UL ;
DONE ;
SET ;
DTEXST ;
GETSF ;
GETSF1
RERUN ;
DTQ ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Start date/time for this pick list: ",PSGOD
  • Line Location: BEGIN+10
Function Call: WRITE
  • Prompt: !
  • Line Location: BOTH+1
Function Call: WRITE
  • Prompt: !!,"Pick list queued!"
  • Line Location: BOTH+4
Function Call: WRITE
  • Prompt: !!,"No device chosen for Pick List ",$E("re",1,RERUN),"run."
  • Line Location: BOTH+5
Function Call: WRITE
  • Prompt: !,"...this may take a while...(you really should QUEUE the pick list)..."
  • Line Location: BOTH+6
Function Call: WRITE
  • Prompt: !!,"The PICK LIST for this WARD GROUP was last run",$S(XX:" on "_XX,1:""),!," for ",Y," through ",X,!
  • Line Location: DTEXST+2
Function Call: WRITE
  • Prompt: $C(7),$C(7),!,"*** THIS PICK LIST HAS NOT RUN TO COMPLETION. ***",!
  • Line Location: DTEXST+3
Function Call: WRITE
  • Prompt: $C(7),!!,"This PICK LIST cannot be ",$E("re",1,RERUN),"run without a ",MES," date."
  • Line Location: GETSF1+0
Function Call: WRITE
  • Prompt: $C(7),!!,"*** Stop date must be greater than start date !! ***",!
  • Line Location: GETSF1+2
Function Call: WRITE
  • Prompt: $C(7),!!,"*** WARNING: You're Attempting to run the Pick List for greater than 7 days ***",!
  • Line Location: GETSF1+6
Function Call: WRITE
  • Prompt: !,"Are you Sure (Y/N):"
  • Line Location: GETSF1+7
Function Call: WRITE
  • Prompt: $C(7),!!,"** THE NEXT PICK LIST FOR THIS WARD GROUP IS CURRENTLY RUNNING. **"
  • Line Location: RERUN+1
Function Call: WRITE
  • Prompt: !,"Do you want to rerun this pick list"
  • Line Location: RERUN+2
Function Call: WRITE
  • Prompt: $C(7)," (Answer required.)"
  • Condition for execution: %Y=""
  • Line Location: RERUN+2
Function Call: WRITE
  • Prompt: !!?2,"Enter a 'Y' to rerun this pick list. Enter an 'N' (or '^') to NOT rerun this pick list. NOTE: Rerunning a pick list deletes all of its old data.",!
  • Line Location: DTQ+1

FileMan Files Accessed Via FileMan Db Call

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