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,NCA - REGISTRATION CATASTROPHIC EDITS ; 10/4/06 3:27pm

Source Information

Source file <DGRPECE.m>

Call Graph

Call Graph

Call Graph Total: 7

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

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Registration 1 DGRPE  

Entry Points

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

External References

Name Field # of Occurrence
^%ZTLOAD ALERT+3
DGAUD^DGRPAUD AFTER+35
FILE^DIE SAVE+9, SAVE+24, SAVE+30
EN1^DIK SAVE+15
$$GET1^DIQ SIGI+6, SAVE+12, SAVE+16, BEFORE+2, BEFORE+3, BEFORE+5, BEFORE+6, BEFORE+7, BEFORE+8, BEFORE+9
, BEFORE+10, BEFORE+16, BEFORE+17, BEFORE+18, BEFORE+19, BEFORE+20, BEFORE+21, BEFORE+22, BEFORE+24, BEFORE+25
, BEFORE+26
GETS^DIQ BEFORE+11
^DIR CEDITS+39, REAS+6, REAS+12, DOB+2, SEX+3, SIGI+7, 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: !,"This is a required response. Enter '^' to exit"
  • Line Location: SIGI+10
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+9
    • SAVE+24
    • SAVE+30
Routine Call
  • DIR
  • Line Location:
    • CEDITS+39
    • REAS+6
    • REAS+12
    • DOB+2
    • SEX+3
    • SIGI+7
    • MBI+2
    • WARNING+11

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls,  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+40, AFTER+41, AFTER+49!
^VA(20 - [#20] SAVE+12

Label References

Name Line Occurrences
$$AFTER CECHECK+3
$$WARNING CECHECK+8
ALERT CECHECK+12
BEFORE CEDITS+18
CECHECK CEDITS+40, CEDITS+43, REAS+17, DOB+3, SEX+5, SIGI+11, MBI+4
DOB CEDITS+33
REAS REAS+9, REAS+10, REAS+14
SAVE CECHECK+12
SIGI SIGI+10

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

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