Routine: RAUTL19C

Information

RAUTL19C ;HISC/GJC-Utility Routine ;10/29/97 12:42

Name	Comments	DBIA/ICR reference
EN1	; Check data consistency
CKPAIR	; when field I is Y, then field J must also be Y at current/lower status
CKWAIT	; CKWAIT is only done for WAITING FOR EXAM and assumes order seq = 1

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?5,"<WARNING> -- Within "_RAIMG_", exam status '"_$P(RANODE(0),"^")_"'" Line Location: EN1+22
Function Call: WRITE	Prompt: !?5,"Impression is required, but a report is not, so an exam" Line Location: EN1+23
Function Call: WRITE	Prompt: !?5,"will be able to reach this status without a report.",!?5 Line Location: EN1+24
Function Call: WRITE	Prompt: "But if a report is entered, an impression will be required.",! Line Location: EN1+25
Function Call: WRITE	Prompt: !!?(IOM-$L(RANOERR)\2),RANOERR Line Location: EN1+44
Function Call: WRITE	Prompt: !!?5,"Within "_RAIMG_", exam status '"_$P(RANODE(0),"^")_"'" Line Location: CKPAIR+7
Function Call: WRITE	Prompt: !?5,"order ("_RAO_") '"_$P($G(^DD(72,I,.1)),U)_"' is set to 'Yes'" Line Location: CKPAIR+9
Function Call: WRITE	Prompt: !?5,"but '"_$P($G(^DD(72,J,.1)),U)_"' is set to 'No'" Line Location: CKPAIR+11
Function Call: WRITE	Prompt: !?5,"in this status and all lower active statuses." Line Location: CKPAIR+13
Function Call: WRITE	Prompt: !?5,"'",$P($G(^DD(72,I,.1)),U),"'" Line Location: CKWAIT+3
Function Call: WRITE	Prompt: !?5,"'",$P($G(^DD(72,I,.1)),U),"'" Line Location: CKWAIT+5
Function Call: WRITE	Prompt: !?5,"'",$P($G(^DD(72,I,.1)),U),"'" Line Location: CKWAIT+7
Function Call: WRITE	Prompt: !?5,"'",$P($G(^DD(72,I,.1)),U),"'" Line Location: CKWAIT+9
Function Call: WRITE	Prompt: !!?5,"'",$P($G(^DD(72,.611,.1)),U),"' should NOT be Y",!,?5,"for status of ",$P(RANODE(0),U) Line Location: CKWAIT+11