DGRPTU ;ALB/RMO - 10-10T Registration - Utilities; 04/25/2003
Source file <DGRPTU.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 |
|---|---|---|
| Registration | 5 | DGEN DGEN1 DGENCD DGMTHL DGVTSFS |
| Enrollment Application System | 1 | EASEZI |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| GETPAT(DGHOWPT,DGADDF,DFN,DGNEWPF) | ;Look-up patient
; Input -- DGHOWPT How was patient entered ; 1 =10-10T registration ; DGADDF Add new entry flag (optional) ; 1 =Allow new patient ; Output -- DFN Patient IEN ; # =Patient IEN ; -1 =No patient selected ; DGNEWPF New patient added flag ; 1 =New patient added ; Null=Existing patient |
|
| SETPAR(DGDIV,DGIO,DGASKDEV,DGRPTOUT) | ;Set up registration parameters
; Input -- None ; Output -- DGDIV Primary Medical Center Division IEN ; DGIO Registration printer array ; DGASKDEV Registration ask device flag ; DGRPTOUT Quit flag ; 1 =Timeout or User up-arrow |
|
| SETPARQ | ||
| GETPRT(DGDIV,DGIO,DGASKDEV,DGRPTOUT) | ;Get registration printer defaults
; Input -- DGDIV Primary Medical Center Division IEN ; Output -- DGIO Registration printer array ; DGASKDEV Registration ask device flag ; DGRPTOUT Quit flag ; -1 =User entered up-arrow ; -2 =Timeout |
|
| ASK | ;Ask device in registration
|
|
| GETPRTQ | ||
| ELGCHK(DFN) | ;Eligibility check for editing
; Input -- DFN Patient IEN ; Output -- 0=No and 1=Yes |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Routine Call |
|
| Routine Call |
|
| Routine Call |
|
| FileNo | Call Tags |
|---|---|
| ^DPT - [#2] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^%ZIS(1 - [#3.5] | ASK+12 |
| ^DG(40.8 - [#40.8] | ASK+3, ASK+16 |
| ^DG(43 - [#43] | ASK+1, ASK+9 |
| ^DPT - [#2] | ELGCHK+5 |
| ^XUSEC("DG ELIGIBILITY" | ELGCHK+8 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> %ZIS | ASK+4*, ASK+10* |
| >> %ZIS("A" | ASK+4* |
| >> %ZIS("B" | ASK+3*, GETPRTQ! |
| DA | GETPAT+17~, GETPAT+19* |
| DD | GETPAT+11~ |
| DFN | GETPAT~, GETPAT+14*, GETPAT+19, ELGCHK~, ELGCHK+5 |
| DGADDF | GETPAT~, GETPAT+13 |
| DGASK | GETPRT+7~, ASK+1, ASK+2*, ASK+6* |
| DGASKDEV | SETPAR~, SETPAR+12, GETPRT~, ASK+7* |
| DGDIV | SETPAR~, SETPAR+10*, SETPAR+12, GETPRT~, ASK+3, ASK+16 |
| DGHOWPT | GETPAT~, GETPAT+19 |
| DGIO | SETPAR~, SETPAR+12, GETPRT~, ASK+9, ASK+16 |
| DGIO( | ASK+14* |
| DGIO("HS" | ASK+7* |
| DGIO("PRF" | ASK+7* |
| DGIO("RT" | ASK+7* |
| DGIO(10 | ASK+7*, ASK+16* |
| DGNEWPF | GETPAT~, GETPAT+14*, GETPAT+16 |
| DGRPTOUT | SETPAR~, SETPAR+12, GETPRT~, ASK+1, ASK+5* |
| DIC | GETPAT+11~, GETPAT+12* |
| DIC(0 | GETPAT+12*, GETPAT+13* |
| DIE | GETPAT+17~, GETPAT+19* |
| DINUM | GETPAT+11~ |
| DLAYGO | GETPAT+11~, GETPAT+13* |
| DO | GETPAT+11~ |
| DR | GETPAT+17~, GETPAT+19* |
| DTOUT | GETPRT+7~, ASK+5 |
| DUOUT | GETPRT+7~ |
| DUZ | ELGCHK+8 |
| I | GETPRT+7~, ASK+14* |
| IO("Q" | GETPRTQ! |
| ION | ASK+7 |
| >> IOP | ASK+10* |
| >> IOS | ASK+12 |
| IOST | ASK+6 |
| POP | GETPRT+7~, ASK+5 |
| U | GETPAT+14, ASK+1, ASK+3, ASK+9, ASK+12, ASK+16, ELGCHK+5 |
| X | GETPAT+11~ |
| Y | GETPAT+11~, GETPAT+14~, GETPRT+7~, ASK+12*, ASK+13, ASK+14, ELGCHK+3~, ELGCHK+5*, ELGCHK+8*, ELGCHK+9 |
