Routine: ACHSPAM

Package	Total	Call Graph
Contract Health Management Information System	10	($$DOC,$$LOCK,$$PARM,RTRN)^ACHS ^ACHSAV (DX,PX)^ACHSBMC (ARR,KILLS)^ACHSGRP ^ACHSPAP $$LINK^ACHSPAP1 INIT^ACHSRP2 ^ACHSUD A0A^ACHSUSC ^ACHSZCK1
DRG Grouper	1	$$ICDOP^ICDEX
VA Fileman	1	^DIE

Package

Total

Call Graph

Contract Health Management Information System

($$DOC,$$LOCK,$$PARM,RTRN)^ACHS ^ACHSAV (DX,PX)^ACHSBMC (ARR,KILLS)^ACHSGRP ^ACHSPAP $$LINK^ACHSPAP1 INIT^ACHSRP2 ^ACHSUD
A0A^ACHSUSC ^ACHSZCK1

DRG Grouper

$$ICDOP^ICDEX

VA Fileman

^DIE

Package	Total	Caller Graph
Contract Health Management Information System	8	ACHSA7 ACHSAJ1 ACHSEDITMEDICAL ACHSEDITREFMEDI ACHSEOB3 ACHSPA ACHSPAI DOCUMENT

Package

Total

Caller Graph

Contract Health Management Information System

ACHSA7 ACHSAJ1 ACHSEDITMEDICAL ACHSEDITREFMEDI ACHSEOB3 ACHSPA ACHSPAI DOCUMENT

Entry Points

Name	Comments	DBIA/ICR reference
END	; Unlock, kill vars, quit.
CHKDT	;EP - Compare discharge date (X) and admission date (ACHSXXXZ).
EDIT	;EP - From Option. Edit EOBR Medical data.
REF	;EP - From option. Enter/Edit Referral medical data.
CRECT	; Compute Referral Estimated cost.
KGRP	;
ENTER	;EP - After document paid.
SEL	;EP - Select document, display data.
CDRG	;EP - Compute and set DRG or Referral DRG & Referral Estimated cost.

External References

Name	Field # of Occurrence
$$DOC^ACHS	ENTER+3, ENTER+24
$$LOCK^ACHS	SEL+13, END+1
$$PARM^ACHS	ENTER+14, ENTER+21
RTRN^ACHS	ENTER+3, REF+4
^ACHSAV	SEL+6
DX^ACHSBMC	ENTER+25
PX^ACHSBMC	ENTER+26
ARR^ACHSGRP	CDRG+19
KILLS^ACHSGRP	CDRG+7, KGRP+1
^ACHSPAP	ENTER+21
$$LINK^ACHSPAP1	ENTER+21
INIT^ACHSRP2	SEL+5
^ACHSUD	SEL+1
A0A^ACHSUSC	SEL+9
^ACHSZCK1	ENTER+1
^DIE	ENTER+18, REF+6, CDRG+4
$$ICDOP^ICDEX	CDRG+15

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"UNABLE TO PROCESS MEDICAL DATA FOR BLANKET ORDER." Line Location: ENTER+3
Function Call: WRITE	Prompt: !,"LOCK FAILED AT SEL+9^ACHSPAM" Line Location: SEL+13
Function Call: WRITE	Prompt: *7,!,"NO ENTRY OF REFERRAL DATA TO THIS TYPE DOCUMENT ALLOWED.",! Line Location: REF+4
Function Call: WRITE	Prompt: ! Line Location: REF+7
Function Call: WRITE	Prompt: ! Line Location: CDRG+4
Function Call: WRITE	Prompt: !!,*7,"Discharge Date CANNOT be BEFORE Admission Date!!",!! Line Location: CHKDT+2
Routine Call	DIE Line Location: ENTER+18 REF+6 CDRG+4

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("TEST"	CDRG+3
^ACHSF - [#9002080]	ENTER+21, REF+4, CDRG+5, CDRG+9, CDRG+15, CDRG+20, CDRG+21, CDRG+22, CRECT+3
^AMER(2.1 - [#9009082.1]	CRECT+2
^AUTTLOC - [#9999999.06]	ENTER+1, ENTER+14
^DD("VERSION"	ENTER+7, ENTER+8
^DPT - [#2]	CDRG+6, CDRG+8
^ICD - [#80.2]	CDRG+16, CRECT+1
^ICD0 - [#80.1]	CDRG+15
^ICD9 - [#80]	CDRG+9

Name	Line Occurrences
CDRG	REF+10
CRECT	CDRG+22
END	EDIT+2, ENTER+3, ENTER+36, SEL+2, REF+2, REF+4
KGRP	CDRG+20
SEL	EDIT+1, REF+1

Name	Field # of Occurrence
^(	CDRG+9, CDRG+15
^(0	REF+4, CDRG+15

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> ACHS	CDRG+8, CDRG+9, CDRG+10, CDRG+15, CDRG+18, CRECT+1, CRECT+2*
>> ACHS("DX"	REF+8*, CDRG+4, CDRG+9, CDRG+20
>> ACHS("PX"	REF+8*, CDRG+15
ACHS3RDP	END+3!
ACHS3RDS	END+3!
ACHSADJ	SEL+7*, SEL+12!
ACHSBLKF	END+3!
ACHSCAN	END+2!
ACHSCONP	END+2!
ACHSCOPT	END+2!
ACHSDIEN	EDIT+2, ENTER+4, ENTER+21, SEL+2, SEL+13!, REF+2, REF+4, REF+5, END+1, CDRG+4 , CDRG+5, CDRG+9, CDRG+15, CDRG+20, CDRG+21, CDRG+22, CRECT+3
ACHSDOCR	ENTER+21*, END+2!
ACHSDRG	END+2!
ACHSDRGW	CRECT+1*, CRECT+2, CRECT+4!
ACHSESDA	END+2!
ACHSESDO	END+2!
ACHSFDT	END+2!
ACHSFULP	END+3!
ACHSHON	END+3!
ACHSI	CRECT+2*, CRECT+3, CRECT+4!
>> ACHSICDE	CDRG+20, CDRG+22
>> ACHSICDE(	CDRG+20, CDRG+22
>> ACHSICDE(""	CDRG+20, CDRG+22
>> ACHSICDI	CDRG+9*, CDRG+10
>> ACHSICDJ	CDRG+19*
>> ACHSICDT	CDRG+10*, CDRG+18, CDRG+19
>> ACHSICDX(	CDRG+9*, CDRG+18
ACHSIPA	END+3!
>> ACHSNOR	CDRG+15*
>> ACHSNSD	CDRG+18*
ACHSODT	END+2!
>> ACHSOR	CDRG+8, CDRG+15
ACHSORDN	END+3!
>> ACHSORG	CDRG+15*, CDRG+16
>> ACHSORG(	CDRG+16*
ACHSPCCL	END+3!
ACHSPROV	END+2!
ACHSRECT	CRECT+1, CRECT+2, CRECT+3, CRECT+4!
ACHSSCC	END+2!
>> ACHSSD	CDRG+8*
>> ACHSSD1	CDRG+8*
>> ACHSSEX	CDRG+8*
ACHSSIG	SEL+4!, END+3!
ACHSSVDT	END+3!
ACHSTDT	END+3!
>> ACHSTIEN	SEL+3*
>> ACHSTYP	ENTER+14, ENTER+17
ACHSWKLD	END+3!
ACHSX	CRECT+2*, CRECT+4!
>> ACHSXXXZ	CHKDT+1, CHKDT+2
>> AGE	CDRG+8*
D0	END+4!
D1	END+4!, CDRG+15*
>> DA	ENTER+4, REF+5, CDRG+4*
>> DA(1	ENTER+7*
>> DA(2	ENTER+8*
>> DFN	CDRG+5*, CDRG+6, CDRG+8
DIADD	END+4!
DIC	END+4!
DIE	ENTER+10, REF+5, END+4!, CDRG+4*
DLAYGO	ENTER+11*, END+4!
DR	ENTER+14, REF+5, END+4!, CDRG+4*
DR(2	ENTER+15, ENTER+16, ENTER+17*
DT	CDRG+8
>> DTOUT	EDIT+2, SEL+2, REF+2
>> DUOUT	EDIT+2, SEL+2
DUZ(2	ENTER+1, ENTER+7, ENTER+8, ENTER+10, ENTER+14, ENTER+21, REF+4, REF+5, CDRG+4, CDRG+5 , CDRG+9, CDRG+15, CDRG+20, CDRG+21, CDRG+22, CRECT+3
LAYGO	END+4!
>> SD	CDRG+18*
>> SD1	CDRG+18*
U	ENTER+1, ENTER+14, REF+4, CDRG+5, CDRG+8, CDRG+9, CDRG+15, CDRG+16, CDRG+18, CDRG+20 , CDRG+21, CDRG+22, CRECT+2, CRECT+3
X	CDRG+2, CDRG+20, CDRG+22, CRECT+1, CRECT+2, CHKDT+2!

Customize PDF page

Package: Contract Health Management Information System

Routine: ACHSPAM

Information

Source Information

Call Graph

Call Graph Total: 12