Routine: DGPTFCR

Information

DGPTFCR ;ALB/JDS - CREATE IN PATIENT PTF RECORD ; 11 JAN 85

Source file <DGPTFCR.m>

Package	Total	Call Graph
Registration	3	DFN^DGPMUTL RTY^DGPTUTL LO^DGUTL
VA Fileman	3	^DIC FILE^DICN ^DIE

Package	Total	Caller Graph
Registration	7	DG PTF CREATE DGPMV31 DGPMV321 DGPTC1 DGPTFEE DGPTFFB DGPTXX8

Name	Comments	DBIA/ICR reference
EN
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	ICR #226 Status: Retired Usage: Private
Q
CREATEQ
SEL	; -- pt select
SELQ

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: SEL+1
Function Call: WRITE	Prompt: ! Line Location: SEL+7
Function Call: WRITE	Prompt: !!?5,"Creating new PTF record..." Line Location: SEL+14
Function Call: WRITE	Prompt: *7,"unable to create record." Line Location: SEL+15
Function Call: WRITE	Prompt: !?5,"record #",PTF," created.",! Line Location: SEL+17
Routine Call	DIE Line Location: SEL+16 CREATE+10
Routine Call	DIC Line Location: SEL+3

Name	Line Occurrences (* Changed, ! Killed)
^DG(405.2 - [#405.2]	SEL+12
^DGPM - [#405]	SEL+12

Name	Field # of Occurrence
^(0	SEL+12

Name	Field # of Occurrence
%	Q!
D0	Q!
DA	SEL+16, SELQ!, CREATE+10!, CREATEQ!
DD	CREATE+9!
DFN	EN!, SEL+3*, CREATE+7, CREATE+9
DG	SELQ!
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!, CREATE+10
DGRTY0	SELQ!
DGTY	SEL+12*, SELQ!
DIC	SEL+1!, SEL+2, SEL+3!, SEL+8, SEL+9!, SELQ!, 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!, CREATE+10, CREATEQ!
DO	CREATE+9!
DQ	Q!, SELQ!
DR	SEL+16, SELQ!, CREATE+10, CREATEQ!
I	SELQ!
J	SELQ!
PTF	SEL+16, SEL+17, SELQ!, CREATE+10~
T	Q!
U	CREATE+8
X	Q!, SELQ!, CREATE+9*
Y	Q!, SEL+3, SEL+9, SEL+12, SEL+13, SEL+15, SEL+16, SELQ!, CREATE+7, CREATE+8 , CREATE+9, CREATE+10
Y(0	SEL+12, CREATE+7*