Routine: ABMPPAD2

Package	Total	Call Graph
Third Party Billing	6	(PAUSE,SUM)^ABMDE1 ^ABMDEHLP $$UPC^ABMERUTL SETVAR^ABMPPAD1 XIT^ABMPPADJ $$EN^ABMVDF
VA Fileman	1	^DIR

Entry Points

Name	Comments	DBIA/ICR reference
DISP	;EP
A	;; Add - Add a New Entry;;Add
DOLAMT(AMT)	;
E	;; Edit - Edit Information in the Current Screen;;Edit
EJ
ADJS	;EP
FLDS	;EP for Field Edit Controller
Q	;; Quit - Stop Editing the Data;;Quit
S	;; Save - Save transactions;;Save
R	;; Rstr - Restore transactions from A/R;;Restore
XIT
SEL	;EP for Page Commands, Desired Action Controller

External References

Name	Field # of Occurrence
PAUSE^ABMDE1	DISP+8
SUM^ABMDE1	DISP+7
^ABMDEHLP	SEL+18
$$UPC^ABMERUTL	SEL+17
SETVAR^ABMPPAD1	DISP+2
XIT^ABMPPADJ	DISP+96, DISP+97
$$EN^ABMVDF	DISP+64
^DIR	SEL+14, FLDS+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Payment Amount....: " Line Location: DISP+42
Function Call: WRITE	Prompt: $$DOLAMT(ABMPM("PD")) Line Location: DISP+42
Function Call: WRITE	Prompt: ?40,"Deductible Amount.: ",$$DOLAMT(ABMPM("DED")) Line Location: DISP+43
Function Call: WRITE	Prompt: !,"Payment Credits...: ",$$DOLAMT(ABMPM("PCR")) Line Location: DISP+44
Function Call: WRITE	Prompt: ?40,"Co-pay/ins Amount.: ",$$DOLAMT(ABMPM("COI")) Line Location: DISP+45
Function Call: WRITE	Prompt: !?40,"Write Off.........: ",$$DOLAMT(ABMPM("WO")) Line Location: DISP+46
Function Call: WRITE	Prompt: !,"Refund............: ",$$DOLAMT(ABMPM("REF")) Line Location: DISP+47
Function Call: WRITE	Prompt: ?40,"Non-Covered Amount: ",$$DOLAMT(ABMPM("NONC")) Line Location: DISP+48
Function Call: WRITE	Prompt: !?40,"Penalty Amount....: ",$$DOLAMT(ABMPM("PENS")) Line Location: DISP+49
Function Call: WRITE	Prompt: !?40,"Grouper Allowance.: ",$$DOLAMT(ABMPM("GRP")) Line Location: DISP+50
Function Call: WRITE	Prompt: ", ",$P($G(^AUTTPIC(ABMCOV,0)),U) Line Location: DISP+70
Function Call: WRITE	Prompt: !?14,"COVERAGE TYPE: ",$P($G(^AUTTPIC(ABMCOV,0)),U) Line Location: DISP+71
Function Call: WRITE	Prompt: !?6,"PYMT: ",ABMDAMT Line Location: DISP+82
Function Call: WRITE	Prompt: !,ABMDASH,! Line Location: DISP+84
Function Call: WRITE	Prompt: "ERROR: STANDARD ADJUSTMENT CODE NOT ENTERED FOR ADJUSTMENT",! Line Location: DISP+86
Function Call: WRITE	Prompt: "ERROR: STANDARD ADJUSTMENT REASON DOESN'T MATCH ADJUSTMENT CATEGORY/REASON",! Line Location: DISP+87
Function Call: WRITE	Prompt: "ERROR: NEGATIVE BALANCE ON BILL NOT ALLOWED",! Line Location: DISP+88
Function Call: WRITE	Prompt: ABMDASH,! Line Location: DISP+89
Function Call: WRITE	Prompt: "Use the EDIT option to populate the Standard Adjustment Reason Code",! Line Location: DISP+90
Function Call: WRITE	Prompt: !?7,"ADJ: ",ABMDAMT Line Location: ADJS+1
Function Call: WRITE	Prompt: ?24,"<B>" Line Location: ADJS+3
Function Call: WRITE	Prompt: ?24,"<N>" Line Location: ADJS+4
Function Call: WRITE	Prompt: ?28,"[",$P(ABMPREC,U,2),"] ",$E($P($G(^BAR(90052.01,$P(ABMPREC,U,2),0)),U),1,18) Line Location: ADJS+5
Function Call: WRITE	Prompt: ?47,"[",$P(ABMPREC,U,3),"] ",$E($P($G(^BARTBL($P(ABMPREC,U,3),0)),U),1,18) Line Location: ADJS+6
Function Call: WRITE	Prompt: *7 Line Location: SEL+23
Function Call: WRITE	Prompt: ! Line Location: FLDS+2
Routine Call	DIR Line Location: SEL+14 FLDS+2

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ABMDCLM - [#9002274.3]	DISP+11, DISP+12, DISP+13, DISP+14, DISP+66, DISP+69
^AUTNINS - [#9999999.18]	DISP+61, DISP+67
^AUTTPIC - [#9999999.65]	DISP+68, DISP+70, DISP+71
^BAR(90052.01 - [#90052.01]	ADJS+5
^BARADJ - [#90056.06]	ADJS+8, ADJS+9, ADJS+10
^BARTBL - [#90052.02]	ADJS+6

Label References

Name	Line Occurrences
$$DOLAMT	DISP+42, DISP+43, DISP+44, DISP+45, DISP+46, DISP+47, DISP+48, DISP+49, DISP+50, DISP+80
@(	DISP+98
ADJS	DISP+83
DISP	DISP+99
EJ	FLDS+1
SEL	DISP+95, SEL+18, SEL+23
XIT	DISP+8, SEL+1, SEL+15, SEL+21, SEL+22, FLDS+3, EJ+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%P	SEL+3!
>> ABM("DO"	DISP+98*
>> ABMAAMT	DISP+32*, DISP+33, DISP+34, DISP+35, DISP+36, DISP+37, DISP+38, DISP+39, DISP+40
>> ABMATYP	DISP+31*, DISP+33, DISP+34, DISP+35, DISP+36, DISP+37, DISP+38, DISP+39, DISP+40
>> ABMC("CONT"	DISP+8*
>> ABMCAT	DISP+23, DISP+24, DISP+26, DISP+27, DISP+29, DISP+30, DISP+72, DISP+73, DISP+75, DISP+76 , DISP+78, DISP+79, DISP+82, ADJS+2
>> ABMCOV	DISP+65, DISP+66, DISP+68, DISP+69*, DISP+70, DISP+71
>> ABMDAMT	DISP+78, DISP+80, DISP+82, ADJS+1
>> ABMDASH	DISP+3*, DISP+84, DISP+89
ABMEFLG	DISP+1!
>> ABMIIEN	DISP+12, DISP+16, DISP+21, DISP+22, DISP+24, DISP+26, DISP+27, DISP+55, DISP+57*, DISP+58 , DISP+59, DISP+61, DISP+67, DISP+73, DISP+75, DISP+76, DISP+78, ADJS+2
>> ABMINS	DISP+10, DISP+11, DISP+12, DISP+13, DISP+14, DISP+16, DISP+59*, DISP+66, DISP+69
>> ABMIPRI	DISP+19, DISP+20, DISP+22
>> ABMLN	DISP+25, DISP+26, DISP+27, DISP+74, DISP+75, DISP+76, DISP+77, DISP+78, ADJS+2
>> ABMLNSV	DISP+77*
>> ABMLST("PRIO"	DISP+16*, DISP+20, DISP+22, DISP+54, DISP+57, DISP+58, DISP+59
>> ABMLST("TRANS"	DISP+24, DISP+26, DISP+27, DISP+73, DISP+75, DISP+76, DISP+78, ADJS+2
ABMMFLG	DISP+1!, DISP+87, DISP+89, DISP+91!, ADJS+9, ADJS+10
ABMNFLG	DISP+42!, DISP+79, DISP+81!, DOLAMT+1
ABMO	XIT!
ABMO("CTR"	SEL+8*, SEL+10, SEL+11
ABMO("DFLT"	SEL+4*, SEL+16
ABMO("TXT"	SEL+8*, SEL+9
ABMO("Y"	FLDS+1*
>> ABMP("CBAMT"	DISP+18, DISP+28, DISP+88
>> ABMP("CDFN"	DISP+11, DISP+12, DISP+13, DISP+14, DISP+66, DISP+69
>> ABMP("DDL"	DISP+7, SEL+1
>> ABMP("DFLT"	DISP+94, SEL+2, SEL+4, SEL+21!, SEL+22!
>> ABMP("EXP"	DISP+85
>> ABMP("FLDS"	FLDS+1, FLDS+2, EJ*
>> ABMP("OPT"	DISP+93*, SEL+4, SEL+8, SEL+21, XIT!
>> ABMP("QUIT"	SEL+1
>> ABMP("SCRN"	DISP+5*
>> ABMP("VIEWMODE"	SEL+9
>> ABMPM("COI"	DISP+36*, DISP+45
>> ABMPM("DED"	DISP+35*, DISP+43
>> ABMPM("GRP"	DISP+38*, DISP+50
>> ABMPM("NONC"	DISP+34*, DISP+48
>> ABMPM("PCR"	DISP+40*, DISP+44
>> ABMPM("PD"	DISP+29*, DISP+42
>> ABMPM("PENS"	DISP+37*, DISP+49
>> ABMPM("REF"	DISP+39*, DISP+47
>> ABMPM("WO"	DISP+33*, DISP+46
>> ABMPREC	ADJS+2*, ADJS+5, ADJS+6, ADJS+7, ADJS+8, ADJS+9, ADJS+10, ADJS+11
>> ABMPRI	DISP+13, DISP+16, DISP+53, DISP+54*, DISP+56, DISP+57, DISP+58, DISP+59, DISP+61, DISP+62
>> ABMPRIS	DISP+56*
ABMRSTR	DISP+1!
>> ABMRVFLG	DISP+51*
ABMSFLG	DISP+1!, DISP+86, DISP+88, DISP+89, DISP+90, DISP+91!, ADJS+11
>> ABMSTAT	DISP+14, DISP+15, DISP+16, DISP+58, DISP+60*, DISP+64
>> ABMTREC	DISP+27*, DISP+28, DISP+29, DISP+31, DISP+32
>> ABMZ("NUM"	SEL+22
>> ABMZ("PG"	DISP+6*
>> ABMZ("TITL"	DISP+4*
AMT	DOLAMT~, DOLAMT+1
DIR	SEL+3!, SEL+14!, FLDS+2!
DIR("?"	SEL+6, SEL+7, SEL+10, SEL+11, SEL+12*
DIR("A"	SEL+5, SEL+10, SEL+13, FLDS+2
DIR("B"	SEL+4, FLDS+2
DIR(0	SEL+3, FLDS+2
>> DIROUT	DISP+8, DISP+97, SEL+15, FLDS+3
>> DTOUT	DISP+8, DISP+97, SEL+15, FLDS+3
>> DUOUT	DISP+8, DISP+97, SEL+15, FLDS+3
DUZ(2	DISP+11, DISP+12, DISP+13, DISP+14, DISP+66, DISP+69
U	DISP+12, DISP+13, DISP+14, DISP+28, DISP+29, DISP+31, DISP+32, DISP+58, DISP+59, DISP+61 , DISP+67, DISP+68, DISP+70, DISP+71, DISP+76, DISP+78, ADJS+5, ADJS+6, ADJS+7, ADJS+8 , ADJS+9, ADJS+10, ADJS+11
>> X	SEL+16, SEL+18
>> Y	DISP+96, DISP+98, SEL+1, SEL+16, SEL+17, SEL+19, SEL+20, SEL+21, SEL+22, FLDS+1* , EJ

Customize PDF page

Package: Third Party Billing

Routine: ABMPPAD2

Information

Source Information

Call Graph

Call Graph Total: 7

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items