Routine: APSQDISP

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

Package

Total

Call Graph

Registration

TERM^VALM0 ($$SETSTR,FULL)^VALM1

VA Fileman

^DIR

Name	Comments	DBIA/ICR reference
FILE2	;FIX IDX
SUB1	;S APSQSEQ=APSQSEQ+1
LIST	;LIST ENTRIES SELECTED
HANG	;
BACK	;GO BACK
EN1	;EP
EN2	;LOOK UP [ 12/06/98 7:08 PM ]
FILE	;
SWT	;SWITH APSQKILL BACK AND FORTH BETWEEN 1 AND 0
SELECT	;SELECT ENTITIES

Name	Field # of Occurrence
^DIR	SELECT+8, HANG+1
TERM^VALM0	BACK+1
$$SETSTR^VALM1	EN1+4, EN1+8, EN1+12, SUB1+2, SUB1+3, SUB1+8, SUB1+9, SUB1+13, SUB1+14
FULL^VALM1	SELECT+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Nothing selected." Line Location: SELECT+2
Function Call: WRITE	Prompt: !,"NO SELECTIONS-BYE" Line Location: SELECT+9
Function Call: WRITE	Prompt: !,"NO SUCH CRITTER ",APSQGOT," SO ITEM DELETED!" Line Location: SELECT+13
Function Call: WRITE	Prompt: !,$S($D(APSQARR("GOT")):"",1:"NO ")," ENTRIES SELECTED:" Line Location: LIST+1
Routine Call	DIR Line Location: SELECT+8 HANG+1

Name	Line Occurrences (* Changed, ! Killed)
^APSQFAST(	EN1+7, EN1+10, EN1+11, SUB1+7, SUB1+11, SUB1+12, LIST+4
^APSQFAST("S"	EN1+3, EN1+5, EN2+3, SUB1+5
^PSDRUG - [#50]	EN1+11, SUB1+12

Name	Line Occurrences
BACK	SELECT+16
EN2	SELECT+16
FILE	EN2+7, EN2+8
HANG	SELECT+16
LIST	SELECT+16
SUB1	EN2+4
SWT	EN2+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> APSQ("GOT"	SUB1+1, SELECT+15*
APSQARR	EN1+1!, EN2+1!
APSQARR(	EN1+13, FILE+3
APSQARR("DIR"	SWT+3*, SELECT+4, SELECT+5, SELECT+12
APSQARR("GOT"	SELECT+15*, LIST+1, LIST+2, LIST+3
APSQARR("IDX"	EN1+15, FILE2+5
APSQARR("TMP"	FILE+7, FILE+9, FILE2+1, FILE2+5
>> APSQBEG	SELECT+5*, SELECT+7
>> APSQBM	FILE2+4*, FILE2+5
>> APSQCNT	EN1+2, EN1+14, EN1+15, EN2+2, FILE+1, FILE+3, FILE+7, FILE+9
>> APSQEND	SELECT+5*, SELECT+7
>> APSQGOT	SELECT+11*, SELECT+12, SELECT+13, SELECT+15
>> APSQGOTT	SELECT+12*, SELECT+13, SELECT+15
>> APSQIEN	EN1+5, EN1+6, EN1+7, EN1+10, EN1+11, EN1+15, SUB1+5, SUB1+6, SUB1+7, SUB1+11 , SUB1+12, SWT+3
>> APSQKILL	EN2+2, EN2+7, EN2+8, SUB1+2, SUB1+3, SUB1+8, SUB1+9, SUB1+13, SUB1+14, SWT+4 , SWT+5*
>> APSQLAST	EN2+2, EN2+8, FILE+7*
>> APSQLIS1	LIST+3*, LIST+4
>> APSQLIST	LIST+2*, LIST+3
>> APSQLKUP	EN1+2, EN1+4, EN1+8, EN1+12, EN1+13, EN1+16, EN2+2, SUB1+2, SUB1+3, SUB1+8* , SUB1+9, SUB1+13, SUB1+14, FILE+3, FILE+4
>> APSQNAME	EN1+7, EN1+8, SUB1+7, SUB1+8, SUB1+9
>> APSQSEC	EN1+10, EN1+11, EN1+12, SUB1+11, SUB1+12, SUB1+13, SUB1+14
>> APSQSEQ	EN1+3, EN1+4, EN1+5, EN1+13, EN1+15, EN2+3, SUB1+1, SUB1+2, SUB1+3, SUB1+5 , SWT+3
APSQSTAR	SUB1+1*, SUB1+2, SUB1+3, SUB1+4!
>> APSQY	SELECT+10*, SELECT+11
DIR	SELECT+6!, HANG+1!, BACK+4!
DIR("A"	HANG+1*
DIR(0	SELECT+7, HANG+1
>> I	FILE2+1, FILE2+2, FILE2+5, FILE2+6, SELECT+11
>> IDX	FILE2+1*, FILE2+5
U	EN1+7, EN1+11, SUB1+7, SUB1+12, LIST+4
>> VALM("BM"	FILE2+4, FILE2+6
>> VALMBCK	BACK+2*
>> Y	SELECT+9
>> Y(	SELECT+10, SELECT+11

Customize PDF page

Package: IHS Changes To Pharmacy

Routine: APSQDISP

Information

Source Information

Call Graph

Call Graph Total: 3

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: