Routine: APCPRPV1

Information

APCPRPV1 ; IHS/TUCSON/LAB - AMBULATORY OPERATIONS SUMMARY AUGUST 14, 1992 ; [ 04/07/99 9:54 AM ]

Package	Total	Call Graph
VA Fileman	2	DD^%DT ^DIR
Patient Care Component Data Transmission	1	CHKSITE^APCPDRI
Patient Care Component Reports	1	($$CLINIC,$$LOCENC,$$SC,$$TYPE,$$VDTM)^APCLV

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"No transactions generated!!" Line Location: START+8
Function Call: WRITE	Prompt: !,APCPRPV("HRN"),?8,$$VDTM^APCLV(APCPRPV("V"),"E"),?28,$E($$LOCENC^APCLV(APCPRPV("V"),"E"),1,20),?51,$$TYPE^APCLV(APCPRPV("V"),"I"),?55,$E($$SC^APCLV(APCPRPV("V"),"E"),1,12),?69,$E($$CLINIC^APCLV(APCPRPV("V"),"E"),1,10) Line Location: PRN+1
Function Call: WRITE	Prompt: ! Line Location: HEAD+1
Function Call: WRITE	Prompt: !,"Report Run Date: ",APCPRPV("DTP"),?70,"Page ",APCPRPV("PG") Line Location: HEAD1+3
Function Call: WRITE	Prompt: !!?((80-APCPRPV("LENG"))/2),"PCC DATA TRANSMISSION FOR ",APCPRPV("FAC PRINT") Line Location: HEAD1+4
Function Call: WRITE	Prompt: !?24,"Listing of VISITS Exported" Line Location: HEAD1+5
Function Call: WRITE	Prompt: !?18,"Date Export Run: ",APCPRPV("RUN DATE") Line Location: HEAD1+6
Function Call: WRITE	Prompt: !?8,"Visits Processed for Posting Dates: ",APCPRPV("PRINT BEGIN")," to ",APCPRPV("PRINT END") Line Location: HEAD1+7
Function Call: WRITE	Prompt: !!,APCPRPV("80D"),!," HRN ",?8,"VISIT DATE/TIME",?26," LOCATION",?50,"TYPE",?55,"SERV CAT",?67," CLINIC",!,APCPRPV("80D"),! Line Location: HEAD1+8
Routine Call	DIR Line Location: START+12 HEAD+1

Name	Line Occurrences (* Changed, ! Killed)
^APCPLOG - [#9001005]	START+5
^APCPSITE(1	START+3
^AUPNPAT - [#9000001]	PRINT+3
^AUPNVSIT - [#9000010]	PRINT+2
^DIC(4 - [#4]	START+4
^XTMP("APCPRPV"	START+8, XIT+1!, PROC+1

Name	Field # of Occurrence
>> APCPBTH	START+8, XIT+1, PROC+1
>> APCPJOB	START+8, XIT+1, PROC+1
>> APCPRPV("80D"	START+1*, HEAD1+8
>> APCPRPV("DTP"	HEAD1+3
>> APCPRPV("FAC	PRINT" , START+4*, HEAD1+2, HEAD1+4
>> APCPRPV("HRN"	PRINT+3*, PRN+1
>> APCPRPV("LENG"	HEAD1+2*, HEAD1+4
>> APCPRPV("LOG"	START+5
>> APCPRPV("PG"	START+6, HEAD, HEAD1+1, HEAD1+3
>> APCPRPV("PRIN	T BEGIN" , HEAD1+7, T END" , HEAD1+7
>> APCPRPV("QUIT"	START+9!, START+11, PROC+1, PRINT+1, HEAD+1*
>> APCPRPV("RUN	DATE" , START+5, HEAD1+6, SITE" , START+3, START+4, PRINT+3
>> APCPRPV("V"	PROC+1*, PRINT+2, PRN+1
>> APCPV0	PRINT+2*, PRINT+3
>> DFN	PRINT+3*
DIR	START+12!, HEAD+1!
DIR("A"	START+12*
DIR(0	START+12, HEAD+1
>> DIRUT	START+12*
>> DTOUT	HEAD+1
>> DUOUT	START+12
IO	START+12, HEAD+1
IO(0	START+12, HEAD+1
IOF	XIT+2, HEAD1+1
IOSL	PRINT+1
IOST	START+12, HEAD+1
U	START+4, START+5, PRINT+3
>> Y	START+5*, HEAD+1