Routine: QAOSDDUT

Information

QAOSDDUT ;HISC/DAD-OCCURRENCE SCREEN DD UTILITIES ;1/6/93 15:15

Name	Comments	DBIA/ICR reference
EN1(OK)	; INPUT TRANSFORM FOR FREE TEXT 'SET OF CODES' ; OK = NON-REPEATING, NON-NULL LIST OF VALID CODES ; USED BY FIELDS: 741.6,2 & 741.7,1
EN2	; XECUTABLE HELP FOR DATE PROMPTS ; USED BY FIELDS: 741.01,1 & 741,14 & *741,18
EN3	; INPUT TRANSFORM FOR 'FINAL PEER REVIEW PER SERVICE' ; ALLOWS ONLY PEER REVIEWERS AND ONLY ONE PEER REVIEWER ; PER SERVICE TO ANSWER 'YES' USED BY FIELD: 741.01,9
EN4	; INPUT TRANSFORM: REVIEWING SERVICE 741.01,.03 ; SERVICE IS UNEDITABLE IF FINAL PEER REVIEW PER SERVICE IS YES
EN5	; SCREEN: REASON FOR EXCEPTION (741.12,.01)
EN6	; SCREEN: PRIMARY REASON CLIN REFERRAL (741.01,3)
EN7	; SCREEN: ACTION (741.15,.01)
EN8	; SCREEN: FINDINGS (741.01,4)

Name	Line Occurrences
Function Call: WRITE	Prompt: !?5,"Must be after the occurrence date: ",Y Line Location: EN2+4
Function Call: WRITE	Prompt: !?5,"and not later than: ",Y,! Line Location: EN2+5
Function Call: WRITE	Prompt: !!,"* This field may only be edited by Peer reviewers *" Line Location: EN3+4
Function Call: WRITE	Prompt: !!," * Another Peer review has previously been entered as the final review *",! Line Location: EN3+8