Routine: DGRPECE

Information

DGRPECE ;ALB/MRY,ERC,BAJ - REGISTRATION CATASTROPHIC EDITS ; 10/4/06 3:27pm

Source Information

Source file <DGRPECE.m>

Call Graph

Call Graph Total: 6

Package	Total	Call Graph
VA Fileman	3	FILE^DIE ($$GET1,GETS)^DIQ ^DIR
Registration	2	DGAUD^DGRPAUD $$NCEDIT^DPTNAME
Kernel	1	^%ZTLOAD

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
Registration	1	DGRPE

Entry Points

Name	Comments	DBIA/ICR reference
SAVE(DFN)	;store accepted/edited values into patient file
MBI	; buffer - get MBI (multiple birth indicator)
DOB	;buffer - get dob
SEX	;buffer - get sex
BEFORE(IEN,BEF,BUF)	;save original name, ssn, dob, sex, mbi, prefix, degree
CECHECK	;do catastrophic edit checks, alert, and save
AFTER(BEF,BUF,SAV)	;prevent catastrophic edit checks
CEDITS(DFN)	;catastrophic edits - buffer values, save after check
ALERT	;Queue alert
WARNING()	;CE warning message
REAS

External References

Name	Field # of Occurrence
^%ZTLOAD	ALERT+3
DGAUD^DGRPAUD	AFTER+32
FILE^DIE	SAVE+8, SAVE+17, SAVE+23
$$GET1^DIQ	SAVE+10, BEFORE+2, BEFORE+3, BEFORE+5, BEFORE+6, BEFORE+7, BEFORE+8, BEFORE+9, BEFORE+15, BEFORE+16 , BEFORE+17, BEFORE+18, BEFORE+19, BEFORE+20, BEFORE+21, BEFORE+23, BEFORE+24, BEFORE+25
GETS^DIQ	BEFORE+10
^DIR	CEDITS+40, REAS+6, REAS+12, DOB+2, SEX+2, MBI+2, WARNING+11
$$NCEDIT^DPTNAME	CEDITS+21

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"SSN: "_BUFFER("SSN") Line Location: CEDITS+35
Function Call: WRITE	Prompt: !,"SOCIAL SECURITY NUMBER "_BUFFER("SSN")_" has been verified by SSA --NO EDITING" Line Location: CEDITS+36
Function Call: WRITE	Prompt: !?10,"PSSN Reason Required if SSN is a Pseudo." Line Location: REAS+8
Function Call: WRITE	Prompt: !!,?25,"WARNING!!" Line Location: WARNING+3
Function Call: WRITE	Prompt: !!,"The edits you are about to make, may potentially change the identity of" Line Location: WARNING+4
Function Call: WRITE	Prompt: !,"this patient. Please verify that you have selected the correct patient" Line Location: WARNING+5
Function Call: WRITE	Prompt: !,"and ensure that supporting documentation exists for these changes. If" Line Location: WARNING+6
Function Call: WRITE	Prompt: !,"you continue with these edits, an alert will be generated and sent to" Line Location: WARNING+7
Function Call: WRITE	Prompt: !,"your Supervisor and ADPAC, notifying them of the changes." Line Location: WARNING+8
Routine Call	DIE Line Location: SAVE+8 SAVE+17 SAVE+23
Routine Call	DIR Line Location: CEDITS+40 REAS+6 REAS+12 DOB+2 SEX+2 MBI+2 WARNING+11

FileNo	Call Tags
^DPT - [#2]	GET1^DIQ, GETS^DIQ
^VA(20 - [#20]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("UCI"	ALERT+1
^DPT - [#2]	REAS+3
^TMP("DGRPAUD"	AFTER+37, AFTER+38, AFTER+45!
^VA(20 - [#20]	SAVE+10

Name	Line Occurrences
$$AFTER	CECHECK+3
$$WARNING	CECHECK+8
ALERT	CECHECK+12
BEFORE	CEDITS+18
CECHECK	CEDITS+41, CEDITS+44, REAS+17, DOB+3, SEX+3, MBI+4
DOB	CEDITS+33
REAS	REAS+9, REAS+10, REAS+14
SAVE	CECHECK+12

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
BEF	BEFORE~, AFTER~
BEF("DEGREE"	BEFORE+13, BEFORE+21, AFTER+15
BEF("DOB"	BEFORE+7, AFTER+17, AFTER+42
BEF("FAMILY"	BEFORE+11, BEFORE+16, AFTER+2
BEF("GIVEN"	BEFORE+11, BEFORE+17, AFTER+5
BEF("MAIDEN"	BEFORE+23*
BEF("MBI"	BEFORE+9*, AFTER+25
BEF("MIDDLE"	BEFORE+12, BEFORE+18, AFTER+8
BEF("NAME"	BEFORE+2, AFTER+39
BEF("POBCITY"	BEFORE+24*
BEF("POBSTATE"	BEFORE+25*
BEF("PREFIX"	BEFORE+13, BEFORE+20, AFTER+13
BEF("SEX"	BEFORE+8, AFTER+19, AFTER+41
BEF("SSN"	BEFORE+3, AFTER+21, AFTER+40
BEF("SSNREAS"	BEFORE+6*, AFTER+23
BEF("SSNV"	BEFORE+5*
BEF("SUFFIX"	BEFORE+12, BEFORE+19, AFTER+10
BEFORE	CEDITS+17~, CEDITS+18, CECHECK+3
BEFORE("NAME"	CEDITS+22
BEFORE("SSN"	CEDITS+34, REAS+9, REAS+10, REAS+13
BEFORE("SSNV"	CEDITS+33
BUF	BEFORE~, AFTER~
BUF("DEGREE"	BEFORE+13, BEFORE+21, AFTER+15, AFTER+16
BUF("DOB"	BEFORE+7*, AFTER+17, AFTER+18
BUF("FAMILY"	BEFORE+11, BEFORE+16, AFTER+2
BUF("GIVEN"	BEFORE+11, BEFORE+17, AFTER+5
BUF("MBI"	BEFORE+9*, AFTER+25, AFTER+26
BUF("MIDDLE"	BEFORE+12, BEFORE+18, AFTER+8
BUF("NAME"	BEFORE+2*, AFTER+4, AFTER+7, AFTER+9, AFTER+11
BUF("PREFIX"	BEFORE+13, BEFORE+20, AFTER+13, AFTER+14
BUF("SEX"	BEFORE+8*, AFTER+19, AFTER+20
BUF("SSN"	BEFORE+3*, AFTER+21, AFTER+22
BUF("SSNREAS"	BEFORE+6*, AFTER+23, AFTER+24
BUF("SSNV"	BEFORE+5*
BUF("SUFFIX"	BEFORE+12, BEFORE+19, AFTER+10
BUFFER	CEDITS+17~, CEDITS+18, CECHECK+3
BUFFER("DEGREE"	CEDITS+30*, SAVE+20
BUFFER("DOB"	DOB+4*
BUFFER("FAMILY"	CEDITS+23*, SAVE+12
BUFFER("GIVEN"	CEDITS+24*, SAVE+13
BUFFER("MBI"	MBI+3*
BUFFER("MIDDLE"	CEDITS+25*, SAVE+14
BUFFER("NAME"	CEDITS+21, CEDITS+22
BUFFER("PREFIX"	CEDITS+29*, SAVE+19
BUFFER("SEX"	SEX+4*
BUFFER("SSN"	CEDITS+34, CEDITS+35, CEDITS+36, CEDITS+42, CEDITS+44, REAS+13*, REAS+17
BUFFER("SSNREAS"	REAS+7, REAS+16*
BUFFER("SUFFIX"	CEDITS+26*, SAVE+15
DA	CEDITS+17~, CEDITS+40, REAS+5, DOB+2, SEX+2, MBI+2*
DFN	CEDITS~, CEDITS+18, CEDITS+21, CEDITS+40, REAS+3, REAS+5, DOB+2, SEX+2, MBI+2, CECHECK+12 , SAVE~, SAVE+2, SAVE+3, SAVE+4, SAVE+5, SAVE+6, SAVE+7, SAVE+10, AFTER+32, AFTER+37 , AFTER+38, ALERT+1
DG20	BEFORE+1~
DG20(2	BEFORE+14
DG20CNT	AFTER+1~, AFTER+3, AFTER+6*, AFTER+12
DG20IEN	CEDITS+17~, SAVE+10, SAVE+12, SAVE+13, SAVE+14, SAVE+15, SAVE+19, SAVE+20, SAVE+21, SAVE+22 , BEFORE+14, BEFORE+15, BEFORE+16, BEFORE+17, BEFORE+18, BEFORE+19, BEFORE+20, BEFORE+21
DG20NAME	CEDITS+20!, CEDITS+21, CEDITS+31!
DG20NAME("DEGREE"	CEDITS+30
DG20NAME("FAMILY"	CEDITS+23
DG20NAME("GIVEN"	CEDITS+24
DG20NAME("MIDDLE"	CEDITS+25
DG20NAME("PREFIX"	CEDITS+29
DG20NAME("SUFFIX"	CEDITS+26
DGANS	WARNING+9~, WARNING+11, WARNING+12, WARNING+13
DGAUDIEN	AFTER+35~, AFTER+36, AFTER+37, AFTER+38
DGCEFLG	CECHECK+1~, CECHECK+8*, CECHECK+11, CECHECK+12
DGCNT	CECHECK+1~, CECHECK+3, CECHECK+7, CECHECK+11, CECHECK+12, AFTER+1~, AFTER+12, AFTER+18, AFTER+20, AFTER+22* , AFTER+27, AFTER+28, AFTER+29, AFTER+30, AFTER+32, AFTER+43, AFTER+44
DGFLD	AFTER+35~, AFTER+38*, AFTER+39, AFTER+40, AFTER+41, AFTER+42
DGQSSN	REAS+1~, REAS+2, REAS+13, REAS+15
DGREA	REAS+1~, REAS+3*
DGTYP	AFTER+35~, AFTER+38*, AFTER+39, AFTER+40, AFTER+41, AFTER+42
DIERR	SAVE+1~, SAVE+9!, SAVE+18!, SAVE+24!
DIR	CEDITS+17~, REAS+1~, WARNING+9~, WARNING+11!
DIR("?"	REAS+11*
DIR("A"	REAS+11, WARNING+10
DIR("B"	REAS+11, WARNING+11
DIR(0	CEDITS+39, REAS+4, REAS+11, DOB+1, SEX+1, MBI+1, WARNING+10*
DIRUT	CEDITS+17~, CEDITS+41, CEDITS+44, REAS+7, REAS+17, DOB+3, SEX+3, MBI+4
>> DTOUT	REAS+7
>> DUOUT	REAS+7
FDATA	SAVE+1~, SAVE+9!, SAVE+18!, SAVE+24!
FDATA(2	SAVE+2, SAVE+3, SAVE+4, SAVE+5, SAVE+6, SAVE+7
FDATA(20	SAVE+12, SAVE+13, SAVE+14, SAVE+15, SAVE+19, SAVE+20, SAVE+21, SAVE+22
IEN	BEFORE~, BEFORE+2, BEFORE+3, BEFORE+5, BEFORE+6, BEFORE+7, BEFORE+8, BEFORE+9, BEFORE+10, BEFORE+14 , BEFORE+15, BEFORE+23, BEFORE+24, BEFORE+25, ALERT+1*
SAV	AFTER~
SAV("DEGREE"	AFTER+16*, AFTER+28
SAV("DOB"	AFTER+18*
SAV("MBI"	AFTER+26*, AFTER+29
SAV("NAME"	AFTER+4, AFTER+7, AFTER+9, AFTER+11, AFTER+27
SAV("PREFIX"	AFTER+14*, AFTER+28
SAV("SEX"	AFTER+20*
SAV("SSN"	AFTER+22*
SAV("SSNREAS"	AFTER+24*
SAVE	CEDITS+17~, CECHECK+3
SAVE("DEGREE"	SAVE+22
SAVE("DOB"	SAVE+3
SAVE("MBI"	SAVE+7
SAVE("NAME"	SAVE+2, SAVE+11
SAVE("PREFIX"	SAVE+21
SAVE("SEX"	SAVE+4
SAVE("SSN"	SAVE+5
SAVE("SSNREAS"	SAVE+6
U	REAS+3, AFTER+38
V	ALERT+2*, ALERT+3!
X	ALERT+3~
XUNOTRIG	CEDITS+17~, SAVE+16*
Y	CEDITS+17~, CEDITS+42, REAS+13*, REAS+16, DOB+4, SEX+4, MBI+3, WARNING+9~, WARNING+11, WARNING+12 , ALERT+1
>> ZTDESC	ALERT+3*
>> ZTDTH	ALERT+1*
>> ZTIO	ALERT+1*
>> ZTRTN	ALERT+1*
>> ZTSAVE(	ALERT+2*
ZTSK	ALERT+3!
>> ZTUCI	ALERT+1*

Customize PDF page

Package: Registration

Routine: DGRPECE

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: