Routine: BTPWPCLO

Information

BTPWPCLO ;VNGT/HS/ALA-Close Event ; 20 Oct 2009 3:46 PM

Source file <BTPWPCLO.m>

Package	Total	Caller Graph
Tracking Procedure Workflow	2	BTPWPDSP BTPWPTRG

Name	Comments	DBIA/ICR reference
ERR	;
FOL(CMIEN)	;EP - Followup complete?
NOT(CMIEN)	;EP - Notification complete?
DONE	;
VAL(DATA,CLIST)	;EP -- BTPW VALIDATE CLOSE EVENT ; Input ; CLIST - List of tracked items that are being closed ; Output ; RESULT - 1 is okay to proceed, -1 cannot proceed ; MSG - Message to display for either a 'W' or an 'O' ; HANDLER - 'W' is a warning message to be displayed, 'O' is an override ; CMET_IEN - Record that passed or failed.
FND(CMIEN)	;EP - Findings complete?

Name	Line Occurrences (* Changed, ! Killed)
^BTPWP - [#90620]	FND+2, FOL+5, NOT+2
^DD("DD"	ERR+3
^TMP("BTPWPCLO"	VAL+10

Name	Field # of Occurrence
ANSWF	VAL+8~, VAL+25*, VAL+26
ANSWN	VAL+8~, VAL+27*, VAL+28
ANSWR	VAL+8~, VAL+23*, VAL+24
>> BMXSEC	ERR+4*
BN	VAL+8~, VAL+18, VAL+19
BQI	VAL+8~, VAL+22*
CLIST	VAL~, VAL+17, VAL+20!*, VAL+21, VAL+22
CLIST(	VAL+19
CMIEN	VAL+8~, VAL+22*, VAL+23, VAL+25, VAL+27, VAL+31, FND~, FND+2, FND+3, FND+4 , FOL~, FOL+4, FOL+5, FOL+6, FOL+7, NOT~, NOT+2, NOT+3, NOT+4
DATA	VAL~, VAL+10*, VAL+11, VAL+15, VAL+31, DONE+1, ERR+5
ERRDTM	ERR+2~, ERR+3*, ERR+4
FN	FND+1~, FND+2, FND+3, FND+4, FOL+1~, FOL+4, FOL+5, FOL+6, FOL+7, NOT+1~ , NOT+2, NOT+3, NOT+4
FND	FND+1~, FND+2, FND+5, FND+6
FNDATA	FND+1~, FOL+1~, NOT+1~
FOL	FOL+1~, FOL+5, FOL+8, FOL+9
HNDLR	VAL+8~, VAL+23, VAL+30, VAL+31
II	VAL+8~, VAL+12, VAL+15, VAL+31, DONE+1, ERR+5
LIST	VAL+8~, VAL+18, VAL+19, VAL+20
MESG	VAL+8~, VAL+23, VAL+30, VAL+31
MSG	VAL+8~, VAL+12, VAL+23, VAL+24, VAL+26, VAL+28*
NOT	NOT+1~, NOT+2, NOT+5, NOT+6
RES	VAL+8~, VAL+24, VAL+26, VAL+28, VAL+29, VAL+30, VAL+31
U	VAL+24, VAL+26, VAL+28, VAL+31, FND+6, FOL+9, NOT+6
UID	VAL+8~, VAL+9*, VAL+10
VAL	VAL+8~, VAL+23!
VAL(	VAL+24, VAL+26, VAL+28*, VAL+30
VAL(""	VAL+29
Y	ERR+2~, ERR+3*
>> ZTSK	VAL+9