Routine: APCPDRI3

Information

APCPDRI3 ; IHS/TUCSON/LAB - initialization part III AUGUST 14, 1992 ; [ 04/07/99 7:47 AM ]

Package	Total	Call Graph
VA Fileman	3	DD^%DT C^%DTC ^DIR
MailMan	1	^XMB

Package	Total	Caller Graph
Patient Care Component Data Transmission	4	APCPDR APCPDRI2 APCPERR APCPREDO

Name	Comments	DBIA/ICR reference
FIRSTRUN	; FIRST RUN EVER (NO LOG ENTRY)
ERRBULL	;ENTRY POINT - ERROR BULLETIN
FRLP
INFORM	;EP - INFORM OPERATOR WHAT IS GOING TO HAPPEN
CURRUN	;EP - COMPUTE DATES FOR CURRENT RUN
ERRBULL1

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"This routine will generate the following transaction types:" Line Location: INFORM+2
Function Call: WRITE	Prompt: !?15,"STATISTICAL DATABASE RECORDS" Line Location: INFORM+6
Function Call: WRITE	Prompt: !,"for visits posted between a specified range of dates. You may ""^"" out at any",!,"prompt and will be ask to confirm your entries prior to generating transactions." Line Location: INFORM+7
Function Call: WRITE	Prompt: !!,"No log entry. First run ever assumed.",! Line Location: FIRSTRUN+2
Routine Call	DIR Line Location: FRLP+1

Name	Line Occurrences (* Changed, ! Killed)
^APCPERRC - [#9001005.2]	ERRBULL+1
^APCPERRC("B"	ERRBULL+1
^APCPLOG - [#9001005]	CURRUN+2
^APCPSITE(1	CURRUN+5
^DD("DD"	CURRUN+8, CURRUN+9

Name	Line Occurrences
ERRBULL1	ERRBULL+4
FIRSTRUN	CURRUN+3

Name	Field # of Occurrence
%	CURRUN+11!
%H	CURRUN+11!
%I	CURRUN+11!
>> APCP("DATE"	CURRUN+11!
>> APCP("FIRST R	UN" , FRLP+4*
>> APCP("LAST BE	GIN" , CURRUN+11!
>> APCP("LAST LO	G" , CURRUN+2, CURRUN+11!
>> APCP("QFLG DE	S" , ERRBULL+1*, ERRBULL+2, ERRBULL1+2!
>> APCP("QFLG"	CURRUN+4, CURRUN+6, FIRSTRUN+1, FRLP+2*, ERRBULL+1, ERRBULL+2
>> APCP("QFLG1"	ERRBULL+1*, ERRBULL1+2!
>> APCP("RDFN"	CURRUN+11!
>> APCP("RUN BEG	IN" , CURRUN+1, CURRUN+2, CURRUN+3, CURRUN+6, CURRUN+8, FRLP+3*, ERRBULL+4, ERRBULL+5
>> APCP("RUN END	" , CURRUN+7*, CURRUN+9
>> APCP("RUN LOG	" , ERRBULL+3
>> APCP("X"	CURRUN+8*, CURRUN+10, CURRUN+11!
>> APCP("Y"	CURRUN+9*, CURRUN+10, CURRUN+11!
>> APCP("Z"	CURRUN+11!
>> APCPO("SCHEDULED"	FIRSTRUN+1
DA	FRLP+1!
DIR	FRLP+1!
DIR("A"	FRLP+1*
DIR(0	FRLP+1*
>> DIRUT	FRLP+2
DT	CURRUN+5, FRLP+1, ERRBULL1
U	CURRUN+2, CURRUN+5, ERRBULL+1
>> X	CURRUN+2, CURRUN+5
>> X1	CURRUN+2, CURRUN+5
>> X2	CURRUN+2, CURRUN+5
XM1	ERRBULL1+2!
XMA	ERRBULL1+2!
XMB	ERRBULL1*, ERRBULL1+2!
XMB(1	ERRBULL1*
XMB(2	ERRBULL+2*
XMB(3	ERRBULL+2*
XMB(4	ERRBULL+3*
XMB(5	ERRBULL+4, ERRBULL+5
XMDT	ERRBULL1+2!
XMDUZ	ERRBULL1+1*, ERRBULL1+2!
XMM	ERRBULL1+2!
>> Y	CURRUN+2, CURRUN+5, CURRUN+6, CURRUN+7, CURRUN+8, CURRUN+9, FRLP+2, FRLP+3, ERRBULL+5, ERRBULL1
>> ZTQUEUED	INFORM+1, CURRUN+6, CURRUN+10, FIRSTRUN+1