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

Package: Inpatient Medications

Routine: PSGPLDP0


Information

PSGPLDP0 ;BIR/CML3-ENTER UNITS DISPENSED (PART 2) ;23 OCT 97 / 9:34 AM

Source Information

Source file <PSGPLDP0.m>

Entry Points

Name Comments DBIA/ICR reference
PRN ;
TM ;
OUT ;
FILE ;
PN ;
NP
ST ;
DRG ;
GD ;
GDMSG ;
W1 ;
W2 ;
SCREEN ; display break

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7),$C(7),!!?33,"*** WARNING ***",!,"THIS PICK LIST STARTED TO RUN ",PSGOD,", BUT HAS NOT RUN TO COMPLETION."
  • Line Location: PSGPLDP0+4
Function Call: WRITE
  • Prompt: !!,"Do you want to see PRN meds only"
  • Line Location: PRN+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PRN+3
Function Call: WRITE
  • Prompt: !!?2,"(No PRN meds founds.)"
  • Condition for execution: 'PRN&'PC
  • Line Location: OUT+1
Function Call: WRITE
  • Prompt: !!,"ARE YOU FINISHED WITH THIS PICK LIST"
  • Line Location: OUT+1
Function Call: WRITE
  • Prompt: !!,"MAY I FILE THE DATA IN THIS PICK LIST AWAY"
  • Line Location: FILE+1
Function Call: WRITE
  • Prompt: !,$$ENPDN^PSGMI(+$G(^PS(55,PSGP,5,PSJJORD,.2))),?42,"NEEDED: OI",?55,"DISPENSED:"
  • Line Location: GD+2
Function Call: WRITE
  • Prompt: !,DR,?42,"NEEDED: ",PDN,?55,"DISPENSED: ",PDN
  • Line Location: GD+5
Function Call: READ
  • Variable: OK
  • Timeout: DTIME
  • Line Location: GD+7
Function Call: WRITE
  • Prompt: !,DR,?42,"NEEDED: ",PDN,?55,"DISPENSED: ",$S(PDD="":"",1:PDD_"// ")
  • Line Location: GD+7
Function Call: WRITE
  • Prompt: OK="^^^"
  • Condition for execution: '$T $C(7) S:'$T
  • Line Location: GD+7
Function Call: WRITE
  • Prompt: $C(7)," ??"
  • Line Location: GD+7
Function Call: WRITE
  • Prompt: " ",OK
  • Line Location: GD+9
Function Call: WRITE
  • Prompt: !!," Enter the number of units actually dispensed for this medication. If the",!,"units dispensed is the same as the units needed (or units dispensed, if shown),",!,"just press the RETURN key."
  • Line Location: GDMSG+1
Function Call: WRITE
  • Prompt: !,?20,"(NO ORDERS)",!
  • Line Location: W2+3
Function Call: WRITE
  • Prompt: !
  • Line Location: SCREEN+1

FileMan Files Accessed Via FileMan Db Call

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