Routine: DGREG

Call Graph Total: 26

Package	Total	Call Graph
Registration	17	(HINQ,PAUSE)^DG10 $$ADD^DGADDUTL ($$LOCK,UNLOCK)^DGENPTA1 $$QRY^DGENQRY ($$PRFQRY,DISPPRF)^DGPFAPI DIED^DGPMV (,Q1)^DGREG0 EL^DGREGE $$DIVCHK^DGREGFAC ^DGREGG $$ROMQRY^DGROAPI (EN1,NEW)^DGRP ^DGRPC EN^DGRPD LO^DGUTL HL7A08^VAFCDD01 $$PRIM^VASITE
VA Fileman	5	EN^DDIOL ^DIC YN^DICN (,CHK)^DIE ^DIK
Uncategorized	2	MPIQ^MPIFAPI ADM^RTQ3
Income Verification Match	1	REG^IVMCQ
Kernel	1	^%ZIS

Package

Total

Call Graph

(HINQ,PAUSE)^DG10  $$ADD^DGADDUTL  ($$LOCK,UNLOCK)^DGENPTA1  $$QRY^DGENQRY  ($$PRFQRY,DISPPRF)^DGPFAPI  DIED^DGPMV  (,Q1)^DGREG0  EL^DGREGE
$$DIVCHK^DGREGFAC  ^DGREGG  $$ROMQRY^DGROAPI  (EN1,NEW)^DGRP  ^DGRPC  EN^DGRPD  LO^DGUTL  HL7A08^VAFCDD01
$$PRIM^VASITE

VA Fileman

EN^DDIOL ^DIC YN^DICN (,CHK)^DIE ^DIK

Uncategorized

MPIQ^MPIFAPI ADM^RTQ3

Income Verification Match

REG^IVMCQ

Kernel

^%ZIS

Package	Total	Caller Graph
Registration	5	DG REGISTER PATIENT DGENUPL4 DGREG0 DGREG00 DGRPTI

Package

Total

Caller Graph

Registration

DG REGISTER PATIENT DGENUPL4 DGREG0 DGREG00 DGRPTI

Entry Points

External References

Name	Field # of Occurrence
^%ZIS	EN+4, EN+6, A+18
EN^DDIOL	ROMQRY+9, ROMQRY+14
HINQ^DG10	A+19
PAUSE^DG10	A+1
$$ADD^DGADDUTL	A1+2
$$LOCK^DGENPTA1	BEGINREG+8
UNLOCK^DGENPTA1	ENDREG+5
$$QRY^DGENQRY	BEGINREG+6
$$PRFQRY^DGPFAPI	A+12
DISPPRF^DGPFAPI	A+12
DIED^DGPMV	A+5
^DGREG0	CONT+4
Q1^DGREG0	Q
EL^DGREGE	CONT+1
$$DIVCHK^DGREGFAC	REG+20, ASKDIV+4
^DGREGG	ABIL
$$ROMQRY^DGROAPI	ROMQRY+5
EN1^DGRP	A1
NEW^DGRP	A+1
^DGRPC	CK
EN^DGRPD	A+18
LO^DGUTL	EN
^DIC	A+1, REG+5
YN^DICN	A1, PR, SEEN
^DIE	REG+11, ASKDIV+3, CONT+1, CONT+2, CONT+3
CHK^DIE	REG+1
^DIK	REG+16
REG^IVMCQ	A+21
MPIQ^MPIFAPI	CIRN+4
ADM^RTQ3	A+20, RT
HL7A08^VAFCDD01	A+18
$$PRIM^VASITE	EN+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$C(7),"Not a printer" Line Location: EN+4
Function Call: WRITE	Prompt: !,"Using closest printer ",Y,! Line Location: EN+6
Function Call: WRITE	Prompt: !! Line Location: A+1
Function Call: WRITE	Prompt: !!,"Is the patient currently being followed in a clinic for the same condition" Line Location: PR+0
Function Call: WRITE	Prompt: !?4,$C(7),"Enter 'Y' if the patient is being followed in clinic for condition for which",!?6,"registered, 'N' if not." Line Location: PR+1
Function Call: WRITE	Prompt: !!,"There is still an open disposition--register aborted.",$C(7),$C(7) Line Location: CH1+0
Function Call: WRITE	Prompt: !!,"Enter 'Y' if the patient is to be examined today, 'N' if not.",$C(7) Line Location: SEEN+0
Function Call: READ	Timeout: DTIME Variable: ANS Line Location: REG+1
Function Call: WRITE	Prompt: " ("_RESULT(0)_")" Line Location: REG+2
Function Call: WRITE	Prompt: !!,"You must enter a date that does not exist.",$C(7),$C(7) Line Location: REG+4
Function Call: WRITE	Prompt: !!?5,"The facility chosen either has no pointer to an Institution" Line Location: ASKDIV+0
Function Call: WRITE	Prompt: !?5,"file record or the Institution file record is inactive." Line Location: ASKDIV+1
Function Call: WRITE	Prompt: !?5,"Please choose another division." Line Location: ASKDIV+2
Function Call: WRITE	Prompt: !!,"You can only enter new registrations through this option.",$C(7),$C(7) Line Location: PR2+0
Function Call: WRITE	Prompt: !!,"Time is required to register the patient.",!!,$C(7),$C(7) Line Location: PR3+0
Function Call: WRITE	Prompt: !?5,"Enter 'YES' to enter/edit registration data or 'NO' to continue." Line Location: H+0
Function Call: WRITE	Prompt: !,$C(7),"*PATIENT IS CURRENTLY AN INPATIENT*",! Line Location: WARN+0
Function Call: WRITE	Prompt: !,$C(7),"*PATIENT IS CURRENTLY A LODGER*",! Line Location: WARN+1
Function Call: WRITE	Prompt: !,"Another user is editing, try later ..." Line Location: MSG+0
Function Call: WRITE	Prompt: !!,"Enrollment/Eligibility Query sent ...",!! Line Location: BEGINREG+6
Routine Call	DIE Line Location: REG+11 ASKDIV+3 CONT+1 CONT+2 CONT+3
Routine Call	DIE Line Location: REG+1
Routine Call	DIC Line Location: A+1 REG+5
Routine Call	%ZIS Line Location: EN+4 EN+6 A+18

FileNo	Call Tags
^DPT - [#2]	Classic Fileman Calls
2.101	CHK^DIE

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZIS(1 - [#3.5]	EN+6
^%ZOSF("TEST"	CIRN+2
^DG(40.8 - [#40.8]	EN+3, REG+10
^DG(43 - [#43]	EN+4, EN+6, REG+10
^DIC(195.4	A+20, RT
^DIC(8 - [#8]	EL
^DPT - [#2]	A+4, A+17, CH, REG+4, REG+5, CONT+1, CONT+3, EL, WARN, WARN+1
^DPT("ADA"	CH1, REG+5
^TMP(	BEGINREG+7, ENDREG+4, IFREG+9, IFREG+11

Label References

Name	Line Occurrences
A	A+5, A+18
A1	A+22, H
ASKDIV	ASKDIV+4
BEGINREG	A+1
CH	A1+3
CH1	CH, REG+5
CIRN	A+7
CK	A1
CONT	REG+20
DGREG	EN+4, FEE
EL	REG+11
ENDREG	A, A+18
H	A1
MSG	REG+5, REG+11
PR	PR+1, CH1
PR3	REG+1
Q	A1, PR, CH1, SEEN, REG+1, REG+12, MSG
Q1	A+1, FEE
REG	REG+1, REG+4, PR2, PR3
ROMQRY	A+14
SEEN	PR+2, SEEN
WARN	A+17

Name	Field # of Occurrence
^(	CH, EL, WARN, WARN+1
^("UP"	A+20, RT
^("VET"	A+17
^(0	EN+6, REG+5*, REG+10, EL
^(2	CONT+3
^(99	EN+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	A1, PR, PR+1, PR+2, SEEN*
>> %DT	REG*
>> %DT("A"	REG*, REG+1
>> %ZIS	EN+4, EN+6, A+18*
>> %ZIS("A"	EN+4*
>> %ZIS("B"	EN+3*, EN+5!
A	ROMQRY+4~, ROMQRY+9, ROMQRY+14
>> ANS	REG+1*
>> APD	REG+4*
CURR	A+16, PR+2, REG+10, Q1!
DA	A+1, A+17, A1, CH1, REG+5, REG+10, REG+14~, REG+15, ASKDIV+3, CONT+1* , CONT+2, CONT+3
DA(1	REG+1, REG+5, REG+10, REG+15, ASKDIV+3, CONT+1*
DFN	A, A+1*, A+4, A+5!, A+12, A+17, A+18!, A+21, A1+2, CH , CH1, REG, REG+1, REG+4, REG+10, REG+15, REG+20, ASKDIV+3, ASKDIV+4, CONT+1 , CONT+2, CONT+3, EL, WARN, WARN+1, BEGINREG~, BEGINREG+5, BEGINREG+6, BEGINREG+7, BEGINREG+8 , ENDREG~, ENDREG+3, ENDREG+4, ENDREG+5, IFREG~, IFREG+8, IFREG+9, IFREG+11, CIRN+4, ROMQRY+5
>> DFN1	REG+4*, REG+10, REG+11, REG+15, REG+20, ASKDIV+3, ASKDIV+4, CONT+1, CONT+3
DG	Q!
DGASKDEV	EN+4*, Q1!
>> DGCLPR	EN*
DGCLRP	Q1!
DGDIV	EN+1~, EN+2*, EN+3
>> DGEDCN	CK*
DGELVER	A+18*, Q1!
DGFC	A+16, A+17, RT*, Q1!
DGIO	EN+6, Q1!
DGIO(	EN+6*
DGIO("HS"	EN+4*
DGIO("PRF"	EN+4*
DGIO("RT"	EN+4*
DGIO(10	EN+4*
>> DGMSG	ROMQRY+9, ROMQRY+14
>> DGMSG(1	ROMQRY+7, ROMQRY+12
>> DGMSG(2	ROMQRY+8, ROMQRY+13
DGNDLOCK	REG+11~*
DGNEW	A+1*, A+9, A+17, A1, A1+1, Q1!, ROMQRY+1
>> DGPME	A+5*
DGRPFEE	FEE*!
DGRPOUT	A+5!, A+18!
>> DGRPV	A1*
>> DGXXXD	CONT+1*
>> DIC	A+1, REG
>> DIC("A"	REG+11!
>> DIC("B"	A+1!
>> DIC("S"	A+1!
>> DIC(0	A+1, REG+5
>> DIE	REG, REG+5, REG+11, CONT+1, CONT+2, CONT+3
>> DIE("NO^"	REG+10, ASKDIV+3, CONT+2!
DIK	REG+14~, REG+15*
>> DINUM	REG+3*, REG+4, REG+5
>> DIV	RT
DLAYGO	A+1*!
>> DOD	A+4*, A+5
>> DP	REG+10, ASKDIV+3
DQ	Q!
>> DR	REG+10, ASKDIV+3, CONT+1, CONT+2, CONT+3, EL, EL+1*
DTIME	REG+1
DTOUT	REG+12, REG+13!
DUZ	REG+10
>> I	EN+6*
ION	EN+4
>> IOP	EN+6, A+18
>> IOS	EN+6
IOST	EN+4
MPIFRTN	CIRN+3!, CIRN+5!
>> POP	EN+4
>> RESULT	REG+1, REG+2, REG+3
>> RESULT(0	REG+2
RETURN	IFREG+7~, IFREG+10*, IFREG+12
>> SEEN	SEEN*, REG+10
U	EN+3, EN+4, EN+6, RT
>> VAFCDDT	REG+8*
>> VET	A+17*
X	CH, REG+1, REG+5, REG+8, CIRN+2~
>> X1	CH*
Y	EN+6, A+1~, A+5, REG+1*, REG+4, REG+5
>> Y1	REG+4*

Customize PDF page

Package: Registration

Routine: DGREG

Information

Source Information