Routine: APCHS73

Information

APCHS73 ; IHS/CMI/LAB - PART 7 OF APCHS -- SUMMARY PRODUCTION COMPONENTS ;

Source Information

Source file <APCHS73.m>

Call Graph

Call Graph Total: 7

Package	Total	Call Graph
Patient Care Component	5	DISPREF^APCHS3C (HOLDDSP,MEDRU)^APCHS7 $$CHRONIC^APCHS72 NONVA^APCHS74 PRTTXT^APCHSUTL
Kernel	1	$$FMTE^XLFDT
VA Fileman	1	^%DTC

Entry Points

Name	Comments	DBIA/ICR reference
MEDBLD	;BUILD ARRAY OF MEDICATIONS
CONT	; <SETUP>
MEDSNDUP	; *********** ALL, NON DUPLICATED ***********
MEDSCURR	; ************** CURRENT MEDICATIONS * 9000010.14 ********
ALL	;all meds included
SITE	;DETERMINE IF OUTSIDE LOCATION INFO PRESENT
NVADSP	;
CHRONIC	;chronic meds only
MEDDSP	;DISPLAY MEDICATION
MEDSCHRN	; *********** CHRONIC MEDCICATIONS **********
NODUP	;
MEDSALL	; **************** ALL MEDICATIONS * 9000010.14 **********
CURR	; current meds only
MEDX
REF	;DETERMINE THE NUMBER OF REFILLS REMAINING
SIG	;CONSTRUCT THE FULL TEXT FROM THE ENCODED SIG

Name	Field # of Occurrence
^%DTC	CURR+2, MEDDSP+10
DISPREF^APCHS3C	CONT+26
HOLDDSP^APCHS7	CONT+23
MEDRU^APCHS7	CONT+27
$$CHRONIC^APCHS72	MEDBLD+10
NONVA^APCHS74	CONT+13
PRTTXT^APCHSUTL	MEDDSP+30, NVADSP+10
$$FMTE^XLFDT	CONT+10, CONT+16, MEDDSP+32

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: CONT+2
Function Call: WRITE	Prompt: !,"MEDICATIONS DISPENSED SINCE ",$$FMTE^XLFDT((9999999-APCHSDLM)),! Line Location: CONT+16
Function Call: WRITE	Prompt: "(C) - Chronic Medication, (CRx) - Controlled Drug",!! Line Location: CONT+17
Function Call: WRITE	Prompt: APCHSDAT,?9,$S(APCHSCRN:"(C) ",1:""),$S(APCHCRX:"(CRx)",1:""),?19,APCHSMED Line Location: MEDDSP+26
Function Call: WRITE	Prompt: " #",APCHSQTY Condition for execution: APCHSQTY Line Location: MEDDSP+26
Function Call: WRITE	Prompt: " (",APCHSDYS," days) " Condition for execution: APCHSDYS Line Location: MEDDSP+27
Function Call: WRITE	Prompt: APCHSEXP,! Line Location: MEDDSP+27
Function Call: WRITE	Prompt: ?19,"Dispensed at: ",APCHSITE,! Line Location: MEDDSP+28
Function Call: WRITE	Prompt: ?21,"Most recent issue date: ",$$FMTE^XLFDT($P(^PSRX(APCHSRX,0),U,13),5),! Line Location: MEDDSP+32
Function Call: WRITE	Prompt: ?21,"# times prev filled: ",Y-1 Line Location: MEDDSP+36
Function Call: WRITE	Prompt: " " Line Location: MEDDSP+36
Function Call: WRITE	Prompt: " " Line Location: MEDDSP+36
Function Call: WRITE	Prompt: ! Line Location: MEDDSP+37
Function Call: WRITE	Prompt: APCHSDAT,?19,APCHSMED," ",APCHSEXP,! Line Location: NVADSP+8

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNVMED - [#9000010.14]	CONT+7, MEDBLD+4, MEDBLD+5, MEDDSP+4, MEDDSP+14, MEDDSP+18
^AUPNVMED("AA"	CONT+5, CONT+12
^AUPNVSIT - [#9000010]	MEDDSP+18, SITE+2, SITE+3, SITE+4
^DIC(4 - [#4]	SITE+4
^PS(51 - [#51]	SIG+2
^PS(55 - [#55]	CHRONIC+3, MEDDSP+7
^PSDRUG - [#50]	MEDBLD+6, MEDBLD+9, MEDDSP+12, MEDDSP+21, MEDDSP+22, MEDDSP+23, MEDDSP+24
^PSRX - [#52]	MEDDSP+32, REF+2
^PSRX("APCC"	CHRONIC+2, MEDDSP+6
^TMP($J	CONT+4!, CONT+8, CONT+9, CONT+10, CONT+11!, CONT+18, MEDX+2!, CURR+1, CURR+3, ALL+1 , NODUP+3, NODUP+4, NODUP+5, CHRONIC+1, CHRONIC+5*, MEDDSP+2, MEDDSP+33, MEDDSP+36, NVADSP+3, NVADSP+4 , NVADSP+6

Name	Line Occurrences
@(	MEDBLD+11
CONT	MEDSCURR+1, MEDSALL+1, MEDSCHRN+1, MEDSNDUP+1
MEDBLD	CONT+12
MEDDSP	CONT+18
MEDX	CONT+15
NVADSP	MEDDSP+3
REF	MEDDSP+17
SIG	MEDDSP+16
SITE	MEDDSP+19

Name	Field # of Occurrence
^(	CHRONIC+2, MEDDSP+6
^(21	SITE+2
^(9	SIG+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> APCHCRX	MEDDSP+20, MEDDSP+21, MEDDSP+22, MEDDSP+23, MEDDSP+24*, MEDDSP+26
>> APCHORTS	MEDDSP+14*, MEDDSP+15
>> APCHQUIT	MEDDSP+31
APCHSALL	MEDX+1!
>> APCHSBRK	CONT+2
>> APCHSCC	CONT+18*
>> APCHSCHR	MEDBLD+10*, NODUP+3, NODUP+5
>> APCHSCKP	CONT+2, CONT+15, MEDDSP+25, MEDDSP+29, MEDDSP+31, MEDDSP+35, NVADSP+7, NVADSP+9
APCHSCRN	MEDX+1!, MEDDSP+7*, MEDDSP+26
>> APCHSCVD	MEDDSP+8, MEDDSP+13, NVADSP+2, NVADSP+5
APCHSDAT	MEDX!, MEDDSP+8, MEDDSP+26, NVADSP+2, NVADSP+8
APCHSDC	MEDX!, MEDBLD+8, CURR+3, ALL+1, NODUP+5, CHRONIC+5, MEDDSP+9, MEDDSP+13, MEDDSP+15, NVADSP+3* , NVADSP+5
>> APCHSDLM	CONT+5, CONT+12, CONT+16
APCHSDLU	MEDX!
APCHSDRG	MEDX+1!
APCHSDTM	MEDX!, MEDBLD+7, CURR+2, MEDDSP+8, MEDDSP+10, NVADSP+2*
APCHSDYS	MEDX!, MEDBLD+8, CURR+2, MEDDSP+9, MEDDSP+27
APCHSEXP	MEDX!, MEDDSP+11, MEDDSP+13, MEDDSP+15, MEDDSP+27, NVADSP+1, NVADSP+5*, NVADSP+8
APCHSFN	CONT+26*, CONT+28!
APCHSICL	MEDDSP+30!, NVADSP+10!
APCHSIEN	MEDX!, MEDDSP+5*, MEDDSP+33, MEDDSP+36
APCHSIG	MEDX!, MEDDSP+9, MEDDSP+16, MEDDSP+17, MEDDSP+18, MEDDSP+30, SIG+1, SIG+2, NVADSP+6*, NVADSP+10
APCHSITE	MEDX+1!, MEDDSP+28, SITE+1, SITE+2, SITE+4*
APCHSIVD	CONT+5, CONT+10, CONT+12, CONT+18*, MEDX!, MEDBLD+7, CURR+3, ALL+1, NODUP+3, NODUP+5 , CHRONIC+5, MEDDSP+2, MEDDSP+8, NVADSP+2, NVADSP+3, NVADSP+4, NVADSP+6
APCHSMED	MEDX!, MEDDSP+12, MEDDSP+26, NVADSP+4, NVADSP+8
APCHSMFX	MEDX!, MEDBLD+9, CURR+1, CURR+3, ALL+1, NODUP+3, NODUP+4, NODUP+5, CHRONIC+1, CHRONIC+5 , MEDDSP+9, MEDDSP+12, MEDDSP+21, MEDDSP+22, MEDDSP+23, MEDDSP+24
APCHSMTS	MEDX!
APCHSMTY	MEDSCURR+1, MEDSALL+1, MEDSCHRN+1, MEDSNDUP+1, MEDX+1!, MEDBLD+11
APCHSMX	CONT+5, CONT+7, CONT+12, MEDX!, MEDBLD+4, MEDBLD+5, MEDBLD+10, CURR+3, ALL+1, NODUP+3 , NODUP+5, CHRONIC+2, CHRONIC+5, MEDDSP+2*, MEDDSP+3, MEDDSP+4, MEDDSP+6, MEDDSP+14, MEDDSP+18
APCHSN	MEDX!, MEDBLD+5, MEDBLD+6, MEDBLD+8, MEDBLD+9, MEDDSP+4, MEDDSP+5, MEDDSP+9, MEDDSP+12
APCHSNAB	MEDX+1!
APCHSNFL	MEDX+1!
APCHSNON	MEDX!
>> APCHSNPG	CONT+2
APCHSNRQ	MEDDSP+30!, NVADSP+10!
APCHSNSH	MEDX+1!
APCHSP	MEDX!, MEDDSP+30!, SIG+1*, SIG+2, NVADSP+10!
>> APCHSPAT	CONT+5, CONT+12, CHRONIC+3, MEDDSP+7
>> APCHSQ	CONT+12, CONT+18
>> APCHSQIT	CONT+2, CONT+15, CONT+24, MEDDSP+25, MEDDSP+29, MEDDSP+35, NVADSP+7, NVADSP+9
APCHSQTY	MEDX!, MEDDSP+9*, MEDDSP+26
APCHSREF	MEDX+1!, MEDDSP+17, REF+1, REF+2, REF+3*
APCHSRFL	MEDX+1!, REF+2*, REF+3
APCHSRX	MEDX+1!, MEDDSP+6*, MEDDSP+7, MEDDSP+32, REF+1, REF+2
APCHSSGY	MEDX!, MEDDSP+16, SIG+1, SIG+3
APCHST	CONT+26*, CONT+28!
APCHSTXT	MEDX+1!, MEDDSP+30, NVADSP+10
APCHSVDF	MEDX!, MEDDSP+9*, SITE+2, SITE+3, SITE+4
APCHSVSC	MEDX+1!
DT	CURR+2, MEDDSP+10
DUZ(2	SITE+4
>> I	MEDDSP+36*
>> M	CONT+7*, CONT+8, CONT+9, CONT+10
U	CONT+8, CONT+9, CONT+10, CONT+18, MEDBLD+6, MEDBLD+8, MEDBLD+9, MEDDSP+2, MEDDSP+3, MEDDSP+9 , MEDDSP+12, MEDDSP+14, MEDDSP+18, MEDDSP+21, MEDDSP+22, MEDDSP+23, MEDDSP+24, MEDDSP+32, MEDDSP+33, MEDDSP+36 , REF+2, SITE+2, SITE+3, SITE+4, NVADSP+3, NVADSP+4, NVADSP+6
>> V	MEDDSP+18*
X	CONT+9, CONT+10, MEDX+3!, CURR+2, CHRONIC+2, CHRONIC+3, SIG+1, SIG+2, SIG+3
X1	MEDX+3!, CURR+2, MEDDSP+10
X2	MEDX+3!, CURR+2, MEDDSP+10
Y	MEDX+3!, CHRONIC+3, CHRONIC+4, MEDDSP+8, MEDDSP+13, MEDDSP+15, MEDDSP+33, MEDDSP+34, MEDDSP+36, SIG+2* , NVADSP+2, NVADSP+5

Customize PDF page

Package: Patient Care Component

Routine: APCHS73

Information

Source Information

Call Graph

Call Graph Total: 7

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: