Routine: APCDRETR

Information

APCDRETR ; IHS/CMI/LAB - RETRANSMIT VISIT ;

Name	Comments	DBIA/ICR reference
C2R
PROCESS	;
EOJ	;
GETPAT	; GET PATIENT
GETVISIT	; GET VISIT
C2	;
C1R	;
C1	;W $C(7),!!,"This Visit has not been flagged as ever having been successfully sent to",!,"the IHS Data Center!",!

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: GETPAT+1
Function Call: WRITE	Prompt: !,"Are you sure this is the visit to re-transmit" Line Location: PROCESS+1
Function Call: WRITE	Prompt: $C(7),!!,"This visit has been deleted!!",! Line Location: PROCESS+4
Function Call: WRITE	Prompt: $C(7),!!,"This visit does not have any dependent entries - no data to transmit!!",! Line Location: PROCESS+5
Function Call: WRITE	Prompt: !,"I will re-set the Data Warehouse flag to re-send this visit as of today's",!,"Posting Date." Line Location: C1+1
Function Call: WRITE	Prompt: !,"BYE" Line Location: C1R+2
Function Call: WRITE	Prompt: !!,"This visit has already been transmitted to the IHS Data Center once.",!,"This will cause the visit to be re-transmitted to the Data Center.",!! Line Location: C2+1
Function Call: WRITE	Prompt: !!,"Have all corrections to the visit been made through modify or append mode",!,"so that the visit will now be accepted by the Data Center (either PCIS or the",!,"the IHS Inpatient System?",! Line Location: C2R+0
Function Call: WRITE	Prompt: $C(7),"Bye" Line Location: C2R+2
Function Call: WRITE	Prompt: $C(7),!!,"Make corrections and then try again!",!! Line Location: C2R+3
Function Call: WRITE	Prompt: !!,"Visit will be re-sent as of Today's Date",! Line Location: C2R+6
Routine Call	DIE Line Location: C2R+4
Routine Call	DIC Line Location: GETPAT+3
Routine Call	DIR Line Location: C1R+1 C2R+1

FileNo	Call Tags
^AUPNPAT - [#9000001]	Classic Fileman Calls
^AUPNVSIT - [#9000010]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^AUPNVSIT - [#9000010]	PROCESS+3

Name	Field # of Occurrence
>> %	PROCESS+1*
>> %Y	PROCESS+1*, PROCESS+2
APCDCAT	EOJ+1!
APCDCLN	EOJ+1!
APCDDATE	EOJ+1!, GETVISIT+3
APCDL	APCDRETR+4*, EOJ+1!
APCDLOC	EOJ+1!
APCDLOOK	EOJ+1!
APCDPAT	APCDRETR+3, APCDRETR+4, EOJ+1!, GETPAT+2, GETPAT+5*
APCDRETR	EOJ+1!, C2R+4*
APCDTYPE	EOJ+1!
APCDVDSP	EOJ+1!, GETVISIT+4*
APCDVR	EOJ+1!, PROCESS+3*, PROCESS+4, PROCESS+5
APCDVSIT	APCDRETR+4, EOJ+1!, GETVISIT+1*, GETVISIT+3, GETVISIT+4, PROCESS+3, C1R+3, C2R+4, C2R+5
APCDY	EOJ+1!
AUPNDAYS	EOJ+2!, GETVISIT+3*
AUPNDOB	EOJ+2!, GETVISIT+3
AUPNDOD	EOJ+2!
AUPNPAT	EOJ+2!
AUPNSEX	EOJ+2!
>> AUPNVSIT	C1R+3, C2R+5
DA	EOJ+3!, C1R+4!, C2R+4*!
DIC	GETPAT+3*!
DIC(0	GETPAT+3*
DIE	EOJ+3!, C1R+4!, C2R+4*!
DIR	C1R+1!, C2R+1!
DIR("A"	C1R+1, C2R+1
DIR("B"	C1R+1, C2R+1
DIR(0	C1R+1, C2R+1
DIROUT	C1R+4!
>> DIRUT	C1R+1, C1R+2, C2R+1, C2R+2
DR	EOJ+3!, GETVISIT+4!, C1R+4!, C2R+4*!
DTOUT	C1R+4!
DUOUT	C1R+1, C1R+4!, C2R+1
U	PROCESS+4, PROCESS+5
X	GETVISIT+3, C1R+4!
>> X1	GETVISIT+3*
>> X2	GETVISIT+3*
Y	GETPAT+4, GETPAT+5, C1R+2, C1R+4!, C2R+3