Routine: MAGGTUX2

Information

MAGGTUX2 ;WIOFO/GEK Imaging utility to validate INDEX values.

Name	Comments	DBIA/ICR reference
INIT	; If this is a continuation, initialize the variables.
TRK2	; Keep a Count of Short Desc, transpose to compact the list.
CHKCR(N40,IEN)	; Image has Procedure/Event CR, see if it should be CT.
CHK45(N40,IEN)	; Check the Origin Set of Codes. ; N40 passed by Ref, it may be changed in here.
VALIND	;Validate the interdependency between Type, Spec, Proc/Event for Entries that have a TYpe.
VALMERG(O40,N40)	; N40 Passed by Ref. ; if the merged Proc-Spec in New 40 Node (N40) are not valid, ; Then just take the TYPE, and revert back to old O40 Spec and Proc

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"There are new images since this utility was last run." Line Location: INIT+3
Function Call: WRITE	Prompt: !!,"All Images were checked as of "_$$FMTE^XLFDT($P(^XTMP(MAGN,0),"^",2)) Line Location: INIT+6
Function Call: WRITE	Prompt: ! Line Location: INIT+7
Function Call: WRITE	Prompt: !,"For a summary of the last Check or Fix process use the menu option: " Line Location: INIT+8
Function Call: WRITE	Prompt: !," ""REV Review a Summary of the last Fix or Check process.""" Line Location: INIT+9
Function Call: WRITE	Prompt: !," or continue to Re-Check the Image file." Line Location: INIT+10
Function Call: WRITE	Prompt: !,"Continue: where you left off, at IEN : ",IEN," Y/N //N :" Line Location: INIT+11
Function Call: WRITE	Prompt: !,"Starting over..." Line Location: INIT+12
Function Call: WRITE	Prompt: !,"Continuing from IEN: ",IEN,! Line Location: INIT+13