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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: PSDORN2

Package: Controlled Substances

Routine: PSDORN2


Information

PSDORN2 ;BIR/JPW,LTL-Nurse CS Infusion Order Entry (cont'd) ; 16 Feb 95

Source Information

Source file <PSDORN2.m>

Call Graph

Call Graph Total: 8

Package Total Call Graph
VA Fileman 6 ^DIC  ^DIE  ^DIK  ^DIR  ^DIWP  ^DIWW  
Controlled Substances 1 ^PSDORN3  
Kernel 1 SIG^XUSESIG  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Controlled Substances 1 PSDORNV  

Entry Points

Name Comments DBIA/ICR reference
EDIT ;edit or delete order request
ADD
PHARM ;create worksheet entry in file 58.85
DEL ;deletes order request
ASK ;displays order for review
DISPLAY ;displays order request to screen

External References

Name Field # of Occurrence
^DIC ADD+1
^DIE EDIT+4, ADD+4
^DIK DEL+1
^DIR ASK+3
^DIWP DISPLAY+13
^DIWW DISPLAY+14
^PSDORN3 ADD+8
SIG^XUSESIG ASK+6

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!
  • Line Location: ASK+2
Function Call: WRITE
  • Prompt: !!
  • Line Location: ASK+7
Function Call: WRITE
  • Prompt: "Your order request #"_CNT1_" of "_CNT
  • Condition for execution: $D(ORD)
  • Line Location: ASK+7
Function Call: WRITE
  • Prompt: @IOF,!,?17,"Controlled Substance "
  • Line Location: DISPLAY+2
Function Call: WRITE
  • Prompt: !!,"Patient: ",$P($G(^DPT(PAT,0)),U),!!
  • Line Location: DISPLAY+4
Function Call: WRITE
  • Prompt: "Requested by",?16,": ",$P($G(^VA(200,PSDUZ,0)),"^")
  • Line Location: DISPLAY+5
Function Call: WRITE
  • Prompt: ?51,$S($G(PSDT(9))]"":"Needed by: "_PSDT(9),1:"Request Date: "_REQD),!,LN,!
  • Line Location: DISPLAY+6
Function Call: WRITE
  • Prompt: !,"Drug",?16,": ",PSDRN
  • Line Location: DISPLAY+7
Function Call: WRITE
  • Prompt: !,"Dispensed by",?16,": N/A",?50,"Dispensed Date: N/A"
  • Line Location: DISPLAY+9
Function Call: WRITE
  • Prompt: !,"Disp. Location",?16,": "
  • Line Location: DISPLAY+10
Function Call: WRITE
  • Prompt: $P($G(^PSD(58.8,+PSDS,0)),"^")
  • Condition for execution: +PSDS
  • Line Location: DISPLAY+10
Function Call: WRITE
  • Prompt: !,"Exp. Date",?16,": ",!,"Manufacturer",?16,": ",!,"Lot #",?16,": "
  • Line Location: DISPLAY+10
Function Call: WRITE
  • Prompt: !,"Ord. Location",?16,": ",NAOUN,!,"Order Status",?16,": ",$P($G(^PSD(58.82,1,0)),"^"),!,"Comments:"
  • Line Location: DISPLAY+11
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: EDIT+1
Function Call: WRITE
  • Prompt: !!,"Press <RET> to edit this order request, or enter 'D' to delete the request.",!
  • Line Location: EDIT+2
Function Call: WRITE
  • Prompt: !!,?25,"Request being deleted...",!
  • Line Location: DEL+1
Function Call: WRITE
  • Prompt: ?5,!!,"Processing your request now..."
  • Line Location: PHARM+1
Routine Call
  • DIE
  • Line Location:
    • EDIT+4
    • ADD+4
Routine Call
  • DIC
  • Line Location:
    • ADD+1
Routine Call
  • DIR
  • Line Location:
    • ASK+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] DISPLAY+4
^PSD(58.8 - [#58.8] DISPLAY+10, DISPLAY+12, DISPLAY+13, ADD+3, ADD+4, ADD+5, ADD+6
^PSD(58.82 - [#58.82] DISPLAY+11
^PSD(58.85 - [#58.85] PHARM+1, ADD*, ADD+2, ADD+5*, ADD+6*
^UTILITY($J DISPLAY+12!
^VA(200 - [#200] DISPLAY+5

Label References

Name Line Occurrences
ADD ADD
ASK ASK+5
DEL ASK+4, ASK+6, EDIT+1, EDIT+3
DISPLAY ASK+1
EDIT ASK+5, EDIT+2
PHARM ASK+7

Naked Globals

Name Field # of Occurrence
^(0 ADD+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> CNT ASK+7
>> CNT1 ASK+7
DA ASK+2!, EDIT+4!*, DEL+1*, ADD+1!, ADD+4*, ADD+7!
DA(1 EDIT+4*, DEL+1*
DA(2 EDIT+4*, DEL+1*
DIC ADD+1!*, ADD+7!
DIC(0 ADD+1*
DIE EDIT+4!*, ADD+1!*, ADD+4!, ADD+7!
DIK DEL+1!*
>> DILOCKTM PHARM+1
DIR ASK+2!, ASK+3!
DIR("?" ASK+2*, ASK+3*
DIR("A" ASK+2*
DIR("B" ASK+2*
DIR(0 ASK+2*
DIRUT ASK+2!, ASK+4
>> DIWF DISPLAY+13*
>> DIWL DISPLAY+13*
>> DIWR DISPLAY+13*
DLAYGO ADD+1!*, ADD+7!
DR EDIT+4!*, ADD+1!, ADD+4*, ADD+7!
DT ADD+3
DTIME ASK+9, EDIT+1
IOF DISPLAY+2
LN DISPLAY+1!*, DISPLAY+6
>> NAOU DISPLAY+12, DISPLAY+13, EDIT+4, DEL+1, ADD+3, ADD+4, ADD+5, ADD+6
>> NAOUN DISPLAY+11
>> ORD ASK+7, ASK+9
>> PAT DISPLAY+4, ADD+4
>> PSDA DISPLAY+12, DISPLAY+13, EDIT+4, DEL+1, ADD+3, ADD+4, ADD+5, ADD+6
>> PSDEM DISPLAY+3
>> PSDOUT ASK+4*, ASK+5, ASK+6*, EDIT+1*, DEL+1*
>> PSDQTY ADD+4
>> PSDR DISPLAY+12, DISPLAY+13, EDIT+4, DEL+1, ADD+3, ADD+4, ADD+5, ADD+6
>> PSDRD ADD+3*, ADD+4
PSDREC ADD*, ADD+1, ADD+4, ADD+5, ADD+6, ADD+8!
>> PSDRN DISPLAY+7
>> PSDS DISPLAY+10, ADD+4
>> PSDT(9 DISPLAY+6, ADD+8!
>> PSDUZ DISPLAY+5, ADD+4
>> REQD DISPLAY+6
>> TEXT DISPLAY+12*, DISPLAY+13
U DISPLAY+4, ADD+4
WORD ADD+6*, ADD+7!
X ASK+6~, ASK+9*, DISPLAY+13*, EDIT+1*, EDIT+2*, EDIT+3, ADD+1*
X1 ASK+6~
>> Y ASK+5, ASK+6
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All