RGRSUTIL ;ALB/RJS-MPI/PD UTILITIES ;03/12/96
Source file <RGRSUTIL.m>
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| Package | Total | Caller Graph |
|---|---|---|
| Clinical Information Resource Network | 12 | RG ADMIN COORD MENU RG EXCEPTION NOTIFIER RGADT RGRSDYN RGRSDYN1 RGRSDYN2 RGRSENS RGRSMSH RGRSPAR1 RGRSPAR2 RGRSPARS RGRSPT |
| Kernel | 1 | ^DIC(19 |
| 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 |
|
| Routine Call |
|
| Routine Call |
|
| FileNo | Call Tags |
|---|---|
| ^XMB(3.8 - [#3.8] | FIND1^DIC |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DPT("SSN" | SSNDFN+3, SSNDFN+5 |
| ^RGHL7(991.1 - [#991.1] | EXCEPT+10, ACTION+1 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ANS1 | UPDTFLD~, UPDTFLD+6 |
| ANS2 | UPDTFLD~, UPDTFLD+6, UPDTFLD+7 |
| CODE | SEG~, SEG+6, SEG1~, SEG1+6, ERROR~ |
| DFN | SSNDFN+1~, SSNDFN+3*, SSNDFN+4, SSNDFN+5*, SSNDFN+6 |
| DIR | PAUSE+5~ |
| DIR(0 | PAUSE+7* |
| DIRUT | PAUSE+5~, PAUSE+8 |
| DTOUT | PAUSE+5~ |
| DUOUT | PAUSE+5~, PAUSE+8 |
| DUZ | EXCEPT+8 |
| FILE | UPDTFLD~, UPDTFLD+6 |
| FLD | UPDTFLD~, UPDTFLD+6 |
| >> HL("ECH" | SEG+2, SEG1+2 |
| >> HL("FS" | SEG+6, SEG1+6 |
| >> HLNEXT | INITIZE+2 |
| >> HLNODE | INITIZE+2 |
| >> HLNODE( | INITIZE+2 |
| >> HLQUIT | INITIZE+2 |
| I | INITIZE+1~, INITIZE+2* |
| IOSL | PAUSE+6 |
| IOST | PAUSE+4 |
| J | INITIZE+1~, INITIZE+2* |
| PIECE | SEG~, SEG+6, SEG1~, SEG1+6 |
| RGC | SEG+1~, SEG+2*, SEG+6, SEG1+1~, SEG1+2*, SEG1+6 |
| RGCDI | EXCEPT+6*, EXCEPT+7, EXCEPT+8, END! |
| RGDATA | SEG+1~, SEG+5*, SEG+6, SEG+7, SEG1+1~, SEG1+5*, SEG1+6, SEG1+7 |
| >> RGDC( | SEG+4, SEG+5, SEG+6!, SEG1+4, SEG1+5, INITIZE+2* |
| RGDONE | SEG+1~!, SEG+4, SEG+6*, SEG+7, SEG1+1~!, SEG1+4, SEG1+6*, SEG1+7 |
| RGJ | PAUSE+5~, PAUSE+6* |
| RGNODE | SEG+1~, SEG+3*, SEG+4*, SEG+5, SEG+6, SEG1+1~, SEG1+3*, SEG1+4*, SEG1+5 |
| SEGMENT | SEG~, SEG+6, SEG1~, SEG1+6 |
| SSN | SSNDFN~, SSNDFN+2, SSNDFN+3, SSNDFN+5, SSNINT~, SSNINT+1, SSNINT+2 |
| X | INITIZE+1~, DIAG~, DIAG+3, ORD~, ORD+3 |
| XMDUZ | EXCEPT+8*, END! |
| Y | EXCEPT+8*, END! |
