Routine: AWCMCPST

Information

AWCMCPST ;VISN 7/THM-POST-INIT FOR CPRS MONITOR ; Feb 27, 2004

Source file <AWCMCPST.m>

Package	Total	Call Graph
VA FileMan	5	^%DT FILE^DICN DT^DICRW ^DIE EN^DIK
Registration	1	$$SITE^VASITE

Name	Comments	DBIA/ICR reference
EN	; set up ^XTMP nodes first
PARAM	; set up parameter file; all settings off initially
EXIT

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,$C(7),"Unable to resolve the site's station number",!! Line Location: PARAM+3
Routine Call	DIE Line Location: PARAM+14

FileNo	Call Tags
^AWC(177100.12 - [#177100.12]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^AWC(177100.12 - [#177100.12]	PARAM+6, PARAM+10*, PARAM+18
^XTMP("AWCCPRS"	EN+5, EN+6, EN+7, EN+8, EN+9, EN+10, EN+11, EN+12

Name	Line Occurrences
EXIT	PARAM+4, PARAM+6

Name	Field # of Occurrence
%DT	EN+3*, EXIT!
AWCDA	EXIT!
AWCDIV	PARAM+1*, PARAM+3, PARAM+4, PARAM+10, PARAM+19, EXIT!
AWCDNAME	PARAM+1*, EXIT!
AWCMSTA	PARAM+1*, PARAM+11, PARAM+19, EXIT!
AWCPGDT	EN+1~, EN+3*, EN+7, EXIT!
AWCX	PARAM+1*, EXIT+1!
DA	PARAM+7, PARAM+10, PARAM+16, EXIT+1!
DD	PARAM+22!, EXIT!
DIC	PARAM+7, PARAM+22, EXIT!
DIC("DR"	PARAM+19, PARAM+20, PARAM+21*
DIC(0	PARAM+7, PARAM+22
DIE	PARAM+7, PARAM+22, EXIT!
>> DIK	PARAM+16*
>> DIK(1	PARAM+16*
DO	PARAM+22!, EXIT!
DR	PARAM+11, PARAM+12, PARAM+13*, EXIT!
DT	EN+7
U	EN+7, PARAM+1, PARAM+10
X	EN+1~, EN+3, PARAM+19, EXIT!
Y	EN+1~, EN+3, EXIT!