Routine: AGCVT6

Information

AGCVT6 ; IHS/ASDS/EFG - ONE TIME, EXPORT PATIENTS WITH MEDICAID COVERAGE ;

Name	Comments	DBIA/ICR reference
COMMENT	;This routine is a one-time-only run.
END
FACILITY
READ
DEV
START	;EP - TaskMan.
QUE
USER
TEST
ENTRY	;EP
CHKHRN

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"IF YOU ARE SURE YOU WANT TO RUN THIS ROUTINE",!!,"PLEASE ENTER AT 'ENTRY', I.E. 'D ENTRY^AGCVT6'.",! Line Location: AGCVT6+2
Function Call: WRITE	Prompt: $$S^AGVDF("IOF"),!!?5,"THIS REGISTRATION UTILITY READS THRU THE 'B' INDEX OF THE",!!?5,"MEDICAID ELIGIBLE FILE (^AUPNMCD), AND SETS ^AGPATCH SO MEDICAID",!!?5,"ELIGIBLE PATIENTS ARE EXPORTED DURING THE NEXT REGISTRATION EXPORT.",!! Line Location: ENTRY+1
Function Call: WRITE	Prompt: ?5,"THE ENTRIES IN ^AGPATCH WILL BE YESTERDAY'S DATE SO YOU CAN RUN",!?5,"THIS ROUTINE AND THE EXPORT ON THE SAME DATE.",!! Line Location: ENTRY+2
Function Call: WRITE	Prompt: !! Line Location: USER+0
Function Call: WRITE	Prompt: !! Line Location: FACILITY+0
Function Call: WRITE	Prompt: !!,*7,"You can 'q' this process to TaskMan to run at another time.",! Line Location: QUE+0
Function Call: WRITE	Prompt: !!,"Task Number = ",ZTSK,!!,"Press RETURN..." Line Location: DEV+1
Function Call: WRITE	Prompt: !! Line Location: START+2
Function Call: WRITE	Prompt: AGTOTAL Line Location: START+3
Function Call: WRITE	Prompt: " MEDICAID's added to ^AGPATCH." Line Location: START+4
Function Call: READ	Timeout: $S($D(DTIME):DTIME,1:300) Variable: Y Line Location: READ+0
Function Call: READ	Timeout: 5 Variable: Y Line Location: READ+0
Routine Call	DIC Line Location: USER FACILITY
Routine Call	%ZIS Line Location: START+2

FileNo	Call Tags
^VA(200 - [#200]	Classic Fileman Calls
^AUTTLOC - [#9999999.06]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("UCI"	DEV
^AGPATCH(	START+3, TEST!
^AUPNMCD("B"	START+3
^AUPNPAT - [#9000001]	CHKHRN+1

Name	Field # of Occurrence
^(	CHKHRN+1, START+3*

Name	Field # of Occurrence
%DT	START+1*, END!
AGDATE	START+1, START+3, END!, TEST
AGTOTAL	START+2, START+3, END!
DFN	CHKHRN+1, START+3*, END!
DFOUT	ENTRY+3, QUE, END!, READ!, READ+1*
>> DIC	USER, FACILITY
>> DIC("A"	USER, FACILITY!
>> DIC(0	USER, FACILITY
DLOUT	ENTRY+3, END!, READ!, READ+1*
DQOUT	ENTRY+3, QUE, END!, READ!, READ+1*
DTIME	READ
DTOUT	ENTRY+3, QUE, END!, READ!*
DUOUT	ENTRY+3, QUE, END!, READ!, READ+1*
DUZ	USER*
DUZ(2	CHKHRN, FACILITY*
DUZ2	CHKHRN, CHKHRN+1, FACILITY*, START+3, END!
DX	START+2*, END!
DY	START+2*, END!
G	DEV+1!
ION	START+2
>> IOP	START+2*
J	CHKHRN+1*, END!
U	CHKHRN+1
X	START+1*, END!
XY	START+3, END!
Y	ENTRY+3, USER, FACILITY, QUE, DEV, START+1, END!, READ, READ+1*
ZTDESC	DEV*, DEV+1!
ZTIO	DEV*, DEV+1!
>> ZTQUEUED	START+2, START+3, START+4, END
ZTRTN	DEV*, DEV+1!
ZTSAVE	DEV*, DEV+1!
ZTSK	DEV+1!
ZTUCI	DEV*, DEV+1!