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
Print Page as PDF
Routine: PSGPLR

Package: Inpatient Medications

Routine: PSGPLR


Information

PSGPLR ;BIR/CML3-PRINTS PICK LIST REPORT ; 6/15/07 1:12pm

Source Information

Source file <PSGPLR.m>

Entry Points

Name Comments DBIA/ICR reference
BEGIN ;
DONE ;
DD ;
EXDD ;
FCL ;
HEADER ;
PAGECK ;
WARDCHK ; if patient has discontinued orders from a different ward, print the ward and room/bed that the orders were discontinued from.
MINUTES(STPDT,LESS)

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?25,"*** No orders to fill ***"
  • Line Location: PSGPLR+14
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: (IO'=IO(0)!(IOST'["C-"))&($Y)
  • Line Location: PSGPLR+14
Function Call: WRITE
  • Prompt: !!?25,"FILLED BY: ",FACL,!!?25,"CHECKED BY: ",FACL
  • Line Location: BEGIN+2
Function Call: WRITE
  • Prompt: !!?25,"FILLED BY: ",FACL,!!?25,"CHECKED BY: ",FACL
  • Line Location: BEGIN+3
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y
  • Line Location: BEGIN+3
Function Call: WRITE
  • Prompt: !!
  • Line Location: DD+12
Function Call: WRITE
  • Prompt: !?6,DR,?48,ST,?51,"(DI "_DND_")",?66,"Returns: ____"
  • Line Location: DD+16
Function Call: WRITE
  • Prompt: !?35,"**** RENEWAL ****"
  • Line Location: DD+22
Function Call: WRITE
  • Prompt: ?57,"ATC"
  • Condition for execution: (ATC)&(NEED>0)
  • Line Location: DD+25
Function Call: WRITE
  • Prompt: ?61,$J(UD,4),?68,$J(NEED,4),?75,$S(DIS]"":$J(DIS,4),1:"____")
  • Line Location: DD+25
Function Call: WRITE
  • Prompt: !,"<<HAZ Handle>>"
  • Line Location: DD+27
Function Call: WRITE
  • Prompt: " <<HAZ Dispose>>"
  • Line Location: DD+28
Function Call: WRITE
  • Prompt: !?6,PDRG,?48,ST,?57,"OI"
  • Line Location: DD+30
Function Call: WRITE
  • Prompt: !,?65-$L(AT),AT
  • Condition for execution: AT]""
  • Line Location: DD+34
Function Call: WRITE
  • Prompt: !?7,"Start: ",SD,?37,"Stop: ",FD
  • Line Location: DD+34
Function Call: WRITE
  • Prompt: !?10
  • Line Location: DD+35
Function Call: WRITE
  • Prompt: !?10
  • Condition for execution: $X+$L(X)>65
  • Line Location: DD+35
Function Call: WRITE
  • Prompt: X_" "
  • Line Location: DD+35
Function Call: WRITE
  • Prompt: !
  • Line Location: EXDD+1
Function Call: WRITE
  • Prompt: !?6,DR,?48,DIS,?66,"Returns: ____"
  • Line Location: EXDD+2
Function Call: WRITE
  • Prompt: !?6,"<<HAZ Handle>> <<HAZ Dispose>>"
  • Line Location: EXDD+6
Function Call: WRITE
  • Prompt: !?6,"<<HAZ Handle>>"
  • Line Location: EXDD+7
Function Call: WRITE
  • Prompt: !?6,"<<HAZ Dispose>>"
  • Line Location: EXDD+8
Function Call: WRITE
  • Prompt: !?6,PDRG,?48,DIS,?66,"Returns: ____"
  • Line Location: EXDD+9
Function Call: WRITE
  • Prompt: !?10,"Give: ",$S(DO]"":DO_" ",1:""),RTE," ",SCH
  • Line Location: EXDD+10
Function Call: WRITE
  • Prompt: !?7,"Start: ",SD,?37,"Stop: ",FD
  • Line Location: EXDD+10
Function Call: WRITE
  • Prompt: !!?25,"FILLED BY: ",FACL,!!?25,"CHECKED BY: "_FACL
  • Line Location: FCL+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PAGECK+1
Function Call: WRITE
  • Prompt: ?48,$E("(from "_$P(VAIN(4),"^",2)_" "_VAIN(5)_")",1,31)
  • Line Location: WARDCHK+3
Info |  Source |  Entry Points |  Interaction Calls