Routine: ACHSCHF

Information

ACHSCHF ; IHS/ITSC/TPF/PMF - C H E F REIMBURSEMENT SEARCHES ;

Source Information

Source file <ACHSCHF.m>

Call Graph

Call Graph Total: 16

Package	Total	Call Graph
Contract Health Management Information System	6	($$DATE,$$DOC,$$EBB,$$HRN,$$LOC,$$PARM,ERPT,RTRN)^ACHS (BRPT,READ,SLV)^ACHSFU EN^ACHSRP31 ^ACHSUCN FC^ACHSUF ^ACHSVAR
Kernel	5	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD $$FMTE^XLFDT $$REPEAT^XLFSTR
IHS VA Utilities	3	$$DIR^XBDIR $$C^XBFUNC EN^XBVK
IHS Patient	1	(,KILL)^AUPNPAT
VA Fileman	1	WAIT^DICD

Caller Graph

Caller Graph Total: 2

Package	Total	Caller Graph
Contract Health Management Information System	2	ACHSCHF1 ACHSRPTCHEF

Entry Points

Name	Comments	DBIA/ICR reference
POSUM2	;EP - FOR BLANKETS AND SLO ;ACHS3.116 11.09.2009 IHS.OIT.FCJ
HDR	;
DEV	; Select device/ztload.
DATE	;
P1	;
POSUM	;EP - Add one PO.
PRINT	;
PAT	;EP - Print summary patient info.
SET	;EP - Set work values.
SETBS	;EP -Set work values for blankets and SLO ;ACHS3.116 11.9.2009 IHS.OIT.FCJ
P2	;
P3	;
B	; Input type of service.
END	; Ask RTRN, write IOF.
H	;EP
K	;EP - Kill vars, do ERPT, quit.
START	;EP - From TaskMan.
TODA	; Input total obl/disbursement amt.
DIEN	;
BDT	; Input begin date.
TRAN	; Process transaction.
EDT	; Input End date.
B3	;

External References

Name	Field # of Occurrence
^%ZIS	DEV+2
HOME^%ZIS	DEV+3
^%ZISC	DEV+6
^%ZTLOAD	DEV+9
$$DATE^ACHS	BDT+1, EDT+1
$$DOC^ACHS	DIEN+3, SET+1
$$EBB^ACHS	EDT+2
$$HRN^ACHS	HDR+4
$$LOC^ACHS	START+8
$$PARM^ACHS	ACHSCHF+5
ERPT^ACHS	K+5
RTRN^ACHS	PAT+14
BRPT^ACHSFU	START+7
READ^ACHSFU	B+5
SLV^ACHSFU	DEV+2
EN^ACHSRP31	HDR+5
^ACHSUCN	POSUM+2
FC^ACHSUF	START+2
^ACHSVAR	K+1
^AUPNPAT	HDR+2
KILL^AUPNPAT	K+5
WAIT^DICD	START+7
$$DIR^XBDIR	TODA+2
$$C^XBFUNC	START+5, START+6, HDR+3
EN^XBVK	K+1
$$FMTE^XLFDT	DEV+7, START+5, P3+4, HDR+4, POSUM2+5
$$REPEAT^XLFSTR	PAT+2, PAT+4, PAT+5, PAT+6, PAT+9, PAT+10, PAT+11, PAT+12

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !?5,"$",$FN(ACHSTODA,",",2) Line Location: TODA+4
Function Call: WRITE	Prompt: !!,"TYPE of service:" Line Location: B+1
Function Call: WRITE	Prompt: ?20,$P(ACHS(ACHS),":",1)," ",$P(ACHS(ACHS),":",2),! Line Location: B+3
Function Call: WRITE	Prompt: !,"Select TYPE of service (1 - ",ACHS-1," 'A' = 'ALL') ALL // " Line Location: B+4
Function Call: WRITE	Prompt: !!,"Enter an ""A"" to view documents for all types of service,",!,"otherwise, enter a number from 1 to ",ACHS-1,".",! Line Location: B+9
Function Call: WRITE	Prompt: *7,!,"Please queue to system printers." Line Location: DEV+6
Function Call: WRITE	Prompt: @IOF Line Location: END+1
Function Call: WRITE	Prompt: @IOF,!,ACHS(""),!,$$C^XBFUNC("CATASTROPHIC HEALTH EMERGENCY FUND REIMBURSEMENT SEARCH"),!,ACHS(""),!,ACHSTIME,!,ACHST2,!,ACHST3,!,ACHS("*") Line Location: HDR+3
Function Call: WRITE	Prompt: !!,$P($G(^DPT(DFN,0)),U),!,$S(SEX="F":"Female",SEX="M":"Male",1:"<sex missing>"),", born ",$$FMTE^XLFDT(DOB),", SSN: ",SSN,", HRN: ",$$HRN^ACHS(DFN,DUZ(2)) Line Location: HDR+4
Function Call: WRITE	Prompt: !,"\|13. PROVIDER",?18,"\|14. DOS",?31,"\|15. P.O. #",?43,"\|16. OBL",?54,"\|17. PAID",?65,"\|18. DATE PD",?78,"\|" Line Location: H+2
Function Call: WRITE	Prompt: !,"\|-----------------",?18,"\|------------",?31,"\|-----------",?43,"\|----------",?54,"\|----------",?65,"\|------------\|" Line Location: H+3
Function Call: WRITE	Prompt: !,"\|",ACHSPROV Line Location: POSUM2+1
Function Call: WRITE	Prompt: ?18,"\|",ACHSDOS,?31,"\|",ACHSPO,?43,"\|",$J($FN(ACHSTAO,",",2),10),?54,"\|",$J($FN(ACHSPD,",",2),10) Line Location: POSUM2+3
Function Call: WRITE	Prompt: ?65,"\|",$$FMTE^XLFDT(ACHSDTP),?78,"\|" Line Location: POSUM2+5
Function Call: WRITE	Prompt: !,"\|",$$REPEAT^XLFSTR("-",42),"\|==========\|==========\|------------",?78,"\|",!,"\|19. SUB-TOTALS",$$REPEAT^XLFSTR(".",28),?43,"\|",$J($FN(ACHS("TAO"),",",2),10),?54,"\|",$J($FN(ACHS("PD"),",",2),10),?65,"\|",?78,"\|" Line Location: PAT+2
Function Call: WRITE	Prompt: !,"\|------------------------------------------",?43,"\|----------",?54,"\|----------",?65,"\|------------\|" Line Location: PAT+3
Function Call: WRITE	Prompt: !,"\|20. TOTAL IHS COSTS",$$REPEAT^XLFSTR(".",23),?43,"\|",?54,"\|",$J($FN(ACHS("IPD"),",",2),10),?65,"\|",?78,"\|" Line Location: PAT+4
Function Call: WRITE	Prompt: !,"\|21. LESS THRESHOLD",$$REPEAT^XLFSTR(".",24),?43,"\|",?54,"\|",$J($FN(ACHSTODA,",",2),10),?65,"\|",?78,"\|" Line Location: PAT+5
Function Call: WRITE	Prompt: !,"\|22. NET ELIGIBLE FROM FUND",$$REPEAT^XLFSTR(".",16),?43,"\|",?54,"\|",$J($FN(ACHS("IPD")-ACHSTODA,",",2),10),?65,"\|",?78,"\|" Line Location: PAT+6
Function Call: WRITE	Prompt: !,"\|22.a PERCENT OF LINE 22 TO BE REIMBURSED",$$REPEAT^XLFSTR(".",2),?43,"\|",?54,"\|",$J($FN(ACHSPCNT*((ACHS("IPD")-ACHSTODA)),",",2),10),?65,"\|",?78,"\|" Line Location: PAT+9
Function Call: WRITE	Prompt: !,"\|23. LESS ADVANCES TO DATE",$$REPEAT^XLFSTR(".",17),"\|",?54,"\|",$J($FN(($G(ACHSTOTL)+$G(ACHSTOTR)),",",2),10),?65,"\|",?78,"\|" Line Location: PAT+10
Function Call: WRITE	Prompt: !,"\|24. LESS AMENDMENTS PENDING PAYMENT",$$REPEAT^XLFSTR(".",7),"\|",?54,"\|",$J($FN($G(ACHSTOTA),",",2),10),?65,"\|",?78,"\|" Line Location: PAT+11
Function Call: WRITE	Prompt: !,"\|25. TOTAL REQUESTED AMOUNT",$$REPEAT^XLFSTR(".",16),?20,"\|",?54,"\|",$J($FN(ACHSPCNT*(ACHS("IPD")-ACHSTODA)-$G(ACHSTOTL)-$G(ACHSTOTA)-$G(ACHSTOTR),",",2),10),?65,"\|",?78,"\|" Line Location: PAT+12
Routine Call	%ZIS Line Location: DEV+3
Routine Call	%ZIS Line Location: DEV+2

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ACHSCHEF - [#9002064.1]	SETBS+1, SETBS+8, SETBS+10
^ACHSF - [#9002080]	DATE+1, TRAN+1, DIEN+1, DIEN+4, SET+2, SET+3, SET+5, SET+6, SET+7, SETBS+3 , P2+4, P3+4, POSUM+6
^AUTTVNDR - [#9999999.11]	SETBS+6, POSUM+3
^DD(9002080.01	B+2, START+6
^DPT - [#2]	HDR+4
^TMP("ACHSCHF"	START+1!, SET+3, SET+4, SET+5, SET+6, SET+7, SETBS+2, SETBS+8, SETBS+9, SETBS+10* , P1+1, P1+3, P2+1, P3+1, P3+3, P3+5, P3+6, P3+7, P3+8, P3+9 , K+4!

Label References

Name	Line Occurrences
B	B+9
B3	B+8
BDT	EDT+2, B+8
DATE	TRAN+2
DEV	DEV+6, DEV+10
DIEN	DIEN+3, DIEN+5
END	P1+2, P2+3
HDR	P1+4
K	TODA+3, BDT+2, EDT+2, DEV+3, DEV+12, START+3
P1	P1+3, P2+3
P2	P3+2
P3	P3+10
PAT	P2+3
POSUM	P3+2
PRINT	DATE+2
SET	DIEN+4
START	DEV+4
TODA	BDT+2
TRAN	START+11, DIEN+2

Name	Field # of Occurrence
^(0	SET+3, SET+4, SETBS+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	DEV+8*
>> %ZIS	DEV+1*
ACHS	B+3*, B+4, B+9, SETBS+8, SETBS+9, SETBS+10, K+3!
ACHS(	B+3*
ACHS("*"	HDR+3
ACHS("IPD"	P1+6, K+3!, POSUM2+8, PAT+4, PAT+6, PAT+9, PAT+12
ACHS("PD"	P1+6, POSUM2+6, PAT+2
ACHS("TAO"	P1+6, POSUM2+6, PAT+2
ACHS("_"	START+4*
ACHSACO	POSUM+1*, POSUM2+9!
>> ACHSBDT	BDT+1, BDT+2, EDT+2, DEV+7, START+5, DATE+1, DATE+2, TRAN+1, DIEN+1, DIEN+4
>> ACHSCHEF	SETBS+1, SETBS+8, SETBS+10
>> ACHSDIEN	TRAN+3, DIEN+1, DIEN+2, DIEN+4, SET+2, SET+3, SET+5, SET+6, SET+7, SETBS+3 , P1+6, P2+1, P2+3, P2+4, P3+1, P3+3, P3+4, P3+5, P3+6, P3+7 , P3+8, P3+9, POSUM+6
>> ACHSDOCR	P2+4*, POSUM+1, POSUM+5
>> ACHSDOS	P2+5, P3+4, POSUM2+3
>> ACHSDTP	POSUM+6*, POSUM2+5
ACHSEDOS	POSUM+1*, POSUM2+9!
>> ACHSEDT	EDT+1*, EDT+2, DEV+7, START+5, DATE+2
>> ACHSERR	START+3
>> ACHSFC	POSUM+5
>> ACHSIO	ACHSCHF+5*
>> ACHSLOC	START+8*
>> ACHSP3RD	P2+5, P3+9
ACHSPCNT	K+3!, PAT+8*, PAT+9, PAT+12
>> ACHSPD	P2+5, P3+7, P3+8*, POSUM2+3, POSUM2+6, POSUM2+8
>> ACHSPO	POSUM+5*, POSUM2+3
>> ACHSPPO	START+9
ACHSPROV	SETBS+3, SETBS+6, SETBS+9, POSUM+1, POSUM+3, POSUM+4*, POSUM2+1, POSUM2+9!
>> ACHSQUIT	P2+3
>> ACHSRPT	B3+1*, DEV+7, START+6, DIEN+3
>> ACHSSTS	START+6*
>> ACHST2	START+5*, HDR+3
>> ACHST3	START+6*, HDR+3
>> ACHSTAB	START+4*
>> ACHSTAO	P2+5, P3+5, P3+6*, POSUM2+3, POSUM2+6, POSUM2+8
>> ACHSTIEN	DIEN+4, SET+2, SET+3, SET+5, SET+6, SET+7, P2+5, P3+1*, P3+2, P3+3 , P3+4, P3+5, P3+6, P3+7, P3+8, P3+9
>> ACHSTIME	HDR+3
>> ACHSTODA	ACHSCHF+5, TODA+2, TODA+4, START+6, P1+3, PAT+5, PAT+6, PAT+9, PAT+12
>> ACHSTOS	B+2, B+3, START+6
>> ACHSTOTA	PAT+11, PAT+12
>> ACHSTOTL	PAT+10, PAT+12
>> ACHSTOTR	PAT+10, PAT+12
>> ACHSTRA0	SET+2*
>> ACHSTRAN	START+10, DATE+3, TRAN+1, TRAN+2, DIEN+1, DIEN+4, SET+3, SET+5, SET+6, P3+3 , P3+4, P3+5, P3+6, P3+7, P3+8, P3+9
C	POSUM+4, POSUM2+9!
DA	K+3!
DFN	SET+1, SET+3, SET+4, SET+5, SET+6, SET+7, SETBS+1, SETBS+2, SETBS+8, SETBS+9 , SETBS+10, PRINT+1, P1+1, P1+2, P1+3, P2+1, P3+1, P3+3, P3+5, P3+6 , P3+7, P3+8, P3+9, K+3!, HDR+1, HDR+4
>> DOB	HDR+4
DR	K+3!
DT	POSUM+1
>> DTOUT	TODA+3, BDT+2, EDT+2, B+6
>> DUOUT	TODA+3, BDT+2, EDT+2, B+8
DUZ(2	DATE+1, TRAN+1, DIEN+1, DIEN+4, SET+2, SET+3, SET+5, SET+6, SET+7, SETBS+1 , SETBS+3, SETBS+8, SETBS+10, P2+4, P3+4, HDR+4, POSUM+6
IO	ACHSCHF+5
IO("Q"	DEV+4, DEV+5!
IO("S"	DEV+2, DEV+6, START+9
IOF	END+1, HDR+3
IOST	DEV+6
>> POP	DEV+3
>> SEX	HDR+4
>> SSN	HDR+4
U	B+2, START+6, DIEN+4, SET+3, SET+5, SET+6, SET+7, SETBS+1, SETBS+3, SETBS+6 , SETBS+9, SETBS+10, P1+3, P3+4, P3+5, P3+6, P3+7, P3+8, P3+9, HDR+4 , POSUM+1, POSUM+3, POSUM+5, POSUM+6
>> X2	START+6*
>> X3	START+6*
>> Y	TODA+1, TODA+2, B+7, B+8, B+9, B3+1, HDR+1*
>> Y(1	TODA+1*
>> ZTDESC	DEV+7*
>> ZTQUEUED	START+7
>> ZTRTN	DEV+7*
>> ZTSAVE(	DEV+8*
ZTSK	DEV+10, DEV+11!

Customize PDF page

Package: Contract Health Management Information System

Routine: ACHSCHF

Information

Source Information

Call Graph

Call Graph Total: 16

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: