Routine: ABSPOSD3

Package	Total	Call Graph
Pharmacy Point of Sale	4	ZWRITE^ABSPOS LOG^ABSPOSL2 NEW1^ABSPOSO2 $$IMPOSS^ABSPOSUE
VA Fileman	1	(,FILE,UPDATE)^DIE

Package

Total

Call Graph

ZWRITE^ABSPOS LOG^ABSPOSL2 NEW1^ABSPOSO2 $$IMPOSS^ABSPOSUE

(,FILE,UPDATE)^DIE

Package	Total	Caller Graph
Pharmacy Point of Sale	1	ABSPOSII

Package

Total

Caller Graph

Name	Comments	DBIA/ICR reference
ERRHDR()
EDIT(DIAGIEN)	;EP called from ABSPOSO1 (menu option)
NEWSUB(DIAGIEN)	;EP FROM ABSPOSII ; establish blank lines for new DIAG override entries ; on NEW POS claims (from page 20 on ABSP DATA INPUT)
FLOCK()
DELSUB(DLIEN,DLSUB)	; delete subrecord - no valid information
DE3
FUNLOCK
DELREC(DLIEN)	;delete record - no valid information
DEL3
CHKDIAG(DIAGIEN)	;EP from ABSPOSII
NEW()	;EP - from ABSPOSII create new entry in 9002313.491

Name	Line Occurrences (* Changed, ! Killed)
^ABSP(9002313.491 - [#9002313.491]	CHKDIAG+7, CHKDIAG+9, NEWSUB+8, NEWSUB+9, FLOCK, FUNLOCK
^TMP("ABSP"	DE3+5!, DE3+6, DEL3+5!, DEL3+6

Name	Field # of Occurrence
CHKR	CHKDIAG+3~, CHKDIAG+9*, CHKDIAG+10, CHKDIAG+11
CNT	NEWSUB+5~, NEWSUB+6, NEWSUB+11, NEWSUB+14
DA	EDIT+6~, EDIT+7*
DIAGIEN	EDIT~, EDIT+7, CHKDIAG~, CHKDIAG+7, CHKDIAG+9, CHKDIAG+11, CHKDIAG+14, CHKDIAG+15*, CHKDIAG+17, NEWSUB~ , NEWSUB+8, NEWSUB+9, NEWSUB+19
DIDEL	EDIT+6~
DIE	EDIT+6~, EDIT+8*
DLIEN	DELSUB~, DELSUB+4, DELREC~, DELREC+4
DLSUB	DELSUB~, DELSUB+4
DR	EDIT+6~, EDIT+9*
DTOUT	EDIT+6~
>> ENDCNT	NEWSUB+14*, NEWSUB+16
FDA	NEW+3~, DELSUB+2~, DELREC+2~, NEWSUB+5~, NEWSUB+18~
FDA(	DELSUB+4, DELREC+4, NEWSUB+19*
FLAGS	NEW+3~
FN	NEW+3~, NEW+4*
FNDREC	CHKDIAG+3~, CHKDIAG+6, CHKDIAG+10, CHKDIAG+13
IEN	NEW+3~, NEWSUB+18~
LASTREC	NEWSUB+5~, NEWSUB+6, NEWSUB+10, NEWSUB+13*, NEWSUB+17
MSG	NEW+3~, DELSUB+2~, DE3+1, DE3+2, DELREC+2~, DEL3+1, DEL3+2
NEWREC	NEW+3~, NEW+8
REC	NEWSUB+5~, NEWSUB+6, NEWSUB+8, NEWSUB+9
RECNUM	NEWSUB+5~, NEWSUB+17*, NEWSUB+19
REP	NEWSUB+5~, NEWSUB+16*, NEWSUB+17
SAVNUM	NEWSUB+5~, NEWSUB+6, NEWSUB+9, NEWSUB+10
SUBR	CHKDIAG+3~, CHKDIAG+5, CHKDIAG+7, CHKDIAG+9, CHKDIAG+11
U	CHKDIAG+9
X	NEW+3~
ZERR	NEWSUB+5~, NEWSUB+18~, NEWSUB+21

Information