Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
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>

Call Graph

Call Graph Total: 7

Package Total Call Graph
VA Fileman 5 NOW^%DTC  ^DIC  YN^DICN  ^DIE  ^DIR  
Inpatient Medications 2 ($$ENDDN,$$ENDTC,$$ENPDN)^PSGMI  (FIMSG,FMSG,PRNM)^PSGPLDPH  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Inpatient Medications 1 PSGPLDP  

Entry Points

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

External References

Name Field # of Occurrence
NOW^%DTC OUT+2
^DIC PN+3
YN^DICN PRN+1, OUT+1, FILE+1
^DIE FILE+2
^DIR SCREEN+2
$$ENDDN^PSGMI GD+3
$$ENDTC^PSGMI PSGPLDP0+4
$$ENPDN^PSGMI GD+2
FIMSG^PSGPLDPH FILE+1
FMSG^PSGPLDPH OUT+1
PRNM^PSGPLDPH PRN+1

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
  • Timeout: DTIME
  • Variable: OK
  • 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
Routine Call
  • DIE
  • Line Location:
    • FILE+2
Routine Call
  • DIC
  • Line Location:
    • PN+3
Routine Call
  • DIR
  • Line Location:
    • SCREEN+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PS(53.5 - [#53.5] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] PN+7, PN+8, W2+1
^PS(53.5 - [#53.5] PSGPLDP0+3, TM+1, PN+2, PN+5, PN+6, PN+7, ST+1, DRG+2, GD+1, GD+10*
, W1+1, W2+1, W2+3
^PS(55 - [#55] DRG+2, GD+2, GD+3

Label References

Name Line Occurrences
DRG ST+1
GD DRG+2
GDMSG GD+7
OUT TM+1
PN TM+1, PN+1
PRN OUT+2
SCREEN GD+2, GD+5, W2+3
ST PN+1
TM TM+1
W1 TM+1, PN+1, GD+4
W2 PN+1

Naked Globals

Name Field # of Occurrence
^(0 W2+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % PRN+1*, PRN+2, PRN+3, OUT+1*, OUT+2, FILE+1*, FILE+2
>> DA FILE+2*
>> DDRG GD+1*, GD+10
DIC PN+3*!
DIC(0 PN+3*
DIE FILE+2*!
DIR SCREEN+2!
DIR("?" SCREEN+2*
DIR("A" SCREEN+2*
DIR(0 SCREEN+2*
>> DN GD+1*, GD+2, GD+3
>> DR FILE+2*, GD+3*, GD+5, GD+7
>> DRG DRG+1*, DRG+2*, GD+1
DTIME GD+7
IOF PRN+3
>> LMT GD+4*, GD+7
>> OK TM+1*, PN+1*, PN+2*, PN+3*, ST+1, DRG+2, GD+1, GD+4*, GD+7*, GD+8
, GD+9*, GD+10, GDMSG+2, W1+2, SCREEN+2*
>> PC PRN+3*, OUT+1, GD+4*
>> PDD GD+1*, GD+7, GD+9, GD+10
>> PDN GD+1*, GD+4, GD+5, GD+7, GD+9
>> PN TM+1*, PN+1, PN+2*, PN+3*, PN+7*, PN+8*, ST+1, DRG+2, GD+1, W2+1
>> PPN W2+1*, W2+2
>> PR TM+1*, W2+1*, W2+2
>> PRN PRN+2*, PRN+3*, TM+1, OUT+1, PN+1, DRG+2, GD+4
>> PSGLCNT PRN+3*, GD+6*, W1+1*, SCREEN+1*
>> PSGOD PSGPLDP0+4*
>> PSGORD DRG+2*, GD+1, GD+10
>> PSGP PN+1*, DRG+2, GD+1, GD+2, GD+3, GD+10, W1+1, W2+1, W2+3
>> PSGPLG PSGPLDP0+3, TM+1, FILE+2, PN+2, PN+3, PN+5, PN+6, PN+7, ST+1, DRG+2
, GD+1, GD+10, W1+1, W2+1, W2+3
>> PSGPLTND PSGPLDP0+3*, PSGPLDP0+4, OUT+2, W2+2
>> PSJJORD DRG+2*, GD+2, GD+3
>> PSSN W2+1*, W2+2
>> PW W1+1*, W1+2
>> RB TM+1*, PN+2, PN+5*, PN+6*, PN+7, ST+1, DRG+2, GD+1
>> SCH DRG+2*
>> ST ST+1*, DRG+2, GD+1
>> TM PRN+3*, TM+1*, PN+2, PN+8*, ST+1, DRG+2, GD+1, W1+2
U PN+5, PN+7, PN+8
>> WDN TM+1*, PN+2, PN+8*, ST+1, DRG+2, GD+1, W1+1, W1+2
>> WF PN+1*, GD+4*
>> WSF PSGPLDP0+3*, TM+1, PN+1, PN+4, W1+1
>> X PN+3*, SCREEN+2
Y PN+3, PN+4*, PN+7!, PN+8!
Y(0 PN+4, PN+5, PN+7, PN+8
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All