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

Package: Controlled Substances

Routine: PSDORN1


Information

PSDORN1 ;BIR/JPW,LTL-Nurse CS Order Entry (cont'd) ;12/14/99 16:09

Source Information

Source file <PSDORN1.m>

Call Graph

Call Graph Total: 9

Package Total Call Graph
VA Fileman 6 ^DIC  ^DIE  ^DIK  ^DIR  ^DIWP  ^DIWW  
Kernel 2 (T0,T1)^%ZOSV  SIG^XUSESIG  
Controlled Substances 1 ^PSDORNP  

Caller Graph

Caller Graph Total: 5

Package Total Caller Graph
Controlled Substances 5 PSDOR2  PSDORN  PSDORNC  PSDORNO  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
T0^%ZOSV PHARM+1
T1^%ZOSV ADD+8
^DIC ADD+1
^DIE EDIT+4, ADD+4
^DIK DEL+1
^DIR ASK+3
^DIWP DISPLAY+13
^DIWW DISPLAY+14
^PSDORNP ADD+9
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: "Order Request"
  • Line Location: DISPLAY+4
Function Call: WRITE
  • Prompt: " # "_CNT1_" of "_CNT
  • Line Location: DISPLAY+4
Function Call: WRITE
  • Prompt: !!,"Pharmacy Dispensing #: ",!
  • Line Location: DISPLAY+6
Function Call: WRITE
  • Prompt: "Requested by",?16,": ",$P($G(^VA(200,PSDUZ,0)),"^")
  • Line Location: DISPLAY+7
Function Call: WRITE
  • Prompt: ?51,$S($G(PSDT(9))]"":"Needed by: "_PSDT(9),1:"Request Date: "_REQD),!,LN,!
  • Line Location: DISPLAY+8
Function Call: WRITE
  • Prompt: !,"Drug",?16,": ",PSDRN,?56,"Quantity: ",?66,PSDQTY,!,"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+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)
^DPT - [#2] DISPLAY+5
^PSD(58.8 - [#58.8] DISPLAY+10, DISPLAY+12, DISPLAY+13, ADD+3, ADD+4, ADD+5, ADD+6, ADD+9
^PSD(58.82 - [#58.82] DISPLAY+11
^PSD(58.85 - [#58.85] PHARM+2, ADD*, ADD+2, ADD+5*, ADD+6*
^UTILITY($J DISPLAY+12!
^VA(200 - [#200] DISPLAY+7

Label References

Name Line Occurrences
ADD ADD
ASK PSDORN1+8, 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 PSDORN1+8, ASK+7, DISPLAY+4
>> CNT1 PSDORN1+8*, ASK+7, DISPLAY+4
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+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+8
>> NAOU DISPLAY+12, DISPLAY+13, EDIT+4, DEL+1, ADD+3, ADD+4, ADD+5, ADD+6, ADD+9
>> NAOUN DISPLAY+11
>> ORD PSDORN1+8, ASK+7, ASK+9, DISPLAY+4
>> ORD( PSDORN1+8
>> PAT DISPLAY+5, ADD+4
>> PSDA PSDORN1+8*, DISPLAY+12, DISPLAY+13, EDIT+4, DEL+1, ADD+3, ADD+4, ADD+5, ADD+6, ADD+9
>> PSDEM DISPLAY+3
>> PSDOUT ASK+4*, ASK+5, ASK+6*, EDIT+1*, DEL+1*
>> PSDQTY DISPLAY+9, ADD+4
>> PSDR DISPLAY+12, DISPLAY+13, EDIT+4, DEL+1, ADD+3, ADD+4, ADD+5, ADD+6, ADD+9
>> PSDRD ADD+3*, ADD+4
PSDREC ADD*, ADD+1, ADD+4, ADD+5, ADD+6, ADD+9!
>> PSDRN DISPLAY+9
>> PSDS DISPLAY+10, ADD+4
>> PSDT(9 DISPLAY+8, ADD+9!
>> PSDUZ DISPLAY+7, ADD+4
>> REQD DISPLAY+8
>> TEXT DISPLAY+12*, DISPLAY+13
U DISPLAY+5, ADD+4, ADD+9
WORD ADD+6*, ADD+7!
X ASK+6~, ASK+9*, DISPLAY+13*, EDIT+1*, EDIT+2*, EDIT+3, ADD+1*
X1 ASK+6~
>> 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