Routine: ABMDE30

Package	Total	Call Graph
Third Party Billing	4	$$DX^ABMCVAPI $$SDT^ABMDUTL PRTTXT^ABMDWRAP $$NPIUSAGE^ABMUTLF
VA Fileman	1	^DIE

Package	Total	Caller Graph
Third Party Billing	1	ABMDE0X

Entry Points

Name	Comments	DBIA/ICR reference
DD	;
W26	;EP Date of Last X-Ray
W27	;EP Referral Number
W24	;EP Admitting DX
W25	;EP Supervising Prov UPIN
W22	;EP Admission Source
W23	;EP Patient Status
W20	;EP to Disp HCFA-1500B Block 19
W21	;EP Admission Type
W28	;EP Prior Authorization Number
W29	;EP Homebound Indicator
W1SET	;CHECK FOR RELEASE OF INFORMATION & SET
W2SET	;SET ASSIGNMENT OF BENEFITS
W19	;EP to Disp PRO Number
W18	;EP to Disp Prosthesis
W17	;EP to Disp Orthodontics
W16	;EP to Disp Radiographs
W15	;EP to Disp MCD Number
W14	;EP to Disp Case Number
W13	;EP to Disp Revenue Info
W12	;EP to Disp Referring Phys
W11	;EP to Disp 1st Consult
W10	;EP to Disp Siml Symptom
W7	;EP to Disp Lab Info
W6	;EP to Disp Sp Prog
W5	;EP to Disp ER Info
W4	;EP - for Employment Info
W3	;
W2	;EP - assignment of benefits
W1	;EP - release of information
W9	;EP to Disp 1st Symp
W8	;EP to Disp Blood Info

External References

Name	Field # of Occurrence
$$DX^ABMCVAPI	W24+4
$$SDT^ABMDUTL	W1+8, W1+16, W2+9, W2+17, DD+5, W4+6, W4+7, W4+10, W4+13, W4+14 , W4+17, W4+18, W9+2, W10+2, W11+2, W17+5, W18+6, W25+14, W26+4
PRTTXT^ABMDWRAP	W20+4
$$NPIUSAGE^ABMUTLF	W12+5, W25+4
^DIE	W1+15, W1SET+4, W2+16, W2SET+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: "Release of Information..: " Line Location: W1+1
Function Call: WRITE	Prompt: $S($P($G(^ABMDCLM(DUZ(2),ABMP("CDFN"),7)),U,4)="Y":"YES",1:"NO") Line Location: W1+3
Function Call: WRITE	Prompt: "Assignment of Benefits..: " Line Location: W2+1
Function Call: WRITE	Prompt: $S($P($G(^ABMDCLM(DUZ(2),ABMP("CDFN"),7)),U,5)="Y":"YES",$P($G(^ABMDCLM(DUZ(2),ABMP("CDFN"),7)),U,5)="W":"Patient Refused",1:"NO") Line Location: W2+4
Function Call: WRITE	Prompt: "Accident Related........: " Line Location: W3+1
Function Call: WRITE	Prompt: "YES" Line Location: W3+6
Function Call: WRITE	Prompt: "Employment Related......: " Line Location: W4+1
Function Call: WRITE	Prompt: "YES" Line Location: W4+4
Function Call: WRITE	Prompt: "Emergency Room Required.: " Line Location: W5+1
Function Call: WRITE	Prompt: "NO" Line Location: W5+7
Function Call: WRITE	Prompt: "Special Program.........: " Line Location: W6+1
Function Call: WRITE	Prompt: "NO" Line Location: W6+13
Function Call: WRITE	Prompt: "Outside Lab Charges.....: " Line Location: W7+1
Function Call: WRITE	Prompt: "NO $",$FN($P(^ABMDCLM(DUZ(2),ABMP("CDFN"),8),U),",",2) Line Location: W7+5
Function Call: WRITE	Prompt: "Blood Furnished.(pints).: " Line Location: W8+1
Function Call: WRITE	Prompt: "NO" Line Location: W8+9
Function Call: WRITE	Prompt: "Date of First Symptom...: " Line Location: W9+1
Function Call: WRITE	Prompt: $$SDT^ABMDUTL($P($G(^ABMDCLM(DUZ(2),ABMP("CDFN"),8)),U,6)) Line Location: W9+2
Function Call: WRITE	Prompt: "Date of Similar Symptom.: " Line Location: W10+1
Function Call: WRITE	Prompt: $$SDT^ABMDUTL($P($G(^ABMDCLM(DUZ(2),ABMP("CDFN"),8)),U,9)) Line Location: W10+2
Function Call: WRITE	Prompt: "Date of 1st Consultation: " Line Location: W11+1
Function Call: WRITE	Prompt: $$SDT^ABMDUTL($P($G(^ABMDCLM(DUZ(2),ABMP("CDFN"),8)),U,7)) Line Location: W11+2
Function Call: WRITE	Prompt: "Referring Phys. (FL17) : " Line Location: W12+1
Function Call: WRITE	Prompt: "Revenue Code/Charge.....: " Line Location: W13+1
Function Call: WRITE	Prompt: "Case No. (External ID)..: " Line Location: W14+1
Function Call: WRITE	Prompt: "Resubmission(Control) No: " Line Location: W15+1
Function Call: WRITE	Prompt: "Radiographs Enclosed....: " Line Location: W16+1
Function Call: WRITE	Prompt: "NO" Line Location: W16+6
Function Call: WRITE	Prompt: "Orthodontic Related.....: " Line Location: W17+1
Function Call: WRITE	Prompt: "NO" Line Location: W17+7
Function Call: WRITE	Prompt: "Init Prosthesis Placed..: " Line Location: W18+1
Function Call: WRITE	Prompt: "YES" Line Location: W18+2
Function Call: WRITE	Prompt: "NO" Line Location: W18+7
Function Call: WRITE	Prompt: "PRO Approval Number.....: " Line Location: W19+1
Function Call: WRITE	Prompt: "HCFA-1500B Block 19.....: " Line Location: W20+1
Function Call: WRITE	Prompt: ABMWRIT Line Location: W20+3
Function Call: WRITE	Prompt: "Type of Admission.......: " Line Location: W21+1
Function Call: WRITE	Prompt: "Source of Admission.....: " Line Location: W22+1
Function Call: WRITE	Prompt: "Discharge Status........: " Line Location: W23+2
Function Call: WRITE	Prompt: 0 Line Location: W23+5
Function Call: WRITE	Prompt: !,?35 Line Location: W23+10
Function Call: WRITE	Prompt: "Admitting Diagnosis.....: " Line Location: W24+1
Function Call: WRITE	Prompt: $P($$DX^ABMCVAPI(ABM(24),""),U,2)," ",$P($$DX^ABMCVAPI(ABM(24),ABMP("VDT")),U,4) Line Location: W24+4
Function Call: WRITE	Prompt: "Supervising Prov.(FL19).: " Line Location: W25+1
Function Call: WRITE	Prompt: ABM(25) Line Location: W25+3
Function Call: WRITE	Prompt: !,?7,"Date Last Seen: " Line Location: W25+11
Function Call: WRITE	Prompt: $$SDT^ABMDUTL(ABMDTSN) Line Location: W25+14
Function Call: WRITE	Prompt: "Date of Last X-Ray......: " Line Location: W26+1
Function Call: WRITE	Prompt: $$SDT^ABMDUTL(ABM(26)) Line Location: W26+4
Function Call: WRITE	Prompt: "Referral Number.........: " Line Location: W27+1
Function Call: WRITE	Prompt: ABM(27) Line Location: W27+3
Function Call: WRITE	Prompt: "Prior Authorization #...: " Line Location: W28+1
Function Call: WRITE	Prompt: ABM(28) Line Location: W28+3
Function Call: WRITE	Prompt: "Homebound Indicator.....: " Line Location: W29+1
Function Call: WRITE	Prompt: ABM(29) Line Location: W29+3
Routine Call	DIE Line Location: W1+15 W1SET+4 W2+16 W2SET+4

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^ABMDCLM - [#9002274.3]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ABMDCLM - [#9002274.3]	W1+3, W1+5, W1+7, W1+8, W1+16, W1SET+1, W2+4, W2+6, W2+8, W2+9 , W2+17, W2SET+1, W3+2, DD+5, DD+6, DD+9, DD+11, W4+2, W4+5, W4+6 , W4+7, W4+8, W4+10, W4+11, W4+13, W4+14, W4+15, W4+17, W4+18, W5+2 , W5+3, W5+5, W5+6, W6+2, W6+3, W6+5, W6+8, W6+11, W6+12, W6+13 , W7+2, W7+3, W7+4, W7+5, W8+2, W8+3, W8+5, W8+6, W8+7, W8+8 , W9+2, W10+2, W11+2, W12+2, W12+3, W12+4, W12+7, W12+9, W12+11, W13+2 , W13+3, W13+4, W13+5, W14+2, W14+3, W15+2, W15+3, W16+2, W16+5, W17+2 , W17+5, W17+6, W18+2, W18+3, W18+6, W19+2, W19+3, W20+2, W21+2, W22+2 , W23+3, W24+2, W25+2, W25+6, W25+8, W25+10, W25+12, W26+2, W27+2, W28+2 , W29+2
^ABMDCODE - [#9002274.03]	W6+6, W6+7, W21+3, W21+4, W21+5, W22+3, W22+4, W22+5, W23+4, W23+5 , W23+6, W23+8, W23+9
^AUPNPAT - [#9000001]	W1+9, W1+10, W1SET+2, W1SET+3, W2+10, W2+11, W2SET+2, W2SET+3
^DD(9002274.3	DD+2
^DIC(5 - [#5]	DD+11

Label References

Name	Line Occurrences
W1SET	W1+2
W2SET	W2+2

Naked Globals

Name	Field # of Occurrence
^(8	DD+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> ABM("QU"	W4+5
>> ABM("TAB"	W20+4*
>> ABM("X"	W6+3, W6+4, W6+5, W6+6, W6+7, W6+8, W6+11, W6+12
>> ABM("Y"	W3+8*, DD+3
>> ABM("Y0"	DD+2, DD+3, DD+4
>> ABM(21	W21+2*, W21+3, W21+4, W21+5
>> ABM(22	W22+2*, W22+3, W22+4, W22+5
>> ABM(23	W23+3*, W23+4, W23+5, W23+6, W23+8, W23+9
>> ABM(24	W24+2*, W24+3, W24+4
>> ABM(25	W25+2*, W25+3
>> ABM(26	W26+2*, W26+3, W26+4
>> ABM(27	W27+2*, W27+3
>> ABM(28	W28+2*, W28+3
>> ABM(29	W29+2*, W29+3
ABM8	W3+2*, W3+3, W3+5!, W3+7, W3+8, DD+7!
>> ABMAOBDT	W2+11*, W2+12, W2+15
ABMDTSN	W25+12*, W25+13, W25+14, W25+15!
>> ABMIEN	W6+9, W6+11, W6+12
>> ABMNPIU	W12+5, W12+6, W12+8, W12+10, W25+4, W25+5, W25+7, W25+9
>> ABMP("BTYP"	W1+4, W2+5
>> ABMP("CDFN"	W1+3, W1+5, W1+7, W1+8, W1+13, W1+16, W1SET+1, W1SET+3, W2+4, W2+6 , W2+8, W2+9, W2+14, W2+17, W2SET+1, W2SET+3, W3+2, DD+5, DD+6, DD+9 , DD+11, W4+2, W4+5, W4+6, W4+7, W4+8, W4+10, W4+11, W4+13, W4+14 , W4+15, W4+17, W4+18, W5+2, W5+3, W5+5, W5+6, W6+2, W6+3, W6+5 , W6+8, W6+11, W6+12, W6+13, W7+2, W7+3, W7+4, W7+5, W8+2, W8+3 , W8+5, W8+6, W8+7, W8+8, W9+2, W10+2, W11+2, W12+2, W12+3, W12+4 , W12+7, W12+9, W12+11, W13+2, W13+3, W13+4, W13+5, W14+2, W14+3, W15+2 , W15+3, W16+2, W16+5, W17+2, W17+5, W17+6, W18+2, W18+3, W18+6, W19+2 , W19+3, W20+2, W21+2, W22+2, W23+3, W24+2, W25+2, W25+6, W25+8, W25+10 , W25+12, W26+2, W27+2, W28+2, W29+2
>> ABMP("INS"	W12+5, W25+4
>> ABMP("LDFN"	W12+5, W25+4
>> ABMP("PAGE"	W5+5
>> ABMP("PDFN"	W1+9, W1+10, W1SET+2, W1SET+3, W2+10, W2+11, W2SET+2, W2SET+3
>> ABMP("VDT"	W24+4
>> ABMROIDT	W1+10*, W1+11, W1+14
>> ABMU("LM"	W20+4*
>> ABMU("RM"	W20+4*
>> ABMU("TXT"	W20+4*
ABMWRIT	W20+2*, W20+3, W20+4, W20+5!
>> DA	W1+13, W1SET+3, W2+14, W2SET+3
>> DIE	W1+12, W1SET+3, W2+13, W2SET+3
DR	W1+14, W1SET+3, W1SET+4!, W2+15, W2SET+3, W2SET+4!
DUZ(2	W1+3, W1+5, W1+7, W1+8, W1+16, W1SET+1, W2+4, W2+6, W2+8, W2+9 , W2+17, W2SET+1, W3+2, DD+5, DD+6, DD+9, DD+11, W4+2, W4+5, W4+6 , W4+7, W4+8, W4+10, W4+11, W4+13, W4+14, W4+15, W4+17, W4+18, W5+2 , W5+3, W5+5, W5+6, W6+2, W6+3, W6+5, W6+8, W6+11, W6+12, W6+13 , W7+2, W7+3, W7+4, W7+5, W8+2, W8+3, W8+5, W8+6, W8+7, W8+8 , W9+2, W10+2, W11+2, W12+2, W12+3, W12+4, W12+7, W12+9, W12+11, W13+2 , W13+3, W13+4, W13+5, W14+2, W14+3, W15+2, W15+3, W16+2, W16+5, W17+2 , W17+5, W17+6, W18+2, W18+3, W18+6, W19+2, W19+3, W20+2, W21+2, W22+2 , W23+3, W24+2, W25+2, W25+6, W25+8, W25+10, W25+12, W26+2, W27+2, W28+2 , W29+2
I	W23+7~, W23+8*, W23+9
U	W1+3, W1+5, W1+7, W1+8, W1+16, W1SET+1, W1SET+3, W2+4, W2+6, W2+8 , W2+9, W2+17, W2SET+1, W2SET+3, W3+3, W3+7, W3+8, DD+2, DD+5, DD+6 , DD+9, DD+11, W4+2, W4+5, W4+6, W4+7, W4+8, W4+10, W4+11, W4+13 , W4+14, W4+15, W4+17, W4+18, W5+3, W5+5, W5+6, W6+5, W6+7, W6+12 , W7+3, W7+4, W7+5, W8+3, W8+5, W8+6, W8+7, W8+8, W9+2, W10+2 , W11+2, W12+3, W12+4, W12+7, W12+9, W12+11, W13+3, W13+4, W13+5, W14+2 , W14+3, W15+2, W15+3, W16+2, W16+5, W17+2, W17+5, W17+6, W18+2, W18+3 , W18+6, W19+2, W19+3, W20+2, W21+2, W21+4, W21+5, W22+2, W22+4, W22+5 , W23+3, W23+5, W23+6, W23+8, W23+9, W24+2, W24+4, W25+2, W25+6, W25+8 , W25+10, W25+12, W26+2, W27+2, W28+2, W29+2

Customize PDF page

Package: Third Party Billing

Routine: ABMDE30

Information

Source Information

Call Graph

Call Graph Total: 5

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: