Routine: APSPCSM1

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

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

Customize PDF page

Package: IHS Changes To Pharmacy

Routine: APSPCSM1

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: