Routine: ACHSUD

Package	Total	Call Graph
IHS VA Utilities	2	$$DIR^XBDIR $$EXTSET^XBFUNC
Contract Health Management Information System	1	($$FC,$$PARM,RTRN)^ACHS
Kernel	1	$$FMTE^XLFDT
VA Fileman	1	^DIC

Package

Total

Call Graph

IHS VA Utilities

$$DIR^XBDIR $$EXTSET^XBFUNC

Contract Health Management Information System

($$FC,$$PARM,RTRN)^ACHS

Kernel

$$FMTE^XLFDT

VA Fileman

^DIC

Package	Total	Caller Graph
Contract Health Management Information System	20	ACHS278O ACHSACT ACHSAD ACHSADTR ACHSAJ ACHSBMC ACHSBUG3 ACHSCEDT ACHSEDOC ACHSFIM ACHSPAI ACHSPAM ACHSPAP2 ACHSRMVD ACHSRR ACHSTX1R ACHSTX2R ACHSTXAR ACHSUSC ACHSYEX

Package

Total

Caller Graph

Contract Health Management Information System

ACHS278O  ACHSACT  ACHSAD  ACHSADTR  ACHSAJ  ACHSBMC  ACHSBUG3  ACHSCEDT
ACHSEDOC  ACHSFIM  ACHSPAI  ACHSPAM  ACHSPAP2  ACHSRMVD  ACHSRR  ACHSTX1R
ACHSTX2R  ACHSTXAR  ACHSUSC  ACHSYEX

Entry Points

Name	Comments	DBIA/ICR reference
Q1	;EP - From ^DIR. ; W !," Enter the Patient's Name, or"
Q3	;EP - From call to ^DIC. See line Q2+1.
Q2	;
NAME	; undocumented feature...too slow to publish.
DISTRANS(D,T)	;
SELTRANS(D)	;EP - Display trans of doc D, and allow selection.
A1	;
A3	;
A2	;
ACHSUDOD	;

Name	Field # of Occurrence
$$FC^ACHS	A2+1
$$PARM^ACHS	NAME+2
RTRN^ACHS	Q3+7
^DIC	A3+1, NAME+5, Q2+6
$$DIR^XBDIR	A1+2, Q2+1, SELTRANS+7
$$EXTSET^XBFUNC	DISTRANS+2
$$FMTE^XLFDT	DISTRANS+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: Y Line Location: A1+5
Function Call: WRITE	Prompt: *7," ??" Line Location: A1+11
Function Call: WRITE	Prompt: !," Enter the Patient's Name, or" Line Location: Q1+1
Function Call: WRITE	Prompt: !!," Enter the 'Order Number' for the document",!," In the following format: F-LOC-NUMBER",!!," Where",!?12,"F",?20,"Is the one-digit fiscal year code",!?12,"LOC",?20,"Is the three-character financial location code" Line Location: Q1+2
Function Call: WRITE	Prompt: !?12,"NUMBER",?20,"Is The 5-digit document number",!!," You May Omit The First Two Items If You Wish",!," (Current Fiscal Year And Location Code Will Be Assumed)",!," Also, leading zeros on the document are OPTIONAL." Line Location: Q1+3
Function Call: WRITE	Prompt: !!,"SOMETHING WRONG WITH THIS FACILITY'S FINANCE CODE" Line Location: Q3+7
Function Call: WRITE	Prompt: !!,"REPORT THIS TO YOUR SITE MANAGER IMMEDIATELY!!" Line Location: Q3+7
Function Call: WRITE	Prompt: ?14,$P(DOCDATA,U,14),"-",ACHSFC,"-",$P(DOCDATA,U)_"("_+Y_")" Line Location: Q3+12
Function Call: WRITE	Prompt: ?30,$S(ACHS=1:"HOSPITAL",ACHS=2:"DENTAL",ACHS=3:"OUTPATIENT",1:"??") Line Location: Q3+17
Function Call: WRITE	Prompt: ?45,$S(ACHS=0:"OPEN",ACHS=1:"SUPPLEMENTAL",ACHS=2:"PARTIAL CANCEL",ACHS=3:"PAID",ACHS=4:"CANCELED",1:"??") Line Location: Q3+20
Function Call: WRITE	Prompt: ?75,$P(DOCDATA,U) Line Location: Q3+27
Function Call: WRITE	Prompt: !!?10,"----------------------------------------------------",!?10,"TRANS",?30,"TRANS",!?11,"NUM",?19,"D A T E",?30,"TYPE",?40,"AMOUNT",!?10,"----------------------------------------------------",!! Line Location: SELTRANS+3
Function Call: WRITE	Prompt: !?10,$J(C,3) Line Location: SELTRANS+6
Function Call: WRITE	Prompt: ?17,$$FMTE^XLFDT($P(Y,U,1)),?32,$P(Y,U,2),$P(Y,U,5),?35,$J($FN($P(Y,U,4),",",2),11)," <",$$EXTSET^XBFUNC(9002080.02,1,$P(Y,U,2)),">" Line Location: DISTRANS+2
Routine Call	DIC Line Location: A3+1 NAME+5 Q2+6

FileNo	Call Tags
^AUPNPAT - [#9000001]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^ACHSF - [#9002080]	Q3+3, SELTRANS+6, DISTRANS+1
^AUTTAREA - [#9999999.21]	Q3+9
^AUTTLOC - [#9999999.06]	Q3+6, Q3+9
^DISV(	A1+5, A3+5*

Name	Line Occurrences
A1	A1+11, A3+3
A2	A1+13
A3	NAME+11
DISTRANS	SELTRANS+6
NAME	A1+7

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> ACHS	Q3+13, Q3+17, Q3+19, Q3+20
>> ACHSCFY	A2+2
ACHSDIEN	ACHSUDOD+1!, A3+4*
ACHSDUZ2	NAME+1~, NAME+2*, NAME+8
>> ACHSFC	A2+1, A2+3, Q3+6, Q3+7, Q3+9*, Q3+12
ACHSYAYA	NAME+8*!
>> AUPNLK("INAC"	NAME+3*, NAME+6!
C	A1+10, A1+13, A1+14, A2+2, A2+6, SELTRANS+1~, SELTRANS+5, SELTRANS+6, SELTRANS+7
C(	SELTRANS+6*, SELTRANS+9
D	SELTRANS~, SELTRANS+6, DISTRANS~, DISTRANS+1
D0	ACHSUDOD+1!
DA	ACHSUDOD+1!
DFN	NAME+6!, NAME+7*, NAME+9
DIC	ACHSUDOD+1!, A2+7, A3+2!, NAME+3, NAME+6!, NAME+10, Q2+2!, Q2+4, Q2+6!
DIC("S"	NAME+10*
DIC("W"	NAME+10, Q2+5
DIC(0	A2+8, NAME+3, NAME+10, Q2+4
>> DOCDATA	Q3+3*, Q3+12, Q3+13, Q3+19, Q3+23
>> DTOUT	A1+3, SELTRANS+8
>> DUOUT	A1+3, SELTRANS+8
DUZ	A1+5, A3+5
DUZ(2	A2+1, A2+7, NAME+2, NAME+8, NAME+10, Q2+4, Q3+3, Q3+6, Q3+9, SELTRANS+6 , DISTRANS+1
>> F	A1+9, A1+10, A1+13, A1+14, A2+3, A2+4
>> I	A1+8, A1+9
>> LISTCNT	Q2+3, Q3+2
>> N	A1+10, A1+12, A2+5*, A2+6
>> P	A1+10*, A1+11, A1+12, A1+13, A1+14
T	SELTRANS+1~, SELTRANS+5, SELTRANS+6, DISTRANS~, DISTRANS+1
U	A3+5, Q3+6, Q3+9, Q3+12, Q3+13, Q3+19, Q3+23, DISTRANS+2
>> X	A2+6, NAME+4, NAME+10, Q2+4
>> Y	A1+2, A1+3, A1+5, A1+7, A1+8, A1+9, A1+10, A1+12, A1+13, A1+14 , A3+3, A3+4, A3+5, NAME+4, NAME+7, Q3+3, Q3+12, SELTRANS+6, SELTRANS+7, SELTRANS+8 , SELTRANS+9, DISTRANS+1*, DISTRANS+2

Customize PDF page

Package: Contract Health Management Information System

Routine: ACHSUD

Information

Source Information

Call Graph

Call Graph Total: 5

Caller Graph

Caller Graph Total: 20

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: