Routine: BPCRXSIG

Package	Total	Call Graph
IHS VA Utilities	1	EN^XBVK

Entry Points

Name	Comments	DBIA/ICR reference
A
CHANGEN	;CHANGE TEXT TO NUMBERS
DISPENSE	;GETS DISPENSING UNITS
SIG	;checks SIG for RXs
TSTEXT	;REPLACES SOME MORE STUFF
CHANGET	;CHANGE TIME AROUND
TTEXT	;;CHANGE TIME AROUND
CHANGER	;GOES LIKE THIS '4 TO 6' GETS CHANGED TO '4 OR 6'
HTEXT	;;THIS PART CHANGES 2ND PARTO FO SIG FOURTIMESDAILY=4
TEXTF	;;FIRST WORD;LAST WORD
CHANGES	;GOES LIKE THIS '1-2' GETS CHANGED TO '1 OR 2'
CHANGEH	;CHANGE TIME TO NUMBERS
TRTEXT	;REPLACES SOME MORE STUFF
TESTA
FUZZY	;CHANGES EVERY 4 TO 6 HOURS - EVERY 4 HOURS
GETSIG(BPCARRAY,BPCSIGV,BPCQTY)	;EP CALL FROM REMOTE PROC: BPC RX EXPAND SIG
DAY	;CALCULATE THE DAYS SUPPLY
NTEXT	;;NUMBERS FOR TEXT
TEST1
DFTSIG(BPCARRAY,BPCDRUG)	;EP CALL FROM REMOTE PROC: BPC RX DEFLT SIG
B	;B ADDED 3/10/98 NEXT 7 LINES
END	;CLEAN UP
TRA
TRS
GETDPENS(BPCARRAY,BPCSIGV,BPCQTY)	;EP CALL FROM REMOTE PROC: BPC RX EXPAND SIG
TEST
KILLH	;KILL VARIABLES
LOOP

External References

Name	Field # of Occurrence
EN^XBVK	END+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,7,7,"I DONT KNOW THE DAYS SUPPLY-GO FIGURE!" Line Location: B+27

Used in RPC

RPC Name	Call Tags
BPC RX EXPAND SIG	GETSIG

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("UPPERCASE"	CHANGEN+3
^PS(51 - [#51]	SIG+5, TEST1+10
^PSDRUG - [#50]	TESTA+5, TESTA+6
^TMP($J	TEST!, SIG+1, SIG+2, SIG+3, SIG+7, SIG+9, TESTA!, TESTA+4, TESTA+7, TEST1! , TEST1+5, TEST1+6, TEST1+7, TEST1+8, TEST1+12, TEST1+14, TEST1+15

Label References

Name	Line Occurrences
A	LOOP+1, LOOP+2, LOOP+3, LOOP+4
CHANGEH	DISPENSE+12
CHANGEN	DISPENSE+10
CHANGER	DISPENSE+7
CHANGES	DISPENSE+8
CHANGET	DISPENSE+11
DAY	DISPENSE+13
DISPENSE	SIG+8, TEST1+13
END	DISPENSE+14
FUZZY	DISPENSE+9
KILLH	LOOP+5
TRA	CHANGER+2
TRS	CHANGES+2

Naked Globals

Name	Field # of Occurrence
^(9	SIG+5, TEST1+10

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
BPCARRAY	GETSIG~, TEST+1, DFTSIG~, TESTA+1, GETDPENS~, TEST1+1*
BPCDPENS	TESTA+6*, TESTA+7, TESTA+8!
BPCDRUG	DFTSIG~, TESTA+3*, TESTA+4, TESTA+5, TESTA+6, TESTA+8!
>> BPCDSIG	TESTA+5*, TESTA+7
>> BPCGUI	TEST, TESTA, TEST1*
BPCQTY	GETSIG~, SIG+8, SIG+10!, GETDPENS~, TEST1+3*, TEST1+7, TEST1+13, TEST1+15!, DISPENSE+2
BPCSIG	SIG+3!, SIG+4, SIG+7!, SIG+9, SIG+10!, TEST1+8!, TEST1+9, TEST1+12!, TEST1+14!, TEST1+15! , DISPENSE+1
BPCSIGV	GETSIG~, SIG+1, SIG+2, SIG+3, SIG+4, SIG+5, GETDPENS~, TEST1+2*, TEST1+5, TEST1+6 , TEST1+8, TEST1+9, TEST1+10
BPCY	SIG+5, SIG+6!, TEST1+10, TEST1+11!
BPCZ0	SIG+3!, SIG+4, SIG+5, SIG+6!, TEST1+8!, TEST1+9, TEST1+10, TEST1+11!
BPCZ1	SIG+3!, SIG+4, SIG+5, SIG+6!, TEST1+8!, TEST1+9, TEST1+10, TEST1+11!
>> C	TRA+11, TRA+12, TRA+13, TRS+11, TRS+12, TRS+13
CHECK	END+3!, A+14, A+15, B+3, B+4, FUZZY+5*, FUZZY+6, FUZZY+8
COMPARE	KILLH+1!
COMPARE(2	B+14*, B+16
>> CONVERT	TRA+10, TRA+12, TRA+13, TRA+15, TRS+10, TRS+12, TRS+13, TRS+15
>> CUT(	TRA+8, TRS+8
DELIMIT	LOOP+1, LOOP+2, LOOP+3, LOOP+4, A+10, KILLH+1!
FIND	END+3!, LOOP, A+4, A+5, A+6
FIRST	END+3!, LOOP, A+4, A+5, A+7, FUZZY+2*, FUZZY+5
I	END+2!, CHANGEN+8, CHANGET+3, B+13, TRA, TRA+2, TRA+3, TRS, TRS+2, TRS+3 , FUZZY+2
J	END+2!, CHANGEN+13, CHANGET+8, TRA+1, TRA+2, TRA+3, TRS+1, TRS+2, TRS+3
K	END+2!, B+10, TRA+6, TRA+7, TRA+8, TRA+9, TRS+6*, TRS+7, TRS+8, TRS+9
LENGTH	B+9*, B+10, KILLH+1!
LOOK	CHANGEN+9, CHANGEN+11, CHANGEN+14, CHANGEN+17!, CHANGET+4, CHANGET+6, CHANGET+9, CHANGET+12!
LOOP	END+3!, LOOP+1, LOOP+2, LOOP+3, LOOP+4
MANY	END+3!, LOOP+1, LOOP+2, LOOP+3, LOOP+4
MULT	LOOP+1, LOOP+2, LOOP+3, LOOP+4, B+23, KILLH+1!
NUMBER	CHANGEN+11, CHANGEN+12, CHANGEN+13, CHANGEN+17!, CHANGET+6, CHANGET+7, CHANGET+8, CHANGET+12!
P	END+2!, A+13, A+14, B+2, B+3, FUZZY+4*, FUZZY+5
PART	END+2!, A+14, A+17, B+3, B+6, FUZZY+5*, FUZZY+8
PIECE	KILLH+1!
PIECE(1	A, B+10, B+19*, B+23
PIECE(2	A, B+16, B+21*, B+23
>> PSOEXMX	CHANGEH+1, B+23, B+26, B+28, B+29*
>> PSOEXMXT	B+26, B+28, DAY+1, DAY+2
PSOEXQTY	SIG+10!, TEST1+15!, DISPENSE+2*, DAY+2
PSOEXSIG	SIG+10!, TEST1+15!, DISPENSE+1, CHANGEN+3, CHANGEN+4, CHANGEN+6, CHANGEN+16, CHANGET+1, CHANGET+11, LOOP , LOOP+1, LOOP+2, LOOP+3, LOOP+4, A+7, A+10, TRA+4, TRA+7, TRA+9, TRA+15* , TRS+4, TRS+7, TRS+9, TRS+15, FUZZY+6, FUZZY+8
PSOSIGS	END+3!, LOOP*, A+5, A+7
PSOZDAY	SIG+9, SIG+10!, TEST1+14, TEST1+15, DAY+1, DAY+2
Q	END+2!, A+12, A+14, B+1, B+3, FUZZY+3*, FUZZY+5
QUIT	END+2!
QUIT(1	CHANGEH+3, B+25
QUIT(2	CHANGEH+3, B+13, B+16, B+25*
QUT	END+3!, LOOP+1, LOOP+2, LOOP+3, LOOP+4, B+28*
REPLACE	CHANGEN+10, CHANGEN+14, CHANGEN+17!, CHANGET+5, CHANGET+9, CHANGET+12!, KILLH+1!, TRA+2, TRA+4, TRA+7 , TRA+9, TRS+2, TRS+4, TRS+7, TRS+9
REPLACE(2	B+15*, B+16
REPLANEW	END+2!, TRA+3, TRA+12, TRS+3, TRS+12
>> SAVE(	TRA+7, TRA+8, TRA+9, TRA+12, TRA+13, TRS+7, TRS+8, TRS+9, TRS+12, TRS+13
SECOND	END+3!, LOOP, A+6, A+7, FUZZY+2*, FUZZY+5
SIG	END+2!
STRING	CHANGEN+6, CHANGEN+11, CHANGEN+14, CHANGEN+16, CHANGEN+17!, CHANGET+1, CHANGET+6, CHANGET+9, CHANGET+11, CHANGET+12! , KILLH+1!
STRING(1	A+10, A+15, A+17, B+4, B+6*, B+9, B+10
STRING(2	A+10*, B+16
TEST	B+10*, KILLH+1!
TEXT	END+2!, CHANGEN+8, CHANGEN+9, CHANGEN+10, CHANGEN+17!, CHANGET+3, CHANGET+4, CHANGET+5, CHANGET+12!, B+13* , B+14, B+15, CHANGER+2, CHANGES+2, FUZZY+2*
TIMES	END+2!, TRA+4, TRA+5, TRA+6, TRA+11, TRS+4, TRS+5, TRS+6, TRS+11
TR	END+2!, CHANGER+2, TRA+2, CHANGES+2, TRS+2
TRTO	END+2!, CHANGER+2, TRA+3, CHANGES+2, TRS+3
U	TESTA+2*, TESTA+5, TESTA+6
X	DISPENSE+1, END+2!, CHANGEN+2~, CHANGEN+3
>> XWBWRAP	TEST, TESTA
Y	CHANGEN+2~, CHANGEN+3
Z	END+2!, CHANGER+2, CHANGES+2

Marked Items

Customize PDF page

Package: Patient Chart

Routine: BPCRXSIG

Information

Source Information

Call Graph

Call Graph Total: 1

Entry Points

External References

Interaction Calls

Used in RPC

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items

Name	Field # of Occurrence
$T(HTEXT+I	B+13
$T(NTEXT+I	CHANGEN+8
$T(TEXTF+I	FUZZY+2
$T(TRTEXT+Z	CHANGER+2
$T(TSTEXT+Z	CHANGES+2
$T(TTEXT+I	CHANGET+3