Routine: ENLIB1

Information

ENLIB1 ;(WASH ISC)/DH-Package Utilities ;8/5/1998

Source file <ENLIB1.m>

Name	Comments	DBIA/ICR reference
MNTH
RVMNTH
RDMNTH
WOCMP
TECH	;Set ASSIGNED TECH from PRIMARY TECH ; called by File 6920 Field 16 "AG" cross-reference set logic ; Input DA = work order ien ; X = entered primary technican (pointer to file 6929) ; This code puts a newly entered primary techinician into the ; TECHNICIANS ASSIGNED multiple if not already there.
TECH1
DNTECH	;
INTECH	;Set PRIMARY TECH from ASSIGNED TECH ; called by File 6920.02 Field .01 "AE" cross-reference set logic ; Input DA(1) = work order ien (file 6920) ; X = entered technican (pointer to file 6929) ; If PRIMARY TECH ASSIGNED (#16) field in the Work Order (#6920) file ; is blank then this code will set it equal to the technician just ; entered in the 6920.02 subfile (TECHNICIANS ASSIGNED multiple).
OUTECH	;Update PRIMARY TECH if same as deleted ASSIGNED TECH ; called by File 6920.02 Field .01 "AE" cross-reference kill logic ; Input DA(1) = work order ien (file 6920) ; X = deleted technician (pointer to file 6929) ; If technician just deleted from the 6920.02 subfile (TECHNICIANS ; ASSIGNED) is the primary tech of the work order then this code will ; update the PRIMARY TECH ASSIGNED (#16) field of the Work Order (#6920)
CMR
CMR1
CMROUT
IX	;Look-up X-ref ;Expects DIC,ENDX,X
IX1
IX2
IXOUT
IXNUM
SWOPT	;Validate software option selection
BLDG	;Called for Building File
CONT

Name	Line Occurrences
Function Call: READ	Formatting: ! Prompt: "Select MONTH: " Variable: X Timeout: DTIME Line Location: RDMNTH+0
Function Call: WRITE	Prompt: " "_ENMN Line Location: RDMNTH+3
Function Call: WRITE	Prompt: !,*7,"Enter month as an integer from 1 to 12." Line Location: RDMNTH+4
Function Call: WRITE	Prompt: !,"This CMR is not currently in use. Enter 'A' to add it to the file, 'L' to",!,"see a list of active CMR's, or '^' to abort. L// " Line Location: CMR+0
Function Call: READ	Variable: R Timeout: DTIME Line Location: CMR+1
Function Call: WRITE	Prompt: !,I Line Location: CMR1+0
Function Call: WRITE	Prompt: ! Line Location: CMROUT+0
Function Call: WRITE	Prompt: !,?5,I,?10,S Line Location: IX1+1
Function Call: READ	Variable: X Timeout: DTIME Line Location: IX2+0
Function Call: WRITE	Prompt: !,?7,"BUILDINGS may not contain more than one hyphen." Line Location: BLDG+2
Function Call: WRITE	Prompt: " Incorrect DIVISION format." Line Location: BLDG+3
Function Call: WRITE	Prompt: !,?7,"BUILDING not in proper format." Line Location: BLDG+5