Routine: APSAWP2

Information

APSAWP2 ;IHS/DSD/ENM - MATCH LOCAL NDC WITH FACTS/COMPARISONS NDC ;03-Jan-2012 19:26;PLS

Source Information

Source file <APSAWP2.m>

Call Graph

Call Graph Total: 7

Package	Total	Call Graph
VA Fileman	5	(NOW,YX)^%DTC $$FIND1^DIC ^DIE ENALL^DIK ^DIR
Kernel	1	(EDIT,RESCH)^XUTMOPT
MailMan	1	^XMD

Caller Graph

Caller Graph Total: 3

Package	Total	Caller Graph
IHS Changes To Pharmacy	2	APSAPOS APSAPOST
Outpatient Pharmacy	1	PSOHELP1

Entry Points

Name	Comments	DBIA/ICR reference
XMSET	;SET MAIL VARIABLES
P1	;D NOW^%DTC S APSP("RUN DATE")=X
MSG1
MANU	;EP - ENTRY POINT FOR PHARMACIST TO USE AFTER FIXING DRUGS
ERR	;
TEXT
ZNDC	;EP - ENTRY POINT TO KILL AND RE-INDEX THE ^PSDRUG("ZNDC") X-REF
ETRAP	;
APSPGN	;GET DRUG NAME FOR EMAIL MSG
ZAAP	;KILL ALL VARIABLES ON EXIT
VSET
AUTOQ	;EP - ENTRY POINT FOR AUTO QUEUEING OF APSA AWP AUTO QUEUE OPTION
MSG	;SETUP AND SEND EMAIL MSG - LOOP ON ^TMP
RPH	;GET HOLDERS OF 'PSOMCORE' (PHARMACIST)
EP	;EP ENTRY POINT FOR NIGHTLY QUEUE
ZAP	;CLEAN AWP FIELD FROM DRUG - FOR USE DURING TESTING ONLY

Name	Field # of Occurrence
NOW^%DTC	P1+1, P1+10
YX^%DTC	TEXT+9
$$FIND1^DIC	AUTOQ+1, AUTOQ+2
^DIE	VSET+37, ZAP+6
ENALL^DIK	ZNDC+2
^DIR	MANU+3
^XMD	MSG1
EDIT^XUTMOPT	AUTOQ+3, AUTOQ+6
RESCH^XUTMOPT	AUTOQ+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Re-Indexing the 'ZNDC' x-ref in file 50..........",! Line Location: ZNDC+1
Function Call: WRITE	Prompt: !,"Benchmark Price Update in progress, Please hold on........." Line Location: MANU+6
Function Call: WRITE	Prompt: !,*7,"No Medi-Span database loaded......quitting!!",! Line Location: MANU+7
Function Call: WRITE	Prompt: !,*7,"No Facts & Comparisons database loaded......quitting!!",! Line Location: MANU+8
Function Call: WRITE	Prompt: !,"Benchmark Price Update done!! Please check your mail for any error messages",! Line Location: MANU+12
Routine Call	DIE Line Location: VSET+37 ZAP+6
Routine Call	DIC Line Location: AUTOQ+1 AUTOQ+2
Routine Call	DIR Line Location: MANU+3

FileNo	Call Tags
^DIC(19 - [#19]	FIND1^DIC
^DIC(19.2 - [#19.2]	FIND1^DIC
^PSDRUG - [#50]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^APSAMDF - [#9009037]	VSET+17, VSET+20, VSET+21
^APSAMDF("B"	VSET+15, VSET+16
^APSAMDF("DATE"	EP+4, EP+5, EP+7, P1+2, MANU+8
^APSPCTRL("AWP DATE"	EP+5, EP+6, P1+7*, ZAP+1!
^APSPCTRL("AWP LAST U-DATE"	P1+10*
^APSPCTRL("AWP UPDATE COUNT"	P1+9*
^DD("DD"	P1+1
^PS(59 - [#59]	EP+1
^PSDRUG - [#50]	VSET, VSET+2, VSET+9, ZAP+3
^PSDRUG("ZNDC"	EP+3, P1+6, ZNDC+2!
^TMP($J	EP+2!, ETRAP+5, ETRAP+6, MSG+7, APSPGN+4, APSPGN+5, ZAAP+1!, MANU+1!
^VA(200 - [#200]	RPH+3
^XUSEC("PSOMCORE"	RPH+3

Name	Line Occurrences
APSPGN	MSG+7
ERR	APSPGN+6
ETRAP	VSET+8, VSET+10, VSET+12, VSET+18, VSET+23, VSET+32
MSG	P1+12
MSG1	MSG+8, APSPGN+7
P1	EP+5, MANU+9
RPH	XMSET+3
TEXT	MSG+2, APSPGN+7
VSET	P1+6
XMSET	MSG+1, APSPGN+7
ZAAP	P1+13, MANU+10

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	P1+10
>> %H	TEXT+9*
APSA	ZAAP+1!
APSA("ACC-PRICE"	VSET+26*, VSET+30
APSA("AWP E-D	ATE" , VSET+25*, VSET+38!
APSA("AWP-P-D-U"	VSET+25*, VSET+38!
APSA("AWP-P-O-U"	VSET+25*, VSET+38!
APSA("DISP U"	, VSET+22*, VSET+23, ETRAP+6
APSA("MEDI-IRN"	VSET+14, VSET+16, VSET+17, VSET+18, VSET+20, VSET+21
APSA("NODE0"	VSET+20*, VSET+25, VSET+39!
APSA("NODE1"	VSET+20*, VSET+22, VSET+39!
APSA("NODE2"	VSET+20*, VSET+39!
APSA("NODE4"	VSET+21*, VSET+26, VSET+40!
APSA("TNDC"	VSET+14, VSET+17
APSAIRN	ZAP+2, ZAP+3, ZAP+5, ZAP+7!
APSDNAME	P1+3, VSET+2, ETRAP+5, ETRAP+6, ZAAP+1!
APSLNM	MSG+3, MSG+7, APSPGN+4, APSPGN+5, ZAAP+1!
APSP	ZAAP+1!
APSP("CTRL DA	TE" , EP+6*, EP+8
APSP("DISP U"	, VSET+11*, VSET+12, VSET+23, ETRAP+6
APSP("ERR"	ERR+2, ERR+3, ERR+4, ERR+5, ERR+6, ERR+8, APSPGN+4*, APSPGN+5
APSP("LOC"	ERR+4, APSPGN+5*
APSP("MEDI"	ERR+4, APSPGN+5*
APSP("MEDI-DATE"	EP+7*, EP+8
APSP("NEW DAT	E" , P1+2*, P1+7
APSP("RUN DAT	E" , P1+1*, TEXT
APSP("TMPRN"	MSG+3, MSG+7, APSPGN+4, APSPGN+5
APSP("TOTAL R	EC" , P1+3, P1+9, VSET+41, TEXT
APSPDG	ERR+2, ERR+3, ERR+4, ERR+5, ERR+6, ERR+8, APSPGN+4*, ZAAP+1!
APSPERR	P1+3, VSET+8, VSET+10, VSET+12, VSET+18, VSET+23, VSET+32, ETRAP+5, ETRAP+6, ETRAP+7 , MSG+5, MSG+7, APSPGN+4, APSPGN+5, ZAAP+1!
APSPIRN	P1+3, P1+6, VSET, VSET+2, VSET+9, VSET+28, ETRAP+5, ETRAP+6, ZAAP+1!
APSPMSG	MSG1!
APSPMSG(	ERR+2, ERR+3, ERR+4, ERR+5, ERR+6, ERR+8
APSPMSG(1	TEXT*
APSPMSG(10	TEXT+8*
APSPMSG(2	TEXT*
APSPMSG(3	TEXT*
APSPMSG(4	TEXT+1*
APSPMSG(5	TEXT+2*
APSPMSG(6	TEXT+4*
APSPMSG(7	TEXT+5*
APSPMSG(8	TEXT+6*
APSPMSG(9	TEXT+7*
APSPNAME	RPH+3*, ZAAP+1!
APSPNDC	P1+3, P1+6, VSET+4, VSET+5, VSET+6, VSET+8, ETRAP+5, ZAAP+1!
APSPNDC2	VSET+3, VSET+4, VSET+6*, VSET+15, VSET+16, ZAAP+1!
APSPNOD1	P1+3, VSET+9, VSET+10, VSET+11, ZAAP+1!
APSPNOD2	P1+3*, ZAAP+1!
>> APSPNOD4	P1+4*
APSPZ	ERR+2, ERR+3, ERR+4, ERR+5, ERR+6, ERR+8, ERR+11, MSG+3, APSPGN+7*, ZAAP+1!
D0	ZAP+4!, ZAP+7!
DA	VSET+28, VSET+38!, ZAP+4!, ZAP+5, ZAP+7!
DIE	VSET+28, VSET+38!, ZAP+2, ZAP+7!
DIK	ZNDC+2*, ZNDC+3!
DIK(1	ZNDC+2*
DIR	MANU+2~
DIR("A"	MANU+3*
DIR("B"	MANU+3*
DIR(0	MANU+3*
DR	VSET+28, VSET+30, VSET+38!, ZAP+5*, ZAP+7!
DUZ(2	EP+1
J	RPH+2, RPH+3, ZAAP+1!
>> PSOSITE	EP+1*
U	VSET+26
X	P1+1, ZAAP+1!
XMDUZ	XMSET+2*, ZAAP+1!
XMSUB	XMSET+2*, ZAAP+1!
XMTEXT	TEXT+9*, ZAAP+1!
XMY	XMSET+2!
XMY(	RPH+3*
>> Y	P1+1*, MANU+4

Customize PDF page

Package: IHS Changes To Pharmacy

Routine: APSAWP2

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: