Routine: PRCD1D

Information

PRCD1D ;WISC/PLT-DOCUMENT REQUIRED DATA ELEMENT ; 02/17/94 9:12 AM

Source file <PRCD1D.m>

Name	Comments	DBIA/ICR reference
V	;;5.1;IFCAP;;Oct 20, 2000
EN
LKUP	;lookup prcdd=420.18
EDIT	;edit prcdd=420.18
ED1
EDA
DELETE	;delete prcdd=420.18
KEY	;initial key values
UNQCHK(PRCK01,PRCK1,PRCK2)	;check uniqueness from ^dd(420.18)
UNQCRS	;set unique cross reference called from ^dd(420.18)
UNQCRK	;kill unique cross reference called from ^dd(420.18)
UNQMES
EN1	;print document required fields
Q20
Q20A
PRINT
EXIT1