DGPTFCR ;ALB/JDS - CREATE IN PATIENT PTF RECORD ;Sep 22, 2020@16:34
Source file <DGPTFCR.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 | 6 | DG PTF CREATE DGPMV31 DGPMV321 DGPTC1 DGPTFEE DGPTFFB |
Name | Comments | DBIA/ICR reference |
---|---|---|
EN | ||
Q | ||
SEL | ; -- pt select
|
|
SELQ | ; -- clean-up
|
|
CREATE | ; -- entry point to create a new PTF record
; input: DFN := pt number ; Y := admission d/t ^ fee record ; DGRTY := type of record (1-PTF ; 2-CENSUS) ; (PTF assumed if undefined) ; output: Y := ifn of ^DGPT |
|
CREATEQ |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Routine Call |
|
Routine Call |
|
FileNo | Call Tags |
---|---|
^DPT - [#2] | Classic Fileman Calls |
^DGPM - [#405] | Classic Fileman Calls |
^DGPT - [#45] | Classic Fileman Calls |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DG(405.2 - [#405.2] | SEL+12 |
^DGPM - [#405] | SEL+12 |
Name | Field # of Occurrence |
---|---|
^(0 | SEL+12 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
% | Q! |
D0 | Q! |
DA | SEL+16*, SELQ+1!, CREATE+10!*, CREATEQ! |
DD | CREATE+9! |
DFN | EN!, SEL+3*, CREATE+7, CREATE+9 |
DG | SELQ+1! |
DGDUMB | EN*, Q! |
DGPMAN | SEL+11~, SEL+12*, SEL+13 |
DGPMCA | SEL+11~, SEL+12*, SEL+16 |
DGPMDN | SEL+11~, SEL+12* |
DGPTDATA | CREATE+8*, CREATEQ! |
DGRTY | SELQ+1!, CREATE+10 |
DGRTY0 | SELQ+1! |
DGTY | SEL+12*, SELQ+1! |
DIC | SEL+1!, SEL+2*, SEL+3!, SEL+8*, SEL+9!, SELQ+1!, CREATE+8*, CREATEQ! |
DIC("A" | SEL+2*, SEL+8* |
DIC("DR" | CREATE+8* |
DIC("S" | SEL+2*, SEL+8* |
DIC(0 | SEL+2*, SEL+8*, CREATE+9* |
DIE | SEL+16*, SELQ+1!, CREATE+10*, CREATEQ! |
DO | CREATE+9! |
DQ | Q!, SELQ+1! |
DR | SEL+16*, SELQ+1!, CREATE+10*, CREATEQ! |
I | SELQ+1! |
J | SELQ+1! |
PTF | SEL+16*, SEL+17, SELQ+1!, CREATE+10~* |
T | Q! |
U | CREATE+8 |
X | Q!, SELQ+1!, CREATE+9* |
Y | Q!, SEL+3, SEL+9, SEL+12, SEL+13*, SEL+15, SEL+16, SELQ+1!, CREATE+7*, CREATE+8 , CREATE+9*, CREATE+10* |
Y(0 | SEL+12, CREATE+7* |