ENEQ2 ;WIRMFO/DH,SAB-Edit or Display Equipment Records ;4.15.97
Source file <ENEQ2.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
EQED | ;Edit Record Entry Point
|
|
EQDS | ;Display Record Entry Point
|
|
SELEQ | ; select (and process) equipment for edit or display
; input ; ENEQ("MODE") - switch: 'E' for edit or 'D" for display ; also when ENEQ("MODE")="E" ; ENEDNX - flag, true if user holds key ENEDNX ; ENEDPM - flag, true if user holds key ENEDPM |
|
EQP | ; process one equipment item (display or edit)
; input ; ENDA - ien of equipment item ; ENEQ("MODE") - switch: 'E' for edit or 'D' for Display ; ENEQ("LVL") - recursion level ; IOINHI - bold escape code ; IOINLOW - unbold escape code ; END - flag, true when entire process should stop ; also when ENEQ("MODE")="E" ; ENEDPM - flag; true if user holds ENEDPM key ; ENEDNX - flag; true if user holds ENEDNX key ; output ; END - flag, true when entire process should stop |
|
EQPX | ; clean up
|
|
WP(ENDA,ENFIELD,ENNODE) | ; display word-processing field
; input ; ENDA - ien of equipment ; ENFIELD - name of field being displayed ; ENNODE - node where field is located in file 6914 ; output ; END - (optional) true if user timed-out ; END1 - (optional) true if user entered '^' or timed-out |
|
LISTC | ; Show/Select-From Component List
; input ; ENEQ("LVL") - recursion level ; ^TMP("ENC",$J,ENEQ("LVL"),0)=parent ien^number of components ; ^TMP("ENC",$J,ENEQ("LVL"),component ien)="" ; END - flag; true if entire process should stop ; output ; END - flag; true if entire process should stop |
|
LISTC1 | ; call list handler
|
|
LISTCX | ; clean up
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
FileNo | Call Tags |
---|---|
^ENG(6914 - [#6914] | Classic Fileman Calls, GET1^DIQ |