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

Package: Controlled Substances

Routine: PSDDSOR


Information

PSDDSOR ;BHM/MHA/PWC - Digitally signed CS Orders Report; 08/30/02

Source Information

Source file <PSDDSOR.m>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
VA FileMan 5 ^%DT  NOW^%DTC  ^DIC  ($$GET1,D)^DIQ  ^DIR  
Kernel 4 ^%ZIS  ^%ZISC  ^%ZTLOAD  $$UP^XLFSTR  
Controlled Substances 2 (GETDATA,PRT)^PSDDSOR1  ^PSDSET  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

protocol O screenman SM broker B event driver Ed print P extended action Ea limited protocol LP edit E server Se subscriber Su inquire I run routine RR action A

Caller Graph

Caller Graph Total: 4

Package Total Caller Graph
Controlled Substances 4 PSD CS PRESCRIPTIONS REPORT  PSD DIGITALLY SIGNED ORDERS  PSDDSOR1  PSDSUBOX  

Entry Points

Name Comments DBIA/ICR reference
CONT ;
STR3
STR2
STR1
DEV
STR4 ;
HD1
INST ;
WR
DATE ;ask date range
HD
PR ;ask provider(s)
PRT
GETD ;
EN1
EN2
PA ;ask patient(s)
EN ;
END
D ;ask drug(s)
GETD1 ;
SITE
S ;
IN
N1
N2
N3
N4
PSTR
CT1
CT2
CT3
KV
SL

External References

Name Field # of Occurrence
^%DT DATE+1, DATE+4
NOW^%DTC PSTR
^%ZIS DEV, DEV+1
^%ZISC END
^%ZTLOAD DEV+6
^DIC SITE+3, D+4, PR+3, PA+3
$$GET1^DIQ PSTR+2
D^DIQ PSTR+1
^DIR DATE+7, DATE+8, DATE+11, SL+4, SL+17, S+4, HD1
GETDATA^PSDDSOR1 GETD1+1
PRT^PSDDSOR1 PRT
^PSDSET PSDDSOR+11
$$UP^XLFSTR D+5, PR+4, PA+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?10,"You are logged on under the ",$P(^PS(59,PSDDV,0),"^")," division.",!
  • Line Location: SITE+6
Function Call: WRITE
  • Prompt: !
  • Line Location: DATE+1
Function Call: WRITE
  • Prompt: !
  • Line Location: DATE+4
Function Call: WRITE
  • Prompt: !
  • Line Location: DATE+6
Function Call: WRITE
  • Prompt: !
  • Line Location: DATE+8
Function Call: WRITE
  • Prompt: !
  • Line Location: DATE+11
Function Call: WRITE
  • Prompt: !!,?5,"You may select a single drug, several drugs,",!,?5,"or enter ^ALL to select all drugs.",!!
  • Line Location: D+1
Function Call: WRITE
  • Prompt: !!,?5,"You may select a single provider, several providers,",!,?5,"or enter ^ALL to select all providers.",!!
  • Line Location: PR+1
Function Call: WRITE
  • Prompt: !!,?5,"You may select a single patient, several patients,",!,?5,"or enter ^ALL to select all patients.",!!
  • Line Location: PA+1
Function Call: WRITE
  • Prompt: !!,"Select controlled substance schedule(s)"
  • Line Location: S+1
Function Call: WRITE
  • Prompt: !
  • Line Location: S+6
Function Call: WRITE
  • Prompt: !,"Please try later!"
  • Line Location: DEV+1
Function Call: WRITE
  • Prompt: !!,"********** NO DATA TO PRINT **********",!!
  • Line Location: PSTR+3
Function Call: WRITE
  • Prompt: !,$S(AC=1:"Processed",AC=2:"Discontinued",AC=3:"Expired",1:"Pending")_" Orders:",!
  • Line Location: WR+0
Function Call: WRITE
  • Prompt: @IOF,!?2,"Digitally Signed CS Orders Report for Division "_DVN,?70,"Page: ",PG
  • Line Location: HD+1
Function Call: WRITE
  • Prompt: !,?8,"Date Range: "_BDT_" - "_EDT,?53,"Printed on: "_TDT,!
  • Line Location: HD+2
Function Call: WRITE
  • Prompt: !
  • Line Location: END+0
Routine Call
  • DIC
  • Line Location:
    • SITE+3
    • D+4
    • PR+3
    • PA+3
Routine Call
  • DIR
  • Line Location:
    • DATE+7
    • DATE+8
    • DATE+11
    • SL+4
    • SL+17
    • S+4
    • HD1
Routine Call
  • %ZIS
  • Line Location:
    • DEV
    • DEV+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] Classic Fileman Calls
^PS(59 - [#59] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS( EN2+3, EN2+4, EN2+5
^PS(52.41 - [#52.41] EN2+6, GETD1+3, GETD1+4
^PS(59 - [#59] SITE+6, EN2+2, INST+2
^PSRX - [#52] EN+2, EN1, EN1+1
^TMP($J EN+1!, CT3+1*, CT3+2*, CT3+4*, CT3+5*, CT3+7*, CT3+8*, CT3+9*, CT3+10*, PSTR+3
, N4, N4+1, N4+2, N4+3, STR4+1, N3, N3+1, N3+2, N3+3, STR3
, N2, N2+1, N2+2, STR2, N1, N1+1, N1+2, STR1, END+1!

Label References

Name Line Occurrences
@( SL+10, PSTR+4
CONT GETD1+5
CT1 CONT+8
CT2 CT1+1
CT3 CT2+1
D D+8
DEV SL+18
EN1 EN+2
EN2 EN+3
END DATE+2, DATE+4, DATE+7, DATE+9, DATE+12, SL+11, SL+12, DEV+1, DEV+2, EN+3
GETD EN1+3, EN2+6
GETD1 GETD+1
HD PSTR+3, WR, PRT
HD1 N4, N3, N2, N1, HD
IN STR4+1, STR3, STR2, STR1
KV DATE+6, SL+2, SL+17, S+6
PA PA+7
PR PR+7
PRT STR4+2, STR3+1, STR2+1, STR1+1
PSTR EN+3
SITE SITE
SL DATE+10, SL+12
STR1 N1+2
STR2 N2+2
STR3 N3+3
STR4 N4+3
WR N4, N3, N2, N1

Naked Globals

Name Field # of Occurrence
^("OR1" EN1+1
^(0 EN1+1, EN2+2, EN2+5, INST+2
^(2 EN1+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % PSTR
%DT DATE+1!*
%DT("A" DATE+1*, DATE+3*
%DT(0 DATE+1*, DATE+3*
%ZIS DEV!*
AC PSDDSOR+8~, WR, N4*, N4+1, N4+2, N4+3, STR4+1, N3*, N3+1, N3+2
, N3+3, STR3, N2*, N2+1, N2+2, STR2, N1*, N1+1, N1+2, STR1
BDT PSDDSOR+8~, PSTR+1*, HD+2
CT PSDDSOR+8~, SL*, SL+3, SL+4, SL+9*
DFN PSDDSOR+8~
DIC SITE+1*, SITE+3!, D+2!*, D+6!, PR+2!*, PR+5!, PA+2!*, PA+5!
DIC("A" SITE+1*, D+2*, PR+2*, PA+2*
DIC("S" SITE+2*, D+3*
DIC(0 SITE+1*, D+2*, PR+2*, PA+2*
DIR DATE+7!, DATE+9!, DATE+12!, S+2!, HD1!, KV!
DIR("A" DATE+6*, DATE+8*, DATE+11*, SL+4*, SL+17*, S+3*, HD1*
DIR("B" DATE+6*, DATE+8*, DATE+11*, SL*, SL+3*!, SL+17*, S+3*
DIR(0 DATE+6*, DATE+8*, DATE+11*, SL+2*, SL+17*, S+3*, HD1*
DIRUT DATE+7, DATE+9, DATE+12, SL+2, SL+5, SL+12, S+4, N4, N4+1, N4+2
, N4+3, N3, N3+1, N3+2, N3+3, N2, N2+1, N2+2, N1, N1+1
, N1+2, PRT, HD, KV!
DP PSDDSOR+8~, SL*, SL+4, SL+9*
DRG PSDDSOR+8~, D+2!, D+8, DEV+5, END+1!
DRG( D+4*, CONT+9
DRGN CONT+7~*, CONT+9
DRUG PSDDSOR+8~, CONT+6*
DT DATE+1
DTOUT SITE, SITE+3, DATE+2, DATE+4, SL+2, SL+11, D+7, PR+6, PA+6, S+4
, KV!
DUOUT SITE, SITE+3, SL+2, SL+11, D+6!, D+7, PR+5!, PR+6, PA+5!, PA+6
, S+4, KV!
DV PSDDSOR+8~, EN2*, EN2+3*, EN2+4
DVN PSDDSOR+8~, PSTR+2*, HD+1
EDT PSDDSOR+8~, PSTR+1*, HD+2
FI PSDDSOR+8~, EN2*, EN2+3, EN2+4, EN2+5
>> G DEV+4*
I PSDDSOR+10~, SL+7*, SL+12*, SL+14*, SL+15, S+5*, EN+1*, CT3+1*, CT3+2*, CT3+4*
, CT3+5*, CT3+7*, CT3+8*, CT3+9*, CT3+10*, END+1!
IO PSTR+3
IO("Q" DEV+2!
IOF HD+1
ION DEV
IOP DEV!, DEV+1*!
IOSL PRT
IOST HD1
J PSDDSOR+10~, SL+7*, SL+15*, SL+16, S+5*, END+1!
K S+5*, END+1!
NS PSDDSOR+8~, EN+1*, CT3, CT3+3, CT3+6, PSTR+4
O PSDDSOR+10~, SL+7*, SL+8
OP PSDDSOR+8~, SL+1*, SL+2, SL+7, SL+8*
ORD PSDDSOR+8~, EN1+1*, EN1+2, EN2+6*, GETD1+1
ORS PSDDSOR+8~, CONT+1*, CONT+3, CONT+4
P1 PSTR+1~*
P2 PSTR+1~*
PAT PSDDSOR+8~, PA+2!, PA+7, DEV+5, CONT+5*, END+1!
PAT( PA+3*, GETD+2
PG PSDDSOR+8~, PSTR+1*, WR*, HD+1, HD+3*, HD1
PL PSDDSOR+8~
PL1 PSDDSOR+8~
PND EN+2*, EN2*, GETD1+1, CONT+1, CONT+2, END+1!
POP DEV!, DEV+1
POS PSDDSOR+8~, EN+2*, EN2+3*, EN2+4
PRO PSDDSOR+8~, PR+2!, PR+7, DEV+5, END+1!
PRO( PR+3*, CT1+2
PROV PSDDSOR+8~, CT1*
PSDBD PSDDSOR+9~, DATE+3*, DATE+5, PSTR+1
PSDCSRX DATE+10, S+3, S+5, EN1+1, END+1!
PSDDF PSDDSOR+9~, DATE+7*, CONT+3, CONT+4, END+1!
PSDDV PSDDSOR+9~, SITE+5*, SITE+6, EN1+1, PSTR+2, END+1!
PSDED PSDDSOR+9~, DATE+5*, EN+2, EN2+3, PSTR+1, END+1!
PSDIO PSDDSOR+9~, DEV*, DEV+1!, DEV+2!
PSDPO PSDDSOR+9~, DATE+10*, DATE+12*, EN+3
PSDPR PSDDSOR+9~, SL*, PR+2*, PR+5*, CT1+1, END+1!
PSDPT PSDDSOR+9~, SL*, PA+2*, PA+5*, GETD+1, END+1!
PSDRG PSDDSOR+9~, SL*, D+2*, D+6*, CONT+8, END+1!
PSDSC PSDDSOR+9~, SL*, SL+6*, CT2+1, END+1!
PSDSD PSDDSOR+9~, DATE+5*, EN+2*, EN1, END+1!
>> PSDSITE PSDDSOR+11
PSDXF PSDDSOR+10~, DATE+9*, CONT+3, CONT+4, END+1!
PSINST EN2+1~
PSINST( EN2+2*, EN2+6, INST+2*
PSIR EN2+1~, EN2+2*, INST+1~, INST+2*
>> PSOSITE SITE, SITE+3*, SITE+5, EN2+2, INST+2
RX PSDDSOR+10~, EN1*, EN1+1, EN2+4*, EN2+5, EN2+6, GETD1+3, GETD1+4, CT3+1, CT3+2
, CT3+4, CT3+5, CT3+7, CT3+8, CT3+9, CT3+10
RX0 PSDDSOR+10~, EN1+1*, EN1+2, EN2+5*, EN2+6, GETD+2, GETD1+1, GETD1+2, GETD1+3, CONT+2
RX2 PSDDSOR+10~
S1 PSDDSOR+10~, CONT+3*, CONT+4*, CT3+1, CT3+2, CT3+4, CT3+5, CT3+7, CT3+8, CT3+9
, CT3+10, N4+1*, N4+2, N4+3, STR4+1, N3+1*, N3+2, N3+3, STR3, N2+1*
, N2+2, STR2, N1+1*, N1+2, STR1
S2 PSDDSOR+10~, N4+1*, N4+2, N4+3, STR4+1, N3+1*, N3+2, N3+3, STR3, N2+1*
, N2+2, STR2
S3 PSDDSOR+10~, N4+2*, N4+3, STR4+1, N3+2*, N3+3, STR3
S4 PSDDSOR+10~, N4+2*, N4+3, STR4+1
S5 PSDDSOR+10~, N4+3*, STR4+1, N3+3*, STR3, N2+2*, STR2, N1+2*, STR1
S6 PSDDSOR+10~, IN*, STR4+1*, STR3*, STR2*, STR1*
SCH PSDDSOR+10~, S+5!, DEV+5, CT2*, END+1!
SCH( S+5*, CT2+2
SR PSDDSOR+10~, SL!, SL+12!
SR( SL+9*, SL+15*, EN+1
SR(1 CT3+1, CT3+2, CT3+4, CT3+5, CT3+7, CT3+8, CT3+9, CT3+10
SR(2 CT3+1, CT3+2, CT3+4, CT3+5, CT3+7, CT3+8
SR(3 CT3+1, CT3+2, CT3+4, CT3+5
SR(4 CT3+1, CT3+2
SRT PSDDSOR+10~, SL!, SL+12, END+1!
SRT( SL+9*, SL+14, SL+15
TDT PSDDSOR+10~, PSTR*, HD+2
TY PSDDSOR+10~, EN+2*, EN1, EN2+3, EN2+4
VA END+1!
X PSDDSOR+10~, D+5*, D+6, PR+4*, PR+5, PA+4*, PA+5
Y PSDDSOR+10~, SITE+3, DATE+2, DATE+3, DATE+4, DATE+5, DATE+7, DATE+9, DATE+12, SL+6
, SL+9, SL+10, SL+12, D+4, D+8, PR+3, PR+7, PA+3, PA+7, S+5
, GETD1+1, GETD1+2*, GETD1+4*, CONT+1*, CONT+2*, CONT+3, CONT+4, CT3+1, CT3+4, CT3+7
, CT3+9, PSTR+1*
Y( CT3+2, CT3+5, CT3+8, CT3+10
Y(0 SL+7
Y(1 CONT+5
Y(2 CONT+6, CONT+7, CT2, CT2+2
Y(4 CT1, CT1+2
Y(6 CONT+6, CONT+7
Y0 IN!, END+1!
Y1 IN!, END+1!
Y2 IN!, END+1!
Y3 IN!, END+1!
Y4 IN!, END+1!
Y5 IN!, END+1!
Y6 IN!, END+1!
Z PSDDSOR+10~, STR4+1*, STR3*, STR2*, STR1*
>> ZTDESC DEV+3*
ZTDTH DEV+2!
ZTIO DEV+2!
>> ZTQUEUED END
>> ZTREQ END*
>> ZTRTN DEV+3*
ZTSAVE DEV+2!
ZTSAVE( DEV+4*
ZTSAVE("DRG(" DEV+5*
ZTSAVE("PAT(" DEV+5*
ZTSAVE("PRO(" DEV+5*
ZTSAVE("SCH(" DEV+5*
ZTSAVE("SR(" DEV+5*
ZTSAVE("SRT(" DEV+5*
ZTSK DEV!, DEV+2!, DEV+6!
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