Routine: ABSPOSQ1

Information

ABSPOSQ1 ; IHS/FCS/DRS - POS background, Part 1 ; [ 11/04/2002 2:21 PM ]

Source file <ABSPOSQ1.m>

Package	Total	Call Graph
Pharmacy Point of Sale	5	TASK^ABSPOSIZ (INIT,RELSLOT)^ABSPOSL ONE59^ABSPOSQA $$STAT19^ABSPOSQS SETSTAT^ABSPOSU
Kernel	1	^%ZTLOAD
VA Fileman	1	^%DT

Package	Total	Caller Graph
Pharmacy Point of Sale	8	ABSPOS1 ABSPOS2D ABSPOS6D ABSPOS6L ABSPOSAN ABSPOSQ2 ABSPOSQ4 ABSPOSQA

Name	Comments	DBIA/ICR reference
TASK	;EP - from ABSPOS2D,ABSPOS6D,ABSPOS6L,ABSPOSQ2,ABSPOSQ4
PACKETER	;EP - from ABSPOSAN,ABSPOSQA ; tell the packetizer it's time to get working ; But only if there are claims in status 30
SETSTAT(NEWSTAT)
NEXT59()	; Get the next entry with Status = 0 ; If there is one, change its status to 10 ; (says "Gathering claim information") ; (Being very careful to LOCK access while you're getting the entry ; and changing its status.) ; Timed lock and resulting complications is a hassle but not a mess.
TASKAT(ZTDTH)
LOOP	; line item detail: your work list is ^ABSPT("AD",0)

Name	Line Occurrences (* Changed, ! Killed)
^ABSP(9002313.99 - [#9002313.99]	LOOP+7
^ABSPT - [#9002313.59]	NEXT59+6, NEXT59+11
^ABSPT("AD"	LOOP+21, NEXT59+9, PACKETER+3

Name	Field # of Occurrence
%DT	TASK+1~*
ABSBNDC	LOOP+2~
ABSBPATI	LOOP+3~
ABSBPDIV	LOOP+3~
ABSBRXI	LOOP+2~, SETSTAT+1~*
ABSBRXR	LOOP+2~
ABSBSDIV	LOOP+3~
ABSBVISI	LOOP+3~
ABSPHARM	LOOP+3~
APCDVCN	LOOP+4~
COUNT	LOOP+1~, LOOP+15, LOOP+23, LOOP+24
ERROR	LOOP+1~
IEN59	LOOP+2~, LOOP+16, LOOP+17, NEXT59+9, NEXT59+10, NEXT59+12, SETSTAT+1
INSURER	LOOP+3~
MODULO	LOOP+2~, LOOP+14*, LOOP+24
NEWSTAT	SETSTAT~, SETSTAT+2
PACKETER	LOOP+1~, TASK+3
PREVPAT	LOOP+1~
THISPAT	LOOP+1~
VMEDDFN	LOOP+4~
X	TASK+1~*
Y	TASK+1~, TASK+2
ZTDTH	TASKAT~
ZTIO	TASKAT+3~, TASKAT+4*
>> ZTQUEUED	LOOP+10
>> ZTREQ	LOOP+10*
ZTRTN	TASKAT+3~, TASKAT+4*