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

Package: Controlled Substances

Routine: PSDSUBOX


Information

PSDSUBOX ;BHAM ISC/JAM - DEA DATA - Waived Practitioner Report ;05 July 2011 5:30 pm

Source Information

Source file <PSDSUBOX.m>

Call Graph

Call Graph

Call Graph Total: 15

Package Total Call Graph
Kernel 5 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  $$FMTE^XLFDT  $$UP^XLFSTR  
VA FileMan 4 ^%DT  ^DIC  $$GET1^DIQ  ^DIR  
Controlled Substances 2 HD1^PSDDSOR  FSIG^PSDDSOR1  
Order Entry Results Reporting 2 ARCHIVE^ORDEA  $$UNESC^ORHLESC  
Pharmacy Data Management 1 $$DETOX^PSSOPKI  
Registration 1 (ADD,DEM,KVA)^VADPT  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

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

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Controlled Substances 1 PSD DEA SUBOXONE - DEA DATA  

Entry Points

Name Comments DBIA/ICR reference
DATE ;ask date range
PRV ;ask provider(s)
TYP
RPT ;generate report
EXIT
SETMP ;set ^TMP("PSDSUBOX",$J global
PRT ;prints report
PRT1 ;print report details
HD ;header
PGCHK ;check for page break
DIVSEL(ARY) ;Division selection (one, multiple or ALL)
VADR(ORN,VADD) ;Get Provider's Address

External References

Name Field # of Occurrence
^%DT DATE+1, DATE+4
^%ZIS TYP+5
HOME^%ZIS TYP+9
^%ZISC EXIT
^%ZTLOAD TYP+9
^DIC PRV+4, DIVSEL+6
$$GET1^DIQ RPT+6, RPT+8, PRT+7, PRT1+13, PRT1+21, PRT1+22
^DIR TYP+2
ARCHIVE^ORDEA VADR+3
$$UNESC^ORHLESC PRT1+16, PRT1+19
HD1^PSDDSOR PRT+3, PGCHK+2
FSIG^PSDDSOR1 PRT1+14
$$DETOX^PSSOPKI RPT+7
ADD^VADPT PRT1+7
DEM^VADPT PRT1+7
KVA^VADPT EXIT+1
$$FMTE^XLFDT RPT+2, PRT+2, PRT1+6
$$UP^XLFSTR PRV+5, DIVSEL+7

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: DATE+1
Function Call: WRITE
  • Prompt: !
  • Line Location: DATE+4
Function Call: WRITE
  • Prompt: !!,?5,"You may select a single provider, several providers,",!,?5,"or enter ^ALL to select all providers.",!!
  • Line Location: PRV+1
Function Call: WRITE
  • Prompt: !
  • Line Location: TYP+5
Function Call: WRITE
  • Prompt: !!,"NO DEVICE SELECTED OR REPORT PRINTED!!",!
  • Line Location: TYP+5
Function Call: WRITE
  • Prompt: !,?25,"***NO DATA FOUND FOR SELECTION***",!!
  • Line Location: PRT+3
Function Call: WRITE
  • Prompt: !,$$GET1^DIQ(200,$P(PRV,"^",2),.01),?60,$G(^TMP("PSDSUBOXC",$J,DIV,PRV))
  • Line Location: PRT+7
Function Call: WRITE
  • Prompt: !
  • Line Location: PRT+10
Function Call: WRITE
  • Prompt: !?3,$P(DRG,"^")
  • Line Location: PRT1+3
Function Call: WRITE
  • Prompt: !?2,VAPA(3)
  • Line Location: PRT1+10
Function Call: WRITE
  • Prompt: ?2,$P(VADR(1),"^"),!?2,VADR(2),!?2,VADR(3),!
  • Line Location: PRT1+23
Function Call: WRITE
  • Prompt: "="
  • Line Location: PRT1+24
Function Call: WRITE
  • Prompt: @IOF,?22,"DEA DATA-Waived Practitioner Report",?67,DTM,!,?32,$S(RPTYP="D":"Detailed",1:"Summary")_" Report"
  • Line Location: HD+2
Function Call: WRITE
  • Prompt: !?DVL,"DIVISION: ",DVN
  • Line Location: HD+4
Function Call: WRITE
  • Prompt: !?26,PSDATE_" to "_PEDATE,?70,"Page: "_PG,!
  • Line Location: HD+5
Function Call: WRITE
  • Prompt: !,"PROVIDER/DRUG",?55,"# OF PATIENTS",!
  • Line Location: HD+6
Function Call: WRITE
  • Prompt: "-"
  • Line Location: HD+7
Function Call: WRITE
  • Prompt: !
  • Line Location: PGCHK+3
Function Call: WRITE
  • Prompt: !!,?5,"You may select a single or multiple Divisions,"
  • Line Location: DIVSEL+2
Function Call: WRITE
  • Prompt: !,?5,"or enter ^ALL to select all Divisions.",!
  • Line Location: DIVSEL+3
Routine Call
  • DIC
  • Line Location:
    • PRV+4
    • DIVSEL+6
Routine Call
  • DIR
  • Line Location:
    • TYP+2
Routine Call
  • %ZIS
  • Line Location:
    • TYP+5
Routine Call
  • %ZIS
  • Line Location:
    • TYP+9

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] GET1^DIQ
^PSDRUG - [#50] GET1^DIQ
^PSRX - [#52] GET1^DIQ
^PS(59 - [#59] Classic Fileman Calls,  GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(59 - [#59] PSDSUBOX+9, HD+3
^PSRX - [#52] RPT+6, RPT+8, PRT1+5
^PSRX("AFDT" RPT+4, RPT+5
^TMP("PSDSUBOX" RPT+3!, SETMP+5*, PRT+3, PRT+4, PRT+6, PRT+8, PRT1+4
^TMP("PSDSUBOXC" RPT+3!, SETMP+6, SETMP+7*, SETMP+8*, PRT+7
^TMP($J VADR+2!, VADR+4, VADR+8!

Label References

Name Line Occurrences
DIVSEL PSDSUBOX+8
EXIT PSDSUBOX+8, PSDSUBOX+10, DATE+2, DATE+4, PRV+6, TYP+3, TYP+5, TYP+6
HD PRT+3, PRT+5, PGCHK+3
PGCHK PRT+5, PRT+9, PRT1+12, PRT1+20, PRT1+25
PRT RPT+12
PRT1 PRT+9
PRV PRV+7
SETMP RPT+11
TYP PRV+5
VADR PRT1+22

Naked Globals

Name Field # of Occurrence
^("I" PSDSUBOX+9
^(3 VADR+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT DATE+1!*, EXIT!
%DT("A" DATE+1*, DATE+3*
%DT(0 DATE+1*, DATE+3*
%ZIS TYP+5!*
%ZIS("B" TYP+5*
ARY DIVSEL~, DIVSEL+7!*, DIVSEL+8!*, DIVSEL+11*
ARY( DIVSEL+9, DIVSEL+10*
DEA RPT+1~, RPT+6*, RPT+7
DFN PRT1+1~, PRT1+5*
DIC PRV+2!*, PRV+5!, EXIT!, DIVSEL+1~, DIVSEL+5*
DIC("A" PRV+2*, DIVSEL+5*
DIC("S" PRV+3*, DIVSEL+4*
DIC(0 PRV+2*, DIVSEL+5*
DIR EXIT!
DIR("A" TYP+1*
DIR("B" TYP+1*
DIR(0 TYP+1*
DIRUT TYP+3, EXIT!, PRT+3, PGCHK+2
DIV RPT+1~, RPT+8*, RPT+9, SETMP+5, SETMP+6, SETMP+7, SETMP+8, PRT+1~, PRT+4*, PRT+6
, PRT+7, PRT+8, PRT1+4, HD+3
DR EXIT!
DRG PRT+1~, PRT+8*, PRT1+3, PRT1+4, PRT1+13
DRGDA RPT+1~, RPT+6*, RPT+7, SETMP+2
DRGNM RPT+1~, RPT+6*, SETMP+2
DRUGINFO SETMP+1~, SETMP+2*, SETMP+5
DT PSDSUBOX+9, DATE+1, RPT+2
DTM RPT+1~, RPT+2*, HD+2
DTOUT DATE+2, DATE+4, PRV+6, EXIT!, DIVSEL+1~, DIVSEL+8
DUOUT PRV+5!, PRV+6, EXIT!, DIVSEL+1~, DIVSEL+8
DVL HD+1~, HD+3*, HD+4
DVN HD+1~, HD+3*, HD+4
EE PRT1+1~, PRT1+18*, PRT1+19
FSIG PRT1+27!
FSIG( PRT1+18, PRT1+19
FSIG(1 PRT1+15, PRT1+16, PRT1+17
G TYP+8*, EXIT!
I EXIT!
IO TYP+10
IO("Q" TYP+5!, TYP+6, TYP+9!
IOF HD+2
IOP TYP+5!
IOSL PGCHK+1
LIN PRT1+1~, PRT1+24*, HD+1~, HD+7*
ND0 RPT+1~, RPT+6*, RPT+8, PRT1+1~, PRT1+5*, PRT1+6, PRT1+13, PRT1+21
ND2 RPT+1~, RPT+8*
ORN VADR~, VADR+3, VADR+4
PATIEN RPT+1~, RPT+6*, SETMP+6, SETMP+7
PEDATE PRT+1~, PRT+2*, HD+5
PG RPT+1~, RPT+2*, EXIT!, HD+5, HD+8*
PL PRT1+1~
POP TYP+5!
PROVIEN SETMP+1~, SETMP+3*, SETMP+5, SETMP+6, SETMP+7, SETMP+8
PRV PRV+2!, PRT+1~, PRT+6*, PRT+7, PRT+8, PRT1+4
PRVDA RPT+1~, RPT+8*, RPT+10, SETMP+3
PRVNM RPT+1~, RPT+8*, SETMP+3
PSDATE PRT+1~, PRT+2*, HD+5
PSDBD PSDSUBOX+7~, DATE+3*, DATE+5, PRT+2
PSDED PSDSUBOX+7~, DATE+5*, RPT+4, PRT+2
PSDIV PSDSUBOX+7~, PSDSUBOX+8, PSDSUBOX+9*, PSDSUBOX+10
PSDIV( PSDSUBOX+9*, RPT+9
PSDOUT PRT+1~, PRT+2*, PRT+4, PRT+5, PRT+6, PRT+8, PRT+9, PRT1+4, PRT1+12, PRT1+20
, PRT1+25, PGCHK+2*
PSDSD PSDSUBOX+7~, DATE+5*, RPT+4*, RPT+5
PSPRV PSDSUBOX+7~, PRV+7, RPT+10
PSPRV( PRV+4*, RPT+10
QF DIVSEL+1~, DIVSEL+5*, DIVSEL+6, DIVSEL+7*, DIVSEL+8*
RPTYP PSDSUBOX+7~, TYP+4*, PRT+7, PRT+10, PRT1+3, HD+2, HD+6
RXN RPT+1~, RPT+5*, RPT+6, RPT+8, SETMP+5, PRT1+4*, PRT1+5, PRT1+14, PRT1+22
U RPT+6
VADD VADR~, VADR+2!, VADR+4*, VADR+5, VADR+6, VADR+7
VADD(1 VADR+6*
VADD(2 VADR+6*
VADD(3 VADR+7*
VADM PRT1+27!
VADM(1 PRT1+8
VADR PRT1+22, PRT1+27!
VADR(1 PRT1+23
VADR(2 PRT1+23
VADR(3 PRT1+23
VAPA PRT1+27!
VAPA(1 PRT1+9
VAPA(2 PRT1+9
VAPA(3 PRT1+10
VAPA(4 PRT1+11
VAPA(5 PRT1+11
VAPA(6 PRT1+11
X PRV+5, EXIT!, DIVSEL+1~, DIVSEL+6, DIVSEL+7
Y DATE+2, DATE+3, DATE+4, DATE+5, PRV+4, PRV+7, TYP+4, EXIT!, DIVSEL+1~, DIVSEL+9
, DIVSEL+10
ZTDESC TYP+7*, EXIT+1!
ZTQUEUED EXIT+1!
>> ZTREQ EXIT+1*
ZTRTN TYP+7*, EXIT+1!
ZTSAVE EXIT+1!
ZTSAVE( TYP+8*
ZTSAVE("PSDIV(" TYP+7*
ZTSAVE("PSPRV(" TYP+7*
ZTSK TYP+9!
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