Routine: ACHSPOS2

Information

ACHSPOS2 ; IHS/ITSC/PMF - TMP DATA FOR DENIAL REASONS AND FORCE ENTRY ; [ 10/19/2001 10:58 AM ]

Source file <ACHSPOS2.m>

Package	Total	Call Graph
VA Fileman	3	^%DT YX^%DTC IXALL^DIK
Contract Health Management Information System	1	^ACHSPOS3
IHS VA Utilities	1	XBCFIXFL^XBCFIX
Uncategorized	1	^%ET

Package	Total	Caller Graph
Contract Health Management Information System	1	ACHSPOST

Name	Comments	DBIA/ICR reference
CHECKSOK(X)	;
TAG	;
ERROR
ENTER	;PLACE CODE FOR ENTRY TO ^ACHSDENS HERE

Name	Line Occurrences
Function Call: WRITE	Prompt: !?15,"'CHS DENIAL REASON' data found! Not overwriting!" Line Location: ACHSPOS2+12
Function Call: WRITE	Prompt: !?15,"Old Denial Reasons will be de-activated!" Line Location: ACHSPOS2+21
Function Call: WRITE	Prompt: !?15,"Adding CHS DENIAL REASON data now...." Line Location: ENTER+5
Function Call: WRITE	Prompt: !,"Done." Line Location: ENTER+20

FileNo	Call Tags
^ACHSDENS - [#9002073]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^ACHSDENS - [#9002073]	ACHSPOS2+23, ACHSPOS2+24, ACHSPOS2+25*
^ACHSDENS(" "	ENTER+8
^ACHSDENS(0	CHECKSOK+1*
^ACHSINST(	ACHSPOS2+5, ACHSPOS2+7, ACHSPOS2+32, ENTER+3, ENTER+23, ERROR

Name	Line Occurrences
ENTER	ACHSPOS2+29

Name	Field # of Occurrence
>> %DT	ACHSPOS2+20*
>> %H	ACHSPOS2+4, ACHSPOS2+31, ENTER+2, ENTER+22
A	ACHSPOS2+15~, ACHSPOS2+16*
>> ACHSINST(	ACHSPOS2+7
>> ACHSVERS	ACHSPOS2+5, ACHSPOS2+7, ACHSPOS2+32, ENTER+3, ENTER+23, ERROR
B	ACHSPOS2+15~, ACHSPOS2+16*
C	ACHSPOS2+15~
>> DIK	ENTER+19*
>> FMDATE	ACHSPOS2+20*, ACHSPOS2+25
>> GLOBAL	ENTER+17*, ENTER+18
>> IEN	ACHSPOS2+22, ACHSPOS2+23, ACHSPOS2+24, ACHSPOS2+25
>> LASTDIEN	ENTER+8, ENTER+14, ENTER+17
>> NEWNODE	ENTER+13*, ENTER+14, ENTER+17
>> NOW	ACHSPOS2+4, ACHSPOS2+5, ACHSPOS2+7, ACHSPOS2+31, ACHSPOS2+32, ENTER+2, ENTER+3, ENTER+22, ENTER+23, ERROR
U	ACHSPOS2+24, ACHSPOS2+25
X	ACHSPOS2+20, ENTER+11, ENTER+12*, ENTER+13, ENTER+18, CHECKSOK~
>> XBCFIXC	CHECKSOK+4
>> XBCFIXFL	CHECKSOK+2*
>> XPDABORT	ACHSPOS2+7*
>> Y	ACHSPOS2+4, ACHSPOS2+20, ACHSPOS2+31, ENTER+2, ENTER+22

Name	Field # of Occurrence
$T(TAG+(3)	ACHSPOS2+16
$T(TAG+A	ACHSPOS2+16