Routine: ABSPOSD2

Information

ABSPOSD2 ; IHS/FCS/DRS - NCPDP DUR overrides ; [ 09/03/2002 11:10 AM ]

Source file <ABSPOSD2.m>

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	Caller Graph
Pharmacy Point of Sale	2	ABSPOSIH ABSPOSO

Name	Comments	DBIA/ICR reference
ERRHDR()
FLOCK()
DELSUB(DLIEN,DLSUB)	; delete subrecord - no valid information
DE3
EDIT(DURIEN)	;EP called from ABSPOSO1 (menu option)
FUNLOCK
DELREC(DLIEN)	;delete record - no valid information
DEL3
NEWSUB(DURIEN)	;EP FROM ABSPOSIH ; establish blank lines for new DUR override entries ; on NEW POS claims (from page 20 on ABSP DATA INPUT)
NEW()	;EP - create new entry in 9002313.473
CHKDUR(DURIEN)	;EP this should be the last step - we ; need to check the DUR entry, if nothing was input ; let's get rid of it.

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

Name	Field # of Occurrence
CHKR	CHKDUR+9~, CHKDUR+10, CHKDUR+11, CHKDUR+12, CHKDUR+13
CNT	NEWSUB+5~, NEWSUB+6, NEWSUB+11, NEWSUB+14
DA	EDIT+5~, EDIT+6*
DIDEL	EDIT+5~
DIE	EDIT+5~, EDIT+7*
DLIEN	DELSUB~, DELSUB+4, DELREC~, DELREC+4
DLSUB	DELSUB~, DELSUB+4
DR	EDIT+5~, EDIT+8*
DTOUT	EDIT+5~
DURIEN	EDIT~, EDIT+6, CHKDUR~, CHKDUR+8, CHKDUR+11, CHKDUR+13, CHKDUR+16, CHKDUR+17*, CHKDUR+19, NEWSUB~ , NEWSUB+8, NEWSUB+9, NEWSUB+19
>> 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	CHKDUR+4~, CHKDUR+7, CHKDUR+12, CHKDUR+15
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	CHKDUR+4~, CHKDUR+6, CHKDUR+8, CHKDUR+11, CHKDUR+13
U	CHKDUR+11
X	NEW+3~
ZERR	NEWSUB+5~, NEWSUB+18~, NEWSUB+21

Name	Field # of Occurrence
$T(	NEW+1, DE3+8, DEL3+8