Routine: APSQDI1

Package	Total	Call Graph
Registration	2	TERM^VALM0 ($$SETSTR,FULL)^VALM1
VA Fileman	1	^DIR

Package	Total	Caller Graph
IHS Changes To Pharmacy	1	APSQDI

Entry Points

Name	Comments	DBIA/ICR reference
FILE2	;FIX IDX
SET	;SET UP FOR NEXT PART
WIPE	;DELEETE ENTRIES FROM DRUG ARRAY USING APSQARR("GOT")
SUB1	;S APSQSEQ=APSQSEQ+1
LIST	;LIST ENTRIES SELECTED
HANG	;
ADD	;SELECT ENTITIES
BACK	;GO BACK
EN1	;
EN2	;LOOK UP
DEL	;DELETE ENTITIES
FILE	;
SWT	;SWITH APSQKILL BACK AND FORTH BETWEEN 1 AND 0

External References

Name	Field # of Occurrence
^DIR	DEL+7, ADD+8, HANG+2
TERM^VALM0	BACK+1
$$SETSTR^VALM1	EN1+7, EN1+12, EN1+16, SUB1+3, SUB1+5, SUB1+11, SUB1+12, SUB1+16, SUB1+17
FULL^VALM1	DEL+2, ADD+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"YOU DONT HAVE ANY ENTRIES TO DELETE-BYE" Line Location: DEL+3
Function Call: WRITE	Prompt: !,"NO SELECTIONS-BYE" Line Location: DEL+8
Function Call: WRITE	Prompt: !,"NO SUCH CRITTER ",APSQGOT Line Location: DEL+12
Function Call: WRITE	Prompt: !,"Nothing selected." Line Location: ADD+2
Function Call: WRITE	Prompt: !,"NO SELECTIONS-BYE" Line Location: ADD+9
Function Call: WRITE	Prompt: !,"NO SUCH CRITTER ",APSQGOT," SO ITEM DELETED!" Line Location: ADD+13
Function Call: WRITE	Prompt: !,$S($D(APSQARR("GOT")):"",1:"NO ")," ENTRIES SELECTED:" Line Location: LIST+1
Routine Call	DIR Line Location: DEL+7 ADD+8 HANG+2

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^APSQFA - [#9009035.3]	EN1+11, EN1+14, EN1+15, SUB1+10, SUB1+14, SUB1+15, LIST+4, SET+3, SET+4, SET+5 , SET+10, WIPE+3, WIPE+4, WIPE+5, WIPE+9
^APSQFA("SD"	EN1+5, EN1+6, EN1+9, EN2+5, EN2+6, SUB1+8
^PS(59 - [#59]	EN1+4, EN2+4
^PSDRUG - [#50]	EN1+15, SUB1+15

Label References

Name	Line Occurrences
BACK	DEL+3, DEL+18, ADD+18
EN2	DEL+18, ADD+18
FILE	EN2+13, EN2+14
HANG	DEL+18, ADD+18
LIST	DEL+18, ADD+18
SET	ADD+18
SUB1	EN2+10
SWT	EN2+11
WIPE	DEL+18

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> APSQ("GOT"	SUB1+1, DEL+3, DEL+11, DEL+17!, ADD+17*, SET+1, SET+2
APSQARR	EN1+1!, EN2+1!
APSQARR(	EN1+17, FILE+3
APSQARR("DIR"	SWT+3*, DEL+4, ADD+4, ADD+5, ADD+12
APSQARR("GOT"	DEL+16, ADD+17, LIST+1, LIST+2, LIST+3, WIPE+1, WIPE+2
APSQARR("IDX"	EN1+19, FILE2+5
APSQARR("TMP"	FILE+7, FILE+9, FILE2+1, FILE2+5
>> APSQBEG	DEL+4, DEL+6, ADD+5, ADD+7
>> APSQBM	FILE2+4*, FILE2+5
>> APSQCNT	EN1+2, EN1+18, EN1+19, EN2+2, FILE+1, FILE+3, FILE+7, FILE+9
>> APSQEND	DEL+4, DEL+6, ADD+5, ADD+7
>> APSQEXP	SET+4*, SET+5
>> APSQEXP1	SET+5*, SET+6
>> APSQGOT	DEL+10, DEL+11, DEL+12, DEL+16, DEL+17, ADD+11, ADD+12, ADD+13, ADD+17, WIPE+1* , WIPE+2
>> APSQGOT1	WIPE+2*, WIPE+3, WIPE+4, WIPE+5, WIPE+9
>> APSQGOTT	DEL+11, DEL+12, DEL+16, DEL+17, ADD+12, ADD+13, ADD+17
>> APSQIEN	EN1+9, EN1+10, EN1+11, EN1+14, EN1+15, EN1+19, SUB1+8, SUB1+9, SUB1+10, SUB1+14 , SUB1+15, SWT+3
>> APSQKILL	EN2+2, EN2+13, EN2+14, SUB1+3, SUB1+5, SUB1+11, SUB1+12, SUB1+16, SUB1+17, SWT+4 , SWT+5*
>> APSQLAST	EN2+2, EN2+14, FILE+7*
>> APSQLIS1	LIST+3, LIST+4, SET+2, SET+3, SET+4, SET+5, SET+9, SET+10
>> APSQLIST	LIST+2, LIST+3, SET+1, SET+2
>> APSQLKUP	EN1+2, EN1+7, EN1+12, EN1+16, EN1+17, EN1+20, EN2+2, SUB1+3, SUB1+5, SUB1+11* , SUB1+12, SUB1+16, SUB1+17, FILE+3, FILE+4
>> APSQNAME	EN1+11, EN1+12, SUB1+10, SUB1+11, SUB1+12
>> APSQSEC	EN1+14, EN1+15, EN1+16, SUB1+14, SUB1+15, SUB1+16, SUB1+17
>> APSQSEQ	EN1+6, EN1+7, EN1+9, EN1+17, EN1+19, EN2+6, SUB1+1, SUB1+3, SUB1+5, SUB1+8 , SWT+3
APSQSTAR	SUB1+1*, SUB1+3, SUB1+5, SUB1+6!
>> APSQY	DEL+9, DEL+10, ADD+10, ADD+11
DIR	DEL+5!, ADD+6!, HANG+1!, HANG+2!, BACK+4!
DIR("A"	HANG+2*
DIR(0	DEL+6, ADD+7, HANG+2*
>> DRUG	WIPE+4*, WIPE+5
>> DRUG1	WIPE+5*, WIPE+7
>> DRUGPICK(	SET+6, SET+9!, SET+10, WIPE+7!, WIPE+9!
DUZ(2	EN1+4, EN2+4
>> I	FILE2+1, FILE2+2, FILE2+5, FILE2+6, DEL+10, ADD+11*
>> IDX	FILE2+1*, FILE2+5
>> PSOSITE	EN1+4, EN1+5, EN1+6, EN1+9, EN2+4, EN2+5, EN2+6, SUB1+8
U	EN1+11, EN1+15, SUB1+10, SUB1+15, LIST+4, SET+5, SET+10, WIPE+5, WIPE+9
>> VALM("BM"	FILE2+4, FILE2+6
>> VALMBCK	BACK+2*
>> VALMQUIT	EN1+5, EN2+5
>> Y	DEL+8, ADD+9
>> Y(	DEL+9, DEL+10, ADD+10, ADD+11

Customize PDF page

Package: IHS Changes To Pharmacy

Routine: APSQDI1

Information

Source Information

Call Graph

Call Graph Total: 3

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: