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

Package: IHS Changes To Pharmacy

Routine: APSPCSM1


Information

APSPCSM1 ; IHS/MSC/PLS - CONTROLLED SUBSTANCE MANAGEMENT REPORT ;13-Aug-2013 09:25;PLS

Source Information

Source file <APSPCSM1.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
VA Fileman 2 $$GET1^DIQ  ^DIWP  
IHS Changes To Pharmacy 1 STATS^APSPCSM  
IHS Patient 1 $$HRN^AUPNPAT  
Kernel 1 ($$FMTE,$$NOW)^XLFDT  
M XML Parser 1 ($$SYMENC,$$XMLHDR)^MXMLUTL  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
IHS Changes To Pharmacy 1 APSPCSM  

Entry Points

Name Comments DBIA/ICR reference
PRINT1 ;EP
DASH ;EP
PRINT3 ;EP
PRTDSUM ; EP -
HDR ;EP
PRTRTOT ; EP -
HDR1 ;EP
OUTSIG(X,RM,LI) ;EP - Output SIG
PRINT2(DATA) ; EP -
HDRXML ;EP - XML Header
PRINT ;EP
HDR2 ;EP - Summary Report Header
; Note: Header states RX but the value printed is fills
GETSIG(RX) ;EP
TAG(TAG,TYPE,VAL) ;EP
PRINTSUM(RPTTYP,DRGNM,STATS,FDT) ;EP -

External References

Name Field # of Occurrence
STATS^APSPCSM PRINT1+13, PRINT1+21, PRINT2+5
$$HRN^AUPNPAT PRINT2+4
$$GET1^DIQ PRINT1+5, PRINT1+8, PRINT1+29, PRINT2+3, PRINT2+10, PRINT2+12, PRINT2+17, PRINT2+18, PRINT2+19, PRINT2+27
, PRINT2+28, HDR+6, HDR+13, HDR+14, HDRXML+7, HDRXML+10, HDRXML+11
^DIWP OUTSIG+5
$$SYMENC^MXMLUTL TAG+2
$$XMLHDR^MXMLUTL HDRXML+1
$$FMTE^XLFDT PRINTSUM+5, PRINTSUM+17, PRINT2+8, PRINT2+27, HDR+3, HDRXML+4
$$NOW^XLFDT HDR+3, HDRXML+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$$TAG("PharmacyDivisions",0)
  • Line Location: PRINT1+3
Function Call: WRITE
  • Prompt: !!!,"Pharmacy Division: "_$$GET1^DIQ(59,DIV,.01),!
  • Line Location: PRINT1+5
Function Call: WRITE
  • Prompt: !,$$TAG("PharmacyDivisions",1)
  • Line Location: PRINT1+68
Function Call: WRITE
  • Prompt: !,"Controlled Substance Management Report ("_$S(APSPRTYP=1:"Summary",1:"Detail")_")",?(IOM-28),$P($TR($$FMTE^XLFDT($$NOW^XLFDT,"5Z"),"@"," "),":",1,2),?(IOM-10),"Page: "_APSPPG
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !,"Report Criteria:"
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !,?5,"Inclusive Dates: "_APSPBDF_" to "_APSPEDF
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !,?5,"Pharmacy Division: "_$S(APSPDIV:$$GET1^DIQ(59,APSPDIV,.01),1:"All")
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: !,?5,"Drug Class: "_APSPDCTN(APSPDCLS)
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: !,?5,"CMOP meds: "_$S(APSPCMOP:"Included",1:"Not Included")
  • Line Location: HDR+12
Function Call: WRITE
  • Prompt: !,?7,"Patient sort restricted to ",$$GET1^DIQ(2,APSPPAT,.01)
  • Line Location: HDR+13
Function Call: WRITE
  • Prompt: !,?7,"Prescriber sort restricted to ",$$GET1^DIQ(200,APSPPRV,.01)
  • Line Location: HDR+14
Function Call: WRITE
  • Prompt: "Date Disp.",?14,"Type",?20,"Patient",?40,"HRN",?48,"Rx Number",?60,"Drug Name",?107,"Qty",?113,"Days Supply",?127,"Drug Schedule"
  • Line Location: HDR1+3
Function Call: WRITE
  • Prompt: !,?5,"Prescriber",?35,"DEA Number",?50,"Pharmacist",?74,"Refills left",?90,"CMOP/Mail"
  • Line Location: HDR1+4
Function Call: WRITE
  • Prompt: !,?5,"Dosage Ordered"
  • Line Location: HDR1+5
Function Call: WRITE
  • Prompt: ?44,"Unit",?56,"# RXs",?64,"#Units",?74,"Avg",!
  • Line Location: HDR2+6
Function Call: WRITE
  • Prompt: "Drug Name",?44,"Type",?56,"Filled",?64,"Filled",?73,"Unit/RX"
  • Line Location: HDR2+7
Function Call: WRITE
  • Prompt: $$XMLHDR^MXMLUTL()
  • Line Location: HDRXML+1
Function Call: WRITE
  • Prompt: !,$$TAG("Report")
  • Line Location: HDRXML+2
Function Call: WRITE
  • Prompt: !,$$TAG("ReportName",2,"Controlled Substance Management Report ("_$S(APSPRTYP=1:"Summary",1:"Detail")_")")
  • Line Location: HDRXML+3
Function Call: WRITE
  • Prompt: !,$$TAG("ReportDate",2,$P($TR($$FMTE^XLFDT($$NOW^XLFDT,"5Z"),"@"," "),":",1,2))
  • Line Location: HDRXML+4
Function Call: WRITE
  • Prompt: !,$$TAG("ReportCriteria")
  • Line Location: HDRXML+5
Function Call: WRITE
  • Prompt: !,$$TAG("InclusiveDates",2,APSPBDF_" to "_APSPEDF)
  • Line Location: HDRXML+6
Function Call: WRITE
  • Prompt: !,$$TAG("PharmacyDivision",2,$S(APSPDIV:$$GET1^DIQ(59,APSPDIV,.01),1:"All"))
  • Line Location: HDRXML+7
Function Call: WRITE
  • Prompt: !,$$TAG("DrugClass",2,APSPDCTN(APSPDCLS))
  • Line Location: HDRXML+8
Function Call: WRITE
  • Prompt: !,$$TAG("Patient sort restricted to "_$$GET1^DIQ(2,APSPPAT,.01),2)
  • Line Location: HDRXML+10
Function Call: WRITE
  • Prompt: !,$$TAG("Prescriber sort restricted to "_$$GET1^DIQ(200,APSPPRV,.01),2)
  • Line Location: HDRXML+11
Function Call: WRITE
  • Prompt: !,$$TAG("CMOP",2,$S(APSPCMOP=1:"CMOP Included",1:"CMOP Not Included"))
  • Line Location: HDRXML+12
Function Call: WRITE
  • Prompt: !,$$TAG("ReportCriteria",1)
  • Line Location: HDRXML+13
Function Call: WRITE
  • Prompt: !,$$TAG("Dispenses")
  • Line Location: HDRXML+14
Function Call: WRITE
  • Prompt: !
  • Line Location: DASH+2
Function Call: WRITE
  • Prompt: "-"
  • Line Location: DASH+2
Function Call: WRITE
  • Prompt: !
  • Line Location: DASH+3
Function Call: WRITE
  • Prompt: ?LI,^(LP,0),!
  • Line Location: OUTSIG+9

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] GET1^DIQ
^VA(200 - [#200] GET1^DIQ
^PSRX - [#52] GET1^DIQ
^PS(59 - [#59] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PSRX - [#52] GETSIG+3, GETSIG+5, GETSIG+6
^TMP($J PRINT1+4, PRINT1+10, PRINT1+11, PRINT1+12, PRINT1+13, PRINT1+19, PRINT1+20, PRINT1+21, PRINT1+31, PRINT1+32
, PRINT1+33, PRINT1+34, PRINT1+37, PRINT1+38, PRINT1+39, PRINT1+40, PRINT1+43, PRINT1+44, PRINT1+45, PRINT1+46
, PRINT1+47, PRINT1+50, PRINT1+51, PRINT1+52, PRINT1+53, PRINT1+54, PRINT1+57, PRINT1+58, PRINT1+59, PRINT1+60
, PRINT1+61
^UTILITY($J OUTSIG+2!, OUTSIG+8, OUTSIG+9, OUTSIG+10!

Label References

Name Line Occurrences
$$GETSIG PRINT2+23, PRINT2+30
$$TAG PRINT+6, PRINT+7, PRINT1+3, PRINT1+7, PRINT1+8, PRINT1+25, PRINT1+28, PRINT1+29, PRINT1+64, PRINT1+68
, PRINTSUM+4, PRINTSUM+5, PRINTSUM+7, PRINTSUM+9, PRINTSUM+10, PRINTSUM+11, PRINTSUM+13, PRINTSUM+14, PRTDSUM+4, PRTDSUM+7
, PRTDSUM+8, PRTDSUM+11, PRTDSUM+12, PRTDSUM+13, PRTRTOT+4, PRTRTOT+6, PRTRTOT+7, PRTRTOT+10, PRTRTOT+11, PRTRTOT+12
, PRINT2+7, PRINT2+8, PRINT2+9, PRINT2+10, PRINT2+11, PRINT2+12, PRINT2+13, PRINT2+14, PRINT2+15, PRINT2+16
, PRINT2+17, PRINT2+18, PRINT2+19, PRINT2+20, PRINT2+22, PRINT2+23, PRINT2+24, HDRXML+2, HDRXML+3, HDRXML+4
, HDRXML+5, HDRXML+6, HDRXML+7, HDRXML+8, HDRXML+9, HDRXML+10, HDRXML+11, HDRXML+12, HDRXML+13, HDRXML+14
DASH HDR1+1, HDR1+6, HDR2+2, HDR2+8
HDR PRINT+9, PRINT3+1
HDR1 HDR+15
HDR2 HDR+15
HDRXML PRINT+4
OUTSIG PRINT2+30
PRINT1 PRINT+5, PRINT+10
PRINT2 PRINT1+34, PRINT1+40, PRINT1+47, PRINT1+54, PRINT1+61
PRINT3 PRINTSUM+24, PRTDSUM+15, PRTDSUM+21, PRTRTOT+14, PRTRTOT+20, PRINT2+31, HDR2+3
PRINTSUM PRINT1+14, PRINT1+22
PRTDSUM PRINT1+63, PRINT1+65
PRTRTOT PRINT1+67

Naked Globals

Name Field # of Occurrence
^( OUTSIG+9

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> APSPBDF HDR+5, HDRXML+6
>> APSPCMOP HDR+12, HDRXML+12
>> APSPDCLS HDR+7, HDRXML+8
>> APSPDCTN( HDR+7, HDRXML+8
>> APSPDET PRINT1+63, PRINT1+65, PRINT1+67, HDR+13, HDR+14, HDRXML+9, HDRXML+10, HDRXML+11
>> APSPDIV PRINT1+5, HDR+6, HDRXML+7
>> APSPDOSE PRINT2+29
>> APSPEDF HDR+5, HDRXML+6
>> APSPETOT PRTDSUM+2, PRTRTOT+2
>> APSPPAT HDR+13, HDRXML+10
APSPPG PRINT+1~, PRINT+2*, HDR+1, HDR+2*, HDR+3
>> APSPPRV PRINT1+63, HDR+14, HDRXML+11
>> APSPRTOT("DRUGN" PRTRTOT+19
>> APSPRTOT("FILLS" PRTRTOT+11, PRTRTOT+24
>> APSPRTOT("RXDRUG" PRTRTOT+5, PRTRTOT+7, PRTRTOT+17, PRTRTOT+19
>> APSPRTOT("RXS" PRTRTOT+8, PRTRTOT+21
>> APSPRTYP PRINT1+6, HDR+3, HDR+8, HDR+15, HDRXML+3
>> APSPSORT PRINT1+9, PRINT1+14, PRINT1+22, PRINT1+30, PRINT1+36, PRINT1+42, PRINT1+49, PRINT1+56, HDR+9, HDR+11
, HDR+13, HDR+14, HDRXML+9, HDRXML+10, HDRXML+11
>> APSPXML PRINT+3, PRINT1+3, PRINT1+5, PRINT1+7, PRINT1+8, PRINT1+25, PRINT1+27, PRINT1+64, PRINT1+68, PRINTSUM+3
, PRTDSUM+3, PRTRTOT+3, PRINT2+6
DASH DASH+1~, DASH+2*
DAT PRINTSUM+1~, PRINTSUM+2*, PRINTSUM+7, PRINTSUM+10, PRINTSUM+11, PRINTSUM+13, PRINTSUM+22
DATA PRINT2~, PRINT2+2, PRINT2+5, PRINT2+8, PRINT2+9, PRINT2+13, PRINT2+14, PRINT2+15, PRINT2+16, PRINT2+17
, PRINT2+18, PRINT2+19, PRINT2+20, PRINT2+22, PRINT2+27, PRINT2+28
DFLG PRINT+1~, PRINT+2*, PRINT+11, PRINT1+16*, PRINT1+24*, PRINT1+35*, PRINT1+41*, PRINT1+48*, PRINT1+55*, PRINT1+62*
DFN PRINT2+1~, PRINT2+3*, PRINT2+4, PRINT2+10, PRINT2+27
DIV PRINT1+1~, PRINT1+4*, PRINT1+5, PRINT1+8, PRINT1+10, PRINT1+11, PRINT1+12, PRINT1+19, PRINT1+20, PRINT1+29
, PRINT1+31, PRINT1+32, PRINT1+33, PRINT1+37, PRINT1+38, PRINT1+39, PRINT1+43, PRINT1+44, PRINT1+45, PRINT1+46
, PRINT1+50, PRINT1+51, PRINT1+52, PRINT1+53, PRINT1+57, PRINT1+58, PRINT1+59, PRINT1+60
DIWF OUTSIG+3~, OUTSIG+4*
DIWL OUTSIG+3~, OUTSIG+4*, OUTSIG+9
DIWR OUTSIG+3~, OUTSIG+4*
DRGNM PRINTSUM~, PRINTSUM+2
DRUGN PRTDSUM+1~, PRTDSUM+5*, PRTDSUM+7, PRTDSUM+8, PRTDSUM+18*, PRTDSUM+20, PRTRTOT+1~, PRTRTOT+5*, PRTRTOT+6, PRTRTOT+7
, PRTRTOT+17*, PRTRTOT+19
DUZ(2 PRINT2+4
FDT PRINTSUM~, PRINTSUM+5, PRINTSUM+16, PRINTSUM+17, PRINTSUM+18
HRN PRINT2+1~, PRINT2+4*, PRINT2+11, PRINT2+27
IOF HDR+1
IOM PRINT2+30, HDR+3, DASH+2
IOSL PRINT3+1
LI OUTSIG~, OUTSIG+4, OUTSIG+9
LP PRINT1+1~, GETSIG+1~, GETSIG+5*, GETSIG+6, OUTSIG+3~, OUTSIG+9*
LSTFDT PRINT1+1~, PRINT1+2*, PRINTSUM+16, PRINTSUM+18*
NEWPG PRINT+1~, PRINT+2*, PRINTSUM+16, PRINTSUM+23*, HDR+2*
RET GETSIG+1~, GETSIG+2*, GETSIG+6*, GETSIG+7*, GETSIG+8
RM OUTSIG~, OUTSIG+4
RPTTYP PRINTSUM~
RX PRTDSUM+1~, PRTDSUM+9*, PRTDSUM+22*, PRTRTOT+1~, PRTRTOT+8*, PRTRTOT+21*, PRINT2+1~, PRINT2+2*, PRINT2+3, PRINT2+12
, PRINT2+23, PRINT2+27, PRINT2+30, GETSIG~, GETSIG+3, GETSIG+5, GETSIG+6
RXCNT PRTDSUM+1~, PRTDSUM+10*, PRTDSUM+11, PRTDSUM+23*, PRTRTOT+1~, PRTRTOT+9*, PRTRTOT+10, PRTRTOT+22*
SG GETSIG+1~, GETSIG+3*, GETSIG+4, GETSIG+7
STATS PRINT1+14, PRINT1+15!, PRINT1+22, PRINT1+23!, PRINT1+66!, PRINTSUM~
STATS("DRUG" PRINTSUM+11, PRINTSUM+13, PRINTSUM+22
STATS("DRUGN" PRINTSUM+2, PRTDSUM+7, PRTDSUM+20
STATS("FILLS" PRINTSUM+9, PRINTSUM+13, PRINTSUM+22, PRTDSUM+12, PRTDSUM+25
STATS("RXDRUG" PRTDSUM+5, PRTDSUM+8, PRTDSUM+18, PRTDSUM+20
STATS("RXS" PRTDSUM+9, PRTDSUM+22
SUB1 PRINT1+1~, PRINT1+10*, PRINT1+11, PRINT1+12, PRINT1+14, PRINT1+19*, PRINT1+20, PRINT1+22, PRINT1+31*, PRINT1+32
, PRINT1+33, PRINT1+37*, PRINT1+38, PRINT1+39, PRINT1+43*, PRINT1+44, PRINT1+45, PRINT1+46, PRINT1+50*, PRINT1+51
, PRINT1+52, PRINT1+53, PRINT1+57*, PRINT1+58, PRINT1+59, PRINT1+60
SUB2 PRINT1+1~, PRINT1+11*, PRINT1+12, PRINT1+14, PRINT1+20*, PRINT1+21, PRINT1+32*, PRINT1+33, PRINT1+38*, PRINT1+39
, PRINT1+44*, PRINT1+45, PRINT1+46, PRINT1+51*, PRINT1+52, PRINT1+53, PRINT1+58*, PRINT1+59, PRINT1+60
SUB3 PRINT1+1~, PRINT1+12*, PRINT1+13, PRINT1+33*, PRINT1+34, PRINT1+39*, PRINT1+40, PRINT1+45*, PRINT1+46, PRINT1+52*
, PRINT1+53, PRINT1+59*, PRINT1+60
SUB4 PRINT1+1~, PRINT1+46*, PRINT1+47, PRINT1+53*, PRINT1+54, PRINT1+60*, PRINT1+61
SUB5 PRINT1+1~
TAG TAG~, TAG+3, TAG+4, TAG+5, TAG+6
TYPE TAG~, TAG+1*, TAG+3, TAG+4, TAG+5
U PRINTSUM+7, PRINTSUM+10, PRINTSUM+22, PRTDSUM+7, PRTDSUM+20, PRTRTOT+19, PRINT2+8, PRINT2+9, PRINT2+13, PRINT2+14
, PRINT2+15, PRINT2+16, PRINT2+17, PRINT2+18, PRINT2+19, PRINT2+20, PRINT2+22, PRINT2+27, PRINT2+28, GETSIG+4
, GETSIG+7
VAL PRINT1+1~, TAG~, TAG+2*, TAG+5
X OUTSIG~, OUTSIG+1
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