Routine: ACHSUD1

Package	Total	Call Graph
Contract Health Management Information System	1	READ^ACHSFU
IHS VA Utilities	1	$$DIR^XBDIR
Kernel	1	$$FMTE^XLFDT
VA Fileman	1	^DIC

Package	Total	Caller Graph
Contract Health Management Information System	1	ACHSA3

Entry Points

Name	Comments	DBIA/ICR reference
END	;
ORDC	; Check Inpatient Hospital Order Number.
A1	;
A2	;
ORD	;
ENDO	;

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Hospital Order Number: " Line Location: A1+1
Function Call: WRITE	Prompt: Y Line Location: A1+6
Function Call: WRITE	Prompt: " Deleted" Line Location: A1+7
Function Call: WRITE	Prompt: *7," ??" Line Location: A1+12
Function Call: WRITE	Prompt: !!," If The Patient Is Currently Being Hospitialized Under Contract",!," Enter The Order Number. Enter An '@' To Delete The Current Number.",! Line Location: ORD+1
Function Call: WRITE	Prompt: !?8,"Doc #",?25,"Tran Date",! Line Location: ORDC+5
Function Call: WRITE	Prompt: !,E,".",?5,$P(O(A),U,15),"-",ACHSFC,"-",$P(O(A),U,2),?25,$$FMTE^XLFDT($P(O(A),U,3)) Line Location: ORDC+7
Function Call: WRITE	Prompt: " ",$P(O(Y),U,2) Line Location: ORDC+14
Routine Call	DIC Line Location: A2+8

Name	Line Occurrences (* Changed, ! Killed)
^ACHSF - [#9002080]	ORDC+3
^DISV(	A1+6, A2+11*

Name	Field # of Occurrence
^(0	ORDC+3

Name	Field # of Occurrence
>> %	A1+9*
A	ORDC+2, ORDC+3, ORDC+6*, ORDC+7, ORDC+8, ENDO+1!
>> ACHSACFY	A2+1
ACHSDIEN	ACHSUD1+3!
>> ACHSFC	A2+2, ORDC+7, ORDC+8
>> ACHSHON	A1+7, A2+11, ORDC+12, ORDC+13
>> ACHSHONN	A1+2, A1+7, ORDC+12, ORDC+15*
C	A1+11, A1+14, A1+15, A2+1, A2+5, A2+6!
>> DFN	ORD+2, ORDC+3
DIC	ACHSUD1+3!, A2+7*, A2+9!
DIC("W"	A2+7*
DIC(0	A2+7*
>> DTOUT	ORDC+11
>> DUOUT	A1+5, ORDC+11
DUZ	A1+6, A2+11
DUZ(2	A2+7, ORDC+3
E	ORDC+2, ORDC+3, ORDC+6*, ORDC+7, ORDC+10, ENDO+1!
F	A1+10, A1+11, A1+14, A1+15, A2+2, A2+3, A2+6!
N	A1+11, A1+13, A2+4*, A2+5, A2+6!
O	ORDC+1!, ORDC+4, ENDO+1!
O(	ORDC+3, ORDC+6, ORDC+7, ORDC+8, ORDC+13, ORDC+14, ORDC+15
P	A1+11*, A1+12, A1+13, A1+14, A1+15, A2+6!
U	A2+11, ORDC+3, ORDC+7, ORDC+8, ORDC+14, ORDC+15
>> X	A2+5*
>> Y	A1+4, A1+5, A1+6, A1+7, A1+8, A1+9, A1+10, A1+11, A1+13, A1+14 , A1+15, A2+10, A2+11, ORDC+10, ORDC+12, ORDC+13, ORDC+14, ORDC+15