Routine: AUPNPOST

Entry Points

Name	Comments	DBIA/ICR reference
CONT	;
PROCESS	;
VDXP	;
QUEUE	;
INFORM	;
XIT	;
VHOSP	;
TSKMN	;
MSG	;send mail message when done
DONE	;ENTRY POINT - END OF REPORT TIME DISPLAY
CPT	;reindex AA on V CPT
VPRV	;move provider fields

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"This is the post init to the AUPN package. It will do the following:",! Line Location: INFORM+2
Function Call: WRITE	Prompt: !,"1. Move the .07 field of V DIAGNOSTIC PROCEDURE to field 1208." Line Location: INFORM+3
Function Call: WRITE	Prompt: !,"2. Move the .07 field of V Medication to 1202." Line Location: INFORM+4
Function Call: WRITE	Prompt: !,"3. Move the .09 field of V Lab to 1202." Line Location: INFORM+5
Function Call: WRITE	Prompt: !,"4. Reindex the AA xref on V CPT" Line Location: INFORM+6
Function Call: WRITE	Prompt: !,"5. Check to see if you are running MAS 5.0" Line Location: INFORM+7
Function Call: WRITE	Prompt: !!,"If you are an alpha or beta site and this post-init was run successfully",!,"during a previous install, it does not have to run again. Answer YES" Line Location: CONT+1
Function Call: WRITE	Prompt: !,"to the next question.",! Line Location: CONT+2
Function Call: WRITE	Prompt: !!,"Please answer the question!" Line Location: CONT+4
Function Call: WRITE	Prompt: !! Line Location: QUEUE+2
Function Call: WRITE	Prompt: !,"The obsolete .07 in VLAB and the .09 in V MEDICATION are being moved to the",!,"1202 field. Please wait, a dot will print for every 5000 entries.",!,"This will take awhile." Line Location: VPRV+1
Function Call: WRITE	Prompt: "." Line Location: VPRV+4
Function Call: WRITE	Prompt: "." Line Location: VPRV+7
Routine Call	DIR Line Location: CONT+3 QUEUE+2

FileNo	Call Tags
^AUPNVCPT - [#9000010.18]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^AUPNVCPT("AA"	CPT+2!
^AUPNVDXP - [#9000010.21]	VDXP+2*
^AUPNVLAB - [#9000010.09]	VPRV+7*
^AUPNVMED - [#9000010.14]	VPRV+4*
^DIC(9.4 - [#9.4]	VHOSP+2

Name	Field # of Occurrence
>> APCD("VERSION"	VHOSP+2*, VHOSP+3
AUPN	XIT+1!
AUPNBT	PROCESS+1*, XIT+1!, DONE+1
AUPNET	MSG+2*, XIT+1!, DONE+1, DONE+3!
AUPNH	DONE+1*, DONE+2, DONE+3!
AUPNM	DONE+2*, DONE+3!
AUPNPOST	XIT+1!
AUPNPOST(1	MSG+5*
AUPNPOST(2	DONE+2*
AUPNPOST(3	DONE+2*
AUPNS	DONE+2*, DONE+3!
AUPNTS	DONE+1, DONE+2, DONE+3!
C	VPRV+4, VPRV+7, XIT+1!
DA	CONT+3!, XIT+1!
DIC	XIT+1!
DIE	XIT+1!
DIK	CPT+3*, XIT+1!
DIK(1	CPT+3*
DIR	CONT+3!, QUEUE+2!
DIR("A"	CONT+3, QUEUE+2
DIR("B"	CONT+3, QUEUE+2
DIR(0	CONT+3, QUEUE+2
>> DIRUT	CONT+4, QUEUE+2*
DIU	XIT+1!
DIV	XIT+1!
DR	XIT+1!
>> DUOUT	QUEUE+2
DUZ	MSG+7
IOF	INFORM+1
>> L	VHOSP+4*
U	VDXP+2, VPRV+4, VPRV+7
X	VDXP+2, VPRV+4, VPRV+7, MSG+7, XIT+1!
XMDUZ	MSG+4*, XIT+1!
>> XMSUB	MSG+6*
XMTEXT	MSG+5*, MSG+8!, XIT+1!
XMY	MSG+8!
XMY(	MSG+7*
XMZ	XIT+1!
Y	CONT+5, QUEUE+3, XIT+1!
>> ZTDESC	TSKMN+1*
>> ZTDTH	TSKMN+1*
>> ZTIO	TSKMN+1*
>> ZTQUEUED	VDXP+1, VDXP+3, VPRV+1, VPRV+3, VPRV+4, VPRV+5, VPRV+6, VPRV+7, CPT+1, MSG+1
>> ZTRTN	TSKMN+1*
ZTSK	QUEUE+1!, TSKMN+1!