Routine: APCHS74

Information

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

Source Information

Source file <APCHS74.m>

Call Graph

Call Graph Total: 6

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

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
Patient Care Component	1	APCHS73

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
NONVA	;EP ;quit if chronic
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+27
HOLDDSP^APCHS7	CONT+24
MEDRU^APCHS7	CONT+28
$$CHRONIC^APCHS72	MEDBLD+8
PRTTXT^APCHSUTL	MEDDSP+34, NVADSP+10
$$FMTE^XLFDT	CONT+10, CONT+18

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+18
Function Call: WRITE	Prompt: "(C) - Chronic Medication, (CRx) - Controlled Drug",!! Line Location: CONT+19
Function Call: WRITE	Prompt: APCHSDAT,?9,$S(APCHSCRN:"(C) ",1:""),$S(APCHCRX:"(CRx)",1:""),?19,APCHSMED Line Location: MEDDSP+27
Function Call: WRITE	Prompt: " #",APCHSQTY Condition for execution: APCHSQTY Line Location: MEDDSP+27
Function Call: WRITE	Prompt: APCHSEXP,! Line Location: MEDDSP+28
Function Call: WRITE	Prompt: " (",APCHSDYS," days) " Condition for execution: APCHSDYS Line Location: MEDDSP+29
Function Call: WRITE	Prompt: APCHSEXP,! Line Location: MEDDSP+29
Function Call: WRITE	Prompt: ?19,"Dispensed at: ",APCHSITE,! Line Location: MEDDSP+30
Function Call: WRITE	Prompt: ?19,"Ordering Provider: ",$P($G(^VA(200,APCHOPV,0)),U,1),! Line Location: MEDDSP+31
Function Call: WRITE	Prompt: ?19,"("_APCHSALT_")",! Line Location: MEDDSP+32
Function Call: WRITE	Prompt: ?21,"# times prev issued: ",Y-1 Line Location: MEDDSP+38
Function Call: WRITE	Prompt: " " Line Location: MEDDSP+38
Function Call: WRITE	Prompt: " " Line Location: MEDDSP+38
Function Call: WRITE	Prompt: ! Line Location: MEDDSP+39
Function Call: WRITE	Prompt: APCHSDAT,?19,APCHSMED," ",APCHSEXP,! Line Location: NVADSP+8

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^APCHSCTL - [#9001015]	MEDDSP+31
^AUPNVMED - [#9000010.14]	CONT+7, NONVA+3, MEDBLD+3, MEDBLD+5, MEDDSP+4, MEDDSP+13, MEDDSP+14, MEDDSP+16
^AUPNVMED("AA"	CONT+5, CONT+12
^AUPNVSIT - [#9000010]	SITE+2, SITE+3, SITE+4, SITE+5
^DIC(4 - [#4]	SITE+5
^PS(50.7 - [#50.7]	NONVA+13
^PS(51 - [#51]	SIG+2
^PS(55 - [#55]	NONVA+2, NONVA+3, NONVA+6, NONVA+11, NONVA+13, NONVA+14, NONVA+15, CHRONIC+3, MEDDSP+7
^PSDRUG - [#50]	NONVA+13, MEDBLD+6, MEDBLD+8, MEDDSP+12, MEDDSP+22, MEDDSP+23, MEDDSP+24, MEDDSP+25
^PSRX - [#52]	REF+2
^PSRX("APCC"	CHRONIC+2, MEDDSP+6
^TMP($J	CONT+4!, CONT+8, CONT+9, CONT+10, CONT+11!, CONT+20, MEDX+3!, NONVA+14, NONVA+15, CURR+1 , CURR+3, ALL+1, NODUP+3, NODUP+4, NODUP+5, CHRONIC+1, CHRONIC+5*, MEDDSP+2, MEDDSP+35, MEDDSP+38 , NVADSP+3, NVADSP+4, NVADSP+6
^VA(200 - [#200]	MEDDSP+31

Name	Line Occurrences
@(	MEDBLD+9
CONT	MEDSCURR+1, MEDSALL+1, MEDSCHRN+1, MEDSNDUP+1
MEDBLD	CONT+12
MEDDSP	CONT+20
MEDX	CONT+17
NONVA	CONT+14
NVADSP	MEDDSP+3
REF	MEDDSP+19
SIG	MEDDSP+18
SITE	MEDDSP+20

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

Customize PDF page

Package: Patient Care Component

Routine: APCHS74

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: