Routine: AGED4B

Package	Total	Call Graph
IHS Patient Registration	4	(,UPDATE1)^AGED READ^AGED1 ^AGED13 ^AGED4A
VA Fileman	4	DD^%DT ^DIC ^DIE $$GET1^DIQ

Entry Points

Name	Comments	DBIA/ICR reference
RESPINS	; RESPONSIBLE PARTY INSURANCE COMPANY
DRAW	; EP
DTCLOSE	; DATE CASE CLOSED
GETAW2	;
RESPSSN	; RESPONSIBLE PARTY SSN
AMSG	; DISPLAY THIS MSG IF THERE NO ENTRY IN THE AUTO/LIAB ; GLOBAL
EMPL	; PATIENT'S EMPLOYER
WMSG	; DISPLAY THIS MSG IF THERE IS NO ENTRY IN THE WORKMAN'S ; COMP GLOBAL
DTACC	; DATE OF AUTO/LIAB INJURY
DESCWI	; DESCRIPTION OF WORKMAN'S COMP INJURY
WPATATTY	; NAME OF PATIENT'S ATTORNEY FOR WORKMAN'S COMP
CLMFIL	; WAS CLAIM FILED
CLMNO	; CLAIM NUMBER
1	;
APATATTY	; NAME OF PATIENT'S ATTORNEY FOR ACCIDENT/LIAB
GETAW	; GET LAST ENTRY FROM AUTO,LIAB/WC
VAR
END
DTWC	; DATE OF WORKMAN'S COMP INJURY
POLNO	; INSURANCE POLICY NUMBER
DESCAI	; DESCRIPTION OF AUTO ACCIDENT INJURY

External References

Name	Field # of Occurrence
DD^%DT	DTACC+8, DTWC+8
^AGED	DRAW+3
UPDATE1^AGED	VAR+13
READ^AGED1	VAR+5
^AGED13	END+5
^AGED4A	END+4
^DIC	DTACC+11, DTWC+11
^DIE	DTACC+17, DESCAI+7, RESPINS+7, RESPSSN+7, POLNO+7, APATATTY+7, DTWC+17, DTCLOSE+6, DESCWI+7, CLMFIL+7 , CLMNO+7, WPATATTY+7, EMPL+7
$$GET1^DIQ	GETAW+7, GETAW+8

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,AGLINE("EQ") Line Location: VAR+2
Function Call: WRITE	Prompt: !!,"You must enter a number from 1 to ",AG("N") Line Location: VAR+9
Function Call: WRITE	Prompt: !,"-- AUTO OR LIABILITY INSURANCE " Line Location: DRAW+5
Function Call: WRITE	Prompt: "-" Line Location: DRAW+5
Function Call: WRITE	Prompt: !,"-- WORKMAN'S COMPENSATION " Line Location: GETAW+5
Function Call: WRITE	Prompt: "-" Line Location: GETAW+5
Function Call: WRITE	Prompt: !,AG,".",?(29-$L($P(^DD(DIC,DR,0),U))),$P(^DD(DIC,DR,0),U)," : " Line Location: GETAW+6
Function Call: WRITE	Prompt: $$GET1^DIQ(DIC,D0,DR) Line Location: GETAW+7
Function Call: WRITE	Prompt: $$GET1^DIQ(DIC,D0,DR) Line Location: GETAW+8
Function Call: WRITE	Prompt: !,"You must first enter the DATE OF AUTO/LIAB INJURY" Line Location: AMSG+2
Function Call: WRITE	Prompt: !,"You must first enter the DATE OF WC INJURY" Line Location: WMSG+2
Function Call: WRITE	Prompt: ! Line Location: DTACC+1
Function Call: WRITE	Prompt: ! Line Location: DESCAI+2
Function Call: WRITE	Prompt: ! Line Location: RESPINS+2
Function Call: WRITE	Prompt: ! Line Location: RESPSSN+2
Function Call: WRITE	Prompt: ! Line Location: POLNO+2
Function Call: WRITE	Prompt: ! Line Location: APATATTY+2
Function Call: WRITE	Prompt: ! Line Location: DTWC+1
Function Call: WRITE	Prompt: ! Line Location: DESCWI+2
Function Call: WRITE	Prompt: ! Line Location: CLMFIL+2
Function Call: WRITE	Prompt: ! Line Location: CLMNO+2
Function Call: WRITE	Prompt: ! Line Location: WPATATTY+2
Function Call: WRITE	Prompt: ! Line Location: EMPL+2
Routine Call	DIE Line Location: DTACC+17 DESCAI+7 RESPINS+7 RESPSSN+7 POLNO+7 APATATTY+7 DTWC+17 DTCLOSE+6 DESCWI+7 CLMFIL+7 CLMNO+7 WPATATTY+7 EMPL+7
Routine Call	DIC Line Location: DTACC+11 DTWC+11

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^AUPNAUTO - [#9000031]	Classic Fileman Calls
^AUPNWRKC - [#9000032]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNAUTO - [#9000031]	GETAW2+3, DTACC+8
^AUPNAUTO("C"	GETAW2+2, DESCAI+1, RESPINS+1, RESPSSN+1, POLNO+1, APATATTY+1
^AUPNWRKC - [#9000032]	GETAW2+7, DTWC+8
^AUPNWRKC("C"	GETAW2+6, DTCLOSE+1, DESCWI+1, CLMFIL+1, CLMNO+1, WPATATTY+1, EMPL+1
^DD(	GETAW+6
^UTILITY("DIQ1"	DRAW+4!

Label References

Name	Line Occurrences
@(	VAR+6, VAR+12
AMSG	DESCAI+1, RESPINS+1, RESPSSN+1, POLNO+1, APATATTY+1
DRAW	VAR, DESCAI+1, RESPINS+1, RESPSSN+1, POLNO+1, APATATTY+1, DTCLOSE+1, DESCWI+1, CLMFIL+1, CLMNO+1 , WPATATTY+1, EMPL+1
DTACC	DESCAI+1, RESPINS+1, RESPSSN+1, POLNO+1, APATATTY+1
DTWC	DTCLOSE+1, DESCWI+1, CLMFIL+1, CLMNO+1, WPATATTY+1, EMPL+1
END	VAR+7
GETAW	DRAW+6
GETAW2	AGED4B+4
VAR	VAR+7, VAR+9, VAR+15
WMSG	DTCLOSE+1, DESCWI+1, CLMFIL+1, CLMNO+1, WPATATTY+1, EMPL+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> A	DRAW+5, GETAW+5
>> AD0	GETAW2+1, GETAW2+4, GETAW+7, DTACC+7, DTACC+8, DTACC+11*, DTACC+13, DESCAI+5, RESPINS+5, RESPSSN+5 , POLNO+5, APATATTY+5
ADA	END!
ADFN	END!, GETAW2+1, GETAW2+3, GETAW2+4
ADT	END!
AG	END!, GETAW+1*, GETAW+5, GETAW+6, GETAW+7, GETAW+8
AG("C"	VAR+10*, VAR+12
AG("ED"	VAR+6
AG("ERR"	VAR+7
AG("N"	AGED4B+3*, VAR+4, VAR+9, VAR+12
AG("PG"	DRAW+1*
AG("SEL"	VAR+12*
>> AGAIN	AGED4B+4, AGED4B+5*
AGI	VAR+12*, VAR+14!
>> AGLINE("EQ"	VAR+2
AGSCRN	END!, GETAW+2*, GETAW+3, GETAW+4
>> AGSEENLY	VAR+1, END+3
>> AGXTERN	VAR+6, END+1
AGY	VAR+11*, VAR+12, VAR+14!
>> D0	GETAW+7, GETAW+8
DA	END!, DRAW+2, DTACC+2!, DTACC+13, DESCAI+3!, DESCAI+5, DESCAI+8!, RESPINS+3!, RESPINS+5, RESPINS+8! , RESPSSN+3!, RESPSSN+5, RESPSSN+8!, POLNO+3!, POLNO+5, POLNO+8!, APATATTY+3!, APATATTY+5, APATATTY+8!, DTWC+2! , DTWC+13, DTCLOSE+2!, DTCLOSE+4, DTCLOSE+7!, DESCWI+3!, DESCWI+5, DESCWI+8!, CLMFIL+3!, CLMFIL+5, CLMFIL+8! , CLMNO+3!, CLMNO+5, CLMNO+8!, WPATATTY+3!, WPATATTY+5, WPATATTY+8!, EMPL+3!, EMPL+5, EMPL+8!
DD	DTACC+10!, DESCAI+3!, RESPINS+3!, RESPSSN+3!, POLNO+3!, APATATTY+3!, DTWC+10!, DTCLOSE+2!, DESCWI+3!, CLMFIL+3! , CLMNO+3!, WPATATTY+3!, EMPL+3!
>> DFN	VAR+13, DRAW+2, GETAW2+2, GETAW2+4, GETAW2+6, GETAW2+8, DTACC+6, DESCAI+1, RESPINS+1, RESPSSN+1 , POLNO+1, APATATTY+1, DTWC+6, DTCLOSE+1, DESCWI+1, CLMFIL+1, CLMNO+1, WPATATTY+1, EMPL+1
DFOUT	VAR+8, END!
DIC	END!, GETAW+3, GETAW+6, GETAW+7, GETAW+8, DTACC+2!, DTACC+3, DTACC+12!, DTACC+18!, DESCAI+3! , DESCAI+8!, RESPINS+3!, RESPINS+8!, RESPSSN+3!, RESPSSN+8!, POLNO+3!, POLNO+8!, APATATTY+3!, APATATTY+8!, DTWC+2! , DTWC+3*, DTWC+12!, DTWC+18!, DTCLOSE+2!, DTCLOSE+7!, DESCWI+3!, DESCWI+8!, CLMFIL+3!, CLMFIL+8!, CLMNO+3! , CLMNO+8!, WPATATTY+3!, WPATATTY+8!, EMPL+3!, EMPL+8!
DIC("B"	DTACC+9, DTWC+9
DIC("S"	DTACC+6, DTWC+6
DIC(0	DTACC+5, DTWC+5
DIE	DTACC+2!, DTACC+12!, DTACC+14, DTACC+18!, DESCAI+3!, DESCAI+4, DESCAI+8!, RESPINS+3!, RESPINS+4, RESPINS+8! , RESPSSN+3!, RESPSSN+4, RESPSSN+8!, POLNO+3!, POLNO+4, POLNO+8!, APATATTY+3!, APATATTY+4, APATATTY+8!, DTWC+2! , DTWC+12!, DTWC+14, DTWC+18!, DTCLOSE+2!, DTCLOSE+3, DTCLOSE+7!, DESCWI+3!, DESCWI+4, DESCWI+8!, CLMFIL+3! , CLMFIL+4, CLMFIL+8!, CLMNO+3!, CLMNO+4, CLMNO+8!, WPATATTY+3!, WPATATTY+4, WPATATTY+8!, EMPL+3!, EMPL+4* , EMPL+8!
DIR	VAR+3!
DIR("A"	VAR+4*
>> DIROUT	END+2
>> DLAYGO	DTACC+4, DTWC+4
DLOUT	VAR+7, END!
DO	DTACC+10!, DESCAI+3!, RESPINS+3!, RESPSSN+3!, POLNO+3!, APATATTY+3!, DTWC+10!, DTCLOSE+2!, DESCWI+3!, CLMFIL+3! , CLMNO+3!, WPATATTY+3!, EMPL+3!
DQOUT	VAR+9, END!
DR	END!, GETAW+4, GETAW+6, GETAW+7, GETAW+8, DTACC+2!, DTACC+12!, DTACC+16, DTACC+18!, DESCAI+3! , DESCAI+6, DESCAI+8!, RESPINS+3!, RESPINS+6, RESPINS+8!, RESPSSN+3!, RESPSSN+6, RESPSSN+8!, POLNO+3!, POLNO+6 , POLNO+8!, APATATTY+3!, APATATTY+6, APATATTY+8!, DTWC+2!, DTWC+12!, DTWC+16, DTWC+18!, DTCLOSE+2!, DTCLOSE+5* , DTCLOSE+7!, DESCWI+3!, DESCWI+6, DESCWI+8!, CLMFIL+3!, CLMFIL+6, CLMFIL+8!, CLMNO+3!, CLMNO+6, CLMNO+8! , WPATATTY+3!, WPATATTY+6, WPATATTY+8!, EMPL+3!, EMPL+6*, EMPL+8!
DTOUT	VAR+8, END!
>> DUOUT	VAR+7, END+4
DUZ(2	VAR+13
REC	END!, GETAW2+1, GETAW2+2, GETAW2+3, GETAW2+4, GETAW2+5, GETAW2+6, GETAW2+7, GETAW2+8
U	GETAW2+3, GETAW2+7, GETAW+3, GETAW+4, GETAW+6, DTACC+8, DTWC+8
>> WD0	GETAW2+5, GETAW2+8, GETAW+8, DTWC+7, DTWC+8, DTWC+11*, DTWC+13, DTCLOSE+4, DESCWI+5, CLMFIL+5 , CLMNO+5, WPATATTY+5, EMPL+5
WDA	END!
WDFN	END!, GETAW2+5, GETAW2+7, GETAW2+8
WDT	END!
Y	VAR+7, VAR+9, VAR+11, END!, DTACC+8, DTACC+9, DTACC+11, DTWC+8, DTWC+9, DTWC+11

Marked Items

Name	Field # of Occurrence
$T(@1+AG	GETAW+2

Customize PDF page

Package: IHS Patient Registration

Routine: AGED4B

Information

Source Information

Call Graph

Call Graph Total: 8

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items