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

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

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

FileMan Files Accessed Via FileMan Db Call

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