Routine: APCHS77

Information

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

Source Information

Source file <APCHS77.m>

Call Graph

Call Graph Total: 5

Package	Total	Call Graph
Patient Care Component	3	DISPREF^APCHS3C (HOLDDSP,MEDRU)^APCHS7 PRTTXT^APCHSUTL
IHS VA Utilities	1	$$VALI^XBDIQ1
VA Fileman	1	(,C)^%DTC

Entry Points

Name	Comments	DBIA/ICR reference
MEDBLD	;BUILD ARRAY OF MEDICATIONS
CONT	; <SETUP>
MEDSNDUP	; *********** ALL, NON DUPLICATED ***********
MEDSCURR	; ************** CURRENT MEDICATIONS * 9000010.14 ********
SITE	;DETERMINE IF OUTSIDE LOCATION INFO PRESENT
NVADSP	;
CHRONIC	;chronic meds only
MEDSCHRN	; *********** CHRONIC MEDCICATIONS **********
MEDDSP	;DISPLAY MEDICATION
CURR	; current meds only
MEDX
NONVA	;EP - ;NEW DFN,PSOACT S DFN=APCHSPAT,PSOACT=1 D ^PSOHCSUM
REF	;DETERMINE THE NUMBER OF REFILLS REMAINING
SIG	;CONSTRUCT THE FULL TEXT FROM THE ENCODED SIG

Name	Field # of Occurrence
^%DTC	CURR+2, MEDDSP+11
C^%DTC	MEDDSP+13
DISPREF^APCHS3C	CONT+14
HOLDDSP^APCHS7	CONT+11
MEDRU^APCHS7	CONT+15
PRTTXT^APCHSUTL	MEDDSP+28, NVADSP+10
$$VALI^XBDIQ1	SIG+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: CONT+2
Function Call: WRITE	Prompt: APCHSDAT,?10,$S(APCHSCRN:"(C)",1:""),?14,APCHSMED," #",APCHSQTY," (",APCHSDYS," days) ",APCHSEXP,! Line Location: MEDDSP+25
Function Call: WRITE	Prompt: ?14,"Dispensed at: ",APCHSITE,! Line Location: MEDDSP+26
Function Call: WRITE	Prompt: APCHSDAT,?14,APCHSMED," ",APCHSEXP,! Line Location: NVADSP+8

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNVMED - [#9000010.14]	NONVA+4, MEDBLD+3, MEDBLD+5, CURR+3, CHRONIC+6, MEDDSP+3, MEDDSP+4, MEDDSP+17, MEDDSP+22
^AUPNVMED("AA"	CONT+5
^AUPNVSIT - [#9000010]	MEDDSP+5, MEDDSP+22, SITE+2, SITE+3, SITE+4
^DIC(4 - [#4]	SITE+4
^PS(50.7 - [#50.7]	NONVA+14
^PS(51 - [#51]	SIG+3
^PS(55 - [#55]	NONVA+3, NONVA+4, NONVA+7, NONVA+12, NONVA+14, NONVA+15, NONVA+16, CHRONIC+3, MEDDSP+7
^PSDRUG - [#50]	NONVA+14, MEDBLD+6, CURR+4, CHRONIC+7, MEDDSP+14
^PSRX - [#52]	REF+2
^PSRX("APCC"	CHRONIC+2, MEDDSP+6
^TMP($J	CONT+4!, CONT+8, MEDX+2!, NONVA+15, NONVA+16, CURR+1, CURR+5, CHRONIC+1, CHRONIC+8, MEDDSP+2 , NVADSP+2, NVADSP+3, NVADSP+4, NVADSP+6

Name	Line Occurrences
@(	MEDBLD+10
CONT	MEDSCURR+1, MEDSCHRN+1, MEDSNDUP+1
MEDBLD	CONT+5
MEDDSP	CONT+8
MEDX	MEDSCURR+1
NONVA	CONT+6
NVADSP	MEDDSP+2
REF	MEDDSP+21
SIG	MEDDSP+20
SITE	MEDDSP+23

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

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
APCHORTS	MEDX!, MEDDSP+17*, MEDDSP+18
APCHSALL	MEDX+1!
>> APCHSBRK	CONT+2
>> APCHSCKP	CONT+2, MEDDSP+24, MEDDSP+27, NVADSP+7, NVADSP+9
APCHSCRN	MEDX+1!, MEDDSP+7*, MEDDSP+25
>> APCHSCVD	MEDDSP+8, MEDDSP+13, MEDDSP+15, NVADSP+2, NVADSP+5
APCHSDAT	MEDX!, MEDDSP+8, MEDDSP+25, NVADSP+2, NVADSP+8
APCHSDC	MEDX!, MEDBLD+8, CURR+5, CHRONIC+5, CHRONIC+8, MEDDSP+9, MEDDSP+15, MEDDSP+18, NVADSP+3*, NVADSP+5
APCHSDCP	MEDX!, CHRONIC+5
>> APCHSDLM	CONT+5, NONVA+9
APCHSDRG	MEDX+1!
APCHSDTM	MEDX!, MEDBLD+7, CURR+2, MEDDSP+8, MEDDSP+11, MEDDSP+13, NVADSP+2*
APCHSDYS	MEDX!, MEDBLD+8, MEDBLD+9, CURR+2, MEDDSP+9, MEDDSP+10, MEDDSP+13, MEDDSP+25
APCHSEXP	MEDX!, MEDDSP+12, MEDDSP+13, MEDDSP+15, MEDDSP+18, MEDDSP+25, NVADSP+1, NVADSP+5, NVADSP+8
APCHSFN	CONT+14*, CONT+16!
APCHSICL	MEDDSP+28!, NVADSP+10!
APCHSIG	MEDX!, MEDDSP+9, MEDDSP+20, MEDDSP+21, MEDDSP+22, MEDDSP+28, SIG+1, SIG+2, SIG+3, NVADSP+6* , NVADSP+10
APCHSITE	MEDX+1!, MEDDSP+26, SITE+1, SITE+2, SITE+4*
APCHSIVD	CONT+5, MEDX!, MEDBLD+7, MEDDSP+5, MEDDSP+8
APCHSMED	MEDX!, CURR+4, CURR+5, CHRONIC+7, CHRONIC+8, MEDDSP+14, MEDDSP+25, NVADSP+4, NVADSP+8
APCHSMFX	MEDX!, MEDBLD+8, CURR+1, CURR+4, CURR+5, CHRONIC+1, CHRONIC+7, CHRONIC+8, MEDDSP+9, MEDDSP+14
APCHSMTS	MEDX!
APCHSMTY	MEDSCURR+1, MEDSCHRN+1, MEDSNDUP+1*, MEDX+1!, NONVA+2, MEDBLD+10
APCHSMX	CONT+5, CONT+8, MEDX!, MEDBLD+3, MEDBLD+5, CURR+3, CURR+5, CHRONIC+2, CHRONIC+6, CHRONIC+8 , MEDDSP+2, MEDDSP+3, MEDDSP+4, MEDDSP+6, MEDDSP+17, MEDDSP+22
APCHSN	MEDX!, MEDBLD+5, MEDBLD+6, MEDBLD+8, CURR+3, CURR+4, CHRONIC+6, CHRONIC+7, MEDDSP+3, MEDDSP+9 , MEDDSP+14
APCHSNAB	MEDX+1!
APCHSNAM	CONT+8*, MEDX!, MEDDSP+2, NVADSP+2, NVADSP+3, NVADSP+4, NVADSP+6
APCHSNFL	MEDX+1!
>> APCHSNPG	CONT+2
APCHSNRQ	MEDDSP+28!, NVADSP+10!
APCHSNSH	MEDX+1!
APCHSP	MEDX!, MEDDSP+28!, SIG+2*, SIG+3, NVADSP+10!
>> APCHSPAT	CONT+5, NONVA+3, NONVA+4, NONVA+7, NONVA+12, NONVA+14, NONVA+15, NONVA+16, CHRONIC+3, MEDDSP+7
>> APCHSQ	CONT+5, CONT+8
>> APCHSQIT	CONT+2, CONT+8, CONT+12, MEDDSP+24, MEDDSP+27, NVADSP+7, NVADSP+9
APCHSQTY	MEDX!, MEDDSP+9*, MEDDSP+25
APCHSREF	MEDX+1!, MEDDSP+21, REF+1, REF+2, REF+3*
APCHSRFL	MEDX+1!, REF+2*, REF+3
APCHSRX	MEDX+1!, MEDDSP+6*, MEDDSP+7, REF+1, REF+2
APCHSSGY	MEDX!, MEDDSP+20, SIG+1, SIG+2, SIG+4*
APCHST	CONT+14*, CONT+16!
APCHSTXT	MEDX+1!, MEDDSP+28, NVADSP+10
>> APCHSTYP	SIG+1
APCHSVDF	MEDX!, MEDDSP+9*, SITE+2, SITE+3, SITE+4
APCHSVSC	MEDX+1!
>> APCHZ	MEDDSP+4*, MEDDSP+5
>> D	NONVA+12, NONVA+13, NONVA+14
DT	CURR+2, MEDDSP+11
DUZ(2	SITE+4
>> L	NONVA+7, NONVA+8, NONVA+9, NONVA+15
>> N	NONVA+14*, NONVA+15
U	NONVA+4, NONVA+7, NONVA+12, NONVA+14, NONVA+15, NONVA+16, MEDBLD+6, MEDBLD+8, CURR+4, CHRONIC+7 , MEDDSP+2, MEDDSP+4, MEDDSP+5, MEDDSP+9, MEDDSP+14, MEDDSP+22, REF+2, SITE+2, SITE+3, SITE+4 , NVADSP+2, NVADSP+3, NVADSP+4, NVADSP+6
>> V	MEDDSP+22*
X	MEDX+3!, NONVA+3, NONVA+4, NONVA+7, NONVA+12, NONVA+14, NONVA+15, NONVA+16, CURR+2, CHRONIC+2 , CHRONIC+3, MEDDSP+13, SIG+2, SIG+3, SIG+4
X1	MEDX+3!, CURR+2, MEDDSP+11, MEDDSP+13*
X2	MEDX+3!, CURR+2, MEDDSP+11, MEDDSP+13*
Y	MEDX+3!, CHRONIC+3, CHRONIC+4, MEDDSP+8, MEDDSP+13, MEDDSP+15, MEDDSP+18, SIG+3, NVADSP+2, NVADSP+5*

Customize PDF page

Package: Patient Care Component

Routine: APCHS77

Information

Source Information

Call Graph

Call Graph Total: 5

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: