RGRSUTIL ;ALB/RJS-MPI/PD UTILITIES ;03/12/96
Source file <RGRSUTIL.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EXCEPT | ;Members of the RG CIRN DEMOGRAPHIC ISSUES Mail Group are
|
|
| END | ||
| SEG(SEGMENT,PIECE,CODE) | ;Return segment from RGDC array and kill node
|
|
| SEG1(SEGMENT,PIECE,CODE) | ;Return segment from RGDC array
|
|
| ERROR(CODE) | ;**THIS ENTRY POINT IS NO LONGER USED**
|
|
| INITIZE | ;Initialize RGDC array with incoming message
|
|
| SSNDFN(SSN) | ;Input ssn output DFN
|
|
| LINE() | ; Return a dashed line.
|
|
| PAUSE() | ; Pause for CRT output.
; Input: IOST, IOSL ; Output: 0 -- Continue to display output ; 1 -- Quit |
|
| DIAG(X) | ; Return a string for diagnoses.
; Input: X - Code for type of diagnosis (Primary, etc.) ; Output: Descriptive string, i.e., "Primary", etc. |
|
| ORD(X) | ; Return a string for orders.
; Input: X - Code for type of order (Lab, etc.) ; Output: Descriptive string, i.e., "Lab", etc. |
|
| UPDTFLD(FILE,FLD,ANS1,ANS2) | ; Returns the correct field answer
|
|
| SSNINT(SSN) | ;
|
|
| ACTION | ;Entry action for Primary View Reject exceptions
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| FileNo | Call Tags |
|---|---|
| ^XMB(3.8 - [#3.8] | FIND1^DIC |