Routine: ABSPOSP1

Package	Total	Call Graph
Pharmacy Point of Sale	7	ZWRITE^ABSPOS $$MUSTILC^ABSPOSB LOG^ABSPOSL2 ($$NEWBATCH,ADJUST)^ABSPOSP $$DTP^ABSPOSU1 $$YESNO^ABSPOSU3 ($$IMPOSS,IMPOSS)^ABSPOSUE
VA Fileman	1	FILE^DIE

Entry Points

External References

Name	Field # of Occurrence
ZWRITE^ABSPOS	C5+3
$$MUSTILC^ABSPOSB	WRITEOFF+2
LOG^ABSPOSL2	C5+1
$$NEWBATCH^ABSPOSP	BATCH+1
ADJUST^ABSPOSP	BATCH1+17
$$DTP^ABSPOSU1	DATE+1
$$YESNO^ABSPOSU3	YNCOMMON
$$IMPOSS^ABSPOSUE	C5+4
IMPOSS^ABSPOSUE	BATCH+1
FILE^DIE	C5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"This program takes accounts from the AUTOMATIC WRITEOFFS list",! Line Location: WHAT+0
Function Call: WRITE	Prompt: "and creates a PAYMENTS BATCH to ADJUST each of these accounts",! Line Location: WHAT+1
Function Call: WRITE	Prompt: "to a ZERO BALANCE.",! Line Location: WHAT+2
Function Call: WRITE	Prompt: ! Line Location: WHAT+3
Function Call: WRITE	Prompt: !,"Creating the automatic writeoffs batch, please wait...",! Line Location: A+2
Function Call: WRITE	Prompt: !,"Batch ",BATCH," created, but it isn't automatically posted.",! Line Location: A+4
Function Call: WRITE	Prompt: "To post it to Accounts Receivable, use the PAY option",! Line Location: A+5
Function Call: WRITE	Prompt: "from the main menu.",! Line Location: A+6
Function Call: WRITE	Prompt: !,"Don't forget to post batch ",BATCH,! Line Location: A+9
Function Call: WRITE	Prompt: "You may print or edit the batch as needed before posting.",! Line Location: A+10
Function Call: WRITE	Prompt: PCN," status is not ACTIVE; we will remove it from writeoff list",! Line Location: BATCH1+5
Function Call: WRITE	Prompt: " but no adjustment will be made.",! Line Location: BATCH1+6
Function Call: WRITE	Prompt: PCN," has a zero balance",! Line Location: BATCH1+10
Function Call: WRITE	Prompt: !,"Now that the adjustments are in the batch, we will",! Line Location: CLRFLAGS+1
Function Call: WRITE	Prompt: "remove these accounts from the automatic writeoff list...",! Line Location: CLRFLAGS+2
Function Call: WRITE	Prompt: "Done",! Line Location: CLRFLAGS+6
Function Call: WRITE	Prompt: "." Line Location: DOT+0
Function Call: WRITE	Prompt: !?10 Condition for execution: $X>70 Line Location: DOT+0
Function Call: WRITE	Prompt: ! Line Location: DATE+1
Function Call: WRITE	Prompt: "Okay to create a batch of writeoff adjustments for visits",! Line Location: OKAY+1
Function Call: WRITE	Prompt: "on the automatic writeoff list with visit dates through",! Line Location: OKAY+2
Function Call: WRITE	Prompt: "up to and including ",$P(THRUDATE,U,2),"? ",! Line Location: OKAY+3
Function Call: WRITE	Prompt: ! Line Location: YNCOMMON+1
Function Call: WRITE	Prompt: "Now that the batch has been created, is it okay",! Line Location: UPDATE+2
Function Call: WRITE	Prompt: "to REMOVE these accounts from the automatic writeoff list?",! Line Location: UPDATE+3
Routine Call	DIE Line Location: C5

Name	Comments	DBIA/ICR reference
A
INDEX()
CLRFLAG(PCNDFN)
BATCH(THRUDATE)
WRITEOFF	;EP - option: ABSP AUTO-WRITEOFF BAT ; based on the automatic writeoff list
WHAT
BATCH1	; given BATCH, PCNDFN, THRUDATE
CLRFLAGS	; remove these accounts from the automatic writeoff list
ISEMPTY()
DOT
OKAY()	;
YNCOMMON()
UPDATE()	;
DATE()	;Create automatic writeoff adjustments for visits THRU DATE:
C5

Name	Line Occurrences (* Changed, ! Killed)
^ABSBITMS(9002302	ISEMPTY, BATCH+3, BATCH1+1, BATCH1+2, BATCH1+4, BATCH1+8, BATCH1+12
^ABSTMP(	CLRFLAGS+4

Name	Line Occurrences
$$BATCH	A+3
$$DATE	A
$$INDEX	ISEMPTY, BATCH+3
$$ISEMPTY	WRITEOFF+4
$$OKAY	A+1
$$UPDATE	A+7
$$YNCOMMON	OKAY+4, UPDATE+4
A	A+1
BATCH1	BATCH+4
C5	C5+4
CLRFLAG	BATCH1+7, CLRFLAGS+5
CLRFLAGS	A+8
DATE	DATE+1
DOT	BATCH+4, CLRFLAGS+5
WHAT	WRITEOFF+5

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
BAL	BATCH1+8~*, BATCH1+9, BATCH1+17
BATCH	WRITEOFF+3~, A+3, A+4, A+9, BATCH+1~, BATCH+5, BATCH1+17, CLRFLAGS+4
FDA	CLRFLAG+1~
FDA(9002302	CLRFLAG+2*
INS	BATCH1+12~*, BATCH1+14, BATCH1+15
MSG	CLRFLAG+1~, C5+1, C5+2
PCN	BATCH1+2~*, BATCH1+5, BATCH1+10
PCNDFN	BATCH+2~, BATCH+3, BATCH1+1, BATCH1+2, BATCH1+4, BATCH1+7, BATCH1+8, BATCH1+12, BATCH1+17, CLRFLAGS+3~* , CLRFLAGS+4*, CLRFLAGS+5, CLRFLAG~, CLRFLAG+2
REASON	BATCH1+12~, BATCH1+13, BATCH1+14, BATCH1+15, BATCH1+16, BATCH1+17
THRUDATE	WRITEOFF+3~, A*, A+3, BATCH~, BATCH1+3, OKAY+3
U	BATCH1+1, BATCH1+2, BATCH1+3, BATCH1+4, BATCH1+8, BATCH1+12, OKAY+3
VSTDFN	BATCH1+1~*, BATCH1+3
X	WRITEOFF+3~, A+1, DATE+1~, DATE+2, YNCOMMON~, YNCOMMON+1, UPDATE+4~

Customize PDF page

Package: Pharmacy Point of Sale

Routine: ABSPOSP1

Information

Source Information

Call Graph

Call Graph Total: 8

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items