Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

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

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls,  GET1^DIQ,  GETS^DIQ
^VA(20 - [#20] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call