DGRPTU ;ALB/RMO - 10-10T Registration - Utilities; 04/25/2003
Source file <DGRPTU.m>
Package | Total | Call Graph |
---|---|---|
Registration | 4 | PAUSE^DG10 NEW^DGRP LO^DGUTL $$PRIM^VASITE |
VA Fileman | 2 | ^DIC ^DIE |
Kernel | 1 | (,HOME)^%ZIS |
Name | Comments | DBIA/ICR reference |
---|---|---|
GETPRTQ | ||
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 |
|
ELGCHK(DFN) | ;Eligibility check for editing
; Input -- DFN Patient IEN ; Output -- 0=No and 1=Yes |
|
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 |
|
SETPARQ | ||
ASK | ;Ask device in registration
|
|
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 |
|
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 |
Name | Line Occurrences |
---|---|
ASK | ASK+1 |
GETPRT | SETPAR+12 |
GETPRTQ | ASK+1 |
Name | Field # of Occurrence |
---|---|
^("DEV" | ASK+16 |
^(0 | ASK+12 |
^(99 | ASK+12 |
>> | 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 |