Routine: ABSPOSPX

Information

ABSPOSPX ; IHS/FCS/DRS - automatic writeoffs - criteria on form ; [ 09/12/2002 10:18 AM ]

Source Information

Source file <ABSPOSPX.m>

Call Graph

Call Graph Total: 2

Package	Total	Call Graph
Pharmacy Point of Sale	2	ZWRITE^ABSPOS IMPOSS^ABSPOSUE

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
Pharmacy Point of Sale	1	ABSPOSPW

Entry Points

Name	Comments	DBIA/ICR reference
INC2()	; a/r type
DIAG()	; find primary diagnosis for VSTDFN
INC6()	; clinic
OLD7	; INSIEN for old-style INSCOV
INC10()	; include only if there's been a payment by current insurer ; useful, for example, if you want to write off Medicaid RX ; after getting whatever Medicaid paid
INC7()	; primary diagnosis
INC5()	; date of service
INSIEN()	; Insurer IEN
ACTIVBAT()	;EP - returns true if there's an active batch outstanding ; from this program's operation
INCLUDE()
INC4()	; aging date
INC3()	; balance
INC1()	; insurer

External References

Name	Field # of Occurrence
ZWRITE^ABSPOS	INC10+4, INC10+7, INC10+14, INC3+7
IMPOSS^ABSPOSUE	INC1+8, INC2+4, INC2+8, INC6+7, INC7+7

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: "." Line Location: INCLUDE+2
Function Call: WRITE	Prompt: ! Condition for execution: $X>70 Line Location: INCLUDE+2
Function Call: WRITE	Prompt: "Watching ",PCNDFN,": " Line Location: INCLUDE+7
Function Call: WRITE	Prompt: 4," " Line Location: INCLUDE+8
Function Call: WRITE	Prompt: 5," " Line Location: INCLUDE+10
Function Call: WRITE	Prompt: 1," " Line Location: INCLUDE+12
Function Call: WRITE	Prompt: 2," " Line Location: INCLUDE+14
Function Call: WRITE	Prompt: 3," " Line Location: INCLUDE+16
Function Call: WRITE	Prompt: 6," " Line Location: INCLUDE+18
Function Call: WRITE	Prompt: 7," " Line Location: INCLUDE+20
Function Call: WRITE	Prompt: 10," " Line Location: INCLUDE+22
Function Call: WRITE	Prompt: "PASSED!",! Line Location: INCLUDE+24
Function Call: WRITE	Prompt: "Examining payment node #",X,! Line Location: INC10+11
Function Call: WRITE	Prompt: "BAL/ORIG=",BAL/ORIG,! Line Location: INC3+8

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ABSBITMS(9002302	INCLUDE+4, INC1+2, INSIEN+2, INSIEN+3, INSIEN+7, INSIEN+10, OLD7+1, OLD7+3, INC2+2, INC10+10 , INC10+13, INC3+4, INC3+5, INC4+2
^ABSBPMNT(	ACTIVBAT+4, ACTIVBAT+5
^ABSBTYP("B"	INC2+3
^ABSBV(	DIAG+2, DIAG+3
^ABSP(9002313.99 - [#9002313.99]	ACTIVBAT+2
^AUPNVPOV - [#9000010.07]	DIAG+7
^AUPNVPOV("AD"	DIAG+6
^AUPNVSIT - [#9000010]	INC6+3, INC5+3
^AUTNINS("B"	INSIEN+12

Label References

Name	Line Occurrences
$$DIAG	INC7+2
$$INC1	INCLUDE+13
$$INC10	INCLUDE+23
$$INC2	INCLUDE+15
$$INC3	INCLUDE+17
$$INC4	INCLUDE+9
$$INC5	INCLUDE+11
$$INC6	INCLUDE+19
$$INC7	INCLUDE+21
$$INSIEN	INC1+3, INC10+6
OLD7	INSIEN+2

Naked Globals

Name	Field # of Occurrence
^(0	DIAG+7

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
BAL	INC3+4~*, INC3+8, INC3+9, INC3+10, INC3+11, INC3+14
>> D0	INCLUDE+3
IEN	INC1+3~, INC1+4, INC2+3~, INC2+4, INC2+5, DIAG+5~, DIAG+6, DIAG+7
INSIEN	INC10+6~*, INC10+13
MAX	INC3+1~, INC3+2*, INC3+3, INC3+11
MIN	INC3+1~, INC3+2*, INC3+3, INC3+10
>> NINCLUDE	INCLUDE+1*, INCLUDE+2
ONLIST	INC1+4~, INC1+5, INC1+6, INC1+7, INC2+5~, INC2+6, INC2+7, INC6+4, INC6+5, INC6+6 , INC7+3, INC7+4, INC7+5, INC7+6
ORIG	INC3+5~*, INC3+8, INC3+13, INC3+14
>> PARAMS	INC1+1, INC1+6, INC1+7, INC1+8, INC2+1, INC2+6, INC2+7, INC2+8, INC6+1, INC6+5 , INC6+6, INC6+7, INC7+1, INC7+5, INC7+6, INC7+7, INC10+3, INC3+2, INC5+1
>> PARAMS("AGING	DATE < THIS" , INC4+1
>> PARAMS("ARTYP"	INC2+5
>> PARAMS("CLINIC"	INC6+4
>> PARAMS("DIAG"	INC7+4
>> PARAMS("INS"	INC1+4
PCNDFN	INCLUDE+3~*, INCLUDE+4, INCLUDE+6, INCLUDE+7, INC1+2, INSIEN+2, INSIEN+3, INSIEN+7, INSIEN+10, OLD7+1 , OLD7+3, INC2+2, INC10+10, INC10+13, INC3+4, INC3+5, INC4+2
PCT	INC3+1~, INC3+2*, INC3+3, INC3+12, INC3+15
RET	INC10+8~, INC10+10, INC10+12, INC10+13*, INC10+15
TYPE	INC10+3~*, INC10+5, INC10+6, INC10+12
U	INCLUDE+4, INC1+1, INC1+2, INC1+6, INC1+7, INSIEN+3, INSIEN+7, INSIEN+10, OLD7+4, OLD7+5 , INC2+1, INC2+2, INC2+6, INC2+7, INC6+1, INC6+3, INC6+5, INC6+6, INC7+1, INC7+5 , INC7+6, DIAG+3, DIAG+7, INC10+3, INC10+13, INC3+2, INC3+4, INC3+5, INC4+2, INC5+1 , INC5+3, ACTIVBAT+2, ACTIVBAT+5
VSTDFN	INCLUDE+4~*, INC6+2, INC6+3, DIAG+1, DIAG+2, DIAG+3, DIAG+6, INC5+2, INC5+3
WATCH	INCLUDE+5~, INCLUDE+6*, INCLUDE+7, INCLUDE+8, INCLUDE+10, INCLUDE+12, INCLUDE+14, INCLUDE+16, INCLUDE+18, INCLUDE+20 , INCLUDE+22, INCLUDE+24, INC10+4, INC10+7, INC10+11, INC10+14, INC3+6
X	INC1+2~, INSIEN+1~, INSIEN+7, INSIEN+8, INSIEN+10, INSIEN+11, INSIEN+12, OLD7+4, OLD7+5, OLD7+6 , OLD7+7, INC2+2~, INC2+3, INC2+4, INC6+3~, INC6+4, INC7+2~, INC7+3, INC7+4, DIAG+2~ , DIAG+3, DIAG+6, DIAG+7, DIAG+8, INC10+9~, INC10+10, INC10+11, INC10+13, INC3+14~, INC3+15 , INC4+1~, INC4+3, INC5+1~, INC5+4, ACTIVBAT+2~*, ACTIVBAT+3, ACTIVBAT+4, ACTIVBAT+5, ACTIVBAT+7
Y	INSIEN+3~, INSIEN+4, INSIEN+7, OLD7+1, OLD7+3, INC4+2~, INC4+3, INC5+3~, INC5+4, ACTIVBAT+5~* , ACTIVBAT+6
Z	OLD7+1~*, OLD7+2, OLD7+3, OLD7+4, OLD7+5
Z0	OLD7+3~*, OLD7+4, OLD7+5

Customize PDF page

Package: Pharmacy Point of Sale

Routine: ABSPOSPX

Call Graph Total: 2

Caller Graph Total: 1