Routine: ABMEMCRC

Package	Total	Call Graph
Third Party Billing	13	$$SDT^ABMDUTL ^ABME8L1 ^ABME8L10 ^ABME8L2 (,PTCHG)^ABME8L3 ^ABME8L5 ^ABME8L6 ^ABME8L7 ^ABME8L8 ^ABMEF21 ($$NSN,MSG)^ABMERUTL ($$PNUM,$$SBR,SET)^ABMUTLP EN^ABMVDF
VA Fileman	5	NOW^%DTC ^DIC FILE^DICN ^DIE ^DIR
Kernel	1	^%ZISC

Entry Points

Name	Comments	DBIA/ICR reference
SBR	;new subscriber
RESUBN	;
TODT	;
NEWB	; ; Create a new batch (Make entry in 3P TX STATUS)
BILLCK	;
INSURER
ALOOP	;
WHATDT	;
BLOOP	;
XIT	;
VLOOP	;
CLAIM	;one claim
MSG	;
OUTPUT	;
EP	;
FROMDT	;

External References

Name	Field # of Occurrence
NOW^%DTC	NEWB+2
^%ZISC	XIT+1
$$SDT^ABMDUTL	MSG+9
^ABME8L1	CLAIM+10
^ABME8L10	CLAIM+22
^ABME8L2	CLAIM+11
^ABME8L3	SBR+10
PTCHG^ABME8L3	CLAIM+16
^ABME8L5	CLAIM+18
^ABME8L6	CLAIM+19
^ABME8L7	CLAIM+20
^ABME8L8	CLAIM+21
^ABMEF21	OUTPUT+31
$$NSN^ABMERUTL	NEWB+15
MSG^ABMERUTL	OUTPUT+5
$$PNUM^ABMUTLP	CLAIM+17, SBR+9
$$SBR^ABMUTLP	OUTPUT+25
SET^ABMUTLP	CLAIM+6
EN^ABMVDF	INSURER
^DIC	INSURER+3
FILE^DICN	OUTPUT+15, NEWB+7
^DIE	OUTPUT+23, OUTPUT+27, OUTPUT+36, NEWB+14, NEWB+15
^DIR	EP+12, WHATDT+4, FROMDT+4, TODT+4, RESUBN+4, MSG+12, MSG+18

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"This option will create a batch of claims that meet the following criteria:" Line Location: EP+1
Function Call: WRITE	Prompt: !?5,"* Bill type is 11* where * is any number" Line Location: EP+2
Function Call: WRITE	Prompt: !?5,"* The bill contains ICD Procedure codes" Line Location: EP+3
Function Call: WRITE	Prompt: !?5,"* Bill status is NOT cancelled" Line Location: EP+4
Function Call: WRITE	Prompt: !?5,"* 837I export mode only" Line Location: EP+5
Function Call: WRITE	Prompt: ! Line Location: EP+6
Function Call: WRITE	Prompt: !,"You will be asked the following to complete the selection criteria:" Line Location: EP+7
Function Call: WRITE	Prompt: !?5,"* Insurer (multiple entries not allowed)" Line Location: EP+8
Function Call: WRITE	Prompt: !?5,"* Date range (either by approval, batch, or visit date)" Line Location: EP+9
Function Call: WRITE	Prompt: !?5,"* Resubmission note that will be put on ALL claims" Line Location: EP+10
Function Call: WRITE	Prompt: ! Line Location: EP+11
Function Call: WRITE	Prompt: !!,"TO DATE CAN'T BE AFTER FROM DATE",! Line Location: TODT+8
Function Call: WRITE	Prompt: !!,"Bills meeting the following criteria will be recreated in a new batch:" Line Location: MSG+1
Function Call: WRITE	Prompt: !?5,"* Bill type is 11* where * is any number" Line Location: MSG+2
Function Call: WRITE	Prompt: !?5,"* The bill contains ICD Procedure codes" Line Location: MSG+3
Function Call: WRITE	Prompt: !?5,"* Bill status is NOT cancelled" Line Location: MSG+4
Function Call: WRITE	Prompt: !?5,"* 837I export mode only" Line Location: MSG+5
Function Call: WRITE	Prompt: ! Line Location: MSG+6
Function Call: WRITE	Prompt: !?5,"* Active insurer is ",$P($G(^AUTNINS(ABMINS,0)),U) Line Location: MSG+7
Function Call: WRITE	Prompt: !?5,"* ",$S(ABMFILE="B":"Batches created",ABMFILE="V":"Visit dates",1:"Bills approved") Line Location: MSG+8
Function Call: WRITE	Prompt: " between "_$$SDT^ABMDUTL(ABMFROM)_" and "_$$SDT^ABMDUTL(ABMTO) Line Location: MSG+9
Function Call: WRITE	Prompt: !?5,"* With the resubmission note: ",ABMRESUB Line Location: MSG+10
Function Call: WRITE	Prompt: ! Line Location: MSG+11
Function Call: WRITE	Prompt: !,"ENTRY CREATED IN 3P TX STATUS FILE." Line Location: NEWB+17
Function Call: WRITE	Prompt: !,"Submission # ",ABMSUBN Line Location: CLAIM+8
Function Call: WRITE	Prompt: !,"Writing bills to file.",! Line Location: CLAIM+9
Function Call: WRITE	Prompt: "." Line Location: CLAIM+23
Function Call: WRITE	Prompt: !!,"Finished.",!! Line Location: XIT+2
Routine Call	DIE Line Location: OUTPUT+23 OUTPUT+27 OUTPUT+36 NEWB+14 NEWB+15
Routine Call	DIC Line Location: INSURER+3
Routine Call	DIR Line Location: EP+12 WHATDT+4 FROMDT+4 TODT+4 RESUBN+4 MSG+12 MSG+18

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^ABMDTXST - [#9002274.6]	Classic Fileman Calls
^AUTNINS - [#9999999.18]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ABMDBILL(	ALOOP+4, ALOOP+6, VLOOP+4, VLOOP+6, BILLCK+1, BILLCK+2, BILLCK+3, BILLCK+4, BILLCK+5, OUTPUT+19 , OUTPUT+20, CLAIM+5
^ABMDTXST - [#9002274.6]	BLOOP+4, BLOOP+6, BLOOP+7, BLOOP+9, OUTPUT+7*, SBR+6, SBR+7
^AUTNINS - [#9999999.18]	MSG+7, OUTPUT+2, CLAIM+3

Label References

Name	Line Occurrences
ALOOP	MSG+14
BILLCK	ALOOP+7, BLOOP+10, VLOOP+7
BLOOP	MSG+15
FROMDT	TODT+6, TODT+8, RESUBN+5
INSURER	WHATDT+5
NEWB	OUTPUT+4
OUTPUT	MSG+17
SBR	CLAIM+14
VLOOP	MSG+16
XIT	MSG+19

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	NEWB+3
ABMAPOK	OUTPUT+8*, OUTPUT+29!
ABMAPRV	OUTPUT+19, OUTPUT+20, OUTPUT+21, OUTPUT+22, OUTPUT+24!
>> ABMASBR	CLAIM+13, SBR+1, SBR+2, SBR+6, SBR+7, SBR+11
ABMB	ALOOP+1!, BLOOP+1!, VLOOP+1!, XIT+3!
ABMB(	BILLCK+7*
ABMB(21	OUTPUT+10
>> ABMB0	CLAIM+12
ABMBDFN	ALOOP+5, ALOOP+6, BLOOP+8, BLOOP+9, VLOOP+5, VLOOP+6, BILLCK+1, BILLCK+2, BILLCK+3, BILLCK+4 , BILLCK+5, BILLCK+7, CLAIM+4, XIT+3!
>> ABMBILL	CLAIM+17, SBR+9
>> ABMCHILD	SBR+3, SBR+8
>> ABMDA	OUTPUT+9, OUTPUT+10, OUTPUT+11, OUTPUT+19, OUTPUT+20, OUTPUT+25
ABMDT	ALOOP+2, ALOOP+4, ALOOP+6, BLOOP+2, BLOOP+4, BLOOP+6, VLOOP+2, VLOOP+4, VLOOP+6, XIT+3!
>> ABMEXP	OUTPUT+3*
ABMEXPM	BILLCK+5*, BILLCK+6, BILLCK+7, XIT+3!
ABMFILE	WHATDT+6*, MSG+8, MSG+14, MSG+15, MSG+16, XIT+4!
ABMFROM	FROMDT+7*, TODT+8, MSG+9, ALOOP+2, BLOOP+2, VLOOP+2, XIT+3!
ABMINS	INSURER+5*, MSG+7, BILLCK+3, OUTPUT+1, CLAIM+2, CLAIM+3, XIT+4!
ABMINS("IEN"	OUTPUT+1*, OUTPUT+2, NEWB+13
>> ABMITYP	OUTPUT+2*, NEWB+13
>> ABMNPDFN	CLAIM+12*, CLAIM+15
>> ABMOPDFN	CLAIM+15, SBR+12*
>> ABMOSBR	CLAIM+7, CLAIM+13, SBR+11*
ABMP	CLAIM+1!
ABMP("BDFN"	CLAIM+4*, CLAIM+5, CLAIM+6
ABMP("INS"	CLAIM+2*
ABMP("ITYPE"	CLAIM+3*
ABMP("PDFN"	SBR+12
ABMP("PNUM"	CLAIM+17, SBR+9
ABMP("XMIT"	OUTPUT+34, NEWB+10*
>> ABMPXMIT	SBR+6, SBR+7
ABMRESUB	RESUBN+6*, MSG+10, XIT+4!
ABMSBR	OUTPUT+25*, OUTPUT+26, OUTPUT+28!
>> ABMSFILE	SBR+1*
>> ABMSIEN	SBR+2*
>> ABMSUBN	CLAIM+8
ABMTIEN	BLOOP+5, BLOOP+6, BLOOP+7, BLOOP+9, XIT+3!
ABMTO	TODT+7, TODT+8, MSG+9, ALOOP+3, ALOOP+4, BLOOP+3, BLOOP+4, VLOOP+3, VLOOP+4, XIT+3!
>> DA	OUTPUT+17, OUTPUT+34, NEWB+12*, NEWB+16
>> DA(1	OUTPUT+7, NEWB+16*
DD	OUTPUT+15!, NEWB+7!
>> DIC	INSURER+1, OUTPUT+12, NEWB+4*, NEWB+11
>> DIC(0	INSURER+2, OUTPUT+13, NEWB+5*
>> DIE	OUTPUT+18, OUTPUT+33, NEWB+11*
>> DINUM	OUTPUT+14*
DIR	EP+12!, WHATDT+1!, FROMDT+1!, TODT+1!, RESUBN+1!, MSG+12!, MSG+18!
DIR("A"	EP+12, WHATDT+2, FROMDT+2, TODT+2, RESUBN+2, MSG+12, MSG+18*
DIR(0	EP+12, WHATDT+3, FROMDT+3, TODT+3, RESUBN+3, MSG+12, MSG+18*
>> DIROUT	WHATDT+5, FROMDT+6, TODT+6, RESUBN+5
>> DIRUT	WHATDT+5, FROMDT+6, TODT+6, RESUBN+5
DLAYGO	NEWB+6*, NEWB+8!
DO	OUTPUT+15!, NEWB+7!
>> DR	OUTPUT+22, OUTPUT+26, OUTPUT+35, NEWB+13, NEWB+15*
>> DTOUT	WHATDT+5, FROMDT+6, TODT+6, RESUBN+5
>> DUOUT	WHATDT+5, FROMDT+6, TODT+6, RESUBN+5
DUZ	NEWB+13
DUZ(2	ALOOP+4, ALOOP+6, BLOOP+4, BLOOP+6, BLOOP+7, BLOOP+9, VLOOP+4, VLOOP+6, BILLCK+1, BILLCK+2 , BILLCK+3, BILLCK+4, BILLCK+5, OUTPUT+7, OUTPUT+19, OUTPUT+20, CLAIM+5, SBR+6, SBR+7
I	SBR+4~, SBR+5, SBR+6, SBR+7
>> POP	OUTPUT+32
U	MSG+7, BLOOP+7, BILLCK+1, BILLCK+2, BILLCK+3, BILLCK+5, OUTPUT+2, OUTPUT+20, CLAIM+3, CLAIM+12
>> X	OUTPUT+11, OUTPUT+14, NEWB+3
>> Y	INSURER+4, INSURER+5, WHATDT+6, FROMDT+5, FROMDT+7, TODT+5, TODT+7, RESUBN+6, MSG+13, OUTPUT+5 , OUTPUT+16, OUTPUT+17, NEWB+9, NEWB+10, NEWB+12

Customize PDF page

Package: Third Party Billing

Routine: ABMEMCRC

Information

Source Information

Call Graph

Call Graph Total: 19

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: