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 |  Marked Items  | All
Print Page as PDF
Routine: DGREGTE2

Package: Registration

Routine: DGREGTE2


Information

DGREGTE2 ;ALB/BAJ,TDM,BDB,JAM - Temporary & Confidential Address Support Routine; 02/27/2006 ; 22 Mar 2017 1:10 PM

Source Information

Source file <DGREGTE2.m>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
Registration 6 ($$CNTRYI,$$FORIEN)^DGADDUTL  TADD^DGLOCK  CADD^DGLOCK3  $$CNTY^DGREGAZL  ^DGREGTE2  $$CAACT^DGRPCADD  
VA FileMan 5 (,UPDATE)^DIE  ^DIK  $$FMTE^DILIBF  ($$GET1,GETS)^DIQ  ^DIR  

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: 4

Package Total Caller Graph
Registration 4 DGLOCK  DGLOCK3  DGREGTE2  DGREGTED  

Entry Points

Name Comments DBIA/ICR reference
GETACT(DFN,DGTYPE,DGINPUT,DGACTIVE) ; DG*5.3*1143 - populate DGINPUT array with initial fields - Active?, Start/End Dates, Confidential Categories
; Input:
; DFN - Patient IEN
; DGTYPE - "TEMP" or "CONF"
; Output:
; DGINPUT - (pass by reference) - array that will hold the values entered
; DGACTIVE - (pass by reference) - holds the value of the Active? field (Y or N)
; Returns: 1 if an update has occurred
RETRY ;
RESTORE ; Restore original set of Confidential Categories
; Clean out existing categories
READ(DGTYPE,DGN,ANS) ; DG*5.3*1143 - User entry for start/end dates
; Input: DGN - Field number to prompt for
; Output: ANS - (pass by reference) the internal format of the user entry
; Returns: 1= ok response 0 = no response (timeout or user exit)
PROMPT ; Tag for entering in the date
GETOLD(DGCMP,DFN,TYPE) ;populate array with existing address info
INPT1(DFN,FORGN,PSTR) ; address input prompts
DISPUS(DGCMP,DGM) ;tag to display US data
DISPFGN(DGCMP,DGM) ;tag to display Foreign data
LOADTEMP ; DG*5.3*1143 - Called from TADD^DGLOCK when the address active? flag is set from YES to NO
; Load DGADDGRP3 Temp Address array from the DB
LOADCONF ; DG*5.3*1143 - Called from CADD^DGLOCK3 when the address active? flag is set from YES to NO
; Load DGADDGRP4 Address array from the DB - these fields will be sent to ES with delete flag set. Then deleted from the DB.
SURE() ; Are you sure prompt
SKIP(DGN,DGINPUT) ; determine whether or not to skip the prompt
INIT ; initialize variables
; This tag reads the table at FLDDAT (below) to set relationship between
; variables and Field numbers.
;
; Set up array of fields needed
FLDDAT ; Table of field values STRUCTURE --> Description;;Type;Variable Name;Field Number
FLDPRMPT ;Table of prompts and responses STRUCTURE --> Description;;Field;Old Value;New Value;Response Code

External References

Name Field # of Occurrence
$$CNTRYI^DGADDUTL GETOLD+15, DISPUS+12, DISPFGN+7
$$FORIEN^DGADDUTL GETOLD+8
TADD^DGLOCK RETRY+17
CADD^DGLOCK3 RETRY+18
$$CNTY^DGREGAZL GETOLD+20
^DGREGTE2 INIT+6, INIT+11
$$CAACT^DGRPCADD RETRY+62
^DIE RETRY+59
UPDATE^DIE RETRY+49, RESTORE+13
^DIK RETRY+41, RESTORE+4
$$FMTE^DILIBF READ+11
$$GET1^DIQ GETACT+14, READ+6
GETS^DIQ RETRY+35, RETRY+67, GETOLD+13, LOADCONF+41
^DIR RETRY+7, PROMPT+1, SURE+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?4,"But I need at least one active category."
  • Line Location: RETRY+62
Function Call: WRITE
  • Prompt: !,"End Date must not be before Start Date."
  • Line Location: PROMPT+5
Function Call: WRITE
  • Prompt: !,"End Date must not be before Start Date."
  • Line Location: PROMPT+6
Function Call: WRITE
  • Prompt: !,?2,"[",DGM," CONFIDENTIAL ADDRESS]"
  • Line Location: DISPUS+4
Function Call: WRITE
  • Prompt: !?16,$G(DGCMP(DGM,.1411))
  • Line Location: DISPUS+5
Function Call: WRITE
  • Prompt: !,?16,$G(DGCMP(DGM,.1412))
  • Line Location: DISPUS+6
Function Call: WRITE
  • Prompt: !,?16,$G(DGCMP(DGM,.1413))
  • Line Location: DISPUS+7
Function Call: WRITE
  • Prompt: !,?16,$G(DGCMP(DGM,.1414))
  • Line Location: DISPUS+8
Function Call: WRITE
  • Prompt: $P($G(DGCMP(DGM,.1415)),U,2)
  • Line Location: DISPUS+10
Function Call: WRITE
  • Prompt: " ",$G(DGCMP(DGM,.1416))
  • Line Location: DISPUS+11
Function Call: WRITE
  • Prompt: !?16,DGCNTRY
  • Line Location: DISPUS+13
Function Call: WRITE
  • Prompt: !,?6," County: ",$P($G(DGCMP(DGM,.14111)),U,2)
  • Line Location: DISPUS+14
Function Call: WRITE
  • Prompt: !
  • Line Location: DISPUS+15
Function Call: WRITE
  • Prompt: !,?2,"[",DGM," CONFIDENTIAL ADDRESS]"
  • Line Location: DISPFGN+2
Function Call: WRITE
  • Prompt: !?16,$G(DGCMP(DGM,.1411))
  • Line Location: DISPFGN+3
Function Call: WRITE
  • Prompt: !,?16,$G(DGCMP(DGM,.1412))
  • Line Location: DISPFGN+4
Function Call: WRITE
  • Prompt: !,?16,$G(DGCMP(DGM,.1413))
  • Line Location: DISPFGN+5
Function Call: WRITE
  • Prompt: !,?16,$G(DGCMP(DGM,.1414))_" "_$G(DGCMP(DGM,.14114))_" "_$G(DGCMP(DGM,.14115))
  • Line Location: DISPFGN+6
Function Call: WRITE
  • Prompt: !?16,DGCNTRY
  • Line Location: DISPFGN+9
Function Call: WRITE
  • Prompt: !
  • Line Location: DISPFGN+10
Routine Call
  • DIE
  • Line Location:
    • RETRY+59
Routine Call
  • DIE
  • Line Location:
    • RETRY+49
    • RESTORE+13
Routine Call
  • DIR
  • Line Location:
    • RETRY+7
    • PROMPT+1
    • SURE+5

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls,  GET1^DIQ,  GETS^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] RETRY+41, RESTORE+4, GETOLD+6, LOADTEMP+3, LOADTEMP+4, LOADCONF+4, LOADCONF+5
^HL(779.004 - [#779.004] GETOLD+7

Label References

Name Line Occurrences
$$INPT1 GETOLD+10
$$READ RETRY+26, RETRY+28
PROMPT PROMPT+5, PROMPT+6
RESTORE RETRY+61, RETRY+64
RETRY RETRY+62

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ANS RETRY+23~, RETRY+26, RETRY+28, READ~, PROMPT+7*
CCIEN GETOLD+1~, GETOLD+6*, GETOLD+7, GETOLD+8, GETOLD+15
CCNTRY GETOLD+1~, GETOLD+7*
CFORGN GETOLD+1~, GETOLD+2*, GETOLD+8*, GETOLD+10, GETOLD+17
CFSTR GETOLD+1~, GETOLD+10*, GETOLD+13, GETOLD+14
COUNTRY GETOLD+1~, GETOLD+15*, GETOLD+16
DA GETACT+9~, RETRY+1*, RETRY+41*, RETRY+54*, RESTORE+4*, READ+15*
DA(1 RETRY+39*, RESTORE+2*
DFN GETACT~, GETACT+14, RETRY+1, RETRY+35, RETRY+39, RETRY+40, RETRY+41, RETRY+45, RETRY+54, RETRY+62
, RETRY+67, RESTORE+2, RESTORE+3, RESTORE+4, RESTORE+9, READ+6, READ+15, GETOLD~, GETOLD+6, GETOLD+10
, GETOLD+13, GETOLD+14, GETOLD+18, GETOLD+19, INPT1~, LOADTEMP+3, LOADTEMP+4, LOADCONF+4, LOADCONF+5, LOADCONF+41
DGACTIVE GETACT~, RETRY+2*, RETRY+10*
DGADDCATS LOADCONF+39~, LOADCONF+42
DGADDGRP3 LOADTEMP+5!
DGADDGRP3( GETACT+16, RETRY+17*, READ+9, LOADTEMP+7*, LOADTEMP+9*, LOADTEMP+11*, LOADTEMP+13*, LOADTEMP+15*, LOADTEMP+17*, LOADTEMP+19*
, LOADTEMP+21*, LOADTEMP+23*, LOADTEMP+25*, LOADTEMP+27*, LOADTEMP+29*, LOADTEMP+31*, LOADTEMP+33*, LOADTEMP+35*
DGADDGRP4 LOADCONF+2!
DGADDGRP4( GETACT+17, RETRY+18*, READ+8, LOADCONF+7*, LOADCONF+9*, LOADCONF+11*, LOADCONF+13*, LOADCONF+15*, LOADCONF+17*, LOADCONF+19*
, LOADCONF+21*, LOADCONF+23*, LOADCONF+25*, LOADCONF+27*, LOADCONF+29*, LOADCONF+31*, LOADCONF+33*, LOADCONF+35*, LOADCONF+37*
DGADDGRP4("CCATS" RETRY+37, RETRY+44, RETRY+47, RETRY+48, LOADCONF+42*
DGCATID RETRY+72~, RETRY+73*, RETRY+76, RETRY+78
DGCIEN GETOLD+1~, GETOLD+18*, GETOLD+20
DGCMP GETOLD~, DISPUS~, DISPFGN~
DGCMP( DISPUS+5, DISPUS+6, DISPUS+7, DISPUS+8, DISPUS+9, DISPUS+10, DISPUS+11, DISPUS+12, DISPUS+14, DISPFGN+3
, DISPFGN+4, DISPFGN+5, DISPFGN+6, DISPFGN+7
DGCMP("OLD" GETOLD+14*, GETOLD+16*, GETOLD+22*
DGCNTRY DISPUS+1~, DISPUS+12*, DISPUS+13, DISPFGN+1~, DISPFGN+7*, DISPFGN+8*, DISPFGN+9
DGCNTY GETOLD+1~, GETOLD+20*, GETOLD+21*, GETOLD+22
DGCURR GETOLD+1~
DGCURR(2 GETOLD+14, GETOLD+18, GETOLD+19
DGCURRENT READ+4~, READ+6*, READ+8, READ+9, READ+11
DGDATA RETRY+16~
DGDEF READ+4~, READ+8*, READ+9*, READ+11
DGDEFACT GETACT+9~, GETACT+14*, GETACT+16*, GETACT+17*, RETRY+5*, RETRY+6, RETRY+12
DGERROR RETRY+16~, RETRY+33~
DGFDA RETRY+33~, RETRY+43!, RETRY+50!, RETRY+51!, RESTORE+7!, RESTORE+14!
DGFDA( RETRY+47*, RETRY+48*, RESTORE+11*, RESTORE+12*
DGFOUND RETRY+72~, RETRY+75*, RETRY+76*, RETRY+78
DGIEN RETRY+33~, RETRY+44*, RETRY+47, RETRY+48, RETRY+71*, RETRY+73, RETRY+78, RESTORE+8*, RESTORE+11, RESTORE+12
DGINPUT GETACT~, SKIP~
DGINPUT( RETRY+5, RETRY+10*, RETRY+26*, RETRY+28*, READ+8, READ+9, PROMPT+5, PROMPT+6, SKIP+3, SKIP+5
DGINPUT("CCATS" RETRY+69*, RETRY+75, RETRY+76, RETRY+78*
DGM DISPUS~, DISPUS+4, DISPUS+5, DISPUS+6, DISPUS+7, DISPUS+8, DISPUS+9, DISPUS+10, DISPUS+11, DISPUS+12
, DISPUS+14, DISPFGN~, DISPFGN+2, DISPFGN+3, DISPFGN+4, DISPFGN+5, DISPFGN+6, DISPFGN+7
DGN GETACT+9~, RETRY+26*, RETRY+28*, READ~, READ+6, READ+8, READ+9, READ+13, READ+14, READ+16
, PROMPT+5, PROMPT+6, SKIP~, SKIP+4, SKIP+6
DGNACT GETACT+9~, GETACT+12*, GETACT+14, GETACT+16, GETACT+17, RETRY+5, RETRY+6, RETRY+10, RETRY+17, RETRY+18
DGNEWIEN RETRY+33~, RETRY+45*, RETRY+46*, RETRY+47, RETRY+48, RETRY+75*, RETRY+76, RESTORE+9*, RESTORE+10*, RESTORE+11
, RESTORE+12
DGOK RETRY+23~, RETRY+24*, RETRY+26*, RETRY+28*, RETRY+30, RETRY+61*, RESTORE+15
DGORIGINAL RETRY+33~, RETRY+65!
DGORIGINAL( RETRY+71, RETRY+73, RETRY+78, RESTORE+8, RESTORE+11, RESTORE+12
DGRP LOADTEMP+2~, LOADCONF+3~
DGRP( LOADTEMP+3*, LOADTEMP+4*, LOADTEMP+9, LOADTEMP+11, LOADTEMP+13, LOADTEMP+15, LOADTEMP+17, LOADTEMP+19, LOADTEMP+21, LOADTEMP+23
, LOADTEMP+25, LOADTEMP+27, LOADTEMP+29, LOADTEMP+31, LOADTEMP+33, LOADTEMP+35, LOADCONF+4*, LOADCONF+5*, LOADCONF+9, LOADCONF+11
, LOADCONF+13, LOADCONF+15, LOADCONF+17, LOADCONF+19, LOADCONF+21, LOADCONF+23, LOADCONF+25, LOADCONF+27, LOADCONF+29, LOADCONF+31
, LOADCONF+33, LOADCONF+35, LOADCONF+37
>> DGRTAON RETRY+17, RETRY+18, RETRY+71
DGSAVE RETRY+33~
DGST GETOLD+1~, GETOLD+19*, GETOLD+20
>> DGTMOT RETRY+61*, PROMPT+2*
DGTYPE GETACT~, GETACT+12, GETACT+16, GETACT+17, RETRY+3, RETRY+17, RETRY+18, RETRY+26, RETRY+28, RETRY+30
, READ~, READ+8, READ+9
DGUPDATED RETRY+33~, RETRY+69
DIE RETRY+53~, RETRY+57*
DIE("NO^" RETRY+55*
DIK RETRY+33~, RETRY+40*, RESTORE+3*
DIR GETACT+9~, RETRY+22!, READ+4~, SURE+1~
DIR("A" RETRY+3*, READ+13*, READ+14*, SURE+4*
DIR("B" RETRY+6*, READ+11*, SURE+3*
DIR(0 RETRY+6*, READ+16*, SURE+2*
DIRUT RETRY+8, SURE+1~
DR RETRY+53~, RETRY+58*
DR(2 RETRY+56*
DTOUT PROMPT+2, SURE+1~
DUOUT PROMPT+3, SURE+1~
>> FCITY INPT1+4, INPT1+7
>> FCNTRY GETOLD+16, INPT1+4
>> FCOUNTY GETOLD+18, GETOLD+22, INPT1+4
FDESC GETOLD+1~, GETOLD+2*
FNODE GETOLD+1~, GETOLD+4*, GETOLD+6
FNUM INIT+5~, INIT+7*, INIT+8
FORGN INPT1~, INPT1+7
FPECE GETOLD+1~, GETOLD+5*, GETOLD+6
>> FPHONE INPT1+4, INPT1+6, INPT1+7
>> FPROV INPT1+4, INPT1+7
>> FPSTAL INPT1+4, INPT1+7
>> FSLINE1 INPT1+4, INPT1+6, INPT1+7, SKIP+3
>> FSLINE2 INPT1+4, INPT1+6, INPT1+7, SKIP+4, SKIP+5
>> FSLINE3 INPT1+4, INPT1+6, INPT1+7, SKIP+6
>> FSTATE GETOLD+19, INPT1+4
FSTR INPT1+1~, INPT1+6*, INPT1+7*, INPT1+8
FTYPE INIT+5~, INIT+7*, INIT+8
>> FZIP INPT1+4, INPT1+6
I INIT+5~, INIT+6*, INIT+10!, INIT+11*
L GETOLD+1~, GETOLD+14*
NULL SKIP+1~, SKIP+3*, SKIP+4, SKIP+5*, SKIP+6
PSTR INPT1~, INPT1+4*
RFLD INIT+5~, INIT+12*, INIT+13
>> RPROC( INIT+13*
SKIP SKIP+1~, SKIP+2*, SKIP+4*, SKIP+6*, SKIP+7
T GETOLD+1~, GETOLD+14*, INIT+5~, INIT+6*, INIT+7, INIT+10!, INIT+11*, INIT+12, INIT+13
TYPE GETOLD~, GETOLD+2, GETOLD+4, GETOLD+5, INIT+8
U RETRY+62, GETOLD+6, GETOLD+22, DISPUS+9, DISPUS+10, DISPUS+12, DISPUS+14, DISPFGN+7
VNAME INIT+5~, INIT+7*, INIT+8
X GETACT+9~, RETRY+61, READ+4~, SURE+1~
Y GETACT+9~, RETRY+10, RETRY+12, RETRY+15, READ+4~, READ+11*, PROMPT+5, PROMPT+6, PROMPT+7, SURE+1~
, SURE+6

Marked Items

Name Field # of Occurrence
$T(FLDDAT+I^DGREGTE2 INIT+6
$T(FLDPRMPT+I^DGREGTE2 INIT+11
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 |  Marked Items  | All