Routine: ACDFLAT

Package	Total	Call Graph
Alcohol Chemical Dependency	4	(GETDTR,PAUSE)^ACDDEU $$FLAT^ACDFLAT2 $$FLAT^ACDFLAT4 ^ACDKILL
VA Fileman	3	^%DTC %XY^%RCR ^DIR
IHS VA Utilities	2	EP^XBCLM ^XBGSAVE

Entry Points

Name	Comments	DBIA/ICR reference
BLDRECV	; BUILD FLAT RECORD FROM ONE CDMIS VISIT
PRVNTLP	; LOOP ON PREVENTIONS BY DATE UNTIL DONE
FILEMSG	; GENERATE FILE NAME AND TELL USER
BLDRECP	; BUILD FLAT RECORD FROM ONE CDMIS PREVENTION
EOJ	;
VISITLP	; LOOP ON VISITS BY DATE UNTIL DONE
START	;
INIT	; INITIALIZATION
GENFILE	; GENERATE FLAT ASCII FILE

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"No Program Specified.",!! Line Location: INIT+3
Function Call: WRITE	Prompt: !!,"Invalid ASUFAC code for Program.",!! Line Location: INIT+4
Function Call: WRITE	Prompt: !!,"This routine will generate a flat ascii file containing CDMIS visits within",!,"the date range you specify.",! Line Location: INIT+5
Function Call: WRITE	Prompt: !!,"I am going to create a file called ",ACDFILE," which will reside in ",!,"the ",$S($P(^AUTTSITE(1,0),U,21)=1:"/usr/spool/uucppublic",1:"C:\EXPORT")," directory.",! Line Location: FILEMSG+4
Function Call: WRITE	Prompt: !,"Actually, the file will be placed in the same directory that the data export" Line Location: FILEMSG+5
Function Call: WRITE	Prompt: !,"globals are placed. See your site manager for assistance in finding the file",!,"after it is created. PLEASE jot down and remember the following file name:",!?15,"******** ",ACDFILE," ********",! Line Location: FILEMSG+6
Function Call: WRITE	Prompt: !,"As a reminder, the records that are generated and placed in file ",ACDFILE,! Line Location: FILEMSG+7
Function Call: WRITE	Prompt: "are in a standard, pre-defined record format. For a definition of the format",!,"please see your user manual.",! Line Location: FILEMSG+8
Routine Call	DIR Line Location: FILEMSG+9

Name	Line Occurrences (* Changed, ! Killed)
^ACDPD - [#9002170.7]	PRVNTLP+2
^ACDPD("B"	PRVNTLP+1, PRVNTLP+2
^ACDVIS - [#9002172.1]	VISITLP+2
^ACDVIS("B"	VISITLP+1, VISITLP+2
^AUTTLOC - [#9999999.06]	INIT+4
^AUTTSITE(1	FILEMSG+4
^TMP("ACDFLAT"	INIT+1!, BLDRECV+4, BLDRECP+4, EOJ+1!
^TMP($J	GENFILE+1!, GENFILE+12!
^VA(200 - [#200]	GENFILE+8

Name	Field # of Occurrence
%X	GENFILE+2*, GENFILE+5!
%Y	GENFILE+3*, GENFILE+5!
>> ACD6DIG	INIT+4*
>> ACDDTHI	VISITLP+2, PRVNTLP+2, GENFILE+8
>> ACDDTLO	VISITLP+1, PRVNTLP+1, GENFILE+8
>> ACDFILE	FILEMSG+1, FILEMSG+3, FILEMSG+4, FILEMSG+6, FILEMSG+7, GENFILE+8
>> ACDFREC	BLDRECV+1, BLDRECP+1
>> ACDFREC(	BLDRECV+4, BLDRECP+4, BLDRECP+5
>> ACDJD	FILEMSG+2*, FILEMSG+3
>> ACDPDT	PRVNTLP+1, PRVNTLP+2
>> ACDPGM	INIT+3, INIT+4, VISITLP+2, PRVNTLP+2
>> ACDPIEN	PRVNTLP+2*, BLDRECP+1
>> ACDQ	START+2, START+4, START+6, INIT+2, INIT+7, INIT+9, FILEMSG+10*
>> ACDRCTR	INIT+8, BLDRECV+3, BLDRECV+4, BLDRECV+6, BLDRECP+3*, BLDRECP+4, BLDRECP+6
>> ACDVDT	VISITLP+1, VISITLP+2
>> ACDVIEN	VISITLP+2*, BLDRECV+1
>> C	BLDRECV+1, BLDRECV+2, BLDRECP+1, BLDRECP+2
DA	FILEMSG+9!
DIR	FILEMSG+9!
DIR("A"	FILEMSG+9*
DIR("B"	FILEMSG+9*
DIR(0	FILEMSG+9*
>> DIRUT	FILEMSG+10
DT	FILEMSG+2
DUZ	FILEMSG+1, GENFILE+8
U	INIT+4, FILEMSG+4, VISITLP+2, PRVNTLP+2, GENFILE+8
>> X	FILEMSG+2
>> X1	FILEMSG+2*
>> X2	FILEMSG+2*
>> XBE	GENFILE+9*
XBF	GENFILE+9*, GENFILE+13!
XBFLT	GENFILE+9*, GENFILE+13!
XBFN	GENFILE+8*, GENFILE+13!
XBGL	GENFILE+7*, GENFILE+13!
XBMED	GENFILE+8*, GENFILE+13!
XBQ	GENFILE+9*, GENFILE+13!
XBTLE	GENFILE+8*, GENFILE+13!
>> Y	FILEMSG+10, BLDRECV+2, BLDRECV+4, BLDRECP+2, BLDRECP+4, BLDRECP+5