NURQEDT0 ;HIRMFO/MH,RM,YH-EDIT NURQ QI SUMMARY FILE, 217 ;1/22/97 15:30
Source file <NURQEDT0.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN1 | ; Entry from Important Functions [NURQA-PT-KEYFUNC] option.
|
|
| E1 | ; Edit Important Functions Data
|
|
| EN2 | ; Entry from Receiver of Results [NURQA-PT-ROFR] option.
|
|
| E2 | ; Edit Receiver of Results
|
|
| ROR | ; Come back here to edit a new receiver of results.
|
|
| EN3 | ; Entry from Data [NURQA-PT-DATA] option.
|
|
| E3 | ; Edit Data
|
|
| EN4 | ; Entry from Survey Generator [NURQA-PT-INDIC] option.
|
|
| EN5 | ; Entry from Disciplines [NURQA-PT-RESP] option.
|
|
| E5 | ; Edit Disciplines
|
|
| EN7 | ; Entry from References [NURQA-PT-REFR] option.
|
|
| E7 | ; Edit References
|
|
| EN8 | ; Entry from Other QI Summary Data [NURQA-PT-OTHER] option.
|
|
| E8 | ; Edit Other QI Summary Data
|
|
| Q | ; Clean up and exit
|
|
| EDTCOMM(NURQIP) | ; Select Survey and Location and edit common fields.
; Input Parameters: NURQIP = 0 if just query for survey ; 1 if query for survey and location ; Output variables: NURQOUT = 0 initialize this variable ; Var. NURQIP Value of variable ; ---- ------ ----------------- ; DA 0 IEN of 217, or -1 if failed ; 1 IEN of 217.04, or -1 if failed ; DA(1) 0 Not returned. ; 1 IEN of 217, or undefined if failed |
|
| GETLOC(NURQSURV) | ; This function will return a Location (217.04)
; multiple IEN. ; Input parameter: NURQSURV = NURQ QI Summary (217) file IEN. |
|
| GETDF | ; This procedure will get the default location (if any) and the
; screen for a lookup on Nurs Location. ; Input Variable: DUZ = user doing lookup ; Output Variables: NURDICS = M code for screen on lookup. ; NURDFLT = Default location (text) or null if ; no default exists. ; NURSZLO( = array of locations set from NURSAUTL. ; NUROUT = 1 if security not proper, else 0. |
|
| QDF | ; Quit GETDF procedure and clean up variables
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| FileNo | Call Tags |
|---|---|
| ^NURSF(211.4 - [#211.4] | Classic Fileman Calls |
| ^NURQ(217 - [#217] | Classic Fileman Calls |
