Routine: ACHSACOA

Package	Total	Call Graph
Contract Health Management Information System	5	$$AOP^ACHS REPORT^ACHSACO2 $$TERMINAL^ACHSHCMD ^ACHSSVRP ^ACHSVAR
IHS VA Utilities	2	$$DIR^XBDIR EN^XBVK
Kernel	2	^%ZISC ($$DEL,$$MV)^%ZISH
MailMan	2	KILL^XM ^XMB

Package

Total

Call Graph

$$AOP^ACHS REPORT^ACHSACO2 $$TERMINAL^ACHSHCMD ^ACHSSVRP ^ACHSVAR

$$DIR^XBDIR EN^XBVK

^%ZISC ($$DEL,$$MV)^%ZISH

KILL^XM ^XMB

Package	Total	Caller Graph
Contract Health Management Information System	1	ACHSACO

Package

Total

Caller Graph

Name	Comments	DBIA/ICR reference
END	;
FLCP1	;
CHSTAR	;ASK OPERATOR ABOUT BACKING UP CHS PROCESSED FILES TO TAPE
UFMS	;SET BATCH HEADER AND RECORD FOR THE UFMS FILE, SAVE AND SEND FILE;
FILEDEL	;DELETE FACILITY FILES PROCESSED FROM ACHSPTH
FILEBLD	;
XIT	;EP
ABEND	;EP
REPORT	;EP
SENDMSG	;
FILEBLDA	;

Name	Line Occurrences
Function Call: WRITE	Prompt: "File Not Found",!!,"ABNORMAL END OF CHS CONSOLIDATION",! Line Location: ABEND+2
Function Call: WRITE	Prompt: !!,"NO RECORDS CONSOLIDATED FROM FACILITIES ",! Line Location: FILEBLD+3
Function Call: WRITE	Prompt: !!," moving your facility files to '",$$AOP^ACHS(2,13),"'..." Line Location: FILEBLDA+10
Function Call: WRITE	Prompt: ! Line Location: FLCP1+2
Function Call: WRITE	Prompt: !!?3,"BACKUP WAS UNSUCCESSFUL - FILES NOT DELETED FROM /usr/spool/uucppublic",! Line Location: FLCP1+11
Function Call: WRITE	Prompt: !,"ALL FILES COULD NOT BE DELETED" Line Location: FILEDEL+7
Function Call: WRITE	Prompt: !,"FILES DELETED...." Line Location: FILEDEL+8

Name	Line Occurrences (* Changed, ! Killed)
^ACHSSVR(	REPORT+7
^ACHSSVR(0	REPORT+7
^ACHSUFMS("COUNT"	UFMS+3*
^ACHSUFMS(0	UFMS+3, UFMS+4*
^AUTTSITE(1	UFMS+3
^TMP("ACHSACO"	END+5!

Name	Field # of Occurrence
>> %	END+4*
>> ACHSHCMD	FLCP1+5*, FLCP1+9
>> ACHSI	FILEBLDA+13*, FILEBLDA+14, FILEBLDA+17
>> ACHSIO	REPORT+1, REPORT+2
>> ACHSISAO	END+3*
>> ACHSPLST(	FILEBLDA+13, FILEBLDA+14, FILEBLDA+17, FILEDEL+4, FILEDEL+5
ACHSPPC	REPORT+3!
ACHSPPO	REPORT+1, REPORT+3!
>> ACHSPTH	FILEBLDA+17, FILEDEL+3, FILEDEL+5
>> ACHSPTR	XIT+3, REPORT+1
>> ACHSRTCD	FLCP1+9*, FLCP1+11
>> ACHSZFAC("TOTAL"	FILEBLD+1
DA	END+1!
DIC	END+1!
DIR	END+1!
DT	UFMS+1
I	END+1!
IO	XIT+3*
IO(0	XIT+1, REPORT+1, REPORT+2, REPORT+8, FILEBLD+2, FILEBLDA+1, CHSTAR+1, FLCP1+1, FILEDEL+2
J	END+1!
K	END+1!
>> L	FILEDEL+4*, FILEDEL+5
>> L1	FILEDEL+4, FILEDEL+5, FILEDEL+6
>> L2	FILEDEL+4, FILEDEL+6, FILEDEL+7
U	FILEBLDA+14, FILEBLDA+17, UFMS+3
W	END+1!
X	END+1!, FILEBLDA+17, UFMS+1, UFMS+3, UFMS+4
>> XMB	SENDMSG+2*
XMDUZ	SENDMSG+1~, SENDMSG+3*
XMSUB	SENDMSG+1~, SENDMSG+3*
XMTEXT	SENDMSG+1~, SENDMSG+4*
XMY	SENDMSG+1~
Y	END+1!
Z	END+1!

Information