Routine: ABMDBADD

Package	Total	Call Graph
VA Fileman	8	DD^%DT (,NOW)^%DTC ^DIC FILE^DICN ^DIE ^DIK $$GET1^DIQ ^DIR
Third Party Billing	4	ELG^ABMDLCK $$NXNM^ABMDUTL ($$FINDOPEN,ADDBENTR)^ABMUCUTL $$EN^ABMVDF

Entry Points

Name	Comments	DBIA/ICR reference
ADMDTS
EDIT	;
DOC	; ; LSL - 12/30/97 - Modified for readability. Changed ABM array to ABMD array as ; ABMAPASS and A/R routines stomp all over ABM array. Also, add the storage of ; Approved Date and Time for A/R usage. Will be date and time bill is manually created. ; LSL - 1/23/98 - Added the storage of the 13 multiple to the bill file. Many other programs ; in 3PB and A/R assume it exists. ; LSL - 2/2/98 - Allow duplicate bills if user ok. Also allow multiple clinics on same visit date. ; LSL - 3/25/98 - Lost value of %, so set approval date variable sooner ; ; IHS/ASDS/SDH - 03/09/01 - V2.4 Patch 9 - NOIS LTA-0600-160017 - Modified to check if service ; thru date is less than service from date
CHK	;
INS	;
START	;EP
ADD	;
XIT	;
ASK	; ask what visit location if Parent/Satellite is set up
KILL	;
SVDTS	;
E2	;

External References

Name	Field # of Occurrence
DD^%DT	INS+15
^%DTC	ADMDTS+19
NOW^%DTC	INS+39
ELG^ABMDLCK	INS+13
$$NXNM^ABMDUTL	ADD+5
$$FINDOPEN^ABMUCUTL	START+18
ADDBENTR^ABMUCUTL	INS+78
$$EN^ABMVDF	START+2
^DIC	ASK+8
FILE^DICN	ADD+10, INS+67
^DIE	E2+10, SVDTS+3, SVDTS+12, SVDTS+14, SVDTS+24, ADMDTS+2, ADMDTS+10, ADMDTS+25, INS+3, INS+7 , INS+75
^DIK	KILL+3
$$GET1^DIQ	INS+37
^DIR	START+9, START+15, START+21, SVDTS+10, SVDTS+21, ADMDTS+8, ADMDTS+16, CHK+28, INS+32, XIT+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?5,$$EN^ABMVDF("RVN"),"NOTE:",$$EN^ABMVDF("RVF") Line Location: START+2
Function Call: WRITE	Prompt: " This program should only be utilized when an entry in the" Line Location: START+3
Function Call: WRITE	Prompt: !?11,"Accounts Receivable File is needed to reflect a bill that" Line Location: START+4
Function Call: WRITE	Prompt: !?11,"was manually prepared and submitted.",! Line Location: START+5
Function Call: WRITE	Prompt: *7,!!,"Bill not created, Bill File in use by another user, try Later!" Line Location: EDIT+2
Function Call: WRITE	Prompt: ! Line Location: E2+2
Function Call: WRITE	Prompt: !,"Service Thru Date cannot be less than Service From Date....",! Line Location: SVDTS+22
Function Call: WRITE	Prompt: ?50,"(DUPLICATE)" Line Location: CHK+23
Function Call: WRITE	Prompt: ! Line Location: INS+8
Function Call: WRITE	Prompt: !,"Bill # ",$P(^ABMDBILL(DUZ(2),DA,0),"^",1)," Filed.",! Line Location: INS+77
Function Call: WRITE	Prompt: !!,*7,"<Data Incomplete: Entry Deleted>" Line Location: KILL+1
Routine Call	DIE Line Location: E2+10 SVDTS+3 SVDTS+12 SVDTS+14 SVDTS+24 ADMDTS+2 ADMDTS+10 ADMDTS+25 INS+3 INS+7 INS+75
Routine Call	DIC Line Location: ASK+8
Routine Call	DIR Line Location: START+9 START+15 START+21 SVDTS+10 SVDTS+21 ADMDTS+8 ADMDTS+16 CHK+28 INS+32 XIT+4

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^AUTNINS - [#9999999.18]	GET1^DIQ
^AUTTINTY - [#9999999.181]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ABMDBILL(	EDIT+1, SVDTS+1, SVDTS+11, ADMDTS, ADMDTS+17, ADMDTS+18, ADMDTS+21, CHK+1, CHK+8, CHK+10 , CHK+12!, CHK+13, INS+5, INS+9, INS+77, XIT+1
^ABMDPARM(	START+13, START+17, ASK+1, INS+10
^AUPNPAT - [#9000001]	INS+25
^AUTNINS - [#9999999.18]	INS+10, INS+11, INS+27
^DD(9002274.4	INS+47
^DIC(40.7 - [#40.7]	CHK+16
^DPT - [#2]	INS+25

Label References

Name	Line Occurrences
ADMDTS	ADMDTS+4, ADMDTS+12
E2	INS+34
KILL	E2+11, SVDTS+1, ADMDTS, CHK+18, INS+4, INS+10
SVDTS	SVDTS+6, SVDTS+17, SVDTS+22
XIT	ADD+11, EDIT+2, KILL+4

Naked Globals

Name	Field # of Occurrence
^(6	ADMDTS+22

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	INS+40
>> ABMAMT	INS+5*, INS+6
ABMAPOK	INS+74*, XIT+5!
>> ABMARPS	ASK+1*, ASK+2, ADD+1, INS+76, XIT+6
ABMD	START+1!, XIT+5!
ABMD("APDT"	INS+40*, INS+70
ABMD("B"	CHK+20, CHK+21, CHK+22, CHK+23
ABMD("C"	CHK+7*, CHK+17
ABMD("D"	CHK+8*, CHK+10, CHK+12, INS+13, INS+14
ABMD("DAYS"	ADMDTS+20*, ADMDTS+23
ABMD("DFN"	ADD+5, ADD+9, ADD+14, EDIT+1, E2+4, ADMDTS+21, CHK+1, CHK+8, CHK+11, INS+5 , INS+9, INS+43, INS+68, XIT+1
ABMD("DUP"	CHK+2, CHK+15, CHK+18, CHK+30*
ABMD("ED"	INS+16*, INS+28
ABMD("ELG"	INS+21*, INS+24, INS+51, INS+52, INS+60, INS+61, INS+63, INS+66
ABMD("INS"	INS+9*, INS+10, INS+11, INS+19, INS+20, INS+21, INS+22, INS+27, INS+37, INS+45
ABMD("IT"	INS+37, INS+38, INS+71
ABMD("ITYP"	INS+20*, INS+52, INS+60, INS+61, INS+62, INS+66
ABMD("L"	CHK+5*, CHK+14
ABMD("MCD"	INS+22*, INS+64
ABMD("P"	CHK+4*, CHK+14, INS+13, INS+25
ABMD("PRI"	INS+17, INS+18, INS+19, INS+20, INS+21, INS+22
ABMD("R"	CHK+3, CHK+10, CHK+11, CHK+12, CHK+13
ABMD("T"	CHK+6*, CHK+14
ABMD("Z"	CHK+16, CHK+17, CHK+21, CHK+22, CHK+23
ABMD(0	CHK+1, CHK+4, CHK+5, CHK+6, CHK+7, CHK+13, CHK+14, CHK+16, CHK+17
>> ABMDUZ2	ADD+2*, XIT+6
ABML	INS+13, INS+23!
ABML(	INS+18, INS+19, INS+20, INS+21, INS+22
>> ABMP("BDFN"	INS+78
>> ABMSVFRM	SVDTS+5*, SVDTS+22
>> ABMSVTRU	SVDTS+16*, SVDTS+22
>> ABMUDUZ2	ADD+3*, ADD+4, INS+76
>> ABMUOPNS	START+17, START+18*, START+19
DA	E2+3!, E2+4, SVDTS+1, SVDTS+11, ADMDTS, ADMDTS+17, ADMDTS+18, INS+41, INS+68*, INS+77
DA(1	INS+43*, INS+44
DD	ADD+10!, INS+67!
DIC	ASK+3!, ASK+4, ADD+7, E2+3!, INS+44*
DIC("A"	ASK+6*
DIC("B"	ASK+7*
DIC("DR"	INS+48, INS+50, INS+52, INS+60, INS+61, INS+63, INS+64, INS+66
DIC("P"	INS+47*
DIC(0	ASK+5, ADD+8, INS+46*
DIE	E2+3!, E2+5*, KILL+2
>> DIK	KILL+2*
DINUM	ADD+6!
DIR	START+10!, START+15!, START+21!, CHK+29!, INS+33!, XIT+2!
DIR("A"	START+7, START+15, START+21, SVDTS+8, SVDTS+19, ADMDTS+6, ADMDTS+14, CHK+25, INS+30*
DIR("B"	START+8, SVDTS+9, SVDTS+20, ADMDTS+7, ADMDTS+15, CHK+26, INS+31*
DIR(0	START+6, START+15, START+21, SVDTS+7, SVDTS+18, ADMDTS+5, ADMDTS+13, CHK+27, INS+29, XIT+3
DO	ADD+10!, INS+67!
DR	E2+3!, E2+6, E2+7, E2+8, E2+9, SVDTS+2, SVDTS+11, SVDTS+13, SVDTS+23, ADMDTS+1* , ADMDTS+9, ADMDTS+21, ADMDTS+22, ADMDTS+23, ADMDTS+24, INS+1, INS+2, INS+6, INS+69, INS+70 , INS+71, INS+72, INS+73*
DT	SVDTS+6, SVDTS+17, ADMDTS+4, ADMDTS+12
>> DTOUT	ASK+9
>> DUOUT	ASK+9
DUZ	START+18, INS+69
DUZ(2	START+13, START+17, ASK+1, ASK+7, ADD+2, ADD+4, EDIT+1, E2+6, SVDTS+1, SVDTS+11 , ADMDTS, ADMDTS+17, ADMDTS+18, ADMDTS+21, CHK+1, CHK+8, CHK+10, CHK+12, CHK+13, INS+5 , INS+9, INS+10, INS+76, INS+77, XIT+1, XIT+6*
U	START+13, START+17, ASK+1, SVDTS+1, SVDTS+11, ADMDTS, ADMDTS+17, ADMDTS+18, ADMDTS+21, ADMDTS+22 , CHK+4, CHK+5, CHK+6, CHK+7, CHK+8, CHK+14, CHK+16, CHK+17, CHK+22, CHK+23 , INS+5, INS+9, INS+10, INS+11, INS+20, INS+21, INS+22, INS+25, INS+27, INS+47
X	ADD+9, E2+3!, SVDTS+5, SVDTS+6, SVDTS+16, SVDTS+17, ADMDTS+4, ADMDTS+12, ADMDTS+20, INS+45
>> X1	ADMDTS+18*
>> X2	ADMDTS+17*
Y	START+11, ASK+10, ADD+3, ADD+11, ADD+14, E2+3!, E2+11, SVDTS+1, SVDTS+4, SVDTS+6! , SVDTS+15, SVDTS+17!, SVDTS+25, ADMDTS, ADMDTS+3, ADMDTS+4!, ADMDTS+11, ADMDTS+12!, ADMDTS+26, CHK+30 , INS+4, INS+14*, INS+16, INS+34

Customize PDF page

Package: Third Party Billing

Routine: ABMDBADD

Information

Source Information

Call Graph

Call Graph Total: 12

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: