Routine: APCHS7

Package	Total	Call Graph
Patient Care Component	2	DISPREF^APCHS3C PRTTXT^APCHSUTL
IHS VA Utilities	1	($$VAL,$$VALI)^XBDIQ1
Kernel	1	$$FMTE^XLFDT
Patient Care Component Reports	1	($$LASTMLR,$$LASTMLU,$$LASTNAM)^APCLAPI6
VA Fileman	1	(,C)^%DTC

Package	Total	Caller Graph
Patient Care Component	7	APCHS71 APCHS72 APCHS73 APCHS74 APCHS77 APCHS78 APCHS7C

Entry Points

Name	Comments	DBIA/ICR reference
CONT	; <SETUP>
MEDSNDUP	; *********** ALL, NON DUPLICATED ***********
MEDRU	;EP
MEDSCHRN	; *********** CHRONIC MEDCICATIONS **********
CURR	; current meds only
NONVA	;EP - ;NEW DFN,PSOACT S DFN=APCHSPAT,PSOACT=1 D ^PSOHCSUM
REF	;DETERMINE THE NUMBER OF REFILLS REMAINING
CHRONIC	;chronic meds only
NODUP	;
HOLDDSP1	;write out med
MEDSALL	; **************** ALL MEDICATIONS * 9000010.14 **********
HOLDMEDS(P,R)	;EP - get meds on hold for display
MEDDSP	;DISPLAY MEDICATION
HOLD(S)	;EP - is this prescription on hold?
ALL	;all meds included
SITE	;DETERMINE IF OUTSIDE LOCATION INFO PRESENT
NVADSP	;
HOLDDSP	;EP - display all meds on hold
MEDBLD	;BUILD ARRAY OF MEDICATIONS
MEDSCURR	; ************** CURRENT MEDICATIONS * 9000010.14 ********
MEDSCHR1	; ***** CHRONIC MEDICATIONS, W/O D/C'ED *****
SIG	;CONSTRUCT THE FULL TEXT FROM THE ENCODED SIG
MEDX

External References

Name	Field # of Occurrence
^%DTC	CURR+2, MEDDSP+10
C^%DTC	MEDDSP+12
DISPREF^APCHS3C	CONT+13
PRTTXT^APCHSUTL	MEDDSP+28, NVADSP+10, HOLDDSP1+13, HOLDDSP1+17
$$LASTMLR^APCLAPI6	MEDRU+2
$$LASTMLU^APCLAPI6	MEDRU+5
$$LASTNAM^APCLAPI6	MEDRU+8
$$VAL^XBDIQ1	HOLDDSP1+10, HOLDDSP1+14, HOLDDSP1+16
$$VALI^XBDIQ1	SIG+1
$$FMTE^XLFDT	MEDRU+4, MEDRU+7, MEDRU+11

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
Function Call: WRITE	Prompt: !,"The following medications have been processed in the Pharmacy " Line Location: HOLDDSP+5
Function Call: WRITE	Prompt: !,"system, and are currently active but not dispensed:",!,! Line Location: HOLDDSP+6
Function Call: WRITE	Prompt: !,"Medications may be active but not dispensed for several reasons including: " Line Location: HOLDDSP+11
Function Call: WRITE	Prompt: !,"Too early for refill, patient has sufficient amount on hand, pharmacy" Line Location: HOLDDSP+13
Function Call: WRITE	Prompt: !,"resolving issue with prescriber, etc. Contact Pharmacy staff for " Line Location: HOLDDSP+15
Function Call: WRITE	Prompt: !,"details or view prescription details in Pharmacy system.",! Line Location: HOLDDSP+17
Function Call: WRITE	Prompt: APCHSDAT,?10,$S(APCHSCRN:"(C)",1:""),?14,$$VAL^XBDIQ1(52,APCHSRX,6)," #",APCHSQTY," (",APCHSDYS," days) ",! Line Location: HOLDDSP1+10
Function Call: WRITE	Prompt: ?14,"Dispensed at: ",APCHSITE,! Line Location: HOLDDSP1+11
Function Call: WRITE	Prompt: ?14,"Ordering Provider: ",$$VAL^XBDIQ1(52,APCHSRX,4),! Line Location: HOLDDSP1+14
Function Call: WRITE	Prompt: !,"Medication List Reviewed On: ",?36,$$FMTE^XLFDT($P(APCHSX,U,1)) Line Location: MEDRU+4
Function Call: WRITE	Prompt: ?51,"By: ",?56,$E($S($P(APCHSX,U,3):$P($G(^VA(200,$P(APCHSX,U,3),0)),U),1:""),1,22),! Line Location: MEDRU+4
Function Call: WRITE	Prompt: "Medication List Updated On: ",?36,$$FMTE^XLFDT($P(APCHSX,U,1)) Line Location: MEDRU+7
Function Call: WRITE	Prompt: ?51,"By: ",?56,$E($S($P(APCHSX,U,3):$P($G(^VA(200,$P(APCHSX,U,3),0)),U),1:""),1,22),! Line Location: MEDRU+7
Function Call: WRITE	Prompt: !,"No Active Problems: ",?24,$$FMTE^XLFDT($P(APCHSX,U,1)) Line Location: MEDRU+10
Function Call: WRITE	Prompt: ?39,"Documented By: ",?54,$E($P($G(^VA(200,$P(APCHSX,U,3),0)),U),1,25),! Line Location: MEDRU+10
Function Call: WRITE	Prompt: "No Active Medications Documented On: ",?36,$$FMTE^XLFDT($P(APCHSX,U,1)) Line Location: MEDRU+11
Function Call: WRITE	Prompt: ?51,"By: ",?56,$E($S($P(APCHSX,U,3):$P($G(^VA(200,$P(APCHSX,U,3),0)),U),1:""),1,22),! Line Location: MEDRU+11

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNVMED - [#9000010.14]	MEDBLD+4, MEDBLD+5, MEDBLD+10, NONVA+4, MEDDSP+4, MEDDSP+16, MEDDSP+21, MEDDSP+22
^AUPNVMED("AA"	CONT+5
^AUPNVSIT - [#9000010]	MEDDSP+21, 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+6, HOLDMEDS+5 , HOLDMEDS+6, HOLDDSP1+1
^PSDRUG - [#50]	MEDBLD+6, NONVA+14, MEDDSP+13
^PSRX - [#52]	REF+2, HOLD+2, HOLD+7, HOLDDSP1+2, HOLDDSP1+3, HOLDDSP1+4, HOLDDSP1+5
^PSRX("APCC"	CHRONIC+2, MEDDSP+5
^TMP($J	CONT+4!, CONT+8, MEDX+2!, NONVA+15, NONVA+16, CURR+1, CURR+3, ALL+1, NODUP+3, NODUP+4 , NODUP+5, CHRONIC+1, CHRONIC+6*, MEDDSP+2, NVADSP+3, NVADSP+4, NVADSP+6
^VA(200 - [#200]	MEDRU+4, MEDRU+7, MEDRU+11

Label References

Name	Line Occurrences
$$HOLD	HOLDMEDS+7
@(	MEDBLD+16
CONT	MEDSCURR+1, MEDSALL+1, MEDSCHRN+1, MEDSNDUP+1, MEDSCHR1+1
HOLDDSP	CONT+11
HOLDDSP1	HOLDDSP+8
HOLDMEDS	HOLDDSP+2
MEDBLD	CONT+5
MEDDSP	CONT+8
MEDRU	CONT+14
NONVA	CONT+6
NVADSP	MEDDSP+3
REF	MEDDSP+20, HOLDDSP1+7
SIG	MEDDSP+19, HOLDDSP1+6
SITE	MEDDSP+23

Naked Globals

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

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

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

Customize PDF page

Package: Patient Care Component

Routine: APCHS7

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 7

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: