Routine: ACHSCHF1

Call Graph

Call Graph Total: 15

Package	Total	Call Graph
Contract Health Management Information System	5	($$DOC,$$PARM,$$PB,ERPT,RTRN)^ACHS (H,PAT,POSUM,POSUM2,SET,SETBS)^ACHSCHF SEL^ACHSCHF2 EN^ACHSRP31 ^ACHSVAR
Kernel	5	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD $$FMTE^XLFDT $$REPEAT^XLFSTR
IHS VA Utilities	4	$$VAL^XBDIQ1 $$C^XBFUNC VIEWR^XBLM EN^XBVK
IHS Patient	1	($$DOB,$$SEX)^AUPNPAT

Package

Total

Call Graph

Contract Health Management Information System

($$DOC,$$PARM,$$PB,ERPT,RTRN)^ACHS (H,PAT,POSUM,POSUM2,SET,SETBS)^ACHSCHF SEL^ACHSCHF2 EN^ACHSRP31 ^ACHSVAR

Kernel

(,HOME)^%ZIS ^%ZISC ^%ZTLOAD $$FMTE^XLFDT $$REPEAT^XLFSTR

IHS VA Utilities

$$VAL^XBDIQ1 $$C^XBFUNC VIEWR^XBLM EN^XBVK

IHS Patient

($$DOB,$$SEX)^AUPNPAT

Package	Total	Caller Graph
Contract Health Management Information System	1	ACHS CHEF REQUEST

Package

Total

Caller Graph

Contract Health Management Information System

ACHS CHEF REQUEST

Entry Points

Name	Comments	DBIA/ICR reference
P2	;
P3	;
P1	;
END	; Ask RTRN, write IOF.
HDR	; Write header of CHEF sheet.
LN	;
K	;EP - Kill vars, do ERPT, quit.
PB	;SECTION TO PRINT BLANKET INFORMATION ;ACHS3.116 IHS.OIT.FCJ
BOT	; Print bottom of CHEF.
DEV	; Select device/ztload.
A1	;TOTAL AMENDMENTS ;ACHS3.116 11.9.2009 IHS.OIT.FCJ
START	;EP - From TaskMan.
B1	;BLANKETS AND SLO ;ACHS3.116 11.9.2009 IHS.OIT.FCJ

External References

Name	Field # of Occurrence
^%ZIS	DEV+5
HOME^%ZIS	DEV+6
^%ZISC	DEV+9
^%ZTLOAD	DEV+12
$$DOC^ACHS	START+7, START+8, START+9, START+10
$$PARM^ACHS	START+4
$$PB^ACHS	DEV+1
ERPT^ACHS	K+3
RTRN^ACHS	END+1, HDR+29
H^ACHSCHF	HDR+40
PAT^ACHSCHF	BOT+2
POSUM^ACHSCHF	P3+2
POSUM2^ACHSCHF	PB+8
SET^ACHSCHF	START+13
SETBS^ACHSCHF	B1+7
SEL^ACHSCHF2	ACHSCHF1+6
EN^ACHSRP31	HDR+37
^ACHSVAR	START+1, K+1
$$DOB^AUPNPAT	HDR+14
$$SEX^AUPNPAT	HDR+15
$$VAL^XBDIQ1	HDR+5, HDR+6, HDR+8, HDR+13
$$C^XBFUNC	HDR+1
VIEWR^XBLM	DEV+3
EN^XBVK	DEV+3, K+1
$$FMTE^XLFDT	P3+4, HDR+20
$$REPEAT^XLFSTR	START+4, BOT+22

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: *7,!,"Please queue to system printers." Line Location: DEV+9
Function Call: WRITE	Prompt: @IOF Line Location: END+2
Function Call: WRITE	Prompt: @IOF,!,"\|",ACHS("-"),"\|",!,"\|",$$C^XBFUNC("CATASTROPHIC HEALTH EMERGENCY FUND REIMBURSEMENT REQUEST",76),?78,"\|" Line Location: HDR+1
Function Call: WRITE	Prompt: !,"\|1. AREA",?30,"\|2. ORDERING FACILITY",?60,"\|3. CHEF NUMBER",?78,"\|" Line Location: HDR+4
Function Call: WRITE	Prompt: !,"\|",$$VAL^XBDIQ1(9999999.06,DUZ(2),.04) Line Location: HDR+5
Function Call: WRITE	Prompt: ?30,"\|",$$VAL^XBDIQ1(9999999.06,DUZ(2),.01) Line Location: HDR+6
Function Call: WRITE	Prompt: ?60,"\|",$$VAL^XBDIQ1(9002064.11,.DA,.01) Line Location: HDR+8
Function Call: WRITE	Prompt: ?78,"\|" Line Location: HDR+9
Function Call: WRITE	Prompt: !,"\|4. PATIENT NAME",?30,"\|5. DATE OF BIRTH",?60,"\|6. SEX M/F",?78,"\|" Line Location: HDR+12
Function Call: WRITE	Prompt: !,"\|",$$VAL^XBDIQ1(2,DFN,.01) Line Location: HDR+13
Function Call: WRITE	Prompt: ?30,"\|",$$DOB^AUPNPAT(DFN,"E") Line Location: HDR+14
Function Call: WRITE	Prompt: ?60,"\|",$$SEX^AUPNPAT(DFN),?78,"\|" Line Location: HDR+15
Function Call: WRITE	Prompt: $P(^AUTTTRI($P(^AUPNPAT(DFN,11),U,08),0),U,2) Line Location: HDR+19
Function Call: WRITE	Prompt: ?20,"\|8. EPISODE OF CARE ",$$FMTE^XLFDT(ACHSEOCB)," TO ",$$FMTE^XLFDT(ACHSEOCE),?78,"\|" Line Location: HDR+20
Function Call: WRITE	Prompt: !,"\|9. DX,ICD CM, OR , DRG#",?25,"\|10. CAT. CODE",?39,"\|11. TRAUMA CD",?54,"\|12. MEDICAL PRIORITY",?78,"\|" Line Location: HDR+23
Function Call: WRITE	Prompt: !,"\|",$E(ACHSDRG,2,23),?25,"\|",?39,"\|",?54,"\|",?64,$P(ACHSMPRI,",",2),?78,"\|" Line Location: HDR+26
Function Call: WRITE	Prompt: !,"\|12. ALTERNATE RESOURCES",?26,"\|13. CONTRACT SOURCE",?48,"\|14. EPISODE OF CARE",?78,"\|" Line Location: HDR+34
Function Call: WRITE	Prompt: !,"\|I hereby certify that the information and costs listed are associated with",?78,"\|",!,"\|this catastrophic illness/incident, and that case management has been",?78,"\|" Line Location: BOT+9
Function Call: WRITE	Prompt: !,"\|performed. 42.CFR SEC 136 HAS BEEN MET.",?78,"\|" Line Location: BOT+10
Function Call: WRITE	Prompt: !,"\|26. SRVC UNIT DIRECTOR / Date",?30,"\|27. CASE MANAGER / Date",?57,"\|28. AREA CERT / Date",?78,"\|" Line Location: BOT+12
Function Call: WRITE	Prompt: !,"\|",?30,"\|",?57,"\|",?78,"\|" Line Location: BOT+13
Function Call: WRITE	Prompt: !,"\|29. AREA CHSO APPROVAL / Date",?30,"\|30. REMARKS: ",$E(ACHSREM,1,33) Line Location: BOT+18
Function Call: WRITE	Prompt: ?78,"\|" Line Location: BOT+19
Function Call: WRITE	Prompt: !,"\|",?30,"\|",$E(ACHSREM,34,79) Line Location: BOT+20
Function Call: WRITE	Prompt: ?78,"\|" Line Location: BOT+21
Function Call: WRITE	Prompt: !,"\|",$$REPEAT^XLFSTR("-",77),?78,"\|" Line Location: BOT+22
Function Call: WRITE	Prompt: !,"\|TRAUMA CAUSE CODE: MV=MOTORVEHICLE, F=FALL, S=SUICIDE,",?78,"\|",!,"\|A=ASSAULT, B=BURN, D=DROWNING, O=OTHER, U=UNKNOWN",?78,"\|" Line Location: BOT+23
Function Call: WRITE	Prompt: !,"\|* indicates provider is a contract source",?78,"\|" Line Location: BOT+24
Function Call: WRITE	Prompt: !,"\|",ACHS("-"),"\|" Line Location: LN+1
Routine Call	%ZIS Line Location: DEV+6
Routine Call	%ZIS Line Location: DEV+5

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ACHSCHEF - [#9002064.1]	DEV+10, START+5, START+15, B1+1, B1+3, B1+4, A1+2, A1+4, A1+5, BOT+1 , BOT+5, BOT+6, BOT+7
^ACHSF - [#9002080]	START+6, START+11, START+13, B1+5, P2+4, P3+4
^AUPNPAT - [#9000001]	HDR+19
^AUTTTRI - [#9999999.03]	HDR+19
^ICD - [#80.2]	START+8
^TMP("ACHSCHF"	START+2!, P1+1, P2+1, P3+1, P3+3, P3+5, P3+6, P3+7, P3+8, P3+9 , PB+2, PB+4, PB+5, PB+6, K+2!

Name	Line Occurrences
BOT	P2+3
DEV	DEV+9, DEV+13
END	P1+2, P1+4
HDR	P1+3
K	DEV+2, DEV+3, DEV+6, DEV+15
LN	HDR+2, HDR+10, HDR+16, HDR+21, HDR+27, HDR+37, BOT+8, BOT+11, BOT+14, BOT+25
P1	P2+3
P2	P3+2
P3	P3+10
PB	P2+3
START	DEV+7

Name	Field # of Occurrence
^(	PB+4, PB+6
^(0	A1+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	DEV+1, DEV+2, DEV+3, DEV+11
>> %ZIS	DEV+4*
>> ACHS	B1+2, B1+3, A1+3, A1+4, A1+5, PB+1, PB+2, PB+4, PB+5, PB+6
>> ACHS("-"	START+4*, HDR+1, LN+1
>> ACHS("IPD"	START+3*
>> ACHS("PD"	P1+5*
>> ACHS("TAO"	P1+5*
>> ACHSAMT	A1+5*, A1+6, A1+7
>> ACHSCHEF	ACHSCHF1+8*, DEV+10, START+5, START+15, B1+1, B1+3, B1+4, A1+2, A1+4, A1+5 , HDR+7, BOT+1, BOT+5, BOT+6, BOT+7
>> ACHSDIEN	START+6, START+11, START+13, B1+5, B1+6, P1+5, P2+1, P2+3, P2+4, P3+1 , P3+3, P3+4, P3+5, P3+6, P3+7, P3+8, P3+9
>> ACHSDOCR	START+11, P2+4
>> ACHSDOS	P2+5, P3+4, PB+3*
>> ACHSDRG	START+4, START+8, HDR+26
>> ACHSDTP	PB+6*
>> ACHSEOCB	START+4, START+9, HDR+20
>> ACHSEOCE	START+4, START+10, HDR+20
>> ACHSMPRI	START+4, START+7, HDR+26
>> ACHSP3RD	P2+5, P3+9
>> ACHSPCNT	START+15*
>> ACHSPD	P2+5, P3+7, P3+8, PB+6, PB+7*
>> ACHSPO	START+4, START+5, START+6, B1+4, B1+5, B1+6, PB+4
>> ACHSPROV	PB+4*
>> ACHSQUIT	P1+4, HDR+30, BOT+3
ACHSREM	K+2!, BOT+4, BOT+7, BOT+18, BOT+20
>> ACHSST	A1+5*, A1+6
>> ACHSTAB	START+4, HDR+32, HDR+39*
>> ACHSTAO	P2+5, P3+5, P3+6, PB+5, PB+7
>> ACHSTIEN	START+12, START+13, P2+5, P3+1, P3+2, P3+3, P3+4, P3+5, P3+6, P3+7 , P3+8, P3+9
>> ACHSTODA	START+4*
>> ACHSTOTA	A1+1, A1+7
>> ACHSTOTL	BOT+1*
>> ACHSTOTR	A1+1, A1+6
>> ACHSTRAN	START+13, P3+3, P3+4, P3+5, P3+6, P3+7, P3+8, P3+9
DA	K+2!, HDR+7*, HDR+8
DA(1	HDR+7*
DFN	A1+9, P1+1, P1+2, P2+1, P3+1, P3+3, P3+5, P3+6, P3+7, P3+8 , P3+9, PB+2, PB+4, PB+5, PB+6, K+2!, HDR+13, HDR+14, HDR+15, HDR+19
DR	K+2!
>> DTOUT	DEV+2
>> DUOUT	DEV+2
DUZ(2	DEV+10, START+5, START+6, START+11, START+13, START+15, B1+1, B1+3, B1+4, B1+5 , A1+2, A1+4, A1+5, P2+4, P3+4, HDR+5, HDR+6, HDR+7, BOT+1, BOT+5 , BOT+6, BOT+7
IO	A1+10
IO("Q"	DEV+7, DEV+8!
IO("S"	DEV+9
IOF	END+2, HDR+1
IOST	DEV+9
>> POP	DEV+6
U	DEV+2, DEV+10, START+8, START+13, START+15, A1+5, P3+4, P3+5, P3+6, P3+7 , P3+8, P3+9, PB+4, PB+5, PB+6, HDR+19, BOT+1
X	K+2!, BOT+6*, BOT+7
>> Y	ACHSCHF1+7, ACHSCHF1+8
>> ZTDESC	DEV+10*
>> ZTRTN	DEV+10*
>> ZTSAVE(	DEV+11*
ZTSK	DEV+13, DEV+14!

Customize PDF page

Package: Contract Health Management Information System

Routine: ACHSCHF1

Information

Source Information

Call Graph

Call Graph Total: 15

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: