DGPREP2 ;ALB/SCK - Pre-Registration Cont. ; 12/31/96
Source file <DGPREP2.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 | DGPRE EXPAND PATIENT DGPRE HIST DGPRE HIST SC DGPRE PRE-REGISTER PATIENT INQ DGPREP1 |
Kernel | 1 | ^ORD(101 |
Name | Comments | DBIA/ICR reference |
---|---|---|
EN | ; -- main entry point for the DGPRE HIST protocol
|
|
HDR | ; -- header code
|
|
INIT | ; -- init variables and list array
; Variables ; DGPDT - Formatted date from Call Log, #41.43 ; DGPDD - Status entries from the DD for #41.43 ; DGPNR - No. of entries, index for LM IDX global ; DGPN1 - Local Var for $O ; DGPDATA - 0 node from Call Log file, #41.43 |
|
HELP | ; -- help code
|
|
EXIT | ; -- exit code
|
|
EXPND | ; -- expand on the selected call log entry
; Variables ; DGPIEN - IEN of selected patient ; DGPCM - Comments from the Call Log, displayed 1 line at a time ; DGPN1-3 - Loacal Var's for $O |
|
INQ | ; Entry point for patient Inquiry
|
|
PTINQ | ; Patient inquiry protocol
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Routine Call |
|
Routine Call |
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DD(41.43 | INIT+15 |
^DGS(41.43 - [#41.43] | EN+1, INIT+12, INIT+13, INIT+18, EXPND+16, EXPND+17 |
^DPT - [#2] | HDR+1 |
^TMP("DGPPR2" | INIT+11!, INIT+24*, INIT+25*, INIT+26*, EXIT+1!, EXPND+13 |
^TMP("DGPRERG" | PTINQ+8 |
^TMP($J | INIT+10!, INIT+13*, INIT+17, INIT+18, INIT+25 |
^VA(200 - [#200] | INIT+22 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
DFN | PTINQ+1~, PTINQ+8*, PTINQ+11 |
DGPCM | EXPND+6~, EXPND+17*, EXPND+18 |
DGPDATA | INIT+8~, INIT+18*, INIT+19, INIT+22, INIT+23, EXIT+2! |
DGPDD | INIT+8~, INIT+15*, INIT+16 |
DGPDT | INIT+8~, INIT+19*, INIT+21 |
DGPIEN | EXPND+6~, EXPND+13*, EXPND+16, EXPND+17 |
DGPN1 | INIT+8~, INIT+12*, INIT+13, INIT+16*, INIT+17*, INIT+18, INIT+25, EXPND+6~, EXPND+12*, PTINQ+1~ , PTINQ+7* |
DGPN2 | EXPND+6~, EXPND+12*, EXPND+13, PTINQ+1~, PTINQ+7*, PTINQ+8 |
DGPN3 | EXPND+6~, EXPND+15*, EXPND+16*, EXPND+17 |
DGPNDX | INIT+8~ |
DGPNR | INIT+8~, INIT+14*, INIT+20, INIT+24, INIT+25, INIT+26, INIT+27*, INIT+28 |
DGPRFLG | INQ+2~, INQ+3*, PTINQ+1~, PTINQ+14* |
>> DGPT( | INIT+16*, INIT+23 |
DIC | PTINQ+11*! |
DIC(0 | PTINQ+11* |
>> PTIFN | EN+1, HDR+1, INIT+12 |
U | HDR+1, INIT+13, INIT+15, INIT+19, INIT+22, INIT+23 |
VALMAT | EXPND+6~ |
>> VALMBCK | EXPND+10*, PTINQ+6* |
>> VALMCNT | INIT+28* |
>> VALMHDR(1 | HDR+1* |
VALMI | EXPND+6~, EXPND+9*, PTINQ+4* |
VALMY | EXPND+6~, EXPND+10, PTINQ+6 |
VALMY( | EXPND+12, PTINQ+7 |
>> X | INIT+20*, INIT+21*, INIT+22*, INIT+23*, INIT+24, HELP+1*, PTINQ+11* |
>> XQORNOD(0 | EXPND+9, PTINQ+4 |
>> Y | PTINQ+12 |