Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: DGRPECE

Package: Registration

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

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

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

Label References

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*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All