Routine: APSQBEG

Package	Total	Call Graph
IHS Changes To Pharmacy	2	POST^APSQCK ^APSQINIT
VA Fileman	2	^DIC ^DIK

Entry Points

Name	Comments	DBIA/ICR reference
ADLN	;ADD LINES TO ROUTINES PSODRG,PSON52,PSORN52,PSORXDL,PSORXI
TEXTCH	;;
INITD	;RTNS TO DELETE
END	;
TEXT	;;
RTN	;

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"DELETING PACKAGE "_PACKAGE Line Location: APSQBEG+7
Function Call: WRITE	Prompt: !,"WHERE IS PACKAGE PACKAGE-SOMETHING WRONG" Line Location: ADLN+4
Function Call: WRITE	Prompt: !,"NOT THE RIGHT VERSION?" Line Location: ADLN+6
Function Call: WRITE	Prompt: !,"ROUTINE ",X," DOES NOT EXIST-??" Line Location: ADLN+9
Function Call: WRITE	Prompt: !,"ROUTINE ",RTN," ALREADY CONTAINS A REFERENCE TO 'APSQCK'" Line Location: ADLN+16
Function Call: WRITE	Prompt: !,"ROUTINE ",RTN," ALREADY CONTAINS A REF TO 'APSQCK'" Line Location: ADLN+18
Routine Call	DIC Line Location: ADLN+3

FileNo	Call Tags
^DIC(9.4 - [#9.4]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("DEL"	RTN+3
^%ZOSF("LOAD"	ADLN+13
^%ZOSF("SAVE"	ADLN+30
^%ZOSF("TEST"	ADLN+9
^DIC(9.4 - [#9.4]	APSQBEG+8, ADLN+5
^UTILITY("SCRATCH"	ADLN+10!, ADLN+18, ADLN+23, ADLN+27*, ADLN+31!, END+1!

Name	Line Occurrences
END	ADLN+4, ADLN+6, ADLN+19, ADLN+22, ADLN+24
RTN	APSQBEG+4

Name	Field # of Occurrence
^(	ADLN+18, ADLN+23

Name	Field # of Occurrence
%	END+2!
%N	END+2!
CHECK	ADLN+18, ADLN+23, ADLN+32!, END+2!
CHECKIEN	ADLN+18, ADLN+23, ADLN+32!, END+2!
CHECKIT	ADLN+21*, ADLN+22, ADLN+23, ADLN+32!, END+2!
CHECKPUT	ADLN+23*, ADLN+24, ADLN+27, ADLN+32!, END+2!
DA	APSQBEG+10*, END+3!
DIC	ADLN+2*, ADLN+3!, END+3!
DIC(0	ADLN+2*
DIE	ADLN+29*, END+3!
DIF	ADLN+12*, END+2!
DIK	APSQBEG+10*!
II	RTN+1*, RTN+5!
JJ	RTN+2, RTN+5!, ADLN+25, END+3!
KK	ADLN+21*, END+3!
LINE	RTN+1*, RTN+2, RTN+5!
PACKAGE	APSQBEG+6*, APSQBEG+7, APSQBEG+8, APSQBEG+11!
QUIT	ADLN+10!
RTN	RTN+2, RTN+3, RTN+4, RTN+5!, ADLN+8, ADLN+18, ADLN+21, ADLN+26, ADLN+29, ADLN+33 , END+2!
STOP	ADLN+15, ADLN+18, ADLN+19, ADLN+32!, END+2!, END+3!
TEXT	ADLN+25*, ADLN+26, ADLN+27, END+2!
TEXTCH	ADLN+21*, END+2!
X	APSQBEG+8, APSQBEG+9, APSQBEG+10, APSQBEG+11!, RTN+3, ADLN+2, ADLN+5, ADLN+6, ADLN+7, ADLN+8 , ADLN+9, ADLN+29, END+3!
>> XCN	ADLN+29*
XCNP	ADLN+12*, END+2!
Y	ADLN+4, ADLN+5, END+3!