Routine: ABSPOSK1

Package	Total	Call Graph
Pharmacy Point of Sale	5	ZWRITE^ABSPOS $$DOINGAR^ABSPOSB LOG^ABSPOSL LOG^ABSPOSL2 ($$IMPOSS,IMPOSS)^ABSPOSUE
VA Fileman	4	(,NOW,YMD)^%DTC (,FILE)^DIE $$ROOT^DILFD $$GET1^DIQ

Package	Total	Caller Graph
Pharmacy Point of Sale	1	ABSPOSK

Entry Points

Name	Comments	DBIA/ICR reference
COMBINS	;EP - ^ABSPCOMB(IEN, ; AGE("WINNOW COMBINED INSURANCE") - this many days following the ; completion of most recent 9002313.57 transaction ; Slight risk of conflict if you're deleting the record just as ; the next prescription for this patient is being processed.
TODAY()
DELFIELD(FILE,IENS,FIELD)	; and here too
BILLTHRU()
DELLOG(N)
SETTODAY(FILE,IENS,FIELD)
02	;EP - 9002313.02 Claims ; Use the transmit date if it's there; otherwise the create date.
03	;EP - 9002313.03 Responses
IFACE57()
ALL57	;EP - temporary - development use
ST5
HIGHEST()	; is IENS the highest #d top-level entry in FILE?
CLOSED02(N)	; is ^ABSPC(N,... posted to A/R and with a zero balance? ; ILC A/R only !!! This code is not reached for other A/R types ; (also returns true if the .02 is unposted for over a year)
DELETE(FILE,IENS)
LOG(X)
PT5759(F)	; does any 9002313.57 or 9002313.59 point to this claim or resp. IEN ; IEN points to the 9002313.02 or 9002313.03, too ; F = 2 for claims, F=3 for responses
59	;EP - 9002313.59 Working ; Let's keep them around for a year - someone might need to ; set view to One Patient and call up something old
57	;EP - 9002313.57 Billing ; AGE("WINNOW .57 AFTER POSTING") - if you have ILC A/R, then delete ; a .57 entry this many days after posting, if account has 0 ; balance. Recommended 400. ; AGE("WINNOW UNPOSTED .57") - non ILC A/R or missed posting ILC A/R ; Delete this many days after last update. ; Recommended 100, though there shouldn't be a problem with 0, even.
51	;EP - 9002313.51 Input ; a month is more than enough
DE5
LOGFILES	;EP - ^ABSPECP("LOG",IEN, ; AGE("WINNOW LOG FILES") - this many days following the most recent ; write to the file - recommended 90; could be as low as you want
AGE02(N)	; how old is the 9002313.02 entry? ; if dates are totally missing, it inserts a date ; Use transmit date if it's there; otherwise created date
511	;EP - 9002313.511 Override
AG5
AGE(X2)	; given fileman date/time, how many days old is it?

External References

Name	Field # of Occurrence
^%DTC	AGE+3
NOW^%DTC	TODAY
YMD^%DTC	LOGFILES+13
ZWRITE^ABSPOS	ST5+3, DE5+2
$$DOINGAR^ABSPOSB	IFACE57+1
LOG^ABSPOSL	LOG
LOG^ABSPOSL2	AG5+2, 59+8, ST5+1, DE5+1, DELFIELD+8
$$IMPOSS^ABSPOSUE	AGE02+4, AG5+3, ST5+4, DE5+2, DE5+4
IMPOSS^ABSPOSUE	PT5759+12
^DIE	ALL57+2
FILE^DIE	AG5+1, 59+7, ST5, DE5, DELFIELD+8
$$ROOT^DILFD	HIGHEST+2
$$GET1^DIQ	AG5+4, 57+17, 57+18, 57+20, 57+22, BILLTHRU+2, DE5+4

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^ABSPC - [#9002313.02]	GET1^DIQ
^ABSPTL - [#9002313.57]	GET1^DIQ
^ABSP(9002313.99 - [#9002313.99]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ABSBITMS(9002302	CLOSED02+4
^ABSP(9002313.51 - [#9002313.51]	51+3, 511+2
^ABSPC - [#9002313.02]	02+6, AGE02+3, CLOSED02+3
^ABSPCOMB - [#9002313.1]	COMBINS+7
^ABSPECP("LOG"	LOGFILES+4, LOGFILES+5, LOGFILES+6*, DELLOG+5!
^ABSPR - [#9002313.03]	03+1, 03+7
^ABSPR("B"	02+11
^ABSPT - [#9002313.59]	PT5759+7, PT5759+11, 59+4
^ABSPTL - [#9002313.57]	PT5759+6, PT5759+10, COMBINS+13
^ABSPTL("AC"	COMBINS+9
^ABSPTL("NON-FILEMAN"	ALL57+3!
^ABSPTL(0	ALL57+1, 57+14

Label References

Name	Line Occurrences
$$AGE	03+6, AG5+5, 51+3, 511+2, 57+27, 57+29, 59+9, LOGFILES+15, COMBINS+14
$$AGE02	03+14, 02+5, 02+12, CLOSED02+12
$$BILLTHRU	57+9, 57+13
$$CLOSED02	03+12, 02+9
$$HIGHEST	DELETE+6
$$IFACE57	57+10
$$PT5759	03+13, 02+10
$$TODAY	AGE+2, SETTODAY+6
AG5	AG5+3
DE5	DE5+2, DE5+4
DELETE	03+14, 02+12, 51+4, 511+3, 57+30, 59+9, COMBINS+15
DELFIELD	03+7, 02+6
DELLOG	LOGFILES+20
LOG	AGE02+5, 59+6, LOGFILES+19, SETTODAY+5, DELETE+12, DELFIELD+5, DELLOG+3
SETTODAY	57+24
ST5	ST5+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	57+22~*, 57+23, LOGFILES+13~, TODAY~
%H	LOGFILES+13~*, TODAY~
%I	TODAY~
%Y	AGE+1~
>> AGE("WINNOW .	02 CONTENTS" , 02+3, 02+12, 02 RAW DATA" , 02+2, 02+5, 03 CONTENTS" , 03+3, 03+14, 03 RAW DATA" , 03+2, 03+6, 51" , 51+2, 51+3, 511" , 511+1, 511+2, 57 AFTER POSTING" , 57+7* , 57+27, 59" , 59+3*, 59+9
>> AGE("WINNOW C	OMBINED INSURANCE" , COMBINS+5, COMBINS+6*, COMBINS+14
>> AGE("WINNOW L	OG FILES" , LOGFILES+3*, LOGFILES+15
>> AGE("WINNOW U	NPOSTED .57" , 57+8*, 57+29
BBLIMIT	CLOSED02+3~, CLOSED02+11*, CLOSED02+12
BILLTHRU	57+9~, 57+13, 57+14*, 57+16
CLAIM	03+1~*, 03+12, 03+14
D	LOGFILES+4~, LOGFILES+5, LOGFILES+6, LOGFILES+13*, LOGFILES+15
DA	ALL57+1~*
DELFLAG	57+25~, 57+27, 57+29, 57+30, LOGFILES+14~, LOGFILES+15, LOGFILES+16, COMBINS+10~, COMBINS+11, COMBINS+14* , COMBINS+15
>> DIE	ALL57+2*
>> DR	ALL57+2*
F	PT5759~, PT5759+4, PT5759+8, PT5759+12
FDA	AG5~, 59+7~, SETTODAY+3~, DELETE+9~, DELFIELD+1~
FDA(	AG5, 59+7, SETTODAY+6, DELETE+14, DELFIELD+7*
FF	PT5759+3~, PT5759+5, PT5759+6, PT5759+7, PT5759+9, PT5759+10, PT5759+11
FIELD	SETTODAY~, SETTODAY+5, SETTODAY+6, DELFIELD~, DELFIELD+4, DELFIELD+7
FILE	SETTODAY~, SETTODAY+5, SETTODAY+6, DELETE~, DELETE+11, DELETE+14, DE5+4, HIGHEST+2, DELFIELD~, DELFIELD+4 , DELFIELD+7
>> IEN	03+1, 03+7, 03+14, 02+5, 02+6, 02+9, 02+11, 02+12, PT5759+6, PT5759+7 , PT5759+10, PT5759+11, 51+3, 51+4, 511+2, 511+3, 57+16, 57+17, 57+18, 57+20 , 57+30, 59+4, 59+7, 59+9, LOGFILES+4, LOGFILES+5, LOGFILES+6, LOGFILES+18, LOGFILES+20, COMBINS+7 , COMBINS+15
IENS	SETTODAY~, SETTODAY+4, SETTODAY+5, SETTODAY+6, DELETE~, DELETE+1, DELETE+11, DELETE+14, DE5+4, HIGHEST+1 , HIGHEST+3, DELFIELD~, DELFIELD+2*, DELFIELD+4, DELFIELD+7
IFACE57	57+10~*, 57+13
INDEX	PT5759+3~, PT5759+5, PT5759+6, PT5759+7, PT5759+9, PT5759+10, PT5759+11
>> ISILCAR	03+12, 02+9, 57+19
ISPOSTED	57+18~*, 57+26, 57+27
LUPDATE	57+17~, 57+23, 57+24, 57+27, 57+29, COMBINS+13~*, COMBINS+14
MSG	AG5~, AG5+2, AG5+3, 59+7~, 59+8, LOGFILES+17~, LOGFILES+18, LOGFILES+19, ST5+1, ST5+2 , DELETE+10~, DELETE+11, DELETE+12, DELETE+13!, DE5+1, DE5+2, DELFIELD+3~, DELFIELD+4, DELFIELD+5, DELFIELD+6! , DELFIELD+8, DELLOG+1~, DELLOG+2, DELLOG+3, DELLOG+4!
N	AGE02~, AGE02+3, AGE02+4, AGE02+5, AG5, AG5+4, CLOSED02~, CLOSED02+3, CLOSED02+12, 59+6 , DELLOG~, DELLOG+2, DELLOG+5
N57	COMBINS+9~*, COMBINS+11, COMBINS+13
>> NOW	59+7
PAT	COMBINS+7~*, COMBINS+9
PCN	CLOSED02+3~*, CLOSED02+4
PCNDFN	57+20~*, 57+21, 57+22
RECD	03+1~*, 03+6
RET	PT5759+3~, PT5759+6, PT5759+7, PT5759+10, PT5759+11*, PT5759+13
ROOT	HIGHEST+2~*, HIGHEST+3
>> TESTING	LOGFILES+17, DELETE+10, DELETE+15, DELFIELD+3, DELFIELD+8, DELLOG+1, DELLOG+5
U	03+1, AGE02+4, CLOSED02+3, CLOSED02+4, 51+3, 511+2, 57+14, 59+4, LOGFILES+4, LOGFILES+5 , LOGFILES+6, COMBINS+7, COMBINS+13
X	03+1~, AGE02+3~, AGE02+4, 59+4~*, 59+5, 59+9, LOGFILES+13~, LOG~, AGE+1~, AGE+4 , TODAY~
X1	AGE+1~, AGE+2*
X2	AGE~, AGE+2*
Y	AGE02+3~, AGE02+4, AG5+4, AG5+5

Marked Items

Name	Field # of Occurrence
$T(	PT5759+12, AGE02+4, AG5+3, ST5+4, DE5+2, DE5+4

Customize PDF page

Package: Pharmacy Point of Sale

Routine: ABSPOSK1

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Caller Graph Total: 1

Entry Points

External References

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items