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 |  Marked Items |  All
Print Page as PDF
Routine: PSDORD2

Package: Controlled Substances

Routine: PSDORD2


Information

PSDORD2 ;BIR/JPW,LTL-Nurse CS Order Entry (cont'd) ; 21 Dec 94

Source Information

Source file <PSDORD2.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
VA Fileman 6 ^DIC  ^DIE  ^DIK  ^DIR  ^DIWP  ^DIWW  
Kernel 1 (T0,T1)^%ZOSV  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Controlled Substances 1 PSDORD1  

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
T0^%ZOSV PHARM+1
T1^%ZOSV ADD+8
^DIC ADD+1
^DIE EDIT+4, ADD+4
^DIK DEL+1
^DIR ASK+3
^DIWP DISPLAY+8
^DIWW DISPLAY+9

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!
  • Line Location: ASK+2
Function Call: WRITE
  • Prompt: !!
  • Line Location: ASK+6
Function Call: WRITE
  • Prompt: "Your order request #"_CNT1_" of "_CNT
  • Condition for execution: $D(ORD)
  • Line Location: ASK+6
Function Call: WRITE
  • Prompt: ?32,"Sent to Pharmacy...",!!
  • Line Location: ASK+6
Function Call: WRITE
  • Prompt: @IOF,!,?23,"Controlled Substance Order Request"
  • Line Location: DISPLAY+2
Function Call: WRITE
  • Prompt: " # "_CNT1_" of "_CNT
  • Line Location: DISPLAY+2
Function Call: WRITE
  • Prompt: !!,"Pharmacy Dispensing #: ",!,"Requested by",?16,": ",$P($G(^VA(200,PSDUZ,0)),"^"),?52,"Request Date: ",REQD,!,LN,!
  • Line Location: DISPLAY+3
Function Call: WRITE
  • Prompt: !,"Drug",?16,": ",PSDRN,?56,"Quantity: ",?66,PSDQTY,!,"Dispensed by",?16,": N/A",?50,"Dispensed Date: N/A"
  • Line Location: DISPLAY+4
Function Call: WRITE
  • Prompt: !,"Disp. Location",?16,": "
  • Line Location: DISPLAY+5
Function Call: WRITE
  • Prompt: $P($G(^PSD(58.8,+PSDS,0)),"^")
  • Condition for execution: +PSDS
  • Line Location: DISPLAY+5
Function Call: WRITE
  • Prompt: !,"Exp. Date",?16,": ",!,"Manufacturer",?16,": ",!,"Lot #",?16,": "
  • Line Location: DISPLAY+5
Function Call: WRITE
  • Prompt: !,"Ord. Location",?16,": ",NAOUN,!,"Order Status",?16,": ",$P($G(^PSD(58.82,1,0)),"^"),!,"Comments:"
  • Line Location: DISPLAY+6
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 #",PSDD(2)," being deleted...",!
  • Line Location: DEL+1
Function Call: WRITE
  • Prompt: ?5,!,"Processing your request #",PSDD(2)," now..."
  • Line Location: PHARM+2
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)
^PSD(58.8 - [#58.8] DISPLAY+5, DISPLAY+7, DISPLAY+8, ADD+3, ADD+5, ADD+6
^PSD(58.82 - [#58.82] DISPLAY+6
^PSD(58.85 - [#58.85] PHARM+2, ADD*, ADD+2, ADD+5*, ADD+6*
^UTILITY($J DISPLAY+7!
^VA(200 - [#200] DISPLAY+3

Label References

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

Naked Globals

Name Field # of Occurrence
^(0 ADD+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> CNT PSDORD2+2, ASK+6, DISPLAY+2
>> CNT1 PSDORD2+2*, ASK+6, DISPLAY+2
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+2
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+8*
>> DIWL DISPLAY+8*
>> DIWR DISPLAY+8*
DLAYGO ADD+1!*, ADD+7!
DR EDIT+4!*, ADD+1!, ADD+4*, ADD+7!
DT ADD+3
DTIME ASK+6, EDIT+1
IOF DISPLAY+2
LN DISPLAY+1!*, DISPLAY+3
>> NAOU DISPLAY+7, DISPLAY+8, EDIT+4, DEL+1, ADD+3, ADD+4, ADD+5, ADD+6
>> NAOUN DISPLAY+6
>> ORD PSDORD2+2, ASK+6, DISPLAY+2
>> ORD( PSDORD2+2
>> PSDA PSDORD2+2*, DISPLAY+7, DISPLAY+8, EDIT+4, DEL+1, ADD+3, ADD+4, ADD+5, ADD+6
>> PSDD(2 DEL+1, PHARM+2
>> PSDOUT ASK+4*, ASK+5, EDIT+1*, DEL+1*
>> PSDQTY DISPLAY+4, ADD+4
>> PSDR DISPLAY+7, DISPLAY+8, 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+7!
>> PSDRN DISPLAY+4
>> PSDS DISPLAY+5, ADD+4
>> PSDUZ DISPLAY+3, ADD+4
>> REQD DISPLAY+3
>> TEXT DISPLAY+7*, DISPLAY+8
WORD ADD+6*, ADD+7!
>> X ASK+6*, DISPLAY+8*, EDIT+1*, EDIT+2*, EDIT+3, ADD+1*
>> XRT0 ADD+8
>> XRTL PHARM+1
>> XRTN ADD+8*
>> Y ASK+5, ASK+6

Marked Items

Name Field # of Occurrence
$T( ADD+8
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All