Routine: TIUEN182

Information

TIUEN182 ; SLC/MAM - Environment Check Rtn for TIU*1*182 ; 6/9/04

Name	Comments	DBIA/ICR reference
MAIN	; Check environment. If problems found, warn but do not abort install. ; -- Check if done:
MAINX
SETBASIC	; Set up basic data in ^TMP("TIU182",$J,"BASICS")
TIUDUPS(TIUDUPS,OPTFLG)	; Set array TIUDUPS of potential duplicate DDEFS
LISTDUPS(TIUDUPS,TMPCNT,OPTFLG)	; List duplicates by name ; TIUDUPS = array as set in TIUDUPS. Required. ; TMPCNT = Count at which to start message array ^TMP("TIU182MSG",$J,TMPCNT); Received by reference. (Array already has some nodes if called from option.) Optional. ; OPTFLG = 1 if called from option;
NAME	; Names of DDEFS in order from 1 to 13

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"All Document Definitions exported for the Medicine Conversion have already",!," been created. You won't need to rerun the option." Line Location: MAIN+2
Function Call: WRITE	Prompt: !,"I can't find Class CLINICAL PROCEDURES, exported in patch TIU1109. You",!,"won't be able to run the option that creates the Document Definitions",!,"without this class. See patch description.",! Line Location: MAIN+3
Function Call: WRITE	Prompt: !,"I can't find User Class CLINICAL COORDINATOR. You won't be able to run",!,"the option that creates the Document Definitions without this class. See",!,"patch description.",! Line Location: MAIN+4
Function Call: WRITE	Prompt: !,"Checking for potential duplicate Document Definitions..." Line Location: MAIN+7
Function Call: WRITE	Prompt: !," No potential duplicates found.",!,"Remember to run option TIU182 DDEFS, MED CONVERSION after installing the patch." Line Location: MAIN+10
Function Call: WRITE	Prompt: !,^TMP("TIU182MSG",$J,TIUI) Line Location: LISTDUPS+26