Routine: ACHSA7

Call Graph Total: 12

Package	Total	Call Graph
Contract Health Management Information System	8	($$HRN,$$LOCK,$$ZEROTH,RTRN)^ACHS (A1A,END)^ACHSA ACT^ACHSACT ^ACHSAV (AUTH,STAT)^ACHSBMC CDRG^ACHSPAM (CKB,SBAENT,SBQ)^ACHSUUP LAD^ACHSVPS
VA Fileman	2	FILE^DICN ^DIR
IHS VA Utilities	1	$$DIR^XBDIR
Kernel	1	$$NOW^XLFDT

Package

Total

Call Graph

Contract Health Management Information System

($$HRN,$$LOCK,$$ZEROTH,RTRN)^ACHS (A1A,END)^ACHSA ACT^ACHSACT ^ACHSAV (AUTH,STAT)^ACHSBMC CDRG^ACHSPAM (CKB,SBAENT,SBQ)^ACHSUUP LAD^ACHSVPS

VA Fileman

FILE^DICN ^DIR

IHS VA Utilities

$$DIR^XBDIR

Kernel

$$NOW^XLFDT

Package	Total	Caller Graph
Contract Health Management Information System	1	ACHSA6

Package

Total

Caller Graph

Contract Health Management Information System

ACHSA6

Name	Comments	DBIA/ICR reference
25	; Fields 25, 26, 26.01
CNTRCT	;
SB1	;
END	;
SBKILL	;
ERRCHK	;
SBD1	;
50	;
ERREND	;
A1	;
ERRCHK1	;
75	;
DISCAT	;EP - From call to DIR
85	;
86	;
87	;
84	;
EIN

External References

Name	Field # of Occurrence
$$HRN^ACHS	ERRCHK+3, ERRCHK+5
$$LOCK^ACHS	SB1+16, EIN+11, EIN+12, ERRCHK1+1, ERRCHK1+10
$$ZEROTH^ACHS	SB1+20, 84+2, 86+2, 87+5
RTRN^ACHS	ERRCHK+6, ERREND+2
A1A^ACHSA	A1+12, A1+17
END^ACHSA	END+2
ACT^ACHSACT	A1+19
^ACHSAV	A1+7
AUTH^ACHSBMC	A1+23
STAT^ACHSBMC	A1+23
CDRG^ACHSPAM	87+2
CKB^ACHSUUP	EIN+3
SBAENT^ACHSUUP	SB1+2, SBD1+11
SBQ^ACHSUUP	SBD1+16
LAD^ACHSVPS	A1+25
FILE^DICN	84+3, 86+3
^DIR	CNTRCT+5
$$DIR^XBDIR	A1+8, SB1+16, EIN+11, EIN+12, DISCAT+3
$$NOW^XLFDT	A1+19

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: *7,!!," Document # ",ACHSORDN," Recorded",!! Line Location: A1+18
Function Call: WRITE	Prompt: !!,*7,"CHS FACILITY FILE IN USE BY ANOTHER PROCESS.",$$DIR^XBDIR("E") Line Location: SB1+16
Function Call: WRITE	Prompt: $$DIR^XBDIR("E") Line Location: EIN+11
Function Call: WRITE	Prompt: $$DIR^XBDIR("E") Line Location: EIN+12
Function Call: WRITE	Prompt: !!,7,7,"HEALTH RECORD NUMBER MISMATCH. NOTIFY PROGRAMMER IMMEDIATELY." Line Location: ERRCHK+4
Function Call: WRITE	Prompt: !,"ACHSHRN=",ACHSHRN," PATIENT RECORD #=",$$HRN^ACHS(DFN,ACHSPATF)," PATIENT FACILITY=",$P($G(^DIC(4,ACHSPATF,0)),U),!!! Line Location: ERRCHK+5
Function Call: WRITE	Prompt: 7,7,!!?25,"ABORTED!!",!?3,"Document number ALREADY EXISTS. Cannot issue DUPLICATE DOCUMENT NUMBERS",!?20,"Please notify your site manager!" Line Location: ERRCHK1+13
Function Call: WRITE	Prompt: ! Line Location: ERREND+1
Function Call: WRITE	Prompt: !,"Contract Action Type Required!",!,"Enter ?? for help.",! Line Location: CNTRCT+6
Function Call: WRITE	Prompt: ! Line Location: DISCAT+1
Routine Call	DIR Line Location: CNTRCT+5

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ACHS(9 - [#9002069]	SBKILL+6, SBKILL+7, ERRCHK1+2, ERRCHK1+9
^ACHSAF(	SBKILL+5*
^ACHSF - [#9002080]	A1+5, SB1+20, SB1+21, EIN+1, EIN+7, EIN+9, EIN+13, EIN+14, EIN+15, 25+3* , 50+1, 50+3, 75+1, 75+2, 75+3, 75+4, 84+2, 85+1, 86+2, 87+1 , 87+5, 87+6, SBD1+2, SBD1+3, SBD1+4, SBD1+5, SBD1+6, SBD1+7, SBD1+8, SBKILL+1! , SBKILL+2, SBKILL+3, SBKILL+11!, SBKILL+13!, SBKILL+14!, SBKILL+15!, SBKILL+16!, ERRCHK1+8
^DD(9002068.1	DISCAT+3
^DIC(4 - [#4]	ERRCHK+5

Name	Line Occurrences
CNTRCT	A1+5, CNTRCT+6
EIN	EIN+1
END	A1+9, A1+14, SB1+5
ERRCHK	A1+13
ERRCHK1	ERRCHK+2
ERREND	ERRCHK1+1
SB1	A1+15
SBD1	SBD1+2
SBKILL	SBD1+14

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	DISCAT+2, DISCAT+3
>> ACHS	84+3, 86+3
>> ACHS("CHK"	SB1+1, SB1+4
>> ACHS("DX"	87+2*
>> ACHS("PX"	87+2*
>> ACHSACFY	SB1+11, EIN+14, SBKILL+6, SBKILL+7, ERRCHK1+2, ERRCHK1+6, ERRCHK1+7, ERRCHK1+9
>> ACHSACN	EIN+14, EIN+15, ERRCHK1+2, ERRCHK1+3, ERRCHK1+4, ERRCHK1+5*, ERRCHK1+6, ERRCHK1+7
>> ACHSACN("NO"	ERRCHK1+4*, ERRCHK1+9
>> ACHSACN1	ERRCHK1+7*, ERRCHK1+8
>> ACHSAFLG	A1+12, A1+17
>> ACHSAGRP	SB1+11
>> ACHSBLKF	SB1+7, 75+1, 87+2, SBD1+8
>> ACHSBLT	SBD1+8
>> ACHSCAN	SB1+7
>> ACHSCAT	50+3, CNTRCT+7*
>> ACHSCNC	A1+17, SB1+5, SB1+16, EIN+5, EIN+11, EIN+12, SBD1+14
>> ACHSCONP	SB1+7
>> ACHSCOPT	SB1+7
>> ACHSCTYP	A1+4, CNTRCT+7
>> ACHSDCR	SB1+11
>> ACHSDES	25+3
>> ACHSDEST	SB1+11
ACHSDIEN	A1+1!, A1+19, SB1+21, EIN, EIN+1, EIN+7, EIN+13, EIN+14, EIN+15, 25+3 , 50+1, 50+3, 75+1, 75+2, 75+3, 75+4, 84+2, 84+3, 85+1, 86+2 , 86+3, 87+1, 87+5, 87+6, SBD1+2, SBD1+3, SBD1+4, SBD1+5, SBD1+6, SBD1+7 , SBD1+8, SBKILL+1, SBKILL+11, SBKILL+13, SBKILL+14, SBKILL+15
>> ACHSDOCR	SB1+7, SB1+11, EIN+13
>> ACHSDRG	SB1+11
>> ACHSEDOS	75+2, 75+4, SBKILL+11
>> ACHSESDA	25+3
>> ACHSESDO	SB1+13
>> ACHSFC	ERRCHK1+6
>> ACHSFDT	75+1
>> ACHSHON	50+1
>> ACHSHRN	SB1+11, ERRCHK+2, ERRCHK+3, ERRCHK+5
>> ACHSMPP	25+3
>> ACHSOBJC	SB1+7
>> ACHSODT	A1+2*
>> ACHSORDN	A1+2, A1+18, SBKILL+16, ERRCHK1+6
ACHSOUT	A1+14, ERRCHK+1!, ERREND+4
>> ACHSPAN	25+3
>> ACHSPATF	SB1+11, ERRCHK+3, ERRCHK+5
>> ACHSPROV	A1+25, SB1+7, SBD1+7, SBKILL+15
>> ACHSRALR	75+1
>> ACHSRCOI	75+1
>> ACHSRDX	84+1
>> ACHSRDX(	84+3
>> ACHSRDXN	85+1
ACHSREF	A1+23, END+1!
ACHSREFT	END+1!, 75+3
>> ACHSRMPC	75+1
>> ACHSRPHY	75+1
>> ACHSRPX	86+1
>> ACHSRPX(	86+3
>> ACHSRPXN	87+1
>> ACHSSCC	SB1+7
>> ACHSSLOC	SB1+7, 75+1, 87+2, SBD1+8
>> ACHSTDT	75+1
>> ACHSTIEN	SBD1+9*, SBKILL+13, SBKILL+14, SBKILL+15
>> ACHSTRAN	SB1+13*, SBD1+3
>> ACHSTYP	SB1+7, 50+1, 75+1
>> DA(1	84+3, 86+3
>> DA(2	84+3, 86+3
DD	84+3!, 86+3!
>> DFN	SB1+11, SB1+13, SBD1+5, ERRCHK+2, ERRCHK+3, ERRCHK+5
>> DIC	84+3, 86+3
>> DIC(0	84+3, 86+3
DIR	CNTRCT+1!
DIR("??"	CNTRCT+3*
DIR("A"	CNTRCT+4*
DIR(0	CNTRCT+2*
DO	84+3!, 86+3!
DT	A1+2, A1+25, SB1+7, SB1+13, SBD1+6, SBKILL+14
>> DTOUT	A1+9
>> DUOUT	CNTRCT+6
DUZ	SB1+11, SBD1+4
DUZ(2	A1+5, SB1+20, SB1+21, EIN+1, EIN+7, EIN+9, EIN+13, EIN+14, EIN+15, 25+3 , 50+1, 50+3, 75+1, 75+2, 75+3, 75+4, 84+2, 84+3, 85+1, 86+2 , 86+3, 87+1, 87+5, 87+6, SBD1+2, SBD1+3, SBD1+4, SBD1+5, SBD1+6, SBD1+7 , SBD1+8, SBKILL+1, SBKILL+2, SBKILL+3, SBKILL+5, SBKILL+6, SBKILL+7, SBKILL+11, SBKILL+13, SBKILL+14 , SBKILL+15, SBKILL+16, ERRCHK1+2, ERRCHK1+8, ERRCHK1+9
>> M	SBD1+1*, SBD1+2, SBD1+3, SBD1+4, SBD1+5, SBD1+6, SBD1+7, SBD1+9
N	END+1!
U	A1+5, SB1+7, SB1+11, SB1+13, SB1+21, EIN+7, EIN+9, EIN+15, 25+3, 50+3 , 75+1, 75+2, 75+3, SBD1+1, SBD1+4, SBKILL+2, SBKILL+3, SBKILL+5, ERRCHK+5, CNTRCT+7
>> X	84+3, 86+3, SBKILL+2*, SBKILL+3, SBKILL+5
>> Y	A1+8, A1+12, 87+6, SBD1+1*, SBD1+3, CNTRCT+6, CNTRCT+7

Customize PDF page

Package: Contract Health Management Information System

Routine: ACHSA7

Information

Source Information