Routine: APSQAWP

Package	Total	Call Graph
VA Fileman	2	^DIE ENALL^DIK
IHS VA Utilities	1	EN^XBNEW
MailMan	1	^XMB

Package	Total	Caller Graph
Pharmacy Data Management	1	^PSDRUG

Entry Points

Name	Comments	DBIA/ICR reference
DO	;IF APSQDEL=1 THEN WILL DELETE ENTRY
ERR	;
ZNDC	;EP - ENTRY POINT TO KILL AND RE-INDEX THE ^PSDRUG("ZNDC") X-REF
SINGLE	;EP - COME HERE FOR XREF FROM FILE PSDRUG -A TRIGGER IHS/OKCAO/POC 11/12/98
ZAAP	;KILL ALL VARIABLES ON EXIT
VSET
DEL	;DELETE THE AWP STUFF IF NDC DELETED IHS/OKCAO/POC
MSG	;SETUP AND SEND BULLETIN
ZAP	;CLEAN AWP FIELD FROM DRUG - FOR USE DURING TESTING ONLY

External References

Name	Field # of Occurrence
^DIE	VSET+38, DEL+3, ZAP+6
ENALL^DIK	ZNDC+2
EN^XBNEW	SINGLE+5
^XMB	MSG+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Re-Indexing the 'ZNDC' x-ref in file 50..........",! Line Location: ZNDC+1
Routine Call	DIE Line Location: VSET+38 DEL+3 ZAP+6

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^PSDRUG - [#50]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^APSAMDF - [#9009037]	VSET+19, VSET+21, VSET+22
^APSAMDF("B"	VSET+17, VSET+18
^APSPCTRL("AWP DATE"	ZAP+1!
^PSDRUG - [#50]	VSET, VSET+4, VSET+11, ZAP+3
^PSDRUG("ZNDC"	ZNDC+2!
^VA(200 - [#200]	VSET+2

Label References

Name	Line Occurrences
@(	DO+3
ERR	VSET+10, VSET+12, VSET+14, VSET+20, VSET+24, VSET+34, VSET+42
MSG	DO+4
ZAAP	DO+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
APSA	ZAAP+1!
APSA("ACC-PRICE"	VSET+27*, VSET+30
APSA("AWP E-D	ATE" , VSET+26*, VSET+39!
APSA("AWP-P-D-U"	VSET+26*, VSET+39!
APSA("AWP-P-O-U"	VSET+26*, VSET+39!
APSA("DISP U"	, VSET+23*, VSET+24, ERR+5
APSA("MEDI-IRN"	VSET+16, VSET+18, VSET+19, VSET+20, VSET+21, VSET+22, ZAAP+2!
APSA("NODE0"	VSET+21*, VSET+26, VSET+40!, ZAAP+2!
APSA("NODE1"	VSET+21*, VSET+23, VSET+40!, ZAAP+2!
APSA("NODE2"	VSET+21*, VSET+40!, ZAAP+2!
APSA("NODE3"	ZAAP+2!
APSA("NODE4"	VSET+22*, VSET+27, VSET+41!, ZAAP+2!
APSA("TNDC"	VSET+16, VSET+19, ZAAP+2!
APSAIRN	ZAP+2, ZAP+3, ZAP+5, ZAP+7!
APSDNAME	VSET+4*, ERR+3, ERR+4, ERR+5, ERR+6, ERR+7, ERR+8, ERR+10, ZAAP+1!
APSLNAME	ZAAP+1!
APSP	ZAAP+1!
APSP("DISP U"	, VSET+13*, VSET+14, VSET+24, ERR+5, ZAAP+2!
APSPDG	ZAAP+1!
APSPERR	VSET+10, VSET+12, VSET+14, VSET+20, VSET+24, VSET+34~, VSET+38, VSET+42*, ERR+3, ERR+4 , ERR+5, ERR+6, ERR+7, ERR+8, ERR+10, ZAAP+1!
APSPIRN	VSET, VSET+4, VSET+11, VSET+29, DEL+2, ERR+3, ERR+4, ERR+5, ERR+6, ERR+7 , ERR+8, ERR+10, ZAAP+1!, SINGLE+2*
APSPNAME	ZAAP+1!
APSPNDC	VSET+6, VSET+7, VSET+8, VSET+10, ERR+3, ERR+4, ERR+5, ERR+6, ERR+7, ERR+8 , ERR+10, ZAAP+1!, SINGLE+3*
APSPNDC2	VSET+5, VSET+6, VSET+8*, VSET+17, VSET+18, ZAAP+1!
APSPNOD1	VSET+11*, VSET+12, VSET+13, ZAAP+1!
APSPNOD2	ZAAP+1!
APSPZ	ZAAP+1!
APSQCNT	VSET+3, ERR+1, ERR+3, ERR+4, ERR+5, ERR+6, ERR+7, ERR+8, ERR+10, ZAAP+2!
APSQDEL	SINGLE+4, DO+4, DO+5!
>> APSQNOIN	SINGLE+1
APSQWORK	SINGLE+4*, DO+3, DO+5!
D0	ZAP+4!, ZAP+7!
DA	VSET+29, VSET+39!, DEL+2, DEL+4!, ZAP+4!, ZAP+5*, ZAP+7!, SINGLE+2
DIE	VSET+29, VSET+39!, DEL+2, DEL+4!, ZAP+2*, ZAP+7!
DIK	ZNDC+2*, ZNDC+3!
DIK(1	ZNDC+2*
DR	VSET+29, VSET+30, VSET+39!, DEL+2, DEL+4!, ZAP+5, ZAP+7!
DUZ	VSET+2
J	ZAAP+1!
U	VSET+27
X	ZAAP+1!, SINGLE+3
XMB	VSET+1!, MSG+3*, ZAAP+1!
XMB(	ERR+3, ERR+4, ERR+5, ERR+6, ERR+7, ERR+8, ERR+10*
XMB(9	VSET+2*
XMDUZ	MSG+2*, ZAAP+1!
XMSUB	ZAAP+1!
XMTEXT	ZAAP+1!

Customize PDF page

Package: IHS Changes To Pharmacy

Routine: APSQAWP

Information

Source Information

Call Graph

Call Graph Total: 4

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: