Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

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

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

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
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call