Routine: BTIULO1

Information

BTIULO1 ; IHS/ITSC/LJF - PHARMACY OBJECTS ;

Source Information

Source file <BTIULO1.m>

Call Graph

Call Graph Total: 2

Package	Total	Call Graph
Patient Care Component	1	PRTTXT^APCHSUTL
VA Fileman	1	^%DTC

Entry Points

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

External References

Name	Field # of Occurrence
^%DTC	CURR+2, MEDDSP+9
PRTTXT^APCHSUTL	MEDDSP+18

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: APCHSDAT,?10,$S(APCHSCRN:"(C)",1:""),?14,APCHSMED," #",APCHSQTY," (",APCHSDYS," days) ",APCHSEXP,! Line Location: MEDDSP+16

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNVMED - [#9000010.14]	MEDBLD+3, MEDDSP+3
^AUPNVMED("AA"	CONT+4
^AUPNVMED("AC"	CONT+1
^AUPNVSIT - [#9000010]	SITE+2
^PS(51 - [#51]	SIG+3
^PS(55 - [#55]	CHRONIC+3, MEDDSP+5
^PSDRUG - [#50]	MEDBLD+4, MEDDSP+11
^PSRX - [#52]	REF+3, REF+5
^PSRX("APCC"	CHRONIC+2, MEDDSP+4
^TMP($J	CONT+3!, CONT+6, MEDX+2!, CURR+1, CURR+3, ALL+1, NODUP+1, NODUP+2, CHRONIC+1, CHRONIC+5 , MEDDSP+2

Label References

Name	Line Occurrences
@(	MEDBLD+8
CONT	MEDSCURR+1, MEDSNOSG+2, MEDSNOSG+3
MEDBLD	CONT+4
MEDDSP	CONT+6
SIG	MEDDSP+13
SITE	MEDDSP+14

Naked Globals

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

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
APCHSALL	MEDX+1!
>> APCHSCKP	MEDDSP+15, MEDDSP+17
APCHSCRN	MEDX+1!, MEDDSP+5*, MEDDSP+16
>> APCHSCVD	MEDDSP+6, MEDDSP+12
APCHSDAT	MEDX!, MEDDSP+6*, MEDDSP+16
APCHSDC	MEDX!, MEDBLD+6, CURR+3, ALL+1, NODUP+2, CHRONIC+5, MEDDSP+7, MEDDSP+12
>> APCHSDLM	CONT+4
APCHSDRG	MEDX+1!
APCHSDTM	MEDX!, MEDBLD+5, CURR+2, MEDDSP+6, MEDDSP+9
APCHSDYS	MEDX!, MEDBLD+6, MEDBLD+7, CURR+2, MEDDSP+7, MEDDSP+8, MEDDSP+16
APCHSEXP	MEDX!, MEDDSP+10, MEDDSP+12, MEDDSP+16
APCHSICL	MEDDSP+18*!
APCHSIG	MEDX!, MEDDSP+7, MEDDSP+13, MEDDSP+14*, MEDDSP+18, SIG+2, SIG+3
APCHSITE	MEDX+1!, MEDDSP+14, SITE+1, SITE+2
APCHSIVD	CONT+4, CONT+6, MEDX!, MEDBLD+5, CURR+3, ALL+1, NODUP+2, CHRONIC+5, MEDDSP+2, MEDDSP+6
APCHSMED	MEDX!, MEDDSP+11*, MEDDSP+16
APCHSMFX	MEDX!, MEDBLD+6, CURR+1, CURR+3, ALL+1, NODUP+1, NODUP+2, CHRONIC+1, CHRONIC+5, MEDDSP+7 , MEDDSP+11
APCHSMTS	MEDX!
APCHSMTY	MEDSCURR+1, MEDSNOSG+2, MEDSNOSG+3*, MEDX+1!, MEDBLD+8
APCHSMX	CONT+4, MEDX!, MEDBLD+3, CURR+3, ALL+1, NODUP+2, CHRONIC+2, CHRONIC+5, MEDDSP+2, MEDDSP+3 , MEDDSP+4
APCHSN	MEDX!, MEDBLD+3, MEDBLD+4, MEDBLD+6, MEDDSP+3, MEDDSP+7, MEDDSP+11
APCHSNAB	MEDX+1!
APCHSNFL	MEDX+1!
APCHSNRQ	MEDDSP+18*!
APCHSNSH	MEDX+1!
APCHSP	MEDX!, MEDDSP+18!, SIG+2*, SIG+3
>> APCHSPAT	CONT+1, CONT+4, CHRONIC+3, MEDDSP+5
>> APCHSQ	CONT+4, CONT+6
>> APCHSQIT	MEDDSP+15, MEDDSP+17
APCHSQTY	MEDX!, MEDDSP+7*, MEDDSP+16
APCHSREF	MEDX+1!, REF+1, REF+3, REF+5, REF+6
APCHSRFL	MEDX+1!, REF+5*, REF+6
APCHSRX	MEDX+1!, MEDDSP+4*, MEDDSP+5, REF+1, REF+3, REF+5
APCHSSGY	MEDX!, MEDDSP+13, SIG+1, SIG+2, SIG+4*
APCHSTXT	MEDX+1!, MEDDSP+18*
APCHSVDF	MEDX!, MEDDSP+7*, SITE+2
APCHSVSC	MEDX+1!
APCHTIU	MEDSNOSG+1~*, SIG+1
DT	CURR+2, MEDDSP+9
U	MEDBLD+4, MEDBLD+6, MEDDSP+7, MEDDSP+11, REF+5, SITE+2
X	MEDX+3!, CURR+2, CHRONIC+2, CHRONIC+3, SIG+2, SIG+3*, SIG+4
X1	MEDX+3!, CURR+2, MEDDSP+9
X2	MEDX+3!, CURR+2, MEDDSP+9
Y	MEDX+3!, CHRONIC+3, CHRONIC+4, MEDDSP+6, MEDDSP+12, SIG+3

Customize PDF page

Package: IHS Mods To Text Integration Utilities

Routine: BTIULO1

Call Graph Total: 2