Routine: ABSPOSK

Information

ABSPOSK ; IHS/FCS/DRS - winnow POS data ;

Source file <ABSPOSK.m>

Package	Total	Call Graph
Pharmacy Point of Sale	6	ZWRITE^ABSPOS $$ISILCAR^ABSPOSB (02,03,51,511,57,59,COMBINS,LOGFILES)^ABSPOSK1 FIX57IDX^ABSPOSK2 (INIT,LOG,RELSLOT)^ABSPOSL IMPOSS^ABSPOSUE
VA Fileman	2	FIELD^DID $$GET1^DIQ

Name	Comments	DBIA/ICR reference
02	; 9002313.02 Claims
03	; 9002313.03 Responses
COMBINS	; ^ABSPCOMB( ; Our POS combined insurance can be winnowed because ; we don't keep any pointers to combined insurance. ; This is different in A/R, I think.
LOGLINES
59	; 9002313.59 Working
LOGS
BILLSYS	; set BILLSYS= which billing system you're interfacing to
INIFOR(F)
AGES	; set AGE(field name) = value for field numbers 2341.nn
LOGHDG(FILE)
SILENT(LOGSONLY)	;EP - do it silently, as in taskmanned task ; $G(LOGSONLY)=1 if you are winnowing log files only. ; Invoked sporadically at random from transaction completion in ABSPOSU
51	; 9002313.51 Input
LOG(X)
PCT
LOGFILES	; ^ABSPECP("LOG",
GET99(FIELD)
511	; 9002313.511 Override
LOGDONE
MAIN	;EP - show progress
57	; 9002313.57 Billing

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOBS,@IOBS,@IOBS,@IOBS,@IOBS,$J(X,3),"% " Line Location: PCT+2
Function Call: WRITE	Prompt: X,! Line Location: LOG+1

Name	Line Occurrences (* Changed, ! Killed)
^ABSP(	INIFOR+6
^ABSP(9002313.51 - [#9002313.51]	51+1
^ABSP(9002313.511 - [#9002313.511]	511+2
^ABSP(9002313.99 - [#9002313.99]	MAIN+5, MAIN+8, MAIN+14, AGES+1, AGES+4
^ABSPC - [#9002313.02]	02+1
^ABSPC(0	INIFOR+3
^ABSPCOMB - [#9002313.1]	COMBINS+5
^ABSPCOMB(0	INIFOR+5
^ABSPECP("LOG"	INIFOR+9, LOGFILES+2
^ABSPR - [#9002313.03]	03+1
^ABSPR(0	INIFOR+4
^ABSPT - [#9002313.59]	59+1
^ABSPTL - [#9002313.57]	57+1
^DD(9002313.99	AGES+6
^DIC - [#1]	LOGHDG+5
^TMP(	MAIN+1, LOGS+3

Name	Line Occurrences
02	MAIN+27
03	MAIN+25
51	MAIN+29
511	MAIN+31
57	MAIN+21
59	MAIN+23
AGES	MAIN+12
BILLSYS	MAIN+13
COMBINS	MAIN+33
INIFOR	MAIN+20, MAIN+22, MAIN+24, MAIN+26, MAIN+28, MAIN+30, MAIN+32, LOGS
LOG	MAIN+15, MAIN+16, LOGHDG+8, 57+2, LOGDONE, LOGLINES, AGES+15, BILLSYS+2
LOGDONE	03+2, 02+2, 51+2, 511+3, 57+3, 59+2, LOGFILES+3, COMBINS+6
LOGFILES	LOGS+1
LOGHDG	MAIN+20, MAIN+22, MAIN+24, MAIN+26, MAIN+28, MAIN+30, MAIN+32, LOGS
LOGLINES	LOGHDG+2, LOGHDG+9
LOGS	MAIN+19
PCT	03+1, 02+1, 51+1, 511+2, 57+1, 59+1, LOGFILES+2, COMBINS+5

Name	Field # of Occurrence
AGE	MAIN+10~
AGE(	AGES+14*
BILLSYS	MAIN+10~, BILLSYS+1*, BILLSYS+2
COUNT	MAIN+10~, INIFOR+1, PCT, PCT+1
DEST	AGES+7~
DEST("LABEL"	AGES+8
DT	MAIN+6, MAIN+7
F	INIFOR~, INIFOR+2, INIFOR+3, INIFOR+4, INIFOR+5, INIFOR+6, INIFOR+9
FIELD	GET99~, AGES+5~, AGES+6, AGES+7, AGES+11, AGES+12
FILE	LOGHDG~, LOGHDG+3*, LOGHDG+4, LOGHDG+5, LOGHDG+7
IEN	MAIN+10~, 03+1, 02+1, 51+1, 511+1, 511+2, 57+1, 59+1, LOGFILES+1, LOGFILES+2* , COMBINS+4, COMBINS+5
>> IOBS	PCT+2
ISILCAR	MAIN+10~, MAIN+11*
LOGSONLY	SILENT~, MAIN+19
NAME	AGES+7~, AGES+8*, AGES+9, AGES+14, AGES+15
NENTRIES	MAIN+10~, INIFOR+3, INIFOR+4, INIFOR+5, INIFOR+6, INIFOR+9*, PCT, PCT+1
OLDPCT	MAIN+10~, INIFOR+1, PCT+2
SILENT	SILENT+3~*, PCT, LOG+1
TESTING	MAIN+10~, MAIN+14*, MAIN+15
U	MAIN+7, MAIN+14, INIFOR+3, INIFOR+4, INIFOR+5, INIFOR+6, INIFOR+9, LOGHDG+5
VALUE	AGES+12~, AGES+13, AGES+14, AGES+15
X	MAIN+5~, MAIN+7, MAIN+8, LOGHDG+1~, LOGHDG+5, LOGHDG+7, LOGHDG+8, PCT+1~, PCT+2, LOG~ , LOG+1, LOGLINES~, AGES+3~*, AGES+4