2. EPMO Open Source Coordination Office Redaction File Detail Report

Produced by Araxis Merge on 6/12/2018 12:04:36 PM Central Daylight Time. See www.araxis.com for information about Merge. This report uses XHTML and CSS2, and is best viewed with a modern standards-compliant browser. For optimum results when printing this report, use landscape orientation and enable printing of background images and colours in your browser.

2.1 Files compared

# Location File Last Modified
1 MASS.zip\MASS DG-5.3-948.KID Wed Jun 6 15:15:06 2018 UTC
2 MASS.zip\MASS DG-5.3-948.KID Tue Jun 12 16:55:23 2018 UTC

2.2 Comparison summary

Description Between
Files 1 and 2
Text Blocks Lines
Unchanged 11 24158
Changed 11 22
Inserted 0 0
Removed 0 0

2.3 Comparison options

Whitespace
Character case Differences in character case are significant
Line endings Differences in line endings (CR and LF characters) are ignored
CR/LF characters Not shown in the comparison detail

2.4 Active regular expressions

No regular expressions were active.

2.5 Comparison detail

  1   $TXT Creat ed by MARQ UEZ,JUSTO  at DEVVFF.
D NS        URL             (KIDS) on  Friday, 05 /04/18 at  12:18
  2   $END TXT
  3   $KID DG*5. 3*948
  4   **INSTALL  NAME**
  5   DG*5.3*948
  6   "BLD",1058 7,0)
  7   DG*5.3*948 ^REGISTRAT ION^0^3180 504^y
  8   "BLD",1058 7,1,0)
  9   ^^559^559^ 3180308^^
  10   "BLD",1058 7,1,1,0)
  11   Associated  patches:  SD*5.3*676 , DG*5.3*7 54, DG*5.3 *578, DG*5 .3*149
  12   "BLD",1058 7,1,2,0)
  13    
  14   "BLD",1058 7,1,3,0)
  15   Subject:   MASS Regis tration Pa ckage
  16   "BLD",1058 7,1,4,0)
  17    
  18   "BLD",1058 7,1,5,0)
  19   Category:   ROUTINE,  PROTOCOLS,  INTERFACE S
  20   "BLD",1058 7,1,6,0)
  21    
  22   "BLD",1058 7,1,7,0)
  23    
  24   "BLD",1058 7,1,8,0)
  25   Descriptio n:
  26   "BLD",1058 7,1,9,0)
  27   ---------- --
  28   "BLD",1058 7,1,10,0)
  29   This patch  contains  the Regist ration por tions of t he Medical  Appointme nt 
  30   "BLD",1058 7,1,11,0)
  31   Scheduling  System (M ASS) proje ct. The MA SS program  is deploy ing a 
  32   "BLD",1058 7,1,12,0)
  33   commercial  schedulin g applicat ion to sup port sched ulers, and  ultimatel
  34   "BLD",1058 7,1,13,0)
  35   our Vetera ns, within  the Depar tment of V eterans Af fairs (VA) .
  36   "BLD",1058 7,1,14,0)
  37    
  38   "BLD",1058 7,1,15,0)
  39    
  40   "BLD",1058 7,1,16,0)
  41   Patch Comp onents:
  42   "BLD",1058 7,1,17,0)
  43   ---------- -------
  44   "BLD",1058 7,1,18,0)
  45    
  46   "BLD",1058 7,1,19,0)
  47   Parameters
  48   "BLD",1058 7,1,20,0)
  49           DG MX MASS EN ABLED - En ables send ing HL7 me ssages to  MASS when 
  50   "BLD",1058 7,1,21,0)
  51   patient-re lated fiel ds change  in VistA.
  52   "BLD",1058 7,1,22,0)
  53           DG MX PATIENT  IEN ASSIG NING - Set s the Pati ent ID Ass igning 
  54   "BLD",1058 7,1,23,0)
  55   Authority  to be sent  in PID-3. 4 of MASS  HL7 messag es.
  56   "BLD",1058 7,1,24,0)
  57           DG MX CONV TH READS - Sp ecifies ho w many out going HLO  Logical Li nks 
  58   "BLD",1058 7,1,25,0)
  59   are used f or sending  messages  from the D GMX . util ity. The L ink names 
  60   "BLD",1058 7,1,26,0)
  61   must be in  the forma t DG ADT O <n>, where  <n> is an  increment ing intege
  62   "BLD",1058 7,1,27,0)
  63   starting a t 1.
  64   "BLD",1058 7,1,28,0)
  65    
  66   "BLD",1058 7,1,29,0)
  67   <Additiona l patch co mponents c an be adde d alphabet ically if  needed (e. g., 
  68   "BLD",1058 7,1,30,0)
  69   APIs, Bull etins, Par ameters, R PCs, etc.) .>
  70   "BLD",1058 7,1,31,0)
  71    
  72   "BLD",1058 7,1,32,0)
  73    
  74   "BLD",1058 7,1,33,0)
  75   Files & Fi elds Assoc iated:
  76   "BLD",1058 7,1,34,0)
  77    
  78   "BLD",1058 7,1,35,0)
  79   File Name  (Number)       Field  Name (Numb er)     Ne w/Modified /Deleted
  80   "BLD",1058 7,1,36,0)
  81   ---------- --------       ------ ---------- ---     -- ---------- --------
  82   "BLD",1058 7,1,37,0)
  83   PATIENT (2 )              Name ( .01)               Mo dified
  84   "BLD",1058 7,1,38,0)
  85   PATIENT (2 )              Sex (. 02)                Mo dified
  86   "BLD",1058 7,1,39,0)
  87   PATIENT (2 )              SELD I DENTIFIED  GENDER (.0 24) Modifi ed
  88   "BLD",1058 7,1,40,0)
  89   PATIENT (2 )              DOB (. 03)                Mo dified
  90   "BLD",1058 7,1,41,0)
  91   PATIENT (2 )              SSN (. 09)                Mo dified
  92   "BLD",1058 7,1,42,0)
  93   PATIENT (2 )              ZIP CO DE (.116)  Modified
  94   "BLD",1058 7,1,43,0)
  95   PATIENT (2 )              BAD AD DRESS INDI CATOR 
  96   "BLD",1058 7,1,44,0)
  97                    (.12 1)           Modified
  98   "BLD",1058 7,1,45,0)
  99   PATIENT (2 )              TEMPOR ARY STREET  
  100   "BLD",1058 7,1,46,0)
  101                    [LIN E 1] (.121 1)         Modified
  102   "BLD",1058 7,1,47,0)
  103   PATIENT (2 )              TEMPOR ARY STREET  
  104   "BLD",1058 7,1,48,0)
  105                    [LIN E 2] (.121 2)         Modified
  106   "BLD",1058 7,1,49,0)
  107   PATIENT (2 )              TEMPOR ARY STREET  
  108   "BLD",1058 7,1,50,0)
  109                    [LIN E 3] (.121 3)         Modified
  110   "BLD",1058 7,1,51,0)
  111   PATIENT (2 )              TEMPOR ARY CITY ( .1214)  Mo dified
  112   "BLD",1058 7,1,52,0)
  113   PATIENT (2 )              TEMPOR ARY STATE  (.1215) Mo dified
  114   "BLD",1058 7,1,53,0)
  115   PATIENT (2 )              TEMPOR ARY ZIP CO DE 
  116   "BLD",1058 7,1,54,0)
  117                    (.12 16)          Modified
  118   "BLD",1058 7,1,55,0)
  119   PATIENT (2 )              TEMPOR ARY ADDRES
  120   "BLD",1058 7,1,56,0)
  121                    STAR T DATE (.1 217)       Modified
  122   "BLD",1058 7,1,57,0)
  123   PATIENT (2 )              TEMPOR ARY ADDRES
  124   "BLD",1058 7,1,58,0)
  125                    END  DATE (.121 8)         Modified
  126   "BLD",1058 7,1,59,0)
  127   PATIENT (2 )              TEMPOR ARY ADDRES
  128   "BLD",1058 7,1,60,0)
  129                    COUN TRY (.1223 ) Modified
  130   "BLD",1058 7,1,61,0)
  131   PATIENT (2 )              EMAIL  ADDRESS (. 133)             Modi fied
  132   "BLD",1058 7,1,62,0)
  133   PATIENT (2 )              PHONE  NUMBER 
  134   "BLD",1058 7,1,63,0)
  135                    [CEL LULAR] (.1 34)        Modified
  136   "BLD",1058 7,1,64,0)
  137   PATIENT (2 )              CONFID ENTIAL STR EET
  138   "BLD",1058 7,1,65,0)
  139                    [LIN E 1] (.141 1)         Modified
  140   "BLD",1058 7,1,66,0)
  141   PATIENT (2 )              CONFID ENTIAL ADD
  142   "BLD",1058 7,1,67,0)
  143                    COUN TRY (.1411 6)         Modified
  144   "BLD",1058 7,1,68,0)
  145   PATIENT (2 )              CONFID ENTIAL STR EET 
  146   "BLD",1058 7,1,69,0)
  147                    [LIN E 2] (.141 2)         Modified
  148   "BLD",1058 7,1,70,0)
  149   PATIENT (2 )              CONFID ENTIAL STR EET 
  150   "BLD",1058 7,1,71,0)
  151                    [LIN E 3] (.141 3)         Modified
  152   "BLD",1058 7,1,72,0)
  153   PATIENT (2 )              CONFID ENTIAL ADD RESS 
  154   "BLD",1058 7,1,73,0)
  155                    CITY  (.1414)              Modified
  156   "BLD",1058 7,1,74,0)
  157   PATIENT (2 )              CONFID ENTIAL ADD RESS 
  158   "BLD",1058 7,1,75,0)
  159                    STAT E (.1415)             Modified
  160   "BLD",1058 7,1,76,0)
  161   PATIENT (2 )              CONFID ENTIAL ADD RESS 
  162   "BLD",1058 7,1,77,0)
  163                    ZIP  CODE (.141 6)         Modified
  164   "BLD",1058 7,1,78,0)
  165   PATIENT (2 )              CONFID ENTIAL STA RT 
  166   "BLD",1058 7,1,79,0)
  167                    DATE  (.1417)              Modified
  168   "BLD",1058 7,1,80,0)
  169   PATIENT (2 )              CONFID ENTIAL END  
  170   "BLD",1058 7,1,81,0)
  171                    DATE  (.1418)              Modified
  172   "BLD",1058 7,1,82,0)
  173   PATIENT (2 )              E-NAME  (.331)            Mo dified
  174   "BLD",1058 7,1,83,0)
  175   PATIENT (2 )              E-RELA TIONSHIP T
  176   "BLD",1058 7,1,84,0)
  177                    PATI ENT (.332)   Modified
  178   "BLD",1058 7,1,85,0)
  179   PATIENT (2 )              E-STRE ET ADDRESS  
  180   "BLD",1058 7,1,86,0)
  181                    [LIN E 1] (.333 ) Modified
  182   "BLD",1058 7,1,87,0)
  183   PATIENT (2 )              E-STRE ET ADDRESS  
  184   "BLD",1058 7,1,88,0)
  185                    [LIN E 2] (.334 ) Modified
  186   "BLD",1058 7,1,89,0)
  187   PATIENT (2 )              E-STRE ET ADDRESS  
  188   "BLD",1058 7,1,90,0)
  189                    [LIN E 3] (.335 ) Modified
  190   "BLD",1058 7,1,91,0)
  191   PATIENT (2 )              E-CITY  (.336)            Mo dified
  192   "BLD",1058 7,1,92,0)
  193   PATIENT (2 )              E-STAT E (.337)   Modified
  194   "BLD",1058 7,1,93,0)
  195   PATIENT (2 )              E-ZIP  CODE (.338 )       Mo dified
  196   "BLD",1058 7,1,94,0)
  197   PATIENT (2 )              E-PHON E NUMBER ( .339)   Mo dified
  198   "BLD",1058 7,1,95,0)
  199   PATIENT (2 )              PRIMAR Y ELIGIBIL ITY 
  200   "BLD",1058 7,1,96,0)
  201                    CODE  (.361)               Modified
  202   "BLD",1058 7,1,97,0)
  203   PATIENT (2 )              ELIGIB ILITY STAT US 
  204   "BLD",1058 7,1,98,0)
  205                    (.36 11)          Modified
  206   "BLD",1058 7,1,99,0)
  207   PATIENT (2 )              COMBAT  SERVICE 
  208   "BLD",1058 7,1,100,0)
  209                    INDI CATED (.52 91)        Modified
  210   "BLD",1058 7,1,101,0)
  211   PATIENT (2 )              COMBAT  VETERAN E ND 
  212   "BLD",1058 7,1,102,0)
  213                    DATE  (.5295)              Modified
  214   "BLD",1058 7,1,103,0)
  215   PATIENT (2 )              ALIAS  (1,.01)            Mo dified
  216   "BLD",1058 7,1,104,0)
  217   PATIENT (2 )              DENTAL  CLASSIFIC ATION 
  218   "BLD",1058 7,1,105,0)
  219                    (220 )            Modified
  220   "BLD",1058 7,1,106,0)
  221   PATIENT (2 )              APPOIN TMENT REQU EST ON  MO DIFIED
  222   "BLD",1058 7,1,107,0)
  223                    1010 EZ (1010.1 59)
  224   "BLD",1058 7,1,108,0)
  225   PATIENT (2 )              APPOIN TMENT REQU EST     MO DIFIED
  226   "BLD",1058 7,1,109,0)
  227                    STAT US (1010.1 61)
  228   "BLD",1058 7,1,110,0)
  229   PRF ASSIGN MENT 
  230   "BLD",1058 7,1,111,0)
  231   HISTORY (2 6.14) ACTI ON (.03)              Modified
  232   "BLD",1058 7,1,112,0)
  233   DG SECURIT
  234   "BLD",1058 7,1,113,0)
  235   LOG (38.1)                SECURI TY LEVEL ( 2)      Mo dified
  236   "BLD",1058 7,1,114,0)
  237   PRE-REGIST RATION
  238   "BLD",1058 7,1,115,0)
  239   AUDIT (41. 41)            DATE C HANGED (1)         Mo dified
  240   "BLD",1058 7,1,116,0)
  241   ADT/HL7 PI VOT (391.7 1)  ENTRY  WAS CREATE D BY 
  242   "BLD",1058 7,1,117,0)
  243   MASS EPIC  (.11)      New
  244   "BLD",1058 7,1,118,0)
  245    
  246   "BLD",1058 7,1,119,0)
  247   Patch Comp onents:
  248   "BLD",1058 7,1,120,0)
  249   ---------- -------
  250   "BLD",1058 7,1,121,0)
  251    
  252   "BLD",1058 7,1,122,0)
  253   HLO Applic ations:
  254   "BLD",1058 7,1,123,0)
  255   DG-REG-OUT
  256   "BLD",1058 7,1,124,0)
  257    
  258   "BLD",1058 7,1,125,0)
  259   HLO Logica l Links:
  260   "BLD",1058 7,1,126,0)
  261   DG ADT OUT
  262   "BLD",1058 7,1,127,0)
  263   DG ORU OUT
  264   "BLD",1058 7,1,128,0)
  265    
  266   "BLD",1058 7,1,129,0)
  267   Parameters :
  268   "BLD",1058 7,1,130,0)
  269   DGMX MASS  ENABLE
  270   "BLD",1058 7,1,131,0)
  271   DGMX PATIE NT IEN ASS IGNING
  272   "BLD",1058 7,1,132,0)
  273   DGMC CONV  THREADS
  274   "BLD",1058 7,1,133,0)
  275    
  276   "BLD",1058 7,1,134,0)
  277    
  278   "BLD",1058 7,1,135,0)
  279   Forms Asso ciated:
  280   "BLD",1058 7,1,136,0)
  281    
  282   "BLD",1058 7,1,137,0)
  283   Form Name        File  #  New/Mo dified/Del eted
  284   "BLD",1058 7,1,138,0)
  285   ---------        ---- --  ------ ---------- ----
  286   "BLD",1058 7,1,139,0)
  287   N/A
  288   "BLD",1058 7,1,140,0)
  289    
  290   "BLD",1058 7,1,141,0)
  291    
  292   "BLD",1058 7,1,142,0)
  293   Mail Group s Associat ed:
  294   "BLD",1058 7,1,143,0)
  295    
  296   "BLD",1058 7,1,144,0)
  297   Mail Group  Name New/ Modified/D eleted
  298   "BLD",1058 7,1,145,0)
  299   ---------- ----- ---- ---------- ------
  300   "BLD",1058 7,1,146,0)
  301   N/A
  302   "BLD",1058 7,1,147,0)
  303    
  304   "BLD",1058 7,1,148,0)
  305    
  306   "BLD",1058 7,1,149,0)
  307   Options As sociated:
  308   "BLD",1058 7,1,150,0)
  309    
  310   "BLD",1058 7,1,151,0)
  311   Option Nam e     Type     New/Mo dified/Del eted
  312   "BLD",1058 7,1,152,0)
  313   ---------- -     ----     ------ ---------- ---- 
  314   "BLD",1058 7,1,153,0)
  315   N/A
  316   "BLD",1058 7,1,154,0)
  317    
  318   "BLD",1058 7,1,155,0)
  319    
  320   "BLD",1058 7,1,156,0)
  321   Protocols  Associated :
  322   "BLD",1058 7,1,157,0)
  323    
  324   "BLD",1058 7,1,158,0)
  325   Protocol N ame            New/Mo dified/Del eted
  326   "BLD",1058 7,1,159,0)
  327   ---------- ---            ------ ---------- ---- 
  328   "BLD",1058 7,1,160,0)
  329   DGMX DEMOG RAPHICS MO NITOR                 New
  330   "BLD",1058 7,1,161,0)
  331   DGMX MASS  Demographi cs Update    New
  332   "BLD",1058 7,1,162,0)
  333    
  334   "BLD",1058 7,1,163,0)
  335   Security K eys Associ ated:
  336   "BLD",1058 7,1,164,0)
  337    
  338   "BLD",1058 7,1,165,0)
  339   Security K ey Name
  340   "BLD",1058 7,1,166,0)
  341   ---------- -------
  342   "BLD",1058 7,1,167,0)
  343   N/A
  344   "BLD",1058 7,1,168,0)
  345    
  346   "BLD",1058 7,1,169,0)
  347    
  348   "BLD",1058 7,1,170,0)
  349   Templates  Associated :
  350   "BLD",1058 7,1,171,0)
  351    
  352   "BLD",1058 7,1,172,0)
  353   Template N ame   Type     File N ame (Numbe r)  New/Mo dified/Del eted 
  354   "BLD",1058 7,1,173,0)
  355   ---------- ---   ----     ------ ---------- --  ------ ---------- ----
  356   "BLD",1058 7,1,174,0)
  357   N/A
  358   "BLD",1058 7,1,175,0)
  359    
  360   "BLD",1058 7,1,176,0)
  361    
  362   "BLD",1058 7,1,177,0)
  363   Additional  Informati on:
  364   "BLD",1058 7,1,178,0)
  365   N/A
  366   "BLD",1058 7,1,179,0)
  367    
  368   "BLD",1058 7,1,180,0)
  369    
  370   "BLD",1058 7,1,181,0)
  371   New Servic e Requests  (NSRs):
  372   "BLD",1058 7,1,182,0)
  373   ---------- ---------- --------  
  374   "BLD",1058 7,1,183,0)
  375   N/A
  376   "BLD",1058 7,1,184,0)
  377    
  378   "BLD",1058 7,1,185,0)
  379    
  380   "BLD",1058 7,1,186,0)
  381   Patient Sa fety Issue s (PSIs):
  382   "BLD",1058 7,1,187,0)
  383   ---------- ---------- ---------
  384   "BLD",1058 7,1,188,0)
  385   N/A
  386   "BLD",1058 7,1,189,0)
  387    
  388   "BLD",1058 7,1,190,0)
  389    
  390   "BLD",1058 7,1,191,0)
  391   Defect Tra cking Syst em Ticket( s) & Overv iew:
  392   "BLD",1058 7,1,192,0)
  393   ---------- ---------- ---------- ---------- ----
  394   "BLD",1058 7,1,193,0)
  395   N/A
  396   "BLD",1058 7,1,194,0)
  397    
  398   "BLD",1058 7,1,195,0)
  399   Problem:
  400   "BLD",1058 7,1,196,0)
  401   -------
  402   "BLD",1058 7,1,197,0)
  403   N/A
  404   "BLD",1058 7,1,198,0)
  405    
  406   "BLD",1058 7,1,199,0)
  407   Resolution :
  408   "BLD",1058 7,1,200,0)
  409   ----------
  410   "BLD",1058 7,1,201,0)
  411   N/A
  412   "BLD",1058 7,1,202,0)
  413    
  414   "BLD",1058 7,1,203,0)
  415   Test Sites :
  416   "BLD",1058 7,1,204,0)
  417   ----------
  418   "BLD",1058 7,1,205,0)
  419   Columbus,  OH
  420   "BLD",1058 7,1,206,0)
  421    
  422   "BLD",1058 7,1,207,0)
  423    
  424   "BLD",1058 7,1,208,0)
  425   Software a nd Documen tation Ret rieval Ins tructions:
  426   "BLD",1058 7,1,209,0)
  427   ---------- ---------- ---------- ---------- ---------- -- 
  428   "BLD",1058 7,1,210,0)
  429   Software b eing relea sed as a h ost file a nd/or docu mentation  describing  
  430   "BLD",1058 7,1,211,0)
  431   the new fu nctionalit y introduc ed by this  patch are  available .
  432   "BLD",1058 7,1,212,0)
  433    
  434   "BLD",1058 7,1,213,0)
  435   The prefer red method  is to ret rieve file s from dow nload. DNS        . DNS     .
  436   "BLD",1058 7,1,214,0)
  437   This trans mits the f iles from  the first  available  server. Si tes may 
  438   "BLD",1058 7,1,215,0)
  439   also elect  to retrie ve files d irectly fr om a speci fic server
  440   "BLD",1058 7,1,216,0)
  441    
  442   "BLD",1058 7,1,217,0)
  443   Sites may  retrieve t he softwar e and/or d ocumentati on directl y using 
  444   "BLD",1058 7,1,218,0)
  445   Secure Fil e Transfer  Protocol  (SFTP) fro m the ANON YMOUS.SOFT WARE 
  446   "BLD",1058 7,1,219,0)
  447   directory  at the fol lowing 
  448   "BLD",1058 7,1,220,0)
  449   OI Field O ffices:
  450   "BLD",1058 7,1,221,0)
  451    
  452   "BLD",1058 7,1,222,0)
  453   Albany: DN S      .UR L       
  454   "BLD",1058 7,1,223,0)
  455   Hines:  DN S     .URL          
  456   "BLD",1058 7,1,224,0)
  457   Salt Lake  City:        
. URL        
  458   "BLD",1058 7,1,225,0)
  459    
  460   "BLD",1058 7,1,226,0)
  461   Documentat ion can al so be foun d on the V A Software  Documenta tion Libra ry 
  462   "BLD",1058 7,1,227,0)
  463   at:
  464   "BLD",1058 7,1,228,0)
  465   http://www . DNS     /vdl/
  466   "BLD",1058 7,1,229,0)
  467    
  468   "BLD",1058 7,1,230,0)
  469    
  470   "BLD",1058 7,1,231,0)
  471   Title   Fi le Name        FTP Mo de
  472   "BLD",1058 7,1,232,0)
  473   ---------- ---------- ---------- ---------- ---------- ---------- ---------- -
  474   "BLD",1058 7,1,233,0)
  475   MASS VistA  Technical  Manual
  476   "BLD",1058 7,1,234,0)
  477    
  478   "BLD",1058 7,1,235,0)
  479   Patch Inst allation:
  480   "BLD",1058 7,1,236,0)
  481    
  482   "BLD",1058 7,1,237,0)
  483    
  484   "BLD",1058 7,1,238,0)
  485   Pre/Post I nstallatio n Overview :
  486   "BLD",1058 7,1,239,0)
  487   ---------- ---------- ---------- -
  488   "BLD",1058 7,1,240,0)
  489   N/A
  490   "BLD",1058 7,1,241,0)
  491    
  492   "BLD",1058 7,1,242,0)
  493    
  494   "BLD",1058 7,1,243,0)
  495   Pre-Instal lation Ins tructions:
  496   "BLD",1058 7,1,244,0)
  497   ---------- ---------- ----------
  498   "BLD",1058 7,1,245,0)
  499    
  500   "BLD",1058 7,1,246,0)
  501   This patch  may be in stalled wi th users o n the syst em althoug h it is 
  502   "BLD",1058 7,1,247,0)
  503   recommende d that it  be install ed during  non-peak h ours to mi nimize
  504   "BLD",1058 7,1,248,0)
  505   potential  disruption  to users.   This pat ch should  take less  than 5 
  506   "BLD",1058 7,1,249,0)
  507   minutes 
  508   "BLD",1058 7,1,250,0)
  509   to install .
  510   "BLD",1058 7,1,251,0)
  511    
  512   "BLD",1058 7,1,252,0)
  513    
  514   "BLD",1058 7,1,253,0)
  515   Installati on Instruc tions:
  516   "BLD",1058 7,1,254,0)
  517   ---------- ---------- ------
  518   "BLD",1058 7,1,255,0)
  519    
  520   "BLD",1058 7,1,256,0)
  521    
  522   "BLD",1058 7,1,257,0)
  523   1.      Ch oose the P ackMan mes sage conta ining this  patch.
  524   "BLD",1058 7,1,258,0)
  525    
  526   "BLD",1058 7,1,259,0)
  527   2.      Ch oose the I NSTALL/CHE CK MESSAGE  PackMan o ption. 
  528   "BLD",1058 7,1,260,0)
  529    
  530   "BLD",1058 7,1,261,0)
  531   3.      Fr om the Ker nel Instal lation and  Distribut ion System  Menu, sel ect 
  532   "BLD",1058 7,1,262,0)
  533   the Instal lation Men u (See Ins tall Promp ts Sample  below for  more 
  534   "BLD",1058 7,1,263,0)
  535   detail).   From this  menu, you  may elect  to use the  following  options. 
  536   "BLD",1058 7,1,264,0)
  537   When promp ted for th e INSTALL  NAME enter  the patch  DG*5.3*94 8:
  538   "BLD",1058 7,1,265,0)
  539   a.      Ba ckup a Tra nsport Glo bal - This  option wi ll create  a backup 
  540   "BLD",1058 7,1,266,0)
  541   message of  any routi nes export ed with th is patch.  It will no t backup a ny 
  542   "BLD",1058 7,1,267,0)
  543   other chan ges such a s DDs or t emplates.
  544   "BLD",1058 7,1,268,0)
  545   b.      Co mpare Tran sport Glob al to Curr ent System  - This op tion will 
  546   "BLD",1058 7,1,269,0)
  547   (allow you  to view a ll changes  that will  be made w hen this p atch         
  548   "BLD",1058 7,1,270,0)
  549   is install ed.  It co mpares all  component s of this  patch rout ines, DDs,  
  550   "BLD",1058 7,1,271,0)
  551   templates,  etc.).
  552   "BLD",1058 7,1,272,0)
  553   c.      Ve rify Check sums in Tr ansport Gl obal - Thi s option w ill allow  you 
  554   "BLD",1058 7,1,273,0)
  555   to ensure  the integr ity of the  routines  that are i n the tran sport glob al.
  556   "BLD",1058 7,1,274,0)
  557   4.       F rom the In stallation  Menu, sel ect the In stall Pack age(s) opt ion 
  558   "BLD",1058 7,1,275,0)
  559   and choose  the patch  to instal l.
  560   "BLD",1058 7,1,276,0)
  561    
  562   "BLD",1058 7,1,277,0)
  563   5.      Wh en prompte d 'Want KI DS to Rebu ild Menu T rees Upon  Completion  of 
  564   "BLD",1058 7,1,278,0)
  565   Install? N O//' No
  566   "BLD",1058 7,1,279,0)
  567    
  568   "BLD",1058 7,1,280,0)
  569   6.      Wh en prompte d 'Want KI DS to INHI BIT LOGONs  during th e install?  
  570   "BLD",1058 7,1,281,0)
  571   NO//'No
  572   "BLD",1058 7,1,282,0)
  573    
  574   "BLD",1058 7,1,283,0)
  575   7.      Wh en prompte d 'Want to  DISABLE S cheduled O ptions, Me nu Options
  576   "BLD",1058 7,1,284,0)
  577   and Protoc ols? NO//'  No
  578   "BLD",1058 7,1,285,0)
  579    
  580   "BLD",1058 7,1,286,0)
  581   8.      If  prompted  'Delay Ins tall (Minu tes):  (0  - 60): 0// ' respond  0.
  582   "BLD",1058 7,1,287,0)
  583    
  584   "BLD",1058 7,1,288,0)
  585    
  586   "BLD",1058 7,1,289,0)
  587   Install Pr ompts Samp le:
  588   "BLD",1058 7,1,290,0)
  589   ---------- ---------- ------
  590   "BLD",1058 7,1,291,0)
  591    
  592   "BLD",1058 7,1,292,0)
  593    
  594   "BLD",1058 7,1,293,0)
  595   VISTA>D ^X UP
  596   "BLD",1058 7,1,294,0)
  597    
  598   "BLD",1058 7,1,295,0)
  599   Setting up  programme r environm ent
  600   "BLD",1058 7,1,296,0)
  601   This is a  TEST accou nt.
  602   "BLD",1058 7,1,297,0)
  603    
  604   "BLD",1058 7,1,298,0)
  605   Terminal T ype set to : C-VT100
  606   "BLD",1058 7,1,299,0)
  607    
  608   "BLD",1058 7,1,300,0)
  609   Select OPT ION NAME:  XPD LOAD D ISTRIBUTIO N       Lo ad a Distr ibution
  610   "BLD",1058 7,1,301,0)
  611   Load a Dis tribution
  612   "BLD",1058 7,1,302,0)
  613   Enter a Ho st File: C :\HFS\DG_5 _3_948.KID
  614   "BLD",1058 7,1,303,0)
  615    
  616   "BLD",1058 7,1,304,0)
  617   KIDS Distr ibution sa ved on Dec  11, 2017@ 17:29:13
  618   "BLD",1058 7,1,305,0)
  619   Comment: D G*5.3*948  12/11/17
  620   "BLD",1058 7,1,306,0)
  621    
  622   "BLD",1058 7,1,307,0)
  623   This Distr ibution co ntains Tra nsport Glo bals for t he followi ng Package (s):
  624   "BLD",1058 7,1,308,0)
  625   Build DG*5 .3*948 has  been load ed before,  here is w hen: 
  626   "BLD",1058 7,1,309,0)
  627         DG*5 .3*948   I nstall Com pleted
  628   "BLD",1058 7,1,310,0)
  629                       w as loaded  on Oct 03,  2017@15:4 5:55
  630   "BLD",1058 7,1,311,0)
  631         DG*5 .3*948   I nstall Com pleted
  632   "BLD",1058 7,1,312,0)
  633                       w as loaded  on Oct 03,  2017@20:5 4:59
  634   "BLD",1058 7,1,313,0)
  635         DG*5 .3*948   I nstall Com pleted
  636   "BLD",1058 7,1,314,0)
  637                       w as loaded  on Oct 10,  2017@15:2 2:03
  638   "BLD",1058 7,1,315,0)
  639         DG*5 .3*948   I nstall Com pleted
  640   "BLD",1058 7,1,316,0)
  641                       w as loaded  on Oct 31,  2017@13:4 4:06
  642   "BLD",1058 7,1,317,0)
  643         DG*5 .3*948   I nstall Com pleted
  644   "BLD",1058 7,1,318,0)
  645                       w as loaded  on Nov 15,  2017@00:1 1:34
  646   "BLD",1058 7,1,319,0)
  647         DG*5 .3*948   I nstall Com pleted
  648   "BLD",1058 7,1,320,0)
  649                       w as loaded  on Nov 20,  2017@14:5 8
  650   "BLD",1058 7,1,321,0)
  651         DG*5 .3*948   I nstall Com pleted
  652   "BLD",1058 7,1,322,0)
  653                       w as loaded  on Nov 21,  2017@15:3 8:42
  654   "BLD",1058 7,1,323,0)
  655         DG*5 .3*948   I nstall Com pleted
  656   "BLD",1058 7,1,324,0)
  657                       w as loaded  on Nov 30,  2017@15:0 4:49
  658   "BLD",1058 7,1,325,0)
  659         DG*5 .3*948   I nstall Com pleted
  660   "BLD",1058 7,1,326,0)
  661                       w as loaded  on Dec 05,  2017@16:1 4:51
  662   "BLD",1058 7,1,327,0)
  663   OK to cont inue with  Load? NO//  YES
  664   "BLD",1058 7,1,328,0)
  665    
  666   "BLD",1058 7,1,329,0)
  667   Distributi on OK!
  668   "BLD",1058 7,1,330,0)
  669    
  670   "BLD",1058 7,1,331,0)
  671   Want to Co ntinue wit h Load? YE S// 
  672   "BLD",1058 7,1,332,0)
  673   Loading Di stribution ...
  674   "BLD",1058 7,1,333,0)
  675    
  676   "BLD",1058 7,1,334,0)
  677      DG*5.3* 948
  678   "BLD",1058 7,1,335,0)
  679   Use INSTAL L NAME: DG *5.3*948 t o install  this Distr ibution.
  680   "BLD",1058 7,1,336,0)
  681    
  682   "BLD",1058 7,1,337,0)
  683   VISTA>D ^X UP
  684   "BLD",1058 7,1,338,0)
  685    
  686   "BLD",1058 7,1,339,0)
  687   Setting up  programme r environm ent
  688   "BLD",1058 7,1,340,0)
  689   This is a  TEST accou nt.
  690   "BLD",1058 7,1,341,0)
  691    
  692   "BLD",1058 7,1,342,0)
  693   Terminal T ype set to : C-VT100
  694   "BLD",1058 7,1,343,0)
  695    
  696   "BLD",1058 7,1,344,0)
  697   Select OPT ION NAME:  XPD INS
  698   "BLD",1058 7,1,345,0)
  699        1   X PD INSTALL  BUILD        Install  Package(s )
  700   "BLD",1058 7,1,346,0)
  701        2   X PD INSTALL ATION MENU        Ins tallation
  702   "BLD",1058 7,1,347,0)
  703   CHOOSE 1-2 : 1  XPD I NSTALL BUI LD     Ins tall Packa ge(s)
  704   "BLD",1058 7,1,348,0)
  705   Install Pa ckage(s)
  706   "BLD",1058 7,1,349,0)
  707   Select INS TALL NAME:     DG*5.3 *948     L oaded from  Distribut ion    
  708   "BLD",1058 7,1,350,0)
  709   12/12/17@2 3:4
  710   "BLD",1058 7,1,351,0)
  711   5:01
  712   "BLD",1058 7,1,352,0)
  713        => DG *5.3*948 1 2/11/17  ; Created on  Dec 11, 2 017@17:29: 13
  714   "BLD",1058 7,1,353,0)
  715    
  716   "BLD",1058 7,1,354,0)
  717   This Distr ibution wa s loaded o n Dec 12,  2017@23:45 :01 with h eader of 
  718   "BLD",1058 7,1,355,0)
  719      DG*5.3* 948 12/11/ 17  ;Creat ed on Dec  11, 2017@1 7:29:13
  720   "BLD",1058 7,1,356,0)
  721      It cons isted of t he followi ng Install (s):
  722   "BLD",1058 7,1,357,0)
  723        DG*5. 3*948
  724   "BLD",1058 7,1,358,0)
  725   Checking I nstall for  Package D G*5.3*948
  726   "BLD",1058 7,1,359,0)
  727    
  728   "BLD",1058 7,1,360,0)
  729   Install Qu estions fo r DG*5.3*9 48
  730   "BLD",1058 7,1,361,0)
  731    
  732   "BLD",1058 7,1,362,0)
  733   Incoming F iles:
  734   "BLD",1058 7,1,363,0)
  735    
  736   "BLD",1058 7,1,364,0)
  737    
  738   "BLD",1058 7,1,365,0)
  739      2          PATIENT   (Partial  Definitio n)
  740   "BLD",1058 7,1,366,0)
  741   Note:  You  already h ave the 'P ATIENT' Fi le.
  742   "BLD",1058 7,1,367,0)
  743    
  744   "BLD",1058 7,1,368,0)
  745    
  746   "BLD",1058 7,1,369,0)
  747      26.14      PRF ASS IGNMENT HI STORY  (Pa rtial Defi nition)
  748   "BLD",1058 7,1,370,0)
  749   Note:  You  already h ave the 'P RF ASSIGNM ENT HISTOR Y' File.
  750   "BLD",1058 7,1,371,0)
  751    
  752   "BLD",1058 7,1,372,0)
  753    
  754   "BLD",1058 7,1,373,0)
  755      38.1       DG SECU RITY LOG   (Partial D efinition)
  756   "BLD",1058 7,1,374,0)
  757   Note:  You  already h ave the 'D G SECURITY  LOG' File .
  758   "BLD",1058 7,1,375,0)
  759    
  760   "BLD",1058 7,1,376,0)
  761    
  762   "BLD",1058 7,1,377,0)
  763      41.41      PRE-REG ISTRATION  AUDIT  (Pa rtial Defi nition)
  764   "BLD",1058 7,1,378,0)
  765   Note:  You  already h ave the 'P RE-REGISTR ATION AUDI T' File.
  766   "BLD",1058 7,1,379,0)
  767    
  768   "BLD",1058 7,1,380,0)
  769    
  770   "BLD",1058 7,1,381,0)
  771      391.71     ADT/HL7  PIVOT  (P artial Def inition)
  772   "BLD",1058 7,1,382,0)
  773   Note:  You  already h ave the 'A DT/HL7 PIV OT' File.
  774   "BLD",1058 7,1,383,0)
  775    
  776   "BLD",1058 7,1,384,0)
  777   Want KIDS  to Rebuild  Menu Tree s Upon Com pletion of  Install?  NO// 
  778   "BLD",1058 7,1,385,0)
  779    
  780   "BLD",1058 7,1,386,0)
  781    
  782   "BLD",1058 7,1,387,0)
  783   Want KIDS  to INHIBIT  LOGONs du ring the i nstall? NO // 
  784   "BLD",1058 7,1,388,0)
  785   Want to DI SABLE Sche duled Opti ons, Menu  Options, a nd Protoco ls? NO// 
  786   "BLD",1058 7,1,389,0)
  787    
  788   "BLD",1058 7,1,390,0)
  789   Enter the  Device you  want to p rint the I nstall mes sages.
  790   "BLD",1058 7,1,391,0)
  791   You can qu eue the in stall by e nter a 'Q'  at the de vice promp t.
  792   "BLD",1058 7,1,392,0)
  793   Enter a '^ ' to abort  the insta ll.
  794   "BLD",1058 7,1,393,0)
  795    
  796   "BLD",1058 7,1,394,0)
  797   DEVICE: HO ME// ;;999 999  CONSO LE
  798   "BLD",1058 7,1,395,0)
  799    
  800   "BLD",1058 7,1,396,0)
  801    Install S tarted for  DG*5.3*94 8 : 
  802   "BLD",1058 7,1,397,0)
  803                   Dec 1 2, 2017@23 :45:18
  804   "BLD",1058 7,1,398,0)
  805    
  806   "BLD",1058 7,1,399,0)
  807   Build Dist ribution D ate: Dec 1 1, 2017
  808   "BLD",1058 7,1,400,0)
  809    
  810   "BLD",1058 7,1,401,0)
  811    Installin g Routines :  
  812   "BLD",1058 7,1,402,0)
  813                   Dec 1 2, 2017@23 :45:19
  814   "BLD",1058 7,1,403,0)
  815    
  816   "BLD",1058 7,1,404,0)
  817    Installin g Data Dic tionaries:  
  818   "BLD",1058 7,1,405,0)
  819                   Dec 1 2, 2017@23 :45:24
  820   "BLD",1058 7,1,406,0)
  821    
  822   "BLD",1058 7,1,407,0)
  823    Installin g PACKAGE  COMPONENTS
  824   "BLD",1058 7,1,408,0)
  825    
  826   "BLD",1058 7,1,409,0)
  827    Installin g PROTOCOL
  828   "BLD",1058 7,1,410,0)
  829    
  830   "BLD",1058 7,1,411,0)
  831    Installin g OPTION
  832   "BLD",1058 7,1,412,0)
  833    
  834   "BLD",1058 7,1,413,0)
  835    Installin g PARAMETE R DEFINITI ON
  836   "BLD",1058 7,1,414,0)
  837    
  838   "BLD",1058 7,1,415,0)
  839    Installin g HLO APPL ICATION RE GISTRY
  840   "BLD",1058 7,1,416,0)
  841                   Dec 1 2, 2017@23 :45:24
  842   "BLD",1058 7,1,417,0)
  843    
  844   "BLD",1058 7,1,418,0)
  845    Updating  Routine fi le...
  846   "BLD",1058 7,1,419,0)
  847    
  848   "BLD",1058 7,1,420,0)
  849    Updating  KIDS files ...
  850   "BLD",1058 7,1,421,0)
  851    
  852   "BLD",1058 7,1,422,0)
  853    DG*5.3*94 8 Installe d. 
  854   "BLD",1058 7,1,423,0)
  855                   Dec 1 2, 2017@23 :45:25
  856   "BLD",1058 7,1,424,0)
  857    
  858   "BLD",1058 7,1,425,0)
  859    No link t o PACKAGE  file
  860   "BLD",1058 7,1,426,0)
  861    
  862   "BLD",1058 7,1,427,0)
  863    NO Instal l Message  sent 
  864   "BLD",1058 7,1,428,0)
  865    
  866   "BLD",1058 7,1,429,0)
  867   Install Co mpleted
  868   "BLD",1058 7,1,430,0)
  869    
  870   "BLD",1058 7,1,431,0)
  871   VISTA>
  872   "BLD",1058 7,1,432,0)
  873    
  874   "BLD",1058 7,1,433,0)
  875    
  876   "BLD",1058 7,1,434,0)
  877   Patch Back out Instru ctions:
  878   "BLD",1058 7,1,435,0)
  879   ---------- ---------- ------
  880   "BLD",1058 7,1,436,0)
  881   1.      Go  to MailMa n menu, ch oose optio n Read/Man age Messag es and sel ect 
  882   "BLD",1058 7,1,437,0)
  883   the backup  message t hat was cr eating dur ing Instal lation ste p 3.c - Ba ckup
  884   "BLD",1058 7,1,438,0)
  885   2.      Wh en prompte d 'Type <E nter> to c ontinue or  '^' to ex it:' type  '^' 
  886   "BLD",1058 7,1,439,0)
  887   and then < Enter>
  888   "BLD",1058 7,1,440,0)
  889   3.      Wh en prompte d 'Enter m essage act ion:' type  'Xtract P ackMan' an
  890   "BLD",1058 7,1,441,0)
  891   then <Ente r>
  892   "BLD",1058 7,1,442,0)
  893   4.      Th e followin g message  and the pr ompt will  display:
  894   "BLD",1058 7,1,443,0)
  895   Warning: I nstalling  this messa ge will ca use a perm anent upda te of glob als 
  896   "BLD",1058 7,1,444,0)
  897   and routin es.
  898   "BLD",1058 7,1,445,0)
  899   Do you rea lly want t o do this?  NO//' typ e 'YES' an d then <En ter>
  900   "BLD",1058 7,1,446,0)
  901   5.      Wh en prompte d: 
  902   "BLD",1058 7,1,447,0)
  903   'Shall I p reserve th e routines  on disk i n a separa te back-up  message? 
  904   "BLD",1058 7,1,448,0)
  905   YES//' typ e 'NO' and  then <Ent er>
  906   "BLD",1058 7,1,449,0)
  907   6.      Th e system w ill displa y the foll owing mess age and sh ow all the  
  908   "BLD",1058 7,1,450,0)
  909   routines t hat were u nloaded co nfirming t hat all th e routines  in the bu ild 
  910   "BLD",1058 7,1,451,0)
  911   have been  restored t o the prio r version  (unloaded) :
  912   "BLD",1058 7,1,452,0)
  913   'No backup  message b uilt.
  914   "BLD",1058 7,1,453,0)
  915    ***LIST o f routines  from back up. See fu ll routine  list at t he end of  the 
  916   "BLD",1058 7,1,454,0)
  917   document** *
  918   "BLD",1058 7,1,455,0)
  919    
  920   "BLD",1058 7,1,456,0)
  921   Select Pac kMan funct ion: and t hen <Enter >'
  922   "BLD",1058 7,1,457,0)
  923   7.      ne xVerify th at all six  routines  are listed  as above  have been 
  924   "BLD",1058 7,1,458,0)
  925   backed out :
  926   "BLD",1058 7,1,459,0)
  927   No backup  message bu ilt.
  928   "BLD",1058 7,1,460,0)
  929   When promp ted 'Want  KIDS to IN HIBIT LOGO Ns during  the instal l? NO//'
  930   "BLD",1058 7,1,461,0)
  931   Press <Ent er>.
  932   "BLD",1058 7,1,462,0)
  933   When promp ted 'Want  to DISABLE  Scheduled  Options,  Menu Optio ns, and 
  934   "BLD",1058 7,1,463,0)
  935   Protocols?  NO//' 
  936   "BLD",1058 7,1,464,0)
  937   Press <Ent er>.
  938   "BLD",1058 7,1,465,0)
  939   If prompte d 'Delay I nstall (Mi nutes):  ( 0 - 60): 0 //' respon d 0.
  940   "BLD",1058 7,1,466,0)
  941    
  942   "BLD",1058 7,1,467,0)
  943   8.      Th ere are no  globals t hat are be ing saved  off for th is patch t
  944   "BLD",1058 7,1,468,0)
  945   restore. A ll other o bjects sho uld be man ually back ed out or  deleted 
  946   "BLD",1058 7,1,469,0)
  947   Fileman. 
  948   "BLD",1058 7,1,470,0)
  949   9.      De leting Fil es:
  950   "BLD",1058 7,1,471,0)
  951   The follow ing filema n files sh ould be de leted unde r their re spective 
  952   "BLD",1058 7,1,472,0)
  953   groups. To  delete th e file, op en fileman  for the f ile specif ied. Look  for 
  954   "BLD",1058 7,1,473,0)
  955   the name a nd once se lected ent er @ to en ter the de lete optio n.
  956   "BLD",1058 7,1,474,0)
  957    
  958   "BLD",1058 7,1,475,0)
  959   Example:
  960   "BLD",1058 7,1,476,0)
  961   VA FileMan  22.2
  962   "BLD",1058 7,1,477,0)
  963    
  964   "BLD",1058 7,1,478,0)
  965    
  966   "BLD",1058 7,1,479,0)
  967   Select OPT ION: 1  EN TER OR EDI T FILE ENT RIES
  968   "BLD",1058 7,1,480,0)
  969    
  970   "BLD",1058 7,1,481,0)
  971    
  972   "BLD",1058 7,1,482,0)
  973    
  974   "BLD",1058 7,1,483,0)
  975   Input to w hat File:  PROTOCOL//              (4498 en tries)
  976   "BLD",1058 7,1,484,0)
  977   EDIT WHICH  FIELD: AL L//
  978   "BLD",1058 7,1,485,0)
  979    
  980   "BLD",1058 7,1,486,0)
  981    
  982   "BLD",1058 7,1,487,0)
  983   Select PRO TOCOL NAME : SD SIU T RIGGER        SD SIU  TRIGGER
  984   "BLD",1058 7,1,488,0)
  985   NAME: SD S IU TRIGGER // @
  986   "BLD",1058 7,1,489,0)
  987      SURE YO U WANT TO  DELETE THE  ENTIRE 'S D SIU TRIG GER' PROTO COL?
  988   "BLD",1058 7,1,490,0)
  989    
  990   "BLD",1058 7,1,491,0)
  991    
  992   "BLD",1058 7,1,492,0)
  993   HLO Applic ations:
  994   "BLD",1058 7,1,493,0)
  995   DG-REG-OUT
  996   "BLD",1058 7,1,494,0)
  997    
  998   "BLD",1058 7,1,495,0)
  999   HLO Logica l Links:
  1000   "BLD",1058 7,1,496,0)
  1001   DG ADT OUT
  1002   "BLD",1058 7,1,497,0)
  1003    
  1004   "BLD",1058 7,1,498,0)
  1005   Parameters :
  1006   "BLD",1058 7,1,499,0)
  1007   DGMX MASS  ENABLE
  1008   "BLD",1058 7,1,500,0)
  1009   SDMX PATIE NT IEN ASS IGNING
  1010   "BLD",1058 7,1,501,0)
  1011   DGMC CONV  THREADS
  1012   "BLD",1058 7,1,502,0)
  1013    
  1014   "BLD",1058 7,1,503,0)
  1015   Protocol:
  1016   "BLD",1058 7,1,504,0)
  1017   DGMX DEMOG RAPHICS MO NITOR
  1018   "BLD",1058 7,1,505,0)
  1019   DGMX MASS  Demographi cs Update
  1020   "BLD",1058 7,1,506,0)
  1021    
  1022   "BLD",1058 7,1,507,0)
  1023    
  1024   "BLD",1058 7,1,508,0)
  1025   10.     To  clean up  the cross  references  run BACKO UT^DGMXPOS T to clean  up 
  1026   "BLD",1058 7,1,509,0)
  1027   the cross  references .
  1028   "BLD",1058 7,1,510,0)
  1029    
  1030   "BLD",1058 7,1,511,0)
  1031    
  1032   "BLD",1058 7,1,512,0)
  1033    
  1034   "BLD",1058 7,1,513,0)
  1035    
  1036   "BLD",1058 7,1,514,0)
  1037    
  1038   "BLD",1058 7,1,515,0)
  1039   Post-Insta llation In structions :
  1040   "BLD",1058 7,1,516,0)
  1041   ---------- ---------- ---------- -
  1042   "BLD",1058 7,1,517,0)
  1043   See Techni cal Manual  for cross  reference /object co ntents ver ification
  1044   "BLD",1058 7,1,518,0)
  1045    
  1046   "BLD",1058 7,1,519,0)
  1047   Check list  to Verify :
  1048   "BLD",1058 7,1,520,0)
  1049   1.      It em list ab ove for th e Patient,  PRF ASSIG NMENT HIST ORY, DG 
  1050   "BLD",1058 7,1,521,0)
  1051   SECURITY L OG, PRE-RE GISTARTION  AUDIT, an d ADT/HL7  PIVOT  fil e.
  1052   "BLD",1058 7,1,522,0)
  1053   2.      HL O Applicat ions
  1054   "BLD",1058 7,1,523,0)
  1055   3.      HL  Logical L inks
  1056   "BLD",1058 7,1,524,0)
  1057   4.      Pr otocol
  1058   "BLD",1058 7,1,525,0)
  1059   5.      Pa rameters
  1060   "BLD",1058 7,1,526,0)
  1061   6.      Op tions
  1062   "BLD",1058 7,1,527,0)
  1063    
  1064   "BLD",1058 7,1,528,0)
  1065    
  1066   "BLD",1058 7,1,529,0)
  1067    
  1068   "BLD",1058 7,1,530,0)
  1069    
  1070   "BLD",1058 7,1,531,0)
  1071    
  1072   "BLD",1058 7,1,532,0)
  1073    
  1074   "BLD",1058 7,1,533,0)
  1075    
  1076   "BLD",1058 7,1,534,0)
  1077    
  1078   "BLD",1058 7,1,535,0)
  1079    
  1080   "BLD",1058 7,1,536,0)
  1081    
  1082   "BLD",1058 7,1,537,0)
  1083    
  1084   "BLD",1058 7,1,538,0)
  1085    
  1086   "BLD",1058 7,1,539,0)
  1087    
  1088   "BLD",1058 7,1,540,0)
  1089    
  1090   "BLD",1058 7,1,541,0)
  1091    
  1092   "BLD",1058 7,1,542,0)
  1093    
  1094   "BLD",1058 7,1,543,0)
  1095    
  1096   "BLD",1058 7,1,544,0)
  1097    
  1098   "BLD",1058 7,1,545,0)
  1099    
  1100   "BLD",1058 7,1,546,0)
  1101    
  1102   "BLD",1058 7,1,547,0)
  1103   *;OCTOBER  05,2017
  1104   "BLD",1058 7,1,548,0)
  1105    
  1106   "BLD",1058 7,1,549,0)
  1107   VAFCDD01
  1108   "BLD",1058 7,1,550,0)
  1109   VAFCDD01 ; ALB/JRP,LT L-DATA DIC TIONARY UT ILITIES ;0 5-SEP-1996  
  1110   "BLD",1058 7,1,551,0)
  1111   VAFCMSG
  1112   "BLD",1058 7,1,552,0)
  1113   VAFCMSG ;A LB/JRP-BAC KGROUND JO B TO TRANS MIT ENTRIE S IN PIVOT  FILE ; 
  1114   "BLD",1058 7,1,553,0)
  1115   3/2/04 12: 54pm 
  1116   "BLD",1058 7,1,554,0)
  1117           ;; 5.3;Regist ration;**9 1,149,530, 578,948**; Jun 06, 19 96;Build 5
  1118   "BLD",1058 7,1,555,0)
  1119    
  1120   "BLD",1058 7,1,556,0)
  1121   VAFHLZSP
  1122   "BLD",1058 7,1,557,0)
  1123   VAFHLZSP ; ALB/RJS,TD M,PJH - ZS P SEGMENT  - 3/18/96  ; 5/30/07  4:21pm 
  1124   "BLD",1058 7,1,558,0)
  1125           ;; 5.3;Regist ration;**9 4,106,122, 220,653,75 4,948**;Au g 13, 
  1126   "BLD",1058 7,1,559,0)
  1127   1993;Build  5
  1128   "BLD",1058 7,4,0)
  1129   ^9.64PA^27 .11^6
  1130   "BLD",1058 7,4,2,0)
  1131   2
  1132   "BLD",1058 7,4,2,2,0)
  1133   ^9.641^2.0 361^3
  1134   "BLD",1058 7,4,2,2,2, 0)
  1135   PATIENT  ( File-top l evel)
  1136   "BLD",1058 7,4,2,2,2, 1,0)
  1137   ^9.6411^.0 24^43
  1138   "BLD",1058 7,4,2,2,2, 1,.01,0)
  1139   NAME
  1140   "BLD",1058 7,4,2,2,2, 1,.02,0)
  1141   SEX
  1142   "BLD",1058 7,4,2,2,2, 1,.024,0)
  1143   SELF IDENT IFIED GEND ER
  1144   "BLD",1058 7,4,2,2,2, 1,.03,0)
  1145   DATE OF BI RTH
  1146   "BLD",1058 7,4,2,2,2, 1,.09,0)
  1147   SOCIAL SEC URITY NUMB ER
  1148   "BLD",1058 7,4,2,2,2, 1,.116,0)
  1149   ZIP CODE
  1150   "BLD",1058 7,4,2,2,2, 1,.121,0)
  1151   BAD ADDRES S INDICATO R
  1152   "BLD",1058 7,4,2,2,2, 1,.1211,0)
  1153   TEMPORARY  STREET [LI NE 1]
  1154   "BLD",1058 7,4,2,2,2, 1,.1212,0)
  1155   TEMPORARY  STREET [LI NE 2]
  1156   "BLD",1058 7,4,2,2,2, 1,.1213,0)
  1157   TEMPORARY  STREET [LI NE 3]
  1158   "BLD",1058 7,4,2,2,2, 1,.1214,0)
  1159   TEMPORARY  CITY
  1160   "BLD",1058 7,4,2,2,2, 1,.1215,0)
  1161   TEMPORARY  STATE
  1162   "BLD",1058 7,4,2,2,2, 1,.1216,0)
  1163   TEMPORARY  ZIP CODE
  1164   "BLD",1058 7,4,2,2,2, 1,.1217,0)
  1165   TEMPORARY  ADDRESS ST ART DATE
  1166   "BLD",1058 7,4,2,2,2, 1,.1218,0)
  1167   TEMPORARY  ADDRESS EN D DATE
  1168   "BLD",1058 7,4,2,2,2, 1,.1223,0)
  1169   TEMPORARY  ADDRESS CO UNTRY
  1170   "BLD",1058 7,4,2,2,2, 1,.133,0)
  1171   EMAIL ADDR ESS
  1172   "BLD",1058 7,4,2,2,2, 1,.134,0)
  1173   PHONE NUMB ER [CELLUL AR]
  1174   "BLD",1058 7,4,2,2,2, 1,.1411,0)
  1175   CONFIDENTI AL STREET  [LINE 1]
  1176   "BLD",1058 7,4,2,2,2, 1,.14116,0 )
  1177   CONFIDENTI AL ADDR CO UNTRY
  1178   "BLD",1058 7,4,2,2,2, 1,.1412,0)
  1179   CONFIDENTI AL STREET  [LINE 2]
  1180   "BLD",1058 7,4,2,2,2, 1,.1413,0)
  1181   CONFIDENTI AL STREET  [LINE 3]
  1182   "BLD",1058 7,4,2,2,2, 1,.1414,0)
  1183   CONFIDENTI AL ADDRESS  CITY
  1184   "BLD",1058 7,4,2,2,2, 1,.1415,0)
  1185   CONFIDENTI AL ADDRESS  STATE
  1186   "BLD",1058 7,4,2,2,2, 1,.1416,0)
  1187   CONFIDENTI AL ADDRESS  ZIP CODE
  1188   "BLD",1058 7,4,2,2,2, 1,.1417,0)
  1189   CONFIDENTI AL START D ATE
  1190   "BLD",1058 7,4,2,2,2, 1,.1418,0)
  1191   CONFIDENTI AL END DAT E
  1192   "BLD",1058 7,4,2,2,2, 1,.331,0)
  1193   E-NAME
  1194   "BLD",1058 7,4,2,2,2, 1,.332,0)
  1195   E-RELATION SHIP TO PA TIENT
  1196   "BLD",1058 7,4,2,2,2, 1,.333,0)
  1197   E-STREET A DDRESS [LI NE 1]
  1198   "BLD",1058 7,4,2,2,2, 1,.334,0)
  1199   E-STREET A DDRESS [LI NE 2]
  1200   "BLD",1058 7,4,2,2,2, 1,.335,0)
  1201   E-STREET A DDRESS [LI NE 3]
  1202   "BLD",1058 7,4,2,2,2, 1,.336,0)
  1203   E-CITY
  1204   "BLD",1058 7,4,2,2,2, 1,.337,0)
  1205   E-STATE
  1206   "BLD",1058 7,4,2,2,2, 1,.338,0)
  1207   E-ZIP CODE
  1208   "BLD",1058 7,4,2,2,2, 1,.339,0)
  1209   E-PHONE NU MBER
  1210   "BLD",1058 7,4,2,2,2, 1,.361,0)
  1211   PRIMARY EL IGIBILITY  CODE
  1212   "BLD",1058 7,4,2,2,2, 1,.3611,0)
  1213   ELIGIBILIT Y STATUS
  1214   "BLD",1058 7,4,2,2,2, 1,.5291,0)
  1215   COMBAT SER VICE INDIC ATED?
  1216   "BLD",1058 7,4,2,2,2, 1,.5295,0)
  1217   COMBAT VET ERAN END D ATE
  1218   "BLD",1058 7,4,2,2,2, 1,220,0)
  1219   DENTAL CLA SSIFICATIO N
  1220   "BLD",1058 7,4,2,2,2, 1,1010.159 ,0)
  1221   APPOINTMEN T REQUEST  ON 1010EZ
  1222   "BLD",1058 7,4,2,2,2, 1,1010.161 ,0)
  1223   APPOINTMEN T REQUEST  STATUS
  1224   "BLD",1058 7,4,2,2,2. 01,0)
  1225   ALIAS  (su b-file)
  1226   "BLD",1058 7,4,2,2,2. 01,1,0)
  1227   ^9.6411^.0 1^1
  1228   "BLD",1058 7,4,2,2,2. 01,1,.01,0 )
  1229   ALIAS
  1230   "BLD",1058 7,4,2,2,2. 0361,0)
  1231   PATIENT EL IGIBILITIE S  (sub-fi le)
  1232   "BLD",1058 7,4,2,2,2. 0361,1,0)
  1233   ^9.6411^.0 1^1
  1234   "BLD",1058 7,4,2,2,2. 0361,1,.01 ,0)
  1235   ELIGIBILIT Y
  1236   "BLD",1058 7,4,2,222)
  1237   y^y^p^^^^n ^^n
  1238   "BLD",1058 7,4,2,224)
  1239  
  1240   "BLD",1058 7,4,26.14, 0)
  1241   26.14
  1242   "BLD",1058 7,4,26.14, 2,0)
  1243   ^9.641^26. 14^1
  1244   "BLD",1058 7,4,26.14, 2,26.14,0)
  1245   PRF ASSIGN MENT HISTO RY  (File- top level)
  1246   "BLD",1058 7,4,26.14, 2,26.14,1, 0)
  1247   ^9.6411^.0 3^1
  1248   "BLD",1058 7,4,26.14, 2,26.14,1, .03,0)
  1249   ACTION
  1250   "BLD",1058 7,4,26.14, 222)
  1251   y^y^p^^^^n ^^n
  1252   "BLD",1058 7,4,26.14, 224)
  1253  
  1254   "BLD",1058 7,4,27.11, 0)
  1255   27.11
  1256   "BLD",1058 7,4,27.11, 2,0)
  1257   ^9.641^27. 11^1
  1258   "BLD",1058 7,4,27.11, 2,27.11,0)
  1259   PATIENT EN ROLLMENT   (File-top  level)
  1260   "BLD",1058 7,4,27.11, 2,27.11,1, 0)
  1261   ^9.6411^.0 4^2
  1262   "BLD",1058 7,4,27.11, 2,27.11,1, .02,0)
  1263   PATIENT
  1264   "BLD",1058 7,4,27.11, 2,27.11,1, .04,0)
  1265   ENROLLMENT  STATUS
  1266   "BLD",1058 7,4,27.11, 222)
  1267   y^y^p^^^^n ^^n
  1268   "BLD",1058 7,4,27.11, 224)
  1269  
  1270   "BLD",1058 7,4,38.1,0 )
  1271   38.1
  1272   "BLD",1058 7,4,38.1,2 ,0)
  1273   ^9.641^38. 1^1
  1274   "BLD",1058 7,4,38.1,2 ,38.1,0)
  1275   DG SECURIT Y LOG  (Fi le-top lev el)
  1276   "BLD",1058 7,4,38.1,2 ,38.1,1,0)
  1277   ^9.6411^2^ 1
  1278   "BLD",1058 7,4,38.1,2 ,38.1,1,2, 0)
  1279   SECURITY L EVEL
  1280   "BLD",1058 7,4,38.1,2 22)
  1281   y^y^p^^^^n ^^n
  1282   "BLD",1058 7,4,38.1,2 24)
  1283  
  1284   "BLD",1058 7,4,41.41, 0)
  1285   41.41
  1286   "BLD",1058 7,4,41.41, 2,0)
  1287   ^9.641^41. 41^1
  1288   "BLD",1058 7,4,41.41, 2,41.41,0)
  1289   PRE-REGIST RATION AUD IT  (File- top level)
  1290   "BLD",1058 7,4,41.41, 2,41.41,1, 0)
  1291   ^9.6411^1^ 1
  1292   "BLD",1058 7,4,41.41, 2,41.41,1, 1,0)
  1293   DATE CHANG ED
  1294   "BLD",1058 7,4,41.41, 222)
  1295   y^y^p^^^^n ^^n
  1296   "BLD",1058 7,4,41.41, 224)
  1297  
  1298   "BLD",1058 7,4,391.71 ,0)
  1299   391.71
  1300   "BLD",1058 7,4,391.71 ,2,0)
  1301   ^9.641^391 .71^1
  1302   "BLD",1058 7,4,391.71 ,2,391.71, 0)
  1303   ADT/HL7 PI VOT  (File -top level )
  1304   "BLD",1058 7,4,391.71 ,2,391.71, 1,0)
  1305   ^9.6411^.1 1^1
  1306   "BLD",1058 7,4,391.71 ,2,391.71, 1,.11,0)
  1307   ENTRY WAS  CREATED BY  MASS EPIC
  1308   "BLD",1058 7,4,391.71 ,222)
  1309   y^y^p^^^^n ^^n
  1310   "BLD",1058 7,4,391.71 ,224)
  1311  
  1312   "BLD",1058 7,4,"APDD" ,2,2)
  1313  
  1314   "BLD",1058 7,4,"APDD" ,2,2,.01)
  1315  
  1316   "BLD",1058 7,4,"APDD" ,2,2,.02)
  1317  
  1318   "BLD",1058 7,4,"APDD" ,2,2,.024)
  1319  
  1320   "BLD",1058 7,4,"APDD" ,2,2,.03)
  1321  
  1322   "BLD",1058 7,4,"APDD" ,2,2,.09)
  1323  
  1324   "BLD",1058 7,4,"APDD" ,2,2,.116)
  1325  
  1326   "BLD",1058 7,4,"APDD" ,2,2,.121)
  1327  
  1328   "BLD",1058 7,4,"APDD" ,2,2,.1211 )
  1329  
  1330   "BLD",1058 7,4,"APDD" ,2,2,.1212 )
  1331  
  1332   "BLD",1058 7,4,"APDD" ,2,2,.1213 )
  1333  
  1334   "BLD",1058 7,4,"APDD" ,2,2,.1214 )
  1335  
  1336   "BLD",1058 7,4,"APDD" ,2,2,.1215 )
  1337  
  1338   "BLD",1058 7,4,"APDD" ,2,2,.1216 )
  1339  
  1340   "BLD",1058 7,4,"APDD" ,2,2,.1217 )
  1341  
  1342   "BLD",1058 7,4,"APDD" ,2,2,.1218 )
  1343  
  1344   "BLD",1058 7,4,"APDD" ,2,2,.1223 )
  1345  
  1346   "BLD",1058 7,4,"APDD" ,2,2,.133)
  1347  
  1348   "BLD",1058 7,4,"APDD" ,2,2,.134)
  1349  
  1350   "BLD",1058 7,4,"APDD" ,2,2,.1411 )
  1351  
  1352   "BLD",1058 7,4,"APDD" ,2,2,.1411 6)
  1353  
  1354   "BLD",1058 7,4,"APDD" ,2,2,.1412 )
  1355  
  1356   "BLD",1058 7,4,"APDD" ,2,2,.1413 )
  1357  
  1358   "BLD",1058 7,4,"APDD" ,2,2,.1414 )
  1359  
  1360   "BLD",1058 7,4,"APDD" ,2,2,.1415 )
  1361  
  1362   "BLD",1058 7,4,"APDD" ,2,2,.1416 )
  1363  
  1364   "BLD",1058 7,4,"APDD" ,2,2,.1417 )
  1365  
  1366   "BLD",1058 7,4,"APDD" ,2,2,.1418 )
  1367  
  1368   "BLD",1058 7,4,"APDD" ,2,2,.331)
  1369  
  1370   "BLD",1058 7,4,"APDD" ,2,2,.332)
  1371  
  1372   "BLD",1058 7,4,"APDD" ,2,2,.333)
  1373  
  1374   "BLD",1058 7,4,"APDD" ,2,2,.334)
  1375  
  1376   "BLD",1058 7,4,"APDD" ,2,2,.335)
  1377  
  1378   "BLD",1058 7,4,"APDD" ,2,2,.336)
  1379  
  1380   "BLD",1058 7,4,"APDD" ,2,2,.337)
  1381  
  1382   "BLD",1058 7,4,"APDD" ,2,2,.338)
  1383  
  1384   "BLD",1058 7,4,"APDD" ,2,2,.339)
  1385  
  1386   "BLD",1058 7,4,"APDD" ,2,2,.361)
  1387  
  1388   "BLD",1058 7,4,"APDD" ,2,2,.3611 )
  1389  
  1390   "BLD",1058 7,4,"APDD" ,2,2,.5291 )
  1391  
  1392   "BLD",1058 7,4,"APDD" ,2,2,.5295 )
  1393  
  1394   "BLD",1058 7,4,"APDD" ,2,2,220)
  1395  
  1396   "BLD",1058 7,4,"APDD" ,2,2,1010. 159)
  1397  
  1398   "BLD",1058 7,4,"APDD" ,2,2,1010. 161)
  1399  
  1400   "BLD",1058 7,4,"APDD" ,2,2.01)
  1401  
  1402   "BLD",1058 7,4,"APDD" ,2,2.01,.0 1)
  1403  
  1404   "BLD",1058 7,4,"APDD" ,2,2.0361)
  1405  
  1406   "BLD",1058 7,4,"APDD" ,2,2.0361, .01)
  1407  
  1408   "BLD",1058 7,4,"APDD" ,26.14,26. 14)
  1409  
  1410   "BLD",1058 7,4,"APDD" ,26.14,26. 14,.03)
  1411  
  1412   "BLD",1058 7,4,"APDD" ,27.11,27. 11)
  1413  
  1414   "BLD",1058 7,4,"APDD" ,27.11,27. 11,.02)
  1415  
  1416   "BLD",1058 7,4,"APDD" ,27.11,27. 11,.04)
  1417  
  1418   "BLD",1058 7,4,"APDD" ,38.1,38.1 )
  1419  
  1420   "BLD",1058 7,4,"APDD" ,38.1,38.1 ,2)
  1421  
  1422   "BLD",1058 7,4,"APDD" ,41.41,41. 41)
  1423  
  1424   "BLD",1058 7,4,"APDD" ,41.41,41. 41,1)
  1425  
  1426   "BLD",1058 7,4,"APDD" ,391.71,39 1.71)
  1427  
  1428   "BLD",1058 7,4,"APDD" ,391.71,39 1.71,.11)
  1429  
  1430   "BLD",1058 7,4,"B",2, 2)
  1431  
  1432   "BLD",1058 7,4,"B",26 .14,26.14)
  1433  
  1434   "BLD",1058 7,4,"B",27 .11,27.11)
  1435  
  1436   "BLD",1058 7,4,"B",38 .1,38.1)
  1437  
  1438   "BLD",1058 7,4,"B",41 .41,41.41)
  1439  
  1440   "BLD",1058 7,4,"B",39 1.71,391.7 1)
  1441  
  1442   "BLD",1058 7,6.3)
  1443   66
  1444   "BLD",1058 7,"ABPKG")
  1445   n
  1446   "BLD",1058 7,"INI")
  1447   DGMXPRE
  1448   "BLD",1058 7,"INID")
  1449   ^n^n
  1450   "BLD",1058 7,"INIT")
  1451   DGMXPOST
  1452   "BLD",1058 7,"KRN",0)
  1453   ^9.67PA^77 9.2^20
  1454   "BLD",1058 7,"KRN",.4 ,0)
  1455   .4
  1456   "BLD",1058 7,"KRN",.4 01,0)
  1457   .401
  1458   "BLD",1058 7,"KRN",.4 02,0)
  1459   .402
  1460   "BLD",1058 7,"KRN",.4 03,0)
  1461   .403
  1462   "BLD",1058 7,"KRN",.5 ,0)
  1463   .5
  1464   "BLD",1058 7,"KRN",.8 4,0)
  1465   .84
  1466   "BLD",1058 7,"KRN",3. 6,0)
  1467   3.6
  1468   "BLD",1058 7,"KRN",3. 8,0)
  1469   3.8
  1470   "BLD",1058 7,"KRN",9. 2,0)
  1471   9.2
  1472   "BLD",1058 7,"KRN",9. 8,0)
  1473   9.8
  1474   "BLD",1058 7,"KRN",9. 8,"NM",0)
  1475   ^9.68A^10^ 10
  1476   "BLD",1058 7,"KRN",9. 8,"NM",1,0 )
  1477   VAFCMSG^^0 ^B20895268
  1478   "BLD",1058 7,"KRN",9. 8,"NM",2,0 )
  1479   VAFCDD01^^ 0^B3902066 7
  1480   "BLD",1058 7,"KRN",9. 8,"NM",3,0 )
  1481   VAFHLZSP^^ 0^B5738866
  1482   "BLD",1058 7,"KRN",9. 8,"NM",4,0 )
  1483   DGMXADT^^0 ^B28572628
  1484   "BLD",1058 7,"KRN",9. 8,"NM",5,0 )
  1485   DGMXHL7^^0 ^B28578796 3
  1486   "BLD",1058 7,"KRN",9. 8,"NM",6,0 )
  1487   DGMXVLD^^0 ^B14924583
  1488   "BLD",1058 7,"KRN",9. 8,"NM",7,0 )
  1489   DGMXORU^^0 ^B54754724
  1490   "BLD",1058 7,"KRN",9. 8,"NM",8,0 )
  1491   DGMXCONV^^ 0^B4477612 3
  1492   "BLD",1058 7,"KRN",9. 8,"NM",9,0 )
  1493   DGMXPRE^^0 ^B1675692
  1494   "BLD",1058 7,"KRN",9. 8,"NM",10, 0)
  1495   DGMXPOST^^ 0^B2249025
  1496   "BLD",1058 7,"KRN",9. 8,"NM","B" ,"DGMXADT" ,4)
  1497  
  1498   "BLD",1058 7,"KRN",9. 8,"NM","B" ,"DGMXCONV ",8)
  1499  
  1500   "BLD",1058 7,"KRN",9. 8,"NM","B" ,"DGMXHL7" ,5)
  1501  
  1502   "BLD",1058 7,"KRN",9. 8,"NM","B" ,"DGMXORU" ,7)
  1503  
  1504   "BLD",1058 7,"KRN",9. 8,"NM","B" ,"DGMXPOST ",10)
  1505  
  1506   "BLD",1058 7,"KRN",9. 8,"NM","B" ,"DGMXPRE" ,9)
  1507  
  1508   "BLD",1058 7,"KRN",9. 8,"NM","B" ,"DGMXVLD" ,6)
  1509  
  1510   "BLD",1058 7,"KRN",9. 8,"NM","B" ,"VAFCDD01 ",2)
  1511  
  1512   "BLD",1058 7,"KRN",9. 8,"NM","B" ,"VAFCMSG" ,1)
  1513  
  1514   "BLD",1058 7,"KRN",9. 8,"NM","B" ,"VAFHLZSP ",3)
  1515  
  1516   "BLD",1058 7,"KRN",19 ,0)
  1517   19
  1518   "BLD",1058 7,"KRN",19 ,"NM",0)
  1519   ^9.68A^^0
  1520   "BLD",1058 7,"KRN",19 .1,0)
  1521   19.1
  1522   "BLD",1058 7,"KRN",10 1,0)
  1523   101
  1524   "BLD",1058 7,"KRN",10 1,"NM",0)
  1525   ^9.68A^2^2
  1526   "BLD",1058 7,"KRN",10 1,"NM",1,0 )
  1527   DGMX DEMOG RAPHICS MO NITOR^^0
  1528   "BLD",1058 7,"KRN",10 1,"NM",2,0 )
  1529   DGMX MASS  Demographi cs Update^ ^0
  1530   "BLD",1058 7,"KRN",10 1,"NM","B" ,"DGMX DEM OGRAPHICS  MONITOR",1 )
  1531  
  1532   "BLD",1058 7,"KRN",10 1,"NM","B" ,"DGMX MAS S Demograp hics Updat e",2)
  1533  
  1534   "BLD",1058 7,"KRN",40 9.61,0)
  1535   409.61
  1536   "BLD",1058 7,"KRN",77 1,0)
  1537   771
  1538   "BLD",1058 7,"KRN",77 9.2,0)
  1539   779.2
  1540   "BLD",1058 7,"KRN",77 9.2,"NM",0 )
  1541   ^9.68A^2^2
  1542   "BLD",1058 7,"KRN",77 9.2,"NM",1 ,0)
  1543   DG-REG-OUT ^^0
  1544   "BLD",1058 7,"KRN",77 9.2,"NM",2 ,0)
  1545   DG-ORU-OUT ^^0
  1546   "BLD",1058 7,"KRN",77 9.2,"NM"," B","DG-ORU -OUT",2)
  1547  
  1548   "BLD",1058 7,"KRN",77 9.2,"NM"," B","DG-REG -OUT",1)
  1549  
  1550   "BLD",1058 7,"KRN",87 0,0)
  1551   870
  1552   "BLD",1058 7,"KRN",87 0,"NM",0)
  1553   ^9.68A^^0
  1554   "BLD",1058 7,"KRN",89 89.51,0)
  1555   8989.51
  1556   "BLD",1058 7,"KRN",89 89.51,"NM" ,0)
  1557   ^9.68A^3^3
  1558   "BLD",1058 7,"KRN",89 89.51,"NM" ,1,0)
  1559   DGMX PATIE NT IEN ASS IGNING^^0
  1560   "BLD",1058 7,"KRN",89 89.51,"NM" ,2,0)
  1561   DGMX MASS  ENABLED^^0
  1562   "BLD",1058 7,"KRN",89 89.51,"NM" ,3,0)
  1563   DGMX CONV  THREADS^^0
  1564   "BLD",1058 7,"KRN",89 89.51,"NM" ,"B","DGMX  CONV THRE ADS",3)
  1565  
  1566   "BLD",1058 7,"KRN",89 89.51,"NM" ,"B","DGMX  MASS ENAB LED",2)
  1567  
  1568   "BLD",1058 7,"KRN",89 89.51,"NM" ,"B","DGMX  PATIENT I EN ASSIGNI NG",1)
  1569  
  1570   "BLD",1058 7,"KRN",89 89.52,0)
  1571   8989.52
  1572   "BLD",1058 7,"KRN",89 94,0)
  1573   8994
  1574   "BLD",1058 7,"KRN","B ",.4,.4)
  1575  
  1576   "BLD",1058 7,"KRN","B ",.401,.40 1)
  1577  
  1578   "BLD",1058 7,"KRN","B ",.402,.40 2)
  1579  
  1580   "BLD",1058 7,"KRN","B ",.403,.40 3)
  1581  
  1582   "BLD",1058 7,"KRN","B ",.5,.5)
  1583  
  1584   "BLD",1058 7,"KRN","B ",.84,.84)
  1585  
  1586   "BLD",1058 7,"KRN","B ",3.6,3.6)
  1587  
  1588   "BLD",1058 7,"KRN","B ",3.8,3.8)
  1589  
  1590   "BLD",1058 7,"KRN","B ",9.2,9.2)
  1591  
  1592   "BLD",1058 7,"KRN","B ",9.8,9.8)
  1593  
  1594   "BLD",1058 7,"KRN","B ",19,19)
  1595  
  1596   "BLD",1058 7,"KRN","B ",19.1,19. 1)
  1597  
  1598   "BLD",1058 7,"KRN","B ",101,101)
  1599  
  1600   "BLD",1058 7,"KRN","B ",409.61,4 09.61)
  1601  
  1602   "BLD",1058 7,"KRN","B ",771,771)
  1603  
  1604   "BLD",1058 7,"KRN","B ",779.2,77 9.2)
  1605  
  1606   "BLD",1058 7,"KRN","B ",870,870)
  1607  
  1608   "BLD",1058 7,"KRN","B ",8989.51, 8989.51)
  1609  
  1610   "BLD",1058 7,"KRN","B ",8989.52, 8989.52)
  1611  
  1612   "BLD",1058 7,"KRN","B ",8994,899 4)
  1613  
  1614   "BLD",1058 7,"PRET")
  1615  
  1616   "BLD",1058 7,"QDEF")
  1617   ^^^^NO^^^^ NO^^NO
  1618   "BLD",1058 7,"QUES",0 )
  1619   ^9.62^^
  1620   "BLD",1058 7,"REQB",0 )
  1621   ^9.611^4^4
  1622   "BLD",1058 7,"REQB",1 ,0)
  1623   DG*5.3*754 ^2
  1624   "BLD",1058 7,"REQB",2 ,0)
  1625   DG*5.3*578 ^2
  1626   "BLD",1058 7,"REQB",3 ,0)
  1627   DG*5.3*149 ^2
  1628   "BLD",1058 7,"REQB",4 ,0)
  1629   SD*5.3*676 ^2
  1630   "BLD",1058 7,"REQB"," B","DG*5.3 *149",3)
  1631  
  1632   "BLD",1058 7,"REQB"," B","DG*5.3 *578",2)
  1633  
  1634   "BLD",1058 7,"REQB"," B","DG*5.3 *754",1)
  1635  
  1636   "BLD",1058 7,"REQB"," B","SD*5.3 *676",4)
  1637  
  1638   "FIA",2)
  1639   PATIENT
  1640   "FIA",2,0)
  1641   ^DPT(
  1642   "FIA",2,0, 0)
  1643   2I
  1644   "FIA",2,0, 1)
  1645   y^y^p^^^^n ^^n
  1646   "FIA",2,0, 10)
  1647  
  1648   "FIA",2,0, 11)
  1649  
  1650   "FIA",2,0, "RLRO")
  1651  
  1652   "FIA",2,0, "VR")
  1653   5.3^DG
  1654   "FIA",2,2)
  1655   1
  1656   "FIA",2,2, .01)
  1657  
  1658   "FIA",2,2, .02)
  1659  
  1660   "FIA",2,2, .024)
  1661  
  1662   "FIA",2,2, .03)
  1663  
  1664   "FIA",2,2, .09)
  1665  
  1666   "FIA",2,2, .116)
  1667  
  1668   "FIA",2,2, .121)
  1669  
  1670   "FIA",2,2, .1211)
  1671  
  1672   "FIA",2,2, .1212)
  1673  
  1674   "FIA",2,2, .1213)
  1675  
  1676   "FIA",2,2, .1214)
  1677  
  1678   "FIA",2,2, .1215)
  1679  
  1680   "FIA",2,2, .1216)
  1681  
  1682   "FIA",2,2, .1217)
  1683  
  1684   "FIA",2,2, .1218)
  1685  
  1686   "FIA",2,2, .1223)
  1687  
  1688   "FIA",2,2, .133)
  1689  
  1690   "FIA",2,2, .134)
  1691  
  1692   "FIA",2,2, .1411)
  1693  
  1694   "FIA",2,2, .14116)
  1695  
  1696   "FIA",2,2, .1412)
  1697  
  1698   "FIA",2,2, .1413)
  1699  
  1700   "FIA",2,2, .1414)
  1701  
  1702   "FIA",2,2, .1415)
  1703  
  1704   "FIA",2,2, .1416)
  1705  
  1706   "FIA",2,2, .1417)
  1707  
  1708   "FIA",2,2, .1418)
  1709  
  1710   "FIA",2,2, .331)
  1711  
  1712   "FIA",2,2, .332)
  1713  
  1714   "FIA",2,2, .333)
  1715  
  1716   "FIA",2,2, .334)
  1717  
  1718   "FIA",2,2, .335)
  1719  
  1720   "FIA",2,2, .336)
  1721  
  1722   "FIA",2,2, .337)
  1723  
  1724   "FIA",2,2, .338)
  1725  
  1726   "FIA",2,2, .339)
  1727  
  1728   "FIA",2,2, .361)
  1729  
  1730   "FIA",2,2, .3611)
  1731  
  1732   "FIA",2,2, .5291)
  1733  
  1734   "FIA",2,2, .5295)
  1735  
  1736   "FIA",2,2, 1)
  1737  
  1738   "FIA",2,2, 220)
  1739  
  1740   "FIA",2,2, 361)
  1741  
  1742   "FIA",2,2, 1010.159)
  1743  
  1744   "FIA",2,2, 1010.161)
  1745  
  1746   "FIA",2,2. 01)
  1747   1
  1748   "FIA",2,2. 01,.01)
  1749  
  1750   "FIA",2,2. 0361)
  1751   1
  1752   "FIA",2,2. 0361,.01)
  1753  
  1754   "FIA",26.1 4)
  1755   PRF ASSIGN MENT HISTO RY
  1756   "FIA",26.1 4,0)
  1757   ^DGPF(26.1 4,
  1758   "FIA",26.1 4,0,0)
  1759   26.14IP
  1760   "FIA",26.1 4,0,1)
  1761   y^y^p^^^^n ^^n
  1762   "FIA",26.1 4,0,10)
  1763  
  1764   "FIA",26.1 4,0,11)
  1765  
  1766   "FIA",26.1 4,0,"RLRO" )
  1767  
  1768   "FIA",26.1 4,0,"VR")
  1769   5.3^DG
  1770   "FIA",26.1 4,26.14)
  1771   1
  1772   "FIA",26.1 4,26.14,.0 3)
  1773  
  1774   "FIA",27.1 1)
  1775   PATIENT EN ROLLMENT
  1776   "FIA",27.1 1,0)
  1777   ^DGEN(27.1 1,
  1778   "FIA",27.1 1,0,0)
  1779   27.11OID
  1780   "FIA",27.1 1,0,1)
  1781   y^y^p^^^^n ^^n
  1782   "FIA",27.1 1,0,10)
  1783  
  1784   "FIA",27.1 1,0,11)
  1785  
  1786   "FIA",27.1 1,0,"RLRO" )
  1787  
  1788   "FIA",27.1 1,0,"VR")
  1789   5.3^DG
  1790   "FIA",27.1 1,27.11)
  1791   1
  1792   "FIA",27.1 1,27.11,.0 2)
  1793  
  1794   "FIA",27.1 1,27.11,.0 4)
  1795  
  1796   "FIA",38.1 )
  1797   DG SECURIT Y LOG
  1798   "FIA",38.1 ,0)
  1799   ^DGSL(38.1 ,
  1800   "FIA",38.1 ,0,0)
  1801   38.1IP
  1802   "FIA",38.1 ,0,1)
  1803   y^y^p^^^^n ^^n
  1804   "FIA",38.1 ,0,10)
  1805  
  1806   "FIA",38.1 ,0,11)
  1807  
  1808   "FIA",38.1 ,0,"RLRO")
  1809  
  1810   "FIA",38.1 ,0,"VR")
  1811   5.3^DG
  1812   "FIA",38.1 ,38.1)
  1813   1
  1814   "FIA",38.1 ,38.1,2)
  1815  
  1816   "FIA",41.4 1)
  1817   PRE-REGIST RATION AUD IT
  1818   "FIA",41.4 1,0)
  1819   ^DGS(41.41 ,
  1820   "FIA",41.4 1,0,0)
  1821   41.41PI
  1822   "FIA",41.4 1,0,1)
  1823   y^y^p^^^^n ^^n
  1824   "FIA",41.4 1,0,10)
  1825  
  1826   "FIA",41.4 1,0,11)
  1827  
  1828   "FIA",41.4 1,0,"RLRO" )
  1829  
  1830   "FIA",41.4 1,0,"VR")
  1831   5.3^DG
  1832   "FIA",41.4 1,41.41)
  1833   1
  1834   "FIA",41.4 1,41.41,1)
  1835  
  1836   "FIA",391. 71)
  1837   ADT/HL7 PI VOT
  1838   "FIA",391. 71,0)
  1839   ^VAT(391.7 1,
  1840   "FIA",391. 71,0,0)
  1841   391.71I
  1842   "FIA",391. 71,0,1)
  1843   y^y^p^^^^n ^^n
  1844   "FIA",391. 71,0,10)
  1845  
  1846   "FIA",391. 71,0,11)
  1847  
  1848   "FIA",391. 71,0,"RLRO ")
  1849  
  1850   "FIA",391. 71,0,"VR")
  1851   5.3^DG
  1852   "FIA",391. 71,391.71)
  1853   1
  1854   "FIA",391. 71,391.71, .11)
  1855  
  1856   "INI")
  1857   DGMXPRE
  1858   "INIT")
  1859   DGMXPOST
  1860   "IX",2,2," ACVCOM",0)
  1861   2^ACVCOM^U pdate Comb at Vet Eli gibility E nd Date^MU ^^R^^I^2^^ ^^^A
  1862   "IX",2,2," ACVCOM",.1 ,0)
  1863   ^^11^11^30 30613^
  1864   "IX",2,2," ACVCOM",.1 ,1,0)
  1865   This multi -level MUM PS x-ref w ill trigge r an updat e to the C ombat Vet 
  1866   "IX",2,2," ACVCOM",.1 ,2,0)
  1867   Eligibilit y End Date  field und er the fol lowing con ditions:
  1868   "IX",2,2," ACVCOM",.1 ,3,0)
  1869     1) Servi ce Separat ion Date [ Last] is p recise and  > 2981111  AND EITHE R
  1870   "IX",2,2," ACVCOM",.1 ,4,0)
  1871     2) Comba t To Date  is after 1 1/11/98 OR
  1872   "IX",2,2," ACVCOM",.1 ,5,0)
  1873        Persi an Gulf To  Date is a fter 11/11 /98 OR
  1874   "IX",2,2," ACVCOM",.1 ,6,0)
  1875        Somal ia To Date  is after  11/11/98 O R
  1876   "IX",2,2," ACVCOM",.1 ,7,0)
  1877        Yugos lavia To D ate is aft er 11/11/9 8
  1878   "IX",2,2," ACVCOM",.1 ,8,0)
  1879    
  1880   "IX",2,2," ACVCOM",.1 ,9,0)
  1881   The Combat  vet field  will be s et to the  Service Se paration D ate + 2 
  1882   "IX",2,2," ACVCOM",.1 ,10,0)
  1883   years, and  will only  be update d if infor mation in  these fiel ds has 
  1884   "IX",2,2," ACVCOM",.1 ,11,0)
  1885   changed.
  1886   "IX",2,2," ACVCOM",1)
  1887   N DGZ S DG Z=$S(X2(10 ):X2(10),1 :X2(1)) D  SETCV^DGCV (DA,DGZ)
  1888   "IX",2,2," ACVCOM",1. 4)
  1889   I '$P($G(^ DPT(DA,.52 )),"^",15)  S X=$$CVE LIG^DGCV(D A)
  1890   "IX",2,2," ACVCOM",2)
  1891   Q
  1892   "IX",2,2," ACVCOM",2. 4)
  1893   Q
  1894   "IX",2,2," ACVCOM",11 .1,0)
  1895   ^.114IA^10 ^10
  1896   "IX",2,2," ACVCOM",11 .1,1,0)
  1897   1^F^2^.327 ^^^F
  1898   "IX",2,2," ACVCOM",11 .1,2,0)
  1899   2^F^2^.529 4^^^F
  1900   "IX",2,2," ACVCOM",11 .1,3,0)
  1901   3^F^2^.322 021^^^F
  1902   "IX",2,2," ACVCOM",11 .1,4,0)
  1903   4^F^2^.322 018^^^F
  1904   "IX",2,2," ACVCOM",11 .1,5,0)
  1905   5^F^2^.322 012^^^F
  1906   "IX",2,2," ACVCOM",11 .1,6,0)
  1907   6^F^2^.529 1^^^F
  1908   "IX",2,2," ACVCOM",11 .1,7,0)
  1909   7^F^2^.322 019^^^F
  1910   "IX",2,2," ACVCOM",11 .1,8,0)
  1911   8^F^2^.322 016^^^F
  1912   "IX",2,2," ACVCOM",11 .1,9,0)
  1913   9^F^2^.322 01^^^F
  1914   "IX",2,2," ACVCOM",11 .1,10,0)
  1915   10^C
  1916   "IX",2,2," ACVCOM",11 .1,10,1.5)
  1917   S X=$P($$L AST^DGMSEU TL(DA),U,2 )
  1918   "IX",2,2," ADGFMD01", 0)
  1919   2^ADGFMD01 ^This x-re f calls th e DG FIELD  MONITOR e vent point .^MU^^F^I^ I^2^^^^^A
  1920   "IX",2,2," ADGFMD01", .1,0)
  1921   ^^5^5^3021 116
  1922   "IX",2,2," ADGFMD01", .1,1,0)
  1923   This cross  reference  activates  the DG FI ELD MONITO R event po int.
  1924   "IX",2,2," ADGFMD01", .1,2,0)
  1925   Applicatio ns that wi sh to moni tor edit a ctivity re lated to t his field  may
  1926   "IX",2,2," ADGFMD01", .1,3,0)
  1927   subscribe  to that ev ent point  and take a ction as i ndicated b y the chan ges
  1928   "IX",2,2," ADGFMD01", .1,4,0)
  1929   that occur .  Refer t o the DG F IELD MONIT OR protoco l for a de scription  of
  1930   "IX",2,2," ADGFMD01", .1,5,0)
  1931   the inform ation avai lable at t he time of  the event .
  1932   "IX",2,2," ADGFMD01", 1)
  1933   D FC^DGFCP ROT(.DA,2, .01,"SET", $H,$G(DUZ) ,.X,.X1,.X 2,$G(XQY0) ) Q
  1934   "IX",2,2," ADGFMD01", 2)
  1935   D FC^DGFCP ROT(.DA,2, .01,"KILL" ,$H,$G(DUZ ),.X,.X1,. X2,$G(XQY0 )) Q
  1936   "IX",2,2," ADGFMD01", 11.1,0)
  1937   ^.114IA^1^ 1
  1938   "IX",2,2," ADGFMD01", 11.1,1,0)
  1939   1^F^2^.01^ ^^F
  1940   "IX",2,2," ADGFMD02", 0)
  1941   2^ADGFMD02 ^This x-re f calls th e DG FIELD  MONITOR e vent point .^MU^^F^I^ I^2^^^^^A
  1942   "IX",2,2," ADGFMD02", .1,0)
  1943   ^^2^2^3060 624^
  1944   "IX",2,2," ADGFMD02", .1,1,0)
  1945   This cross  reference  activates  the DG FI ELD MONITO R event po int if the
  1946   "IX",2,2," ADGFMD02", .1,2,0)
  1947   data in th e SEX (.02 ) field ch anges.
  1948   "IX",2,2," ADGFMD02", 1)
  1949   D FC^DGFCP ROT(.DA,2, .02,"SET", $H,$G(DUZ) ,.X,.X1,.X 2,$G(XQY0) ) Q
  1950   "IX",2,2," ADGFMD02", 2)
  1951   D FC^DGFCP ROT(.DA,2, .02,"KILL" ,$H,$G(DUZ ),.X,.X1,. X2,$G(XQY0 )) Q
  1952   "IX",2,2," ADGFMD02", 11.1,0)
  1953   ^.114IA^1^ 1
  1954   "IX",2,2," ADGFMD02", 11.1,1,0)
  1955   1^F^2^.02^ ^^F
  1956   "IX",2,2," ADGFMD02", 11.1,1,3)
  1957  
  1958   "IX",2,2," ADGFMD03", 0)
  1959   2^ADGFMD03 ^This x-re f calls th e DG FIELD  MONITOR e vent point .^MU^^F^I^ I^2^^^^^A
  1960   "IX",2,2," ADGFMD03", .1,0)
  1961   ^^5^5^3021 116
  1962   "IX",2,2," ADGFMD03", .1,1,0)
  1963   This cross  reference  activates  the DG FI ELD MONITO R event po int.
  1964   "IX",2,2," ADGFMD03", .1,2,0)
  1965   Applicatio ns that wi sh to moni tor edit a ctivity re lated to t his field  may
  1966   "IX",2,2," ADGFMD03", .1,3,0)
  1967   subscribe  to that ev ent point  and take a ction as i ndicated b y the chan ges
  1968   "IX",2,2," ADGFMD03", .1,4,0)
  1969   that occur .  Refer t o the DG F IELD MONIT OR protoco l for a de scription  of
  1970   "IX",2,2," ADGFMD03", .1,5,0)
  1971   the inform ation avai lable at t he time of  the event .
  1972   "IX",2,2," ADGFMD03", 1)
  1973   D FC^DGFCP ROT(.DA,2, .03,"SET", $H,$G(DUZ) ,.X,.X1,.X 2,$G(XQY0) ) Q
  1974   "IX",2,2," ADGFMD03", 2)
  1975   D FC^DGFCP ROT(.DA,2, .03,"KILL" ,$H,$G(DUZ ),.X,.X1,. X2,$G(XQY0 )) Q
  1976   "IX",2,2," ADGFMD03", 11.1,0)
  1977   ^.114IA^1^ 1
  1978   "IX",2,2," ADGFMD03", 11.1,1,0)
  1979   1^F^2^.03^ ^^F
  1980   "IX",2,2," ADGFMD09", 0)
  1981   2^ADGFMD09 ^This x-re f calls th e DG FIELD  MONITOR e vent point .^MU^^F^I^ I^2^^^^^A
  1982   "IX",2,2," ADGFMD09", .1,0)
  1983   ^^5^5^3021 118
  1984   "IX",2,2," ADGFMD09", .1,1,0)
  1985   This cross  reference  activates  the DG FI ELD MONITO R event po int.
  1986   "IX",2,2," ADGFMD09", .1,2,0)
  1987   Applicatio ns that wi sh to moni tor edit a ctivity re lated to t his field  may
  1988   "IX",2,2," ADGFMD09", .1,3,0)
  1989   subscribe  to that ev ent point  and take a ction as i ndicated b y the chan ges
  1990   "IX",2,2," ADGFMD09", .1,4,0)
  1991   that occur .  Refer t o the DG F IELD MONIT OR protoco l for a de scription  of
  1992   "IX",2,2," ADGFMD09", .1,5,0)
  1993   the inform ation avai lable at t he time of  the event .
  1994   "IX",2,2," ADGFMD09", 1)
  1995   D FC^DGFCP ROT(.DA,2, .09,"SET", $H,$G(DUZ) ,.X,.X1,.X 2,$G(XQY0) ) Q
  1996   "IX",2,2," ADGFMD09", 2)
  1997   D FC^DGFCP ROT(.DA,2, .09,"KILL" ,$H,$G(DUZ ),.X,.X1,. X2,$G(XQY0 )) Q
  1998   "IX",2,2," ADGFMD09", 11.1,0)
  1999   ^.114IA^1^ 1
  2000   "IX",2,2," ADGFMD09", 11.1,1,0)
  2001   1^F^2^.09^ ^^F
  2002   "IX",2,2," ADGFMD116" ,0)
  2003   2^ADGFMD11 6^This x-r ef calls t he DG FIEL D MONITOR  event poin t.^MU^^F^I ^I^2^^^^^A
  2004   "IX",2,2," ADGFMD116" ,.1,0)
  2005   ^^5^5^3030 628
  2006   "IX",2,2," ADGFMD116" ,.1,1,0)
  2007   This cross  reference  activates  the DG FI ELD MONITO R event po int.
  2008   "IX",2,2," ADGFMD116" ,.1,2,0)
  2009   Applicatio ns that wi sh to moni tor edit a ctivity re lated to t his field  may
  2010   "IX",2,2," ADGFMD116" ,.1,3,0)
  2011   subscribe  to that ev ent point  and take a ction as i ndicated b y the chan ges
  2012   "IX",2,2," ADGFMD116" ,.1,4,0)
  2013   that occur .  Refer t o the DG F IELD MONIT OR protoco l for a de scription  of
  2014   "IX",2,2," ADGFMD116" ,.1,5,0)
  2015   the inform ation avai lable at t he time of  the event .
  2016   "IX",2,2," ADGFMD116" ,1)
  2017   D FC^DGFCP ROT(.DA,2, .116,"SET" ,$H,$G(DUZ ),.X,.X1,. X2,$G(XQY0 )) Q
  2018   "IX",2,2," ADGFMD116" ,2)
  2019   D FC^DGFCP ROT(.DA,2, .116,"KILL ",$H,$G(DU Z),.X,.X1, .X2,$G(XQY 0)) Q
  2020   "IX",2,2," ADGFMD116" ,11.1,0)
  2021   ^.114IA^1^ 1
  2022   "IX",2,2," ADGFMD116" ,11.1,1,0)
  2023   1^F^2^.116 ^^^F
  2024   "IX",2,2," ADGFMD1411 ",0)
  2025   2^ADGFMD14 11^This x- ref calls  the DG FIE LD MONITOR  event poi nt.^MU^^F^ I^I^2^^^^^ A
  2026   "IX",2,2," ADGFMD1411 ",.1,0)
  2027   ^^5^5^3030 702
  2028   "IX",2,2," ADGFMD1411 ",.1,1,0)
  2029   This cross  reference  activates  the DG FI ELD MONITO R event po int.
  2030   "IX",2,2," ADGFMD1411 ",.1,2,0)
  2031   Applicatio ns that wi sh to moni tor edit a ctivity re lated to t his field  may
  2032   "IX",2,2," ADGFMD1411 ",.1,3,0)
  2033   subscribe  to that ev ent point  and take a ction as i ndicated b y the chan ges
  2034   "IX",2,2," ADGFMD1411 ",.1,4,0)
  2035   that occur .  Refer t o the DG F IELD MONIT OR protoco l for a de scription  of
  2036   "IX",2,2," ADGFMD1411 ",.1,5,0)
  2037   the inform ation avai lable at t he time of  the event .
  2038   "IX",2,2," ADGFMD1411 ",1)
  2039   D FC^DGFCP ROT(.DA,2, .1411,"SET ",$H,$G(DU Z),.X,.X1, .X2,$G(XQY 0)) Q
  2040   "IX",2,2," ADGFMD1411 ",2)
  2041   D FC^DGFCP ROT(.DA,2, .1411,"KIL L",$H,$G(D UZ),.X,.X1 ,.X2,$G(XQ Y0)) Q
  2042   "IX",2,2," ADGFMD1411 ",11.1,0)
  2043   ^.114IA^1^ 1
  2044   "IX",2,2," ADGFMD1411 ",11.1,1,0 )
  2045   1^F^2^.141 1^^^F
  2046   "IX",2,2," ADGFMD1412 ",0)
  2047   2^ADGFMD14 12^This x- ref calls  the DG FIE LD MONITOR  event poi nt.^MU^^F^ I^I^2^^^^^ A
  2048   "IX",2,2," ADGFMD1412 ",.1,0)
  2049   ^^5^5^3030 702
  2050   "IX",2,2," ADGFMD1412 ",.1,1,0)
  2051   This cross  reference  activates  the DG FI ELD MONITO R event po int.
  2052   "IX",2,2," ADGFMD1412 ",.1,2,0)
  2053   Applicatio ns that wi sh to moni tor edit a ctivity re lated to t his field  may
  2054   "IX",2,2," ADGFMD1412 ",.1,3,0)
  2055   subscribe  to that ev ent point  and take a ction as i ndicated b y the chan ges
  2056   "IX",2,2," ADGFMD1412 ",.1,4,0)
  2057   that occur .  Refer t o the DG F IELD MONIT OR protoco l for a de scription  of
  2058   "IX",2,2," ADGFMD1412 ",.1,5,0)
  2059   the inform ation avai lable at t he time of  the event .
  2060   "IX",2,2," ADGFMD1412 ",1)
  2061   D FC^DGFCP ROT(.DA,2, .1412,"SET ",$H,$G(DU Z),.X,.X1, .X2,$G(XQY 0)) Q
  2062   "IX",2,2," ADGFMD1412 ",2)
  2063   D FC^DGFCP ROT(.DA,2, .1412,"KIL L",$H,$G(D UZ),.X,.X1 ,.X2,$G(XQ Y0)) Q
  2064   "IX",2,2," ADGFMD1412 ",11.1,0)
  2065   ^.114IA^1^ 1
  2066   "IX",2,2," ADGFMD1412 ",11.1,1,0 )
  2067   1^F^2^.141 2^^^F
  2068   "IX",2,2," ADGFMD1413 ",0)
  2069   2^ADGFMD14 13^This x- ref calls  the DG FIE LD MONITOR  event poi nt.^MU^^F^ I^I^2^^^^^ A
  2070   "IX",2,2," ADGFMD1413 ",.1,0)
  2071   ^^5^5^3030 702
  2072   "IX",2,2," ADGFMD1413 ",.1,1,0)
  2073   This cross  reference  activates  the DG FI ELD MONITO R event po int.
  2074   "IX",2,2," ADGFMD1413 ",.1,2,0)
  2075   Applicatio ns that wi sh to moni tor edit a ctivity re lated to t his field  may
  2076   "IX",2,2," ADGFMD1413 ",.1,3,0)
  2077   subscribe  to that ev ent point  and take a ction as i ndicated b y the chan ges
  2078   "IX",2,2," ADGFMD1413 ",.1,4,0)
  2079   that occur .  Refer t o the DG F IELD MONIT OR protoco l for a de scription  of
  2080   "IX",2,2," ADGFMD1413 ",.1,5,0)
  2081   the inform ation avai lable at t he time of  the event .
  2082   "IX",2,2," ADGFMD1413 ",1)
  2083   D FC^DGFCP ROT(.DA,2, .1413,"SET ",$H,$G(DU Z),.X,.X1, .X2,$G(XQY 0)) Q
  2084   "IX",2,2," ADGFMD1413 ",2)
  2085   D FC^DGFCP ROT(.DA,2, .1413,"KIL L",$H,$G(D UZ),.X,.X1 ,.X2,$G(XQ Y0)) Q
  2086   "IX",2,2," ADGFMD1413 ",11.1,0)
  2087   ^.114IA^1^ 1
  2088   "IX",2,2," ADGFMD1413 ",11.1,1,0 )
  2089   1^F^2^.141 3^^^F
  2090   "IX",2,2," ADGFMD1414 ",0)
  2091   2^ADGFMD14 14^This x- ref calls  the DG FIE LD MONITOR  event poi nt.^MU^^F^ I^I^2^^^^^ A
  2092   "IX",2,2," ADGFMD1414 ",.1,0)
  2093   ^^5^5^3030 702
  2094   "IX",2,2," ADGFMD1414 ",.1,1,0)
  2095   This cross  reference  activates  the DG FI ELD MONITO R event po int.
  2096   "IX",2,2," ADGFMD1414 ",.1,2,0)
  2097   Applicatio ns that wi sh to moni tor edit a ctivity re lated to t his field  may
  2098   "IX",2,2," ADGFMD1414 ",.1,3,0)
  2099   subscribe  to that ev ent point  and take a ction as i ndicated b y the chan ges
  2100   "IX",2,2," ADGFMD1414 ",.1,4,0)
  2101   that occur .  Refer t o the DG F IELD MONIT OR protoco l for a de scription  of
  2102   "IX",2,2," ADGFMD1414 ",.1,5,0)
  2103   the inform ation avai lable at t he time of  the event .
  2104   "IX",2,2," ADGFMD1414 ",1)
  2105   D FC^DGFCP ROT(.DA,2, .1414,"SET ",$H,$G(DU Z),.X,.X1, .X2,$G(XQY 0)) Q
  2106   "IX",2,2," ADGFMD1414 ",2)
  2107   D FC^DGFCP ROT(.DA,2, .1414,"KIL L",$H,$G(D UZ),.X,.X1 ,.X2,$G(XQ Y0)) Q
  2108   "IX",2,2," ADGFMD1414 ",11.1,0)
  2109   ^.114IA^1^ 1
  2110   "IX",2,2," ADGFMD1414 ",11.1,1,0 )
  2111   1^F^2^.141 4^^^F
  2112   "IX",2,2," ADGFMD1415 ",0)
  2113   2^ADGFMD14 15^This x- ref calls  the DG FIE LD MONITOR  event poi nt.^MU^^F^ I^I^2^^^^^ A
  2114   "IX",2,2," ADGFMD1415 ",.1,0)
  2115   ^^5^5^3030 702
  2116   "IX",2,2," ADGFMD1415 ",.1,1,0)
  2117   This cross  reference  activates  the DG FI ELD MONITO R event po int.
  2118   "IX",2,2," ADGFMD1415 ",.1,2,0)
  2119   Applicatio ns that wi sh to moni tor edit a ctivity re lated to t his field  may
  2120   "IX",2,2," ADGFMD1415 ",.1,3,0)
  2121   subscribe  to that ev ent point  and take a ction as i ndicated b y the chan ges
  2122   "IX",2,2," ADGFMD1415 ",.1,4,0)
  2123   that occur .  Refer t o the DG F IELD MONIT OR protoco l for a de scription  of
  2124   "IX",2,2," ADGFMD1415 ",.1,5,0)
  2125   the inform ation avai lable at t he time of  the event .
  2126   "IX",2,2," ADGFMD1415 ",1)
  2127   D FC^DGFCP ROT(.DA,2, .1415,"SET ",$H,$G(DU Z),.X,.X1, .X2,$G(XQY 0)) Q
  2128   "IX",2,2," ADGFMD1415 ",2)
  2129   D FC^DGFCP ROT(.DA,2, .1415,"KIL L",$H,$G(D UZ),.X,.X1 ,.X2,$G(XQ Y0)) Q
  2130   "IX",2,2," ADGFMD1415 ",11.1,0)
  2131   ^.114IA^1^ 1
  2132   "IX",2,2," ADGFMD1415 ",11.1,1,0 )
  2133   1^F^2^.141 5^^^F
  2134   "IX",2,2," ADGFMD1416 ",0)
  2135   2^ADGFMD14 16^This x- ref calls  the DG FIE LD MONITOR  event poi nt.^MU^^F^ I^I^2^^^^^ A
  2136   "IX",2,2," ADGFMD1416 ",.1,0)
  2137   ^^5^5^3030 702
  2138   "IX",2,2," ADGFMD1416 ",.1,1,0)
  2139   This cross  reference  activates  the DG FI ELD MONITO R event po int.
  2140   "IX",2,2," ADGFMD1416 ",.1,2,0)
  2141   Applicatio ns that wi sh to moni tor edit a ctivity re lated to t his field  may
  2142   "IX",2,2," ADGFMD1416 ",.1,3,0)
  2143   subscribe  to that ev ent point  and take a ction as i ndicated b y the chan ges
  2144   "IX",2,2," ADGFMD1416 ",.1,4,0)
  2145   that occur .  Refer t o the DG F IELD MONIT OR protoco l for a de scription  of
  2146   "IX",2,2," ADGFMD1416 ",.1,5,0)
  2147   the inform ation avai lable at t he time of  the event .
  2148   "IX",2,2," ADGFMD1416 ",1)
  2149   D FC^DGFCP ROT(.DA,2, .1416,"SET ",$H,$G(DU Z),.X,.X1, .X2,$G(XQY 0)) Q
  2150   "IX",2,2," ADGFMD1416 ",2)
  2151   D FC^DGFCP ROT(.DA,2, .1416,"KIL L",$H,$G(D UZ),.X,.X1 ,.X2,$G(XQ Y0)) Q
  2152   "IX",2,2," ADGFMD1416 ",11.1,0)
  2153   ^.114IA^1^ 1
  2154   "IX",2,2," ADGFMD1416 ",11.1,1,0 )
  2155   1^F^2^.141 6^^^F
  2156   "IX",2,2," ADGFMD1417 ",0)
  2157   2^ADGFMD14 17^This x- ref calls  the DG FIE LD MONITOR  event poi nt.^MU^^F^ I^I^2^^^^^ A
  2158   "IX",2,2," ADGFMD1417 ",.1,0)
  2159   ^^5^5^3030 702
  2160   "IX",2,2," ADGFMD1417 ",.1,1,0)
  2161   This cross  reference  activates  the DG FI ELD MONITO R event po int.
  2162   "IX",2,2," ADGFMD1417 ",.1,2,0)
  2163   Applicatio ns that wi sh to moni tor edit a ctivity re lated to t his field  may
  2164   "IX",2,2," ADGFMD1417 ",.1,3,0)
  2165   subscribe  to that ev ent point  and take a ction as i ndicated b y the chan ges
  2166   "IX",2,2," ADGFMD1417 ",.1,4,0)
  2167   that occur .  Refer t o the DG F IELD MONIT OR protoco l for a de scription  of
  2168   "IX",2,2," ADGFMD1417 ",.1,5,0)
  2169   the inform ation avai lable at t he time of  the event .
  2170   "IX",2,2," ADGFMD1417 ",1)
  2171   D FC^DGFCP ROT(.DA,2, .1417,"SET ",$H,$G(DU Z),.X,.X1, .X2,$G(XQY 0)) Q
  2172   "IX",2,2," ADGFMD1417 ",2)
  2173   D FC^DGFCP ROT(.DA,2, .1417,"KIL L",$H,$G(D UZ),.X,.X1 ,.X2,$G(XQ Y0)) Q
  2174   "IX",2,2," ADGFMD1417 ",11.1,0)
  2175   ^.114IA^1^ 1
  2176   "IX",2,2," ADGFMD1417 ",11.1,1,0 )
  2177   1^F^2^.141 7^^^F
  2178   "IX",2,2," ADGFMD1418 ",0)
  2179   2^ADGFMD14 18^This x- ref calls  the DG FIE LD MONITOR  event poi nt.^MU^^F^ I^I^2^^^^^ A
  2180   "IX",2,2," ADGFMD1418 ",.1,0)
  2181   ^^5^5^3030 702
  2182   "IX",2,2," ADGFMD1418 ",.1,1,0)
  2183   This cross  reference  activates  the DG FI ELD MONITO R event po int.
  2184   "IX",2,2," ADGFMD1418 ",.1,2,0)
  2185   Applicatio ns that wi sh to moni tor edit a ctivity re lated to t his field  may
  2186   "IX",2,2," ADGFMD1418 ",.1,3,0)
  2187   subscribe  to that ev ent point  and take a ction as i ndicated b y the chan ges
  2188   "IX",2,2," ADGFMD1418 ",.1,4,0)
  2189   that occur .  Refer t o the DG F IELD MONIT OR protoco l for a de scription  of
  2190   "IX",2,2," ADGFMD1418 ",.1,5,0)
  2191   the inform ation avai lable at t he time of  the event .
  2192   "IX",2,2," ADGFMD1418 ",1)
  2193   D FC^DGFCP ROT(.DA,2, .1418,"SET ",$H,$G(DU Z),.X,.X1, .X2,$G(XQY 0)) Q
  2194   "IX",2,2," ADGFMD1418 ",2)
  2195   D FC^DGFCP ROT(.DA,2, .1418,"KIL L",$H,$G(D UZ),.X,.X1 ,.X2,$G(XQ Y0)) Q
  2196   "IX",2,2," ADGFMD1418 ",11.1,0)
  2197   ^.114IA^1^ 1
  2198   "IX",2,2," ADGFMD1418 ",11.1,1,0 )
  2199   1^F^2^.141 8^^^F
  2200   "IX",2,2," ADGFMD361" ,0)
  2201   2^ADGFMD36 1^THhis x- ref calls  the DG FIE LD MONITOR  event poi nt.^MU^^F^ I^I^2^^^^^ A
  2202   "IX",2,2," ADGFMD361" ,.1,0)
  2203   ^^2^2^3060 624^
  2204   "IX",2,2," ADGFMD361" ,.1,1,0)
  2205   This cross  reference  activates  the DG FI ELD MONITO R event po int if the  
  2206   "IX",2,2," ADGFMD361" ,.1,2,0)
  2207   PRIMARY EL IGIBILITY  CODE (#.36 1)field ch anges.
  2208   "IX",2,2," ADGFMD361" ,1)
  2209   D FC^DGFCP ROT(.DA,2, .361,"SET" ,$H,$G(DUZ ),.X,.X1,. X2,$G(XQY0 )) Q
  2210   "IX",2,2," ADGFMD361" ,2)
  2211   D FC^DGFCP ROT(.DA,2, .361,"KILL ",$H,$G(DU Z),.X,.X1, .X2,$G(XQY 0)) Q
  2212   "IX",2,2," ADGFMD361" ,11.1,0)
  2213   ^.114IA^1^ 1
  2214   "IX",2,2," ADGFMD361" ,11.1,1,0)
  2215   1^F^2^.361 ^^^F
  2216   "IX",2,2," ADGMX",0)
  2217   2^ADGMX^Th is x-ref u pdates MAS S with dem ographics  changes.^M U^^R^I^I^2 ^^^^^A
  2218   "IX",2,2," ADGMX",.1, 0)
  2219   ^^1^1^3171 214^^^
  2220   "IX",2,2," ADGMX",.1, 1,0)
  2221   This cross -reference  updates M ASS when d emographic s change o n a patien t.
  2222   "IX",2,2," ADGMX",1)
  2223   D MONITOR^ DGMXADT(.D A,"SET",.X ,.X1,.X2)  Q
  2224   "IX",2,2," ADGMX",2)
  2225   D MONITOR^ DGMXADT(.D A,"KILL",. X,.X1,.X2)  Q
  2226   "IX",2,2," ADGMX",11. 1,0)
  2227   ^.114IA^4^ 4
  2228   "IX",2,2," ADGMX",11. 1,1,0)
  2229   1^F^2^.03^ ^^F
  2230   "IX",2,2," ADGMX",11. 1,2,0)
  2231   2^F^2^.01^ ^^F
  2232   "IX",2,2," ADGMX",11. 1,3,0)
  2233   3^F^2^.02^ ^^F
  2234   "IX",2,2," ADGMX",11. 1,4,0)
  2235   4^F^2^.09^ ^^F
  2236   "IX",2,2," ADTTM1",0)
  2237   2^ADTTM1^T EMPORARY A DDRESS Cro ss-Referen ce^MU^^R^^ I^2^^^^^A
  2238   "IX",2,2," ADTTM1",.1 ,0)
  2239   ^^2^2^3050 810
  2240   "IX",2,2," ADTTM1",.1 ,1,0)
  2241   This cross -reference  will upda te the TEM PORARY ADD RESS CHANG E DT/TM fi eld
  2242   "IX",2,2," ADTTM1",.1 ,2,0)
  2243   when the T emporary A ddress dat a changes  for a pati ent.
  2244   "IX",2,2," ADTTM1",1)
  2245   D TEMP^DGD DDTTM
  2246   "IX",2,2," ADTTM1",2)
  2247   D TEMP^DGD DDTTM
  2248   "IX",2,2," ADTTM1",11 .1,0)
  2249   ^.114IA^13 ^13
  2250   "IX",2,2," ADTTM1",11 .1,1,0)
  2251   1^F^2^.121 1^^^F
  2252   "IX",2,2," ADTTM1",11 .1,2,0)
  2253   2^F^2^.121 2^^^F
  2254   "IX",2,2," ADTTM1",11 .1,3,0)
  2255   3^F^2^.121 3^^^F
  2256   "IX",2,2," ADTTM1",11 .1,4,0)
  2257   4^F^2^.121 4^^^F
  2258   "IX",2,2," ADTTM1",11 .1,5,0)
  2259   5^F^2^.121 5^^^F
  2260   "IX",2,2," ADTTM1",11 .1,6,0)
  2261   6^F^2^.121 6^^^F
  2262   "IX",2,2," ADTTM1",11 .1,7,0)
  2263   7^F^2^.121 7^^^F
  2264   "IX",2,2," ADTTM1",11 .1,8,0)
  2265   8^F^2^.121 8^^^F
  2266   "IX",2,2," ADTTM1",11 .1,9,0)
  2267   9^F^2^.121 05^^^F
  2268   "IX",2,2," ADTTM1",11 .1,10,0)
  2269   10^F^2^.12 112^^^F
  2270   "IX",2,2," ADTTM1",11 .1,11,0)
  2271   11^F^2^.12 21^^^F
  2272   "IX",2,2," ADTTM1",11 .1,11,3)
  2273  
  2274   "IX",2,2," ADTTM1",11 .1,12,0)
  2275   12^F^2^.12 22^^^F
  2276   "IX",2,2," ADTTM1",11 .1,12,3)
  2277  
  2278   "IX",2,2," ADTTM1",11 .1,13,0)
  2279   13^F^2^.12 23^^^F
  2280   "IX",2,2," ADTTM1",11 .1,13,3)
  2281  
  2282   "IX",2,2," ADTTM2",0)
  2283   2^ADTTM2^C ONFIDENTIA L ADDRESS  Cross-Refe rence^MU^^ R^^I^2^^^^ ^A
  2284   "IX",2,2," ADTTM2",.1 ,0)
  2285   ^^2^2^3080 811^^
  2286   "IX",2,2," ADTTM2",.1 ,1,0)
  2287   This cross -reference  will upda te the CON FIDENTIAL  ADDR CHANG E DT/TM fi eld
  2288   "IX",2,2," ADTTM2",.1 ,2,0)
  2289   when the c onfidentia l address  data chang es for a p atient.
  2290   "IX",2,2," ADTTM2",1)
  2291   D CONF^DGD DDTTM
  2292   "IX",2,2," ADTTM2",2)
  2293   D CONF^DGD DDTTM
  2294   "IX",2,2," ADTTM2",11 .1,0)
  2295   ^.114IA^14 ^14
  2296   "IX",2,2," ADTTM2",11 .1,1,0)
  2297   1^F^2^.141 1^^^F
  2298   "IX",2,2," ADTTM2",11 .1,2,0)
  2299   2^F^2^.141 2^^^F
  2300   "IX",2,2," ADTTM2",11 .1,3,0)
  2301   3^F^2^.141 3^^^F
  2302   "IX",2,2," ADTTM2",11 .1,4,0)
  2303   4^F^2^.141 4^^^F
  2304   "IX",2,2," ADTTM2",11 .1,5,0)
  2305   5^F^2^.141 5^^^F
  2306   "IX",2,2," ADTTM2",11 .1,6,0)
  2307   6^F^2^.141 6^^^F
  2308   "IX",2,2," ADTTM2",11 .1,7,0)
  2309   7^F^2^.141 7^^^F
  2310   "IX",2,2," ADTTM2",11 .1,8,0)
  2311   8^F^2^.141 8^^^F
  2312   "IX",2,2," ADTTM2",11 .1,9,0)
  2313   9^F^2^.141 05^^^F
  2314   "IX",2,2," ADTTM2",11 .1,10,0)
  2315   10^F^2^.14 114^^^F
  2316   "IX",2,2," ADTTM2",11 .1,11,0)
  2317   11^F^2^.14 115^^^F
  2318   "IX",2,2," ADTTM2",11 .1,12,0)
  2319   12^F^2^.14 116^^^F
  2320   "IX",2,2," ADTTM2",11 .1,13,0)
  2321   13^F^2^.14 111^^^F
  2322   "IX",2,2," ADTTM2",11 .1,14,0)
  2323   14^F^2^.13 15^^^F
  2324   "IX",2,2," ADTTM2",11 .1,14,3)
  2325  
  2326   "IX",2,2," ADTTM5",0)
  2327   2^ADTTM5^E -CONTACT C ross-Refer ence^MU^^R ^^I^2^^^^^ A
  2328   "IX",2,2," ADTTM5",.1 ,0)
  2329   ^^2^2^3050 813
  2330   "IX",2,2," ADTTM5",.1 ,1,0)
  2331   This cross -reference  will upda te the E-C ONTACT CHA NGE DATE/T IME field  when
  2332   "IX",2,2," ADTTM5",.1 ,2,0)
  2333   the Emerge ncy Contac t data cha nges for a  patient.
  2334   "IX",2,2," ADTTM5",1)
  2335   D ECON^DGD DDTTM
  2336   "IX",2,2," ADTTM5",2)
  2337   D ECON^DGD DDTTM
  2338   "IX",2,2," ADTTM5",11 .1,0)
  2339   ^.114IA^12 ^12
  2340   "IX",2,2," ADTTM5",11 .1,1,0)
  2341   1^F^2^.331 ^^^F
  2342   "IX",2,2," ADTTM5",11 .1,2,0)
  2343   2^F^2^.332 ^^^F
  2344   "IX",2,2," ADTTM5",11 .1,3,0)
  2345   3^F^2^.333 ^^^F
  2346   "IX",2,2," ADTTM5",11 .1,4,0)
  2347   4^F^2^.334 ^^^F
  2348   "IX",2,2," ADTTM5",11 .1,5,0)
  2349   5^F^2^.335 ^^^F
  2350   "IX",2,2," ADTTM5",11 .1,6,0)
  2351   6^F^2^.336 ^^^F
  2352   "IX",2,2," ADTTM5",11 .1,6,3)
  2353  
  2354   "IX",2,2," ADTTM5",11 .1,7,0)
  2355   7^F^2^.337 ^^^F
  2356   "IX",2,2," ADTTM5",11 .1,8,0)
  2357   8^F^2^.338 ^^^F
  2358   "IX",2,2," ADTTM5",11 .1,9,0)
  2359   9^F^2^.330 5^^^F
  2360   "IX",2,2," ADTTM5",11 .1,10,0)
  2361   10^F^2^.22 01^^^F
  2362   "IX",2,2," ADTTM5",11 .1,11,0)
  2363   11^F^2^.33 9^^^F
  2364   "IX",2,2," ADTTM5",11 .1,11,3)
  2365  
  2366   "IX",2,2," ADTTM5",11 .1,12,0)
  2367   12^F^2^.33 011^^^F
  2368   "IX",2,2," ADTTM5",11 .1,12,3)
  2369  
  2370   "IX",2,2," AEAR",0)
  2371   2^AEAR^Con tains YES  entries^R^ ^F^IR^I^2^ ^^^^S
  2372   "IX",2,2," AEAR",.1,0 )
  2373   ^^1^1^3080 401^^
  2374   "IX",2,2," AEAR",.1,1 ,0)
  2375   This cross  reference  contains  'yes' entr ies
  2376   "IX",2,2," AEAR",1)
  2377   S ^DPT("AE AR",X,DA)= ""
  2378   "IX",2,2," AEAR",1.4)
  2379   S X=X(1)=1
  2380   "IX",2,2," AEAR",2)
  2381   K ^DPT("AE AR",X,DA)
  2382   "IX",2,2," AEAR",2.5)
  2383   K ^DPT("AE AR")
  2384   "IX",2,2," AEAR",11.1 ,0)
  2385   ^.114IA^1^ 1
  2386   "IX",2,2," AEAR",11.1 ,1,0)
  2387   1^F^2^1010 .159^^1^F
  2388   "IX",2,2," AEAR",11.1 ,1,3)
  2389  
  2390   "IX",2,2," ANAM01",0)
  2391   2^ANAM01^T his index  keeps the  NAME COMPO NENTS file  in synch  with the . 01 field.^ MU^^F^IR^I ^2^^^^^A
  2392   "IX",2,2," ANAM01",.1 ,0)
  2393   ^^3^3^3050 611
  2394   "IX",2,2," ANAM01",.1 ,1,0)
  2395   This cross  reference  uses Kern el name st andardizat ion APIs t o keep the  NAME
  2396   "IX",2,2," ANAM01",.1 ,2,0)
  2397   COMPONENTS  (#20) fil e record a ssociated  with the # .01 field  synchroniz ed
  2398   "IX",2,2," ANAM01",.1 ,3,0)
  2399   with the d ata value  stored in  that field .
  2400   "IX",2,2," ANAM01",1)
  2401   I '$G(XUNO TRIG) N XU NOTRIG S X UNOTRIG=1, DG20NAME=X  D NARY^XL FNAME7(.DG 20NAME),UP DCOMP^XLFN AME2(2,.DA ,.01,.DG20 NAME,1.01, +$P($G(^DP T(DA,"NAME ")),U),"CL 30") K DG2 0NAME Q
  2402   "IX",2,2," ANAM01",2)
  2403   I '$G(XUNO TRIG) N XU NOTRIG S X UNOTRIG=1  D DELCOMP^ XLFNAME2(2 ,.DA,.01,1 .01) Q
  2404   "IX",2,2," ANAM01",11 .1,0)
  2405   ^.114IA^1^ 1
  2406   "IX",2,2," ANAM01",11 .1,1,0)
  2407   1^F^2^.01^ ^1^F
  2408   "IX",2,2," ANAM201",0 )
  2409   2^ANAM201^ This index  keeps the  NAME COMP ONENTS fil e in synch  with the  .01 field. ^MU^^F^IR^ W^2.01^^^^ ^A
  2410   "IX",2,2," ANAM201",. 1,0)
  2411   ^^3^3^3050 611
  2412   "IX",2,2," ANAM201",. 1,1,0)
  2413   This cross  reference  uses Kern el name st andardizat ion APIs t o keep the  NAME
  2414   "IX",2,2," ANAM201",. 1,2,0)
  2415   COMPONENTS  (#20) fil e record a ssociated  with the # .01 field  synchroniz ed
  2416   "IX",2,2," ANAM201",. 1,3,0)
  2417   with the d ata value  stored in  that field .
  2418   "IX",2,2," ANAM201",1 )
  2419   I '$G(XUNO TRIG) N XU NOTRIG S X UNOTRIG=1, DG20NAME=X  D NARY^XL FNAME7(.DG 20NAME),UP DCOMP^XLFN AME2(2.01, .DA,.01,.D G20NAME,10 0.03,,"CL3 0") K DG20 NAME Q
  2420   "IX",2,2," ANAM201",2 )
  2421   I '$G(XUNO TRIG) N XU NOTRIG S X UNOTRIG=1  D DELCOMP^ XLFNAME2(2 .01,.DA,.0 1,100.03)  Q
  2422   "IX",2,2," ANAM201",1 1.1,0)
  2423   ^.114IA^1^ 1
  2424   "IX",2,2," ANAM201",1 1.1,1,0)
  2425   1^F^2.01^. 01^^1^F
  2426   "IX",2,2," ANAM331",0 )
  2427   2^ANAM331^ This index  keeps the  NAME COMP ONENTS fil e in synch  with fiel d #.331.^M U^^F^IR^I^ 2^^^^^A
  2428   "IX",2,2," ANAM331",. 1,0)
  2429   ^^3^3^3050 611
  2430   "IX",2,2," ANAM331",. 1,1,0)
  2431   This cross  reference  uses Kern el name st andardizat ion APIs t o keep the  NAME
  2432   "IX",2,2," ANAM331",. 1,2,0)
  2433   COMPONENTS  (#20) fil e record a ssociated  with the # .331 field  synchroni zed
  2434   "IX",2,2," ANAM331",. 1,3,0)
  2435   with the d ata value  stored in  that field .
  2436   "IX",2,2," ANAM331",1 )
  2437   I '$G(XUNO TRIG) N XU NOTRIG S X UNOTRIG=1, DG20NAME=X  D NARY^XL FNAME7(.DG 20NAME),UP DCOMP^XLFN AME2(2,.DA ,.331,.DG2 0NAME,1.07 ,+$P($G(^D PT(DA,"NAM E")),U,7), "CL35") K  DG20NAME Q
  2438   "IX",2,2," ANAM331",2 )
  2439   I '$G(XUNO TRIG) N XU NOTRIG S X UNOTRIG=1  D DELCOMP^ XLFNAME2(2 ,.DA,.331, 1.07) Q
  2440   "IX",2,2," ANAM331",1 1.1,0)
  2441   ^.114IA^1^ 1
  2442   "IX",2,2," ANAM331",1 1.1,1,0)
  2443   1^F^2^.331 ^^1^F
  2444   "IX",2,2," AVAFC024", 0)
  2445   2^AVAFC024 ^This x-re f calls th e DG FIELD  MONITOR e vent point .^MU^^F^I^ I^2^^^^^A
  2446   "IX",2,2," AVAFC024", .1,0)
  2447   ^^5^5^3140 415
  2448   "IX",2,2," AVAFC024", .1,1,0)
  2449   This cross -reference  activates  the DG FI ELD MONITO R event po int.
  2450   "IX",2,2," AVAFC024", .1,2,0)
  2451   Applicatio ns that wi sh to moni tor edit a ctivity re lated to t his field  may
  2452   "IX",2,2," AVAFC024", .1,3,0)
  2453   subscribe  to that ev ent point  and take a ction as i ndicated b y the chan ges
  2454   "IX",2,2," AVAFC024", .1,4,0)
  2455   that occur .  Refer t o the DG F IELD MONIT OR protoco l for a de scription  of
  2456   "IX",2,2," AVAFC024", .1,5,0)
  2457   the inform ation avai lable at t he time of  the event .
  2458   "IX",2,2," AVAFC024", 1)
  2459   D FC^DGFCP ROT(.DA,2, .024,"SET" ,$H,$G(DUZ ),.X,.X1,. X2,$G(XQY0 )) Q
  2460   "IX",2,2," AVAFC024", 2)
  2461   D FC^DGFCP ROT(.DA,2, .024,"KILL ",$H,$G(DU Z),.X,.X1, .X2,$G(XQY 0)) Q
  2462   "IX",2,2," AVAFC024", 11.1,0)
  2463   ^.114IA^1^ 1
  2464   "IX",2,2," AVAFC024", 11.1,1,0)
  2465   1^F^2^.024 ^^^F
  2466   "IX",2,2," AVAFC121", 0)
  2467   2^AVAFC121 ^This x-re f calls th e DG FIELD  MONITOR e vent point .^MU^^F^I^ I^2^^^^^A
  2468   "IX",2,2," AVAFC121", .1,0)
  2469   ^^5^5^3090 724
  2470   "IX",2,2," AVAFC121", .1,1,0)
  2471   This cross -reference  activates  the DG FI ELD MONITO R event po int.
  2472   "IX",2,2," AVAFC121", .1,2,0)
  2473   Applicatio ns that wi sh to moni tor edit a ctivity re lated to t his field  may
  2474   "IX",2,2," AVAFC121", .1,3,0)
  2475   subscribe  to that ev ent point  and take a ction as i ndicated b y the chan ges
  2476   "IX",2,2," AVAFC121", .1,4,0)
  2477   that occur .  Refer t o the DG F IELD MONIT OR protoco l for a de scription  of
  2478   "IX",2,2," AVAFC121", .1,5,0)
  2479   the inform ation avai lable at t he time of  the event .
  2480   "IX",2,2," AVAFC121", 1)
  2481   D FC^DGFCP ROT(.DA,2, .121,"SET" ,$H,$G(DUZ ),.X,.X1,. X2,$G(XQY0 )) Q
  2482   "IX",2,2," AVAFC121", 2)
  2483   D FC^DGFCP ROT(.DA,2, .121,"KILL ",$H,$G(DU Z),.X,.X1, .X2,$G(XQY 0)) Q
  2484   "IX",2,2," AVAFC121", 11.1,0)
  2485   ^.114IA^1^ 1
  2486   "IX",2,2," AVAFC121", 11.1,1,0)
  2487   1^F^2^.121 ^^^F
  2488   "IX",2,2," AVAFC133", 0)
  2489   2^AVAFC133 ^This x-re f calls th e DG FIELD  MONITOR e vent point .^MU^^F^I^ I^2^^^^^A
  2490   "IX",2,2," AVAFC133", .1,0)
  2491   ^^5^5^3090 724
  2492   "IX",2,2," AVAFC133", .1,1,0)
  2493   This cross -reference  activates  the DG FI ELD MONITO R event po int.
  2494   "IX",2,2," AVAFC133", .1,2,0)
  2495   Applicatio ns that wi sh to moni tor edit a ctivity re lated to t his field  may
  2496   "IX",2,2," AVAFC133", .1,3,0)
  2497   subscribe  to that ev ent point  and take a ction as i ndicated b y the chan ges
  2498   "IX",2,2," AVAFC133", .1,4,0)
  2499   that occur .  Refer t o the DG F IELD MONIT OR protoco l for a de scription  of
  2500   "IX",2,2," AVAFC133", .1,5,0)
  2501   the inform ation avai lable at t he time of  the event .
  2502   "IX",2,2," AVAFC133", 1)
  2503   D FC^DGFCP ROT(.DA,2, .133,"SET" ,$H,$G(DUZ ),.X,.X1,. X2,$G(XQY0 )) Q
  2504   "IX",2,2," AVAFC133", 2)
  2505   D FC^DGFCP ROT(.DA,2, .133,"KILL ",$H,$G(DU Z),.X,.X1, .X2,$G(XQY 0)) Q
  2506   "IX",2,2," AVAFC133", 11.1,0)
  2507   ^.114IA^1^ 1
  2508   "IX",2,2," AVAFC133", 11.1,1,0)
  2509   1^F^2^.133 ^^^F
  2510   "IX",2,2," AVAFC134", 0)
  2511   2^AVAFC134 ^This x-re f calls th e DG FIELD  MONITOR e vent point .^MU^^F^I^ I^2^^^^^A
  2512   "IX",2,2," AVAFC134", .1,0)
  2513   ^^5^5^3090 724
  2514   "IX",2,2," AVAFC134", .1,1,0)
  2515   This cross -reference  activates  the DG FI ELD MONITO R event po int.
  2516   "IX",2,2," AVAFC134", .1,2,0)
  2517   Applicatio ns that wi sh to moni tor edit a ctivity re lated to t his field  may
  2518   "IX",2,2," AVAFC134", .1,3,0)
  2519   subscribe  to that ev ent point  and take a ction as i ndicated b y the chan ges
  2520   "IX",2,2," AVAFC134", .1,4,0)
  2521   that occur .  Refer t o the DG F IELD MONIT OR protoco l for a de scription  of
  2522   "IX",2,2," AVAFC134", .1,5,0)
  2523   the inform ation avai lable at t he time of  the event .
  2524   "IX",2,2," AVAFC134", 1)
  2525   D FC^DGFCP ROT(.DA,2, .134,"SET" ,$H,$G(DUZ ),.X,.X1,. X2,$G(XQY0 )) Q
  2526   "IX",2,2," AVAFC134", 2)
  2527   D FC^DGFCP ROT(.DA,2, .134,"KILL ",$H,$G(DU Z),.X,.X1, .X2,$G(XQY 0)) Q
  2528   "IX",2,2," AVAFC134", 11.1,0)
  2529   ^.114IA^1^ 1
  2530   "IX",2,2," AVAFC134", 11.1,1,0)
  2531   1^F^2^.134 ^^^F
  2532   "IX",2,2," AX",0)
  2533   2^AX^This  cross refe rence crea tes an ent ry in the  ADT/HL7 PI VOT file ( #391.71).^ MU^^F^IR^W ^2.0361^^^ ^^A
  2534   "IX",2,2," AX",.1,0)
  2535   ^^19^19^31 80205^^
  2536   "IX",2,2," AX",.1,1,0 )
  2537   This cross  reference  is used t o remember  that chan ges were m ade to the  
  2538   "IX",2,2," AX",.1,2,0 )
  2539   PATIENT fi le (#2) ou tside of t he Registr ation proc ess.  Exec ution of t his 
  2540   "IX",2,2," AX",.1,3,0 )
  2541   cross refe rence will  create an  entry in  the ADT/HL 7 PIVOT fi le (#391.7 1) 
  2542   "IX",2,2," AX",.1,4,0 )
  2543   and mark i t as requi ring trans mission of  an HL7 AD T-A08 mess age.  
  2544   "IX",2,2," AX",.1,5,0 )
  2545    
  2546   "IX",2,2," AX",.1,6,0 )
  2547   The local  variable V AFCFLG wil l be set t o 1 if the  cross ref erence is  not 
  2548   "IX",2,2," AX",.1,7,0 )
  2549   executed b ecause the  change is  being mad e from wit hin the Re gistration  
  2550   "IX",2,2," AX",.1,8,0 )
  2551   process.
  2552   "IX",2,2," AX",.1,9,0 )
  2553    
  2554   "IX",2,2," AX",.1,10, 0)
  2555   Execution  of this cr oss refere nce can be  prevented  by settin g the loca
  2556   "IX",2,2," AX",.1,11, 0)
  2557   variable V AFCA08 equ al to 1.  
  2558   "IX",2,2," AX",.1,12, 0)
  2559    
  2560   "IX",2,2," AX",.1,13, 0)
  2561   The local  variable V AFCF is us ed to iden tify the f ield edite d.  This d ata 
  2562   "IX",2,2," AX",.1,14, 0)
  2563   is stored  in the FIE LD(S) EDIT ED (#2.1)  field in t he ADT/HL7  PIVOT fil
  2564   "IX",2,2," AX",.1,15, 0)
  2565   (#391.71).
  2566   "IX",2,2," AX",.1,16, 0)
  2567    
  2568   "IX",2,2," AX",.1,17, 0)
  2569   The local  variable V AFCEPIC is  set to 1  to stop th e existing  output of  
  2570   "IX",2,2," AX",.1,18, 0)
  2571   messages t o MPI when  the updat e to this  field is f or the MAS S to Epic 
  2572   "IX",2,2," AX",.1,19, 0)
  2573   transmissi on only.
  2574   "IX",2,2," AX",1)
  2575   S VAFCF="2 .0361,.01; ",DGMXEPIC =1 D AVAFC ^VAFCDD01( DFN)
  2576   "IX",2,2," AX",2)
  2577   S VAFCF="2 .0361,.01; ",DGMXEPIC =1 D AVAFC ^VAFCDD01( DFN)
  2578   "IX",2,2," AX",11.1,0 )
  2579   ^.114IA^1^ 1
  2580   "IX",2,2," AX",11.1,1 ,0)
  2581   1^F^2.0361 ^.01^15^1^ F
  2582   "IX",2,2," AXCCNTRY", 0)
  2583   2^AXCCNTRY ^Clears co untry spec ific field s when tri ggered^MU^ ^F^R^I^2^^ ^^^A
  2584   "IX",2,2," AXCCNTRY", .1,0)
  2585   ^^8^8^3060 210^
  2586   "IX",2,2," AXCCNTRY", .1,1,0)
  2587   This cross  reference  is fired  whenever t he field C ONFIDENTIA L ADDR  
  2588   "IX",2,2," AXCCNTRY", .1,2,0)
  2589   COUNTRY is  changed.   It will c lear data  in fields  associated  with
  2590   "IX",2,2," AXCCNTRY", .1,3,0)
  2591   whether  t he COUNTRY  value is  domestic o r foreign.   In the c ase of a
  2592   "IX",2,2," AXCCNTRY", .1,4,0)
  2593   foreign  a ddress, th is cross r eference w ill clear  the CONFID ENTIAL ADD R
  2594   "IX",2,2," AXCCNTRY", .1,5,0)
  2595   STATE, CON FIDENTIAL  ADDR COUNT Y and CONF IDENTIAL A DDR ZIP+4  fields.  F or a
  2596   "IX",2,2," AXCCNTRY", .1,6,0)
  2597   domestic C ONFIDENTIA L address,  this cros s referenc e will cle ar the
  2598   "IX",2,2," AXCCNTRY", .1,7,0)
  2599   CONFIDENTI AL  PROVIN CE and CON FIDENTIAL  POSTAL COD E fields.   See routi ne
  2600   "IX",2,2," AXCCNTRY", .1,8,0)
  2601   ^DGCNTRY f or  modify ing which  fields are  cleared b y this cro ss referen ce.
  2602   "IX",2,2," AXCCNTRY", 1)
  2603   I ($T(EN^D GCNTRY)'=" ") D EN^DG CNTRY(2,"C ONF",.1411 6)
  2604   "IX",2,2," AXCCNTRY", 2)
  2605   Q
  2606   "IX",2,2," AXCCNTRY", 11.1,0)
  2607   ^.114IA^1^ 1
  2608   "IX",2,2," AXCCNTRY", 11.1,1,0)
  2609   1^F^2^.141 16^^^F
  2610   "IX",2,2," AXENR13",0 )
  2611   2^AXENR13^ TRIGGER A  MESSAGE FO R ANY CHAN GE TO THES E FIELDS^M U^^R^R^I^2 ^^^^^A
  2612   "IX",2,2," AXENR13",. 1,0)
  2613   ^^2^2^3060 213^
  2614   "IX",2,2," AXENR13",. 1,1,0)
  2615   This cross -reference  will trig ger a mess age to the  HEC anyti me one of  the 
  2616   "IX",2,2," AXENR13",. 1,2,0)
  2617   related fi elds is ch anged.
  2618   "IX",2,2," AXENR13",1 )
  2619   D EVENT^IV MPLOG(DA)
  2620   "IX",2,2," AXENR13",2 )
  2621   D EVENT^IV MPLOG(DA)
  2622   "IX",2,2," AXENR13",1 1.1,0)
  2623   ^.114IA^3^ 3
  2624   "IX",2,2," AXENR13",1 1.1,1,0)
  2625   1^F^2^.133 ^^^F
  2626   "IX",2,2," AXENR13",1 1.1,2,0)
  2627   2^F^2^.134 ^^^F
  2628   "IX",2,2," AXENR13",1 1.1,3,0)
  2629   3^F^2^.135 ^^^F
  2630   "IX",2,2," AXTCNTRY", 0)
  2631   2^AXTCNTRY ^Clear tem porary add r fields w hen countr y changes^ MU^^F^R^I^ 2^^^^^A
  2632   "IX",2,2," AXTCNTRY", .1,0)
  2633   ^^8^8^3060 117^
  2634   "IX",2,2," AXTCNTRY", .1,1,0)
  2635    This cros s referenc e is fired  whenever  the field  TEMPORARY  ADDRESS
  2636   "IX",2,2," AXTCNTRY", .1,2,0)
  2637   COUNTRY is  changed.   It will c lear data  in fields  associated  with whet her 
  2638   "IX",2,2," AXTCNTRY", .1,3,0)
  2639   the COUNTR Y value is  domestic  or foreign .  In the  case of a  foreign 
  2640   "IX",2,2," AXTCNTRY", .1,4,0)
  2641   address, t his cross  reference  will clear  the TEMPO RARY ADDRE SS STATE, 
  2642   "IX",2,2," AXTCNTRY", .1,5,0)
  2643   TEMPORARY  ADDRESS CO UNTY and T EMPORARY A DDRESS ZIP +4 fields.   For a 
  2644   "IX",2,2," AXTCNTRY", .1,6,0)
  2645   domestic t emporary a ddress, th is cross r eference w ill clear  the TEMPOR ARY 
  2646   "IX",2,2," AXTCNTRY", .1,7,0)
  2647   PROVINCE a nd TEMPORA RY POSTAL  CODE field s.  See ro utine ^DGC NTRY for 
  2648   "IX",2,2," AXTCNTRY", .1,8,0)
  2649   modifying  which fiel ds are cle ared by th is cross r eference.
  2650   "IX",2,2," AXTCNTRY", 1)
  2651   I ($T(EN^D GCNTRY)'=" ") D EN^DG CNTRY(2,"T EMP",.1223 )
  2652   "IX",2,2," AXTCNTRY", 2)
  2653   Q
  2654   "IX",2,2," AXTCNTRY", 11.1,0)
  2655   ^.114IA^1^ 1
  2656   "IX",2,2," AXTCNTRY", 11.1,1,0)
  2657   1^F^2^.122 3^^^F
  2658   "IX",2,2," AZIPLNK2", 0)
  2659   2^AZIPLNK2 ^Update Ci ty, State,  and Count y fields b ased on Zi pcode^MU^^ F^^I^2^^^^ ^S
  2660   "IX",2,2," AZIPLNK2", 1)
  2661   Q
  2662   "IX",2,2," AZIPLNK2", 1.4)
  2663   I X1(1)'=X 2(1)
  2664   "IX",2,2," AZIPLNK2", 2)
  2665   K EASDO2
  2666   "IX",2,2," AZIPLNK2", 2.4)
  2667   I X1(1)'=X 2(1)
  2668   "IX",2,2," AZIPLNK2", 11.1,0)
  2669   ^.114IA^2^ 2
  2670   "IX",2,2," AZIPLNK2", 11.1,1,0)
  2671   1^F^2^.116 ^^^F
  2672   "IX",2,2," AZIPLNK2", 11.1,2,0)
  2673   2^C
  2674   "IX",2,2," AZIPLNK2", 11.1,2,1.5 )
  2675   S:'$G(EASD O2) X=$$ZI P^DGREGDD1 (DA,X(1)), EASDO2=1
  2676   "IX",2,2," NOP",0)
  2677   2^NOP^Inde x of stand ardized va lues that  don't matc h .01 valu e.^R^^F^IR ^I^2^^^^^L S
  2678   "IX",2,2," NOP",.1,0)
  2679   ^^5^5^3050 611
  2680   "IX",2,2," NOP",.1,1, 0)
  2681   This cross  reference  facilitat es PATIENT  file look ups by a s tandardize d name
  2682   "IX",2,2," NOP",.1,2, 0)
  2683   value.  In  addition  to the sta ndardizati on applied  by Kernel  name util ities,
  2684   "IX",2,2," NOP",.1,3, 0)
  2685   hyphens an d apostrop hes are al so removed  from the  name value .  This cr oss
  2686   "IX",2,2," NOP",.1,4, 0)
  2687   reference  is only se t if the s tandardize d name is  different  than the p atient
  2688   "IX",2,2," NOP",.1,5, 0)
  2689   name value  stored in  the NAME  (#.01) fie ld.
  2690   "IX",2,2," NOP",1)
  2691   S ^DPT("NO P",$E(X,1, 30),DA)=""
  2692   "IX",2,2," NOP",2)
  2693   K ^DPT("NO P",$E(X,1, 30),DA)
  2694   "IX",2,2," NOP",2.5)
  2695   K ^DPT("NO P")
  2696   "IX",2,2," NOP",11.1, 0)
  2697   ^.114IA^1^ 1
  2698   "IX",2,2," NOP",11.1, 1,0)
  2699   1^F^2^.01^ 30^1^F
  2700   "IX",2,2," NOP",11.1, 1,2)
  2701   S X=$$NOP^ XLFNAME7(X )
  2702   "IX",2,2," NOP",11.1, 1,4)
  2703   S X=$$NOP^ XLFNAME7(X )
  2704   "IX",2,2.0 1,"AVAFC20 101",0)
  2705   2.01^AVAFC 20101^This  x-ref cal ls the DG  FIELD MONI TOR event  point.^MU^ ^F^I^I^2.0 1^^^^^A
  2706   "IX",2,2.0 1,"AVAFC20 101",.1,0)
  2707   ^^5^5^3040 702
  2708   "IX",2,2.0 1,"AVAFC20 101",.1,1, 0)
  2709   This cross  reference  activates  the DG FI ELD MONITO R event po int.
  2710   "IX",2,2.0 1,"AVAFC20 101",.1,2, 0)
  2711   Applicatio ns that wi sh to moni tor edit a ctivity re lated to t his field  may
  2712   "IX",2,2.0 1,"AVAFC20 101",.1,3, 0)
  2713   subscribe  to that ev ent point  and take a ction as i ndicated b y the chan ges
  2714   "IX",2,2.0 1,"AVAFC20 101",.1,4, 0)
  2715   that occur .  Refer t o the DG F IELD MONIT OR protoco l for a de scription  of
  2716   "IX",2,2.0 1,"AVAFC20 101",.1,5, 0)
  2717   the inform ation avai lable at t he time of  the event .
  2718   "IX",2,2.0 1,"AVAFC20 101",1)
  2719   D FC^DGFCP ROT(.DA,2. 01,.01,"SE T",$H,$G(D UZ),.X,.X1 ,.X2,$G(XQ Y0)) Q
  2720   "IX",2,2.0 1,"AVAFC20 101",2)
  2721   D FC^DGFCP ROT(.DA,2. 01,.01,"KI LL",$H,$G( DUZ),.X,.X 1,.X2,$G(X QY0)) Q
  2722   "IX",2,2.0 1,"AVAFC20 101",11.1, 0)
  2723   ^.114IA^1^ 1
  2724   "IX",2,2.0 1,"AVAFC20 101",11.1, 1,0)
  2725   1^F^2.01^. 01^^^F
  2726   "IX",27.11 ,27.11,"AD ",0)
  2727   27.11^AD^T rigger NEA R Order on  Enrollmen t Update^M U^^R^IR^I^ 27.11^^^^^ A
  2728   "IX",27.11 ,27.11,"AD ",.1,0)
  2729   ^^1^1^3180 206^^
  2730   "IX",27.11 ,27.11,"AD ",.1,1,0)
  2731   Trigger NE AR Order o n Enrollme nt Update.
  2732   "IX",27.11 ,27.11,"AD ",1)
  2733   D TRFRMENR ^ORMXTR
  2734   "IX",27.11 ,27.11,"AD ",2)
  2735   Q
  2736   "IX",27.11 ,27.11,"AD ",11.1,0)
  2737   ^.114IA^2^ 2
  2738   "IX",27.11 ,27.11,"AD ",11.1,1,0 )
  2739   1^F^27.11^ .04^^^F
  2740   "IX",27.11 ,27.11,"AD ",11.1,2,0 )
  2741   2^F^27.11^ .02^^^F
  2742   "KRN",101, 5008,-1)
  2743   0^1
  2744   "KRN",101, 5008,0)
  2745   DGMX DEMOG RAPHICS MO NITOR^DGMX  DEMOGRAPH ICS MONITO R^^X^^^^^^ ^^
  2746   "KRN",101, 5008,1,0)
  2747   ^^10^10^31 70914^
  2748   "KRN",101, 5008,1,1,0 )
  2749   This proto col is an  event poin t which mo nitors the  editing o f fields t hat
  2750   "KRN",101, 5008,1,2,0 )
  2751   should be  updated in  MASS when  they are  changed. T he followi ng variabl es
  2752   "KRN",101, 5008,1,3,0 )
  2753   are availa ble for us e by subsc ribers of  this proto col: 
  2754   "KRN",101, 5008,1,4,0 )
  2755     
  2756   "KRN",101, 5008,1,5,0 )
  2757   DGMXDFN -  Record ID  that is be ing modifi ed
  2758   "KRN",101, 5008,1,6,0 )
  2759   DGMXFLD -  Field numb er of chan ged field
  2760   "KRN",101, 5008,1,7,0 )
  2761   DGMXTYPE -  Type of c ross refer ence actio n (ADD, DE LETE, or U PDATE)
  2762   "KRN",101, 5008,1,8,0 )
  2763   DGMXFMX -  X array as  documente d for File man new st yle x-refs
  2764   "KRN",101, 5008,1,9,0 )
  2765   DGMXFMX1 -  X1 array  as documen ted for Fi leman new  style x-re fs
  2766   "KRN",101, 5008,1,10, 0)
  2767   DGMXFMX2 -  X2 array  as documen ted for Fi leman new  style x-re fs
  2768   "KRN",101, 5008,10,0)
  2769   ^101.01PA^ 1^1
  2770   "KRN",101, 5008,10,1, 0)
  2771   5009^^^
  2772   "KRN",101, 5008,10,1, "^")
  2773   DGMX MASS  Demographi cs Update
  2774   "KRN",101, 5008,99)
  2775   64567,3288 4
  2776   "KRN",101, 5009,-1)
  2777   0^2
  2778   "KRN",101, 5009,0)
  2779   DGMX MASS  Demographi cs Update^ Send an AD T message  to update  MASS with  demographi cs changes .^^A^^^^^^ ^^
  2780   "KRN",101, 5009,1,0)
  2781   ^^2^2^3170 914^
  2782   "KRN",101, 5009,1,1,0 )
  2783   This proto col subscr ibes to DG MX DEMOGRA PHICS MONI TOR in ord er to trig ger 
  2784   "KRN",101, 5009,1,2,0 )
  2785   an HL7 ADT  message t o MASS whe n a patien t's demogr aphics cha nge.
  2786   "KRN",101, 5009,20)
  2787   D TRIGGER^ DGMXADT(DG MXDFN,DGMX TYPE)
  2788   "KRN",101, 5009,99)
  2789   64567,3288 4
  2790   "KRN",779. 2,24,-1)
  2791   0^1
  2792   "KRN",779. 2,24,0)
  2793   DG-REG-OUT
  2794   "KRN",779. 2,24,2)
  2795   REGISTRATI ON
  2796   "KRN",779. 2,26,-1)
  2797   0^2
  2798   "KRN",779. 2,26,0)
  2799   DG-ORU-OUT
  2800   "KRN",779. 2,26,2)
  2801   REGISTRATI ON
  2802   "KRN",8989 .51,847,-1 )
  2803   0^1
  2804   "KRN",8989 .51,847,0)
  2805   DGMX PATIE NT IEN ASS IGNING^PAT IENT IEN A SSIGNING A UTHORITY^0
  2806   "KRN",8989 .51,847,1)
  2807   F
  2808   "KRN",8989 .51,847,20 ,0)
  2809   ^^2^2^3171 128^
  2810   "KRN",8989 .51,847,20 ,1,0)
  2811   The IEN as signing au thority id entifies t he deploym ent that g enerates 
  2812   "KRN",8989 .51,847,20 ,2,0)
  2813   patient id entifiers.
  2814   "KRN",8989 .51,847,30 ,0)
  2815   ^8989.513I ^1^1
  2816   "KRN",8989 .51,847,30 ,1,0)
  2817   1^4.2
  2818   "KRN",8989 .51,856,-1 )
  2819   0^2
  2820   "KRN",8989 .51,856,0)
  2821   DGMX MASS  ENABLED^En able MASS  Functional ity^0^^^0
  2822   "KRN",8989 .51,856,1)
  2823   Y^^Set to  Yes to ena ble MASS
  2824   "KRN",8989 .51,856,20 ,0)
  2825   ^^2^2^3171 129^
  2826   "KRN",8989 .51,856,20 ,1,0)
  2827   Determines  if MASS d emographic s interfac ing is ena bled. Set  to Yes to 
  2828   "KRN",8989 .51,856,20 ,2,0)
  2829   enable MAS S.
  2830   "KRN",8989 .51,856,30 ,0)
  2831   ^8989.513I ^1^1
  2832   "KRN",8989 .51,856,30 ,1,0)
  2833   1^4.2
  2834   "KRN",8989 .51,858,-1 )
  2835   0^3
  2836   "KRN",8989 .51,858,0)
  2837   DGMX CONV  THREADS^^0 ^^^0
  2838   "KRN",8989 .51,858,1)
  2839   N^^Enter t he number  of threads  for the d emographic s conversi on interfa ce
  2840   "KRN",8989 .51,858,20 ,0)
  2841   ^^2^2^3171 130^
  2842   "KRN",8989 .51,858,20 ,1,0)
  2843   When trigg ering the  conversion  this will  allow mul tiple HL L ogical Lin ks 
  2844   "KRN",8989 .51,858,20 ,2,0)
  2845   to be used .
  2846   "KRN",8989 .51,858,30 ,0)
  2847   ^8989.513I ^1^1
  2848   "KRN",8989 .51,858,30 ,1,0)
  2849   1^4.2
  2850   "MBREQ")
  2851   0
  2852   "ORD",15,1 01)
  2853   101;15;;;P RO^XPDTA;P ROF1^XPDIA ;PROE1^XPD IA;PROF2^X PDIA;;PROD EL^XPDIA
  2854   "ORD",15,1 01,0)
  2855   PROTOCOL
  2856   "ORD",20,8 989.51)
  2857   8989.51;20 ;;;PAR1E1^ XPDTA2;PAR 1F1^XPDIA3 ;PAR1E1^XP DIA3;PAR1F 2^XPDIA3;; PAR1DEL^XP DIA3(%)
  2858   "ORD",20,8 989.51,0)
  2859   PARAMETER  DEFINITION
  2860   "ORD",22,7 79.2)
  2861   779.2;22;1 ;;HLOAP^XP DTA1;;HLOE ^XPDIA1;;;
  2862   "ORD",22,7 79.2,0)
  2863   HLO APPLIC ATION REGI STRY
  2864   "PKG",47,- 1)
  2865   1^1
  2866   "PKG",47,0 )
  2867   REGISTRATI ON^DG^PATI ENT REGIST RATION, AD MISSION, D ISCHARGE,  EMBOSSER 
  2868   "PKG",47,2 0,0)
  2869   ^9.402P^^
  2870   "PKG",47,2 2,0)
  2871   ^9.49I^1^1
  2872   "PKG",47,2 2,1,0)
  2873   5.3^305111 9^2960613
  2874   "PKG",47,2 2,1,"PAH", 1,0)
  2875   948^318050 4
  2876   "PKG",47,2 2,1,"PAH", 1,1,0)
  2877   ^^559^559^ 3180504
  2878   "PKG",47,2 2,1,"PAH", 1,1,1,0)
  2879   Associated  patches:  SD*5.3*676 , DG*5.3*7 54, DG*5.3 *578, DG*5 .3*149
  2880   "PKG",47,2 2,1,"PAH", 1,1,2,0)
  2881    
  2882   "PKG",47,2 2,1,"PAH", 1,1,3,0)
  2883   Subject:   MASS Regis tration Pa ckage
  2884   "PKG",47,2 2,1,"PAH", 1,1,4,0)
  2885    
  2886   "PKG",47,2 2,1,"PAH", 1,1,5,0)
  2887   Category:   ROUTINE,  PROTOCOLS,  INTERFACE S
  2888   "PKG",47,2 2,1,"PAH", 1,1,6,0)
  2889    
  2890   "PKG",47,2 2,1,"PAH", 1,1,7,0)
  2891    
  2892   "PKG",47,2 2,1,"PAH", 1,1,8,0)
  2893   Descriptio n:
  2894   "PKG",47,2 2,1,"PAH", 1,1,9,0)
  2895   ---------- --
  2896   "PKG",47,2 2,1,"PAH", 1,1,10,0)
  2897   This patch  contains  the Regist ration por tions of t he Medical  Appointme nt 
  2898   "PKG",47,2 2,1,"PAH", 1,1,11,0)
  2899   Scheduling  System (M ASS) proje ct. The MA SS program  is deploy ing a 
  2900   "PKG",47,2 2,1,"PAH", 1,1,12,0)
  2901   commercial  schedulin g applicat ion to sup port sched ulers, and  ultimatel
  2902   "PKG",47,2 2,1,"PAH", 1,1,13,0)
  2903   our Vetera ns, within  the Depar tment of V eterans Af fairs (VA) .
  2904   "PKG",47,2 2,1,"PAH", 1,1,14,0)
  2905    
  2906   "PKG",47,2 2,1,"PAH", 1,1,15,0)
  2907    
  2908   "PKG",47,2 2,1,"PAH", 1,1,16,0)
  2909   Patch Comp onents:
  2910   "PKG",47,2 2,1,"PAH", 1,1,17,0)
  2911   ---------- -------
  2912   "PKG",47,2 2,1,"PAH", 1,1,18,0)
  2913    
  2914   "PKG",47,2 2,1,"PAH", 1,1,19,0)
  2915   Parameters
  2916   "PKG",47,2 2,1,"PAH", 1,1,20,0)
  2917           DG MX MASS EN ABLED - En ables send ing HL7 me ssages to  MASS when 
  2918   "PKG",47,2 2,1,"PAH", 1,1,21,0)
  2919   patient-re lated fiel ds change  in VistA.
  2920   "PKG",47,2 2,1,"PAH", 1,1,22,0)
  2921           DG MX PATIENT  IEN ASSIG NING - Set s the Pati ent ID Ass igning 
  2922   "PKG",47,2 2,1,"PAH", 1,1,23,0)
  2923   Authority  to be sent  in PID-3. 4 of MASS  HL7 messag es.
  2924   "PKG",47,2 2,1,"PAH", 1,1,24,0)
  2925           DG MX CONV TH READS - Sp ecifies ho w many out going HLO  Logical Li nks 
  2926   "PKG",47,2 2,1,"PAH", 1,1,25,0)
  2927   are used f or sending  messages  from the D GMX . util ity. The L ink names 
  2928   "PKG",47,2 2,1,"PAH", 1,1,26,0)
  2929   must be in  the forma t DG ADT O <n>, where  <n> is an  increment ing intege
  2930   "PKG",47,2 2,1,"PAH", 1,1,27,0)
  2931   starting a t 1.
  2932   "PKG",47,2 2,1,"PAH", 1,1,28,0)
  2933    
  2934   "PKG",47,2 2,1,"PAH", 1,1,29,0)
  2935   <Additiona l patch co mponents c an be adde d alphabet ically if  needed (e. g., 
  2936   "PKG",47,2 2,1,"PAH", 1,1,30,0)
  2937   APIs, Bull etins, Par ameters, R PCs, etc.) .>
  2938   "PKG",47,2 2,1,"PAH", 1,1,31,0)
  2939    
  2940   "PKG",47,2 2,1,"PAH", 1,1,32,0)
  2941    
  2942   "PKG",47,2 2,1,"PAH", 1,1,33,0)
  2943   Files & Fi elds Assoc iated:
  2944   "PKG",47,2 2,1,"PAH", 1,1,34,0)
  2945    
  2946   "PKG",47,2 2,1,"PAH", 1,1,35,0)
  2947   File Name  (Number)       Field  Name (Numb er)     Ne w/Modified /Deleted
  2948   "PKG",47,2 2,1,"PAH", 1,1,36,0)
  2949   ---------- --------       ------ ---------- ---     -- ---------- --------
  2950   "PKG",47,2 2,1,"PAH", 1,1,37,0)
  2951   PATIENT (2 )              Name ( .01)               Mo dified
  2952   "PKG",47,2 2,1,"PAH", 1,1,38,0)
  2953   PATIENT (2 )              Sex (. 02)                Mo dified
  2954   "PKG",47,2 2,1,"PAH", 1,1,39,0)
  2955   PATIENT (2 )              SELD I DENTIFIED  GENDER (.0 24) Modifi ed
  2956   "PKG",47,2 2,1,"PAH", 1,1,40,0)
  2957   PATIENT (2 )              DOB (. 03)                Mo dified
  2958   "PKG",47,2 2,1,"PAH", 1,1,41,0)
  2959   PATIENT (2 )              SSN (. 09)                Mo dified
  2960   "PKG",47,2 2,1,"PAH", 1,1,42,0)
  2961   PATIENT (2 )              ZIP CO DE (.116)  Modified
  2962   "PKG",47,2 2,1,"PAH", 1,1,43,0)
  2963   PATIENT (2 )              BAD AD DRESS INDI CATOR 
  2964   "PKG",47,2 2,1,"PAH", 1,1,44,0)
  2965                    (.12 1)           Modified
  2966   "PKG",47,2 2,1,"PAH", 1,1,45,0)
  2967   PATIENT (2 )              TEMPOR ARY STREET  
  2968   "PKG",47,2 2,1,"PAH", 1,1,46,0)
  2969                    [LIN E 1] (.121 1)         Modified
  2970   "PKG",47,2 2,1,"PAH", 1,1,47,0)
  2971   PATIENT (2 )              TEMPOR ARY STREET  
  2972   "PKG",47,2 2,1,"PAH", 1,1,48,0)
  2973                    [LIN E 2] (.121 2)         Modified
  2974   "PKG",47,2 2,1,"PAH", 1,1,49,0)
  2975   PATIENT (2 )              TEMPOR ARY STREET  
  2976   "PKG",47,2 2,1,"PAH", 1,1,50,0)
  2977                    [LIN E 3] (.121 3)         Modified
  2978   "PKG",47,2 2,1,"PAH", 1,1,51,0)
  2979   PATIENT (2 )              TEMPOR ARY CITY ( .1214)  Mo dified
  2980   "PKG",47,2 2,1,"PAH", 1,1,52,0)
  2981   PATIENT (2 )              TEMPOR ARY STATE  (.1215) Mo dified
  2982   "PKG",47,2 2,1,"PAH", 1,1,53,0)
  2983   PATIENT (2 )              TEMPOR ARY ZIP CO DE 
  2984   "PKG",47,2 2,1,"PAH", 1,1,54,0)
  2985                    (.12 16)          Modified
  2986   "PKG",47,2 2,1,"PAH", 1,1,55,0)
  2987   PATIENT (2 )              TEMPOR ARY ADDRES
  2988   "PKG",47,2 2,1,"PAH", 1,1,56,0)
  2989                    STAR T DATE (.1 217)       Modified
  2990   "PKG",47,2 2,1,"PAH", 1,1,57,0)
  2991   PATIENT (2 )              TEMPOR ARY ADDRES
  2992   "PKG",47,2 2,1,"PAH", 1,1,58,0)
  2993                    END  DATE (.121 8)         Modified
  2994   "PKG",47,2 2,1,"PAH", 1,1,59,0)
  2995   PATIENT (2 )              TEMPOR ARY ADDRES
  2996   "PKG",47,2 2,1,"PAH", 1,1,60,0)
  2997                    COUN TRY (.1223 ) Modified
  2998   "PKG",47,2 2,1,"PAH", 1,1,61,0)
  2999   PATIENT (2 )              EMAIL  ADDRESS (. 133)             Modi fied
  3000   "PKG",47,2 2,1,"PAH", 1,1,62,0)
  3001   PATIENT (2 )              PHONE  NUMBER 
  3002   "PKG",47,2 2,1,"PAH", 1,1,63,0)
  3003                    [CEL LULAR] (.1 34)        Modified
  3004   "PKG",47,2 2,1,"PAH", 1,1,64,0)
  3005   PATIENT (2 )              CONFID ENTIAL STR EET
  3006   "PKG",47,2 2,1,"PAH", 1,1,65,0)
  3007                    [LIN E 1] (.141 1)         Modified
  3008   "PKG",47,2 2,1,"PAH", 1,1,66,0)
  3009   PATIENT (2 )              CONFID ENTIAL ADD
  3010   "PKG",47,2 2,1,"PAH", 1,1,67,0)
  3011                    COUN TRY (.1411 6)         Modified
  3012   "PKG",47,2 2,1,"PAH", 1,1,68,0)
  3013   PATIENT (2 )              CONFID ENTIAL STR EET 
  3014   "PKG",47,2 2,1,"PAH", 1,1,69,0)
  3015                    [LIN E 2] (.141 2)         Modified
  3016   "PKG",47,2 2,1,"PAH", 1,1,70,0)
  3017   PATIENT (2 )              CONFID ENTIAL STR EET 
  3018   "PKG",47,2 2,1,"PAH", 1,1,71,0)
  3019                    [LIN E 3] (.141 3)         Modified
  3020   "PKG",47,2 2,1,"PAH", 1,1,72,0)
  3021   PATIENT (2 )              CONFID ENTIAL ADD RESS 
  3022   "PKG",47,2 2,1,"PAH", 1,1,73,0)
  3023                    CITY  (.1414)              Modified
  3024   "PKG",47,2 2,1,"PAH", 1,1,74,0)
  3025   PATIENT (2 )              CONFID ENTIAL ADD RESS 
  3026   "PKG",47,2 2,1,"PAH", 1,1,75,0)
  3027                    STAT E (.1415)             Modified
  3028   "PKG",47,2 2,1,"PAH", 1,1,76,0)
  3029   PATIENT (2 )              CONFID ENTIAL ADD RESS 
  3030   "PKG",47,2 2,1,"PAH", 1,1,77,0)
  3031                    ZIP  CODE (.141 6)         Modified
  3032   "PKG",47,2 2,1,"PAH", 1,1,78,0)
  3033   PATIENT (2 )              CONFID ENTIAL STA RT 
  3034   "PKG",47,2 2,1,"PAH", 1,1,79,0)
  3035                    DATE  (.1417)              Modified
  3036   "PKG",47,2 2,1,"PAH", 1,1,80,0)
  3037   PATIENT (2 )              CONFID ENTIAL END  
  3038   "PKG",47,2 2,1,"PAH", 1,1,81,0)
  3039                    DATE  (.1418)              Modified
  3040   "PKG",47,2 2,1,"PAH", 1,1,82,0)
  3041   PATIENT (2 )              E-NAME  (.331)            Mo dified
  3042   "PKG",47,2 2,1,"PAH", 1,1,83,0)
  3043   PATIENT (2 )              E-RELA TIONSHIP T
  3044   "PKG",47,2 2,1,"PAH", 1,1,84,0)
  3045                    PATI ENT (.332)   Modified
  3046   "PKG",47,2 2,1,"PAH", 1,1,85,0)
  3047   PATIENT (2 )              E-STRE ET ADDRESS  
  3048   "PKG",47,2 2,1,"PAH", 1,1,86,0)
  3049                    [LIN E 1] (.333 ) Modified
  3050   "PKG",47,2 2,1,"PAH", 1,1,87,0)
  3051   PATIENT (2 )              E-STRE ET ADDRESS  
  3052   "PKG",47,2 2,1,"PAH", 1,1,88,0)
  3053                    [LIN E 2] (.334 ) Modified
  3054   "PKG",47,2 2,1,"PAH", 1,1,89,0)
  3055   PATIENT (2 )              E-STRE ET ADDRESS  
  3056   "PKG",47,2 2,1,"PAH", 1,1,90,0)
  3057                    [LIN E 3] (.335 ) Modified
  3058   "PKG",47,2 2,1,"PAH", 1,1,91,0)
  3059   PATIENT (2 )              E-CITY  (.336)            Mo dified
  3060   "PKG",47,2 2,1,"PAH", 1,1,92,0)
  3061   PATIENT (2 )              E-STAT E (.337)   Modified
  3062   "PKG",47,2 2,1,"PAH", 1,1,93,0)
  3063   PATIENT (2 )              E-ZIP  CODE (.338 )       Mo dified
  3064   "PKG",47,2 2,1,"PAH", 1,1,94,0)
  3065   PATIENT (2 )              E-PHON E NUMBER ( .339)   Mo dified
  3066   "PKG",47,2 2,1,"PAH", 1,1,95,0)
  3067   PATIENT (2 )              PRIMAR Y ELIGIBIL ITY 
  3068   "PKG",47,2 2,1,"PAH", 1,1,96,0)
  3069                    CODE  (.361)               Modified
  3070   "PKG",47,2 2,1,"PAH", 1,1,97,0)
  3071   PATIENT (2 )              ELIGIB ILITY STAT US 
  3072   "PKG",47,2 2,1,"PAH", 1,1,98,0)
  3073                    (.36 11)          Modified
  3074   "PKG",47,2 2,1,"PAH", 1,1,99,0)
  3075   PATIENT (2 )              COMBAT  SERVICE 
  3076   "PKG",47,2 2,1,"PAH", 1,1,100,0)
  3077                    INDI CATED (.52 91)        Modified
  3078   "PKG",47,2 2,1,"PAH", 1,1,101,0)
  3079   PATIENT (2 )              COMBAT  VETERAN E ND 
  3080   "PKG",47,2 2,1,"PAH", 1,1,102,0)
  3081                    DATE  (.5295)              Modified
  3082   "PKG",47,2 2,1,"PAH", 1,1,103,0)
  3083   PATIENT (2 )              ALIAS  (1,.01)            Mo dified
  3084   "PKG",47,2 2,1,"PAH", 1,1,104,0)
  3085   PATIENT (2 )              DENTAL  CLASSIFIC ATION 
  3086   "PKG",47,2 2,1,"PAH", 1,1,105,0)
  3087                    (220 )            Modified
  3088   "PKG",47,2 2,1,"PAH", 1,1,106,0)
  3089   PATIENT (2 )              APPOIN TMENT REQU EST ON  MO DIFIED
  3090   "PKG",47,2 2,1,"PAH", 1,1,107,0)
  3091                    1010 EZ (1010.1 59)
  3092   "PKG",47,2 2,1,"PAH", 1,1,108,0)
  3093   PATIENT (2 )              APPOIN TMENT REQU EST     MO DIFIED
  3094   "PKG",47,2 2,1,"PAH", 1,1,109,0)
  3095                    STAT US (1010.1 61)
  3096   "PKG",47,2 2,1,"PAH", 1,1,110,0)
  3097   PRF ASSIGN MENT 
  3098   "PKG",47,2 2,1,"PAH", 1,1,111,0)
  3099   HISTORY (2 6.14) ACTI ON (.03)              Modified
  3100   "PKG",47,2 2,1,"PAH", 1,1,112,0)
  3101   DG SECURIT
  3102   "PKG",47,2 2,1,"PAH", 1,1,113,0)
  3103   LOG (38.1)                SECURI TY LEVEL ( 2)      Mo dified
  3104   "PKG",47,2 2,1,"PAH", 1,1,114,0)
  3105   PRE-REGIST RATION
  3106   "PKG",47,2 2,1,"PAH", 1,1,115,0)
  3107   AUDIT (41. 41)            DATE C HANGED (1)         Mo dified
  3108   "PKG",47,2 2,1,"PAH", 1,1,116,0)
  3109   ADT/HL7 PI VOT (391.7 1)  ENTRY  WAS CREATE D BY 
  3110   "PKG",47,2 2,1,"PAH", 1,1,117,0)
  3111   MASS EPIC  (.11)      New
  3112   "PKG",47,2 2,1,"PAH", 1,1,118,0)
  3113    
  3114   "PKG",47,2 2,1,"PAH", 1,1,119,0)
  3115   Patch Comp onents:
  3116   "PKG",47,2 2,1,"PAH", 1,1,120,0)
  3117   ---------- -------
  3118   "PKG",47,2 2,1,"PAH", 1,1,121,0)
  3119    
  3120   "PKG",47,2 2,1,"PAH", 1,1,122,0)
  3121   HLO Applic ations:
  3122   "PKG",47,2 2,1,"PAH", 1,1,123,0)
  3123   DG-REG-OUT
  3124   "PKG",47,2 2,1,"PAH", 1,1,124,0)
  3125    
  3126   "PKG",47,2 2,1,"PAH", 1,1,125,0)
  3127   HLO Logica l Links:
  3128   "PKG",47,2 2,1,"PAH", 1,1,126,0)
  3129   DG ADT OUT
  3130   "PKG",47,2 2,1,"PAH", 1,1,127,0)
  3131   DG ORU OUT
  3132   "PKG",47,2 2,1,"PAH", 1,1,128,0)
  3133    
  3134   "PKG",47,2 2,1,"PAH", 1,1,129,0)
  3135   Parameters :
  3136   "PKG",47,2 2,1,"PAH", 1,1,130,0)
  3137   DGMX MASS  ENABLE
  3138   "PKG",47,2 2,1,"PAH", 1,1,131,0)
  3139   DGMX PATIE NT IEN ASS IGNING
  3140   "PKG",47,2 2,1,"PAH", 1,1,132,0)
  3141   DGMC CONV  THREADS
  3142   "PKG",47,2 2,1,"PAH", 1,1,133,0)
  3143    
  3144   "PKG",47,2 2,1,"PAH", 1,1,134,0)
  3145    
  3146   "PKG",47,2 2,1,"PAH", 1,1,135,0)
  3147   Forms Asso ciated:
  3148   "PKG",47,2 2,1,"PAH", 1,1,136,0)
  3149    
  3150   "PKG",47,2 2,1,"PAH", 1,1,137,0)
  3151   Form Name        File  #  New/Mo dified/Del eted
  3152   "PKG",47,2 2,1,"PAH", 1,1,138,0)
  3153   ---------        ---- --  ------ ---------- ----
  3154   "PKG",47,2 2,1,"PAH", 1,1,139,0)
  3155   N/A
  3156   "PKG",47,2 2,1,"PAH", 1,1,140,0)
  3157    
  3158   "PKG",47,2 2,1,"PAH", 1,1,141,0)
  3159    
  3160   "PKG",47,2 2,1,"PAH", 1,1,142,0)
  3161   Mail Group s Associat ed:
  3162   "PKG",47,2 2,1,"PAH", 1,1,143,0)
  3163    
  3164   "PKG",47,2 2,1,"PAH", 1,1,144,0)
  3165   Mail Group  Name New/ Modified/D eleted
  3166   "PKG",47,2 2,1,"PAH", 1,1,145,0)
  3167   ---------- ----- ---- ---------- ------
  3168   "PKG",47,2 2,1,"PAH", 1,1,146,0)
  3169   N/A
  3170   "PKG",47,2 2,1,"PAH", 1,1,147,0)
  3171    
  3172   "PKG",47,2 2,1,"PAH", 1,1,148,0)
  3173    
  3174   "PKG",47,2 2,1,"PAH", 1,1,149,0)
  3175   Options As sociated:
  3176   "PKG",47,2 2,1,"PAH", 1,1,150,0)
  3177    
  3178   "PKG",47,2 2,1,"PAH", 1,1,151,0)
  3179   Option Nam e     Type     New/Mo dified/Del eted
  3180   "PKG",47,2 2,1,"PAH", 1,1,152,0)
  3181   ---------- -     ----     ------ ---------- ---- 
  3182   "PKG",47,2 2,1,"PAH", 1,1,153,0)
  3183   N/A
  3184   "PKG",47,2 2,1,"PAH", 1,1,154,0)
  3185    
  3186   "PKG",47,2 2,1,"PAH", 1,1,155,0)
  3187    
  3188   "PKG",47,2 2,1,"PAH", 1,1,156,0)
  3189   Protocols  Associated :
  3190   "PKG",47,2 2,1,"PAH", 1,1,157,0)
  3191    
  3192   "PKG",47,2 2,1,"PAH", 1,1,158,0)
  3193   Protocol N ame            New/Mo dified/Del eted
  3194   "PKG",47,2 2,1,"PAH", 1,1,159,0)
  3195   ---------- ---            ------ ---------- ---- 
  3196   "PKG",47,2 2,1,"PAH", 1,1,160,0)
  3197   DGMX DEMOG RAPHICS MO NITOR                 New
  3198   "PKG",47,2 2,1,"PAH", 1,1,161,0)
  3199   DGMX MASS  Demographi cs Update    New
  3200   "PKG",47,2 2,1,"PAH", 1,1,162,0)
  3201    
  3202   "PKG",47,2 2,1,"PAH", 1,1,163,0)
  3203   Security K eys Associ ated:
  3204   "PKG",47,2 2,1,"PAH", 1,1,164,0)
  3205    
  3206   "PKG",47,2 2,1,"PAH", 1,1,165,0)
  3207   Security K ey Name
  3208   "PKG",47,2 2,1,"PAH", 1,1,166,0)
  3209   ---------- -------
  3210   "PKG",47,2 2,1,"PAH", 1,1,167,0)
  3211   N/A
  3212   "PKG",47,2 2,1,"PAH", 1,1,168,0)
  3213    
  3214   "PKG",47,2 2,1,"PAH", 1,1,169,0)
  3215    
  3216   "PKG",47,2 2,1,"PAH", 1,1,170,0)
  3217   Templates  Associated :
  3218   "PKG",47,2 2,1,"PAH", 1,1,171,0)
  3219    
  3220   "PKG",47,2 2,1,"PAH", 1,1,172,0)
  3221   Template N ame   Type     File N ame (Numbe r)  New/Mo dified/Del eted 
  3222   "PKG",47,2 2,1,"PAH", 1,1,173,0)
  3223   ---------- ---   ----     ------ ---------- --  ------ ---------- ----
  3224   "PKG",47,2 2,1,"PAH", 1,1,174,0)
  3225   N/A
  3226   "PKG",47,2 2,1,"PAH", 1,1,175,0)
  3227    
  3228   "PKG",47,2 2,1,"PAH", 1,1,176,0)
  3229    
  3230   "PKG",47,2 2,1,"PAH", 1,1,177,0)
  3231   Additional  Informati on:
  3232   "PKG",47,2 2,1,"PAH", 1,1,178,0)
  3233   N/A
  3234   "PKG",47,2 2,1,"PAH", 1,1,179,0)
  3235    
  3236   "PKG",47,2 2,1,"PAH", 1,1,180,0)
  3237    
  3238   "PKG",47,2 2,1,"PAH", 1,1,181,0)
  3239   New Servic e Requests  (NSRs):
  3240   "PKG",47,2 2,1,"PAH", 1,1,182,0)
  3241   ---------- ---------- --------  
  3242   "PKG",47,2 2,1,"PAH", 1,1,183,0)
  3243   N/A
  3244   "PKG",47,2 2,1,"PAH", 1,1,184,0)
  3245    
  3246   "PKG",47,2 2,1,"PAH", 1,1,185,0)
  3247    
  3248   "PKG",47,2 2,1,"PAH", 1,1,186,0)
  3249   Patient Sa fety Issue s (PSIs):
  3250   "PKG",47,2 2,1,"PAH", 1,1,187,0)
  3251   ---------- ---------- ---------
  3252   "PKG",47,2 2,1,"PAH", 1,1,188,0)
  3253   N/A
  3254   "PKG",47,2 2,1,"PAH", 1,1,189,0)
  3255    
  3256   "PKG",47,2 2,1,"PAH", 1,1,190,0)
  3257    
  3258   "PKG",47,2 2,1,"PAH", 1,1,191,0)
  3259   Defect Tra cking Syst em Ticket( s) & Overv iew:
  3260   "PKG",47,2 2,1,"PAH", 1,1,192,0)
  3261   ---------- ---------- ---------- ---------- ----
  3262   "PKG",47,2 2,1,"PAH", 1,1,193,0)
  3263   N/A
  3264   "PKG",47,2 2,1,"PAH", 1,1,194,0)
  3265    
  3266   "PKG",47,2 2,1,"PAH", 1,1,195,0)
  3267   Problem:
  3268   "PKG",47,2 2,1,"PAH", 1,1,196,0)
  3269   -------
  3270   "PKG",47,2 2,1,"PAH", 1,1,197,0)
  3271   N/A
  3272   "PKG",47,2 2,1,"PAH", 1,1,198,0)
  3273    
  3274   "PKG",47,2 2,1,"PAH", 1,1,199,0)
  3275   Resolution :
  3276   "PKG",47,2 2,1,"PAH", 1,1,200,0)
  3277   ----------
  3278   "PKG",47,2 2,1,"PAH", 1,1,201,0)
  3279   N/A
  3280   "PKG",47,2 2,1,"PAH", 1,1,202,0)
  3281    
  3282   "PKG",47,2 2,1,"PAH", 1,1,203,0)
  3283   Test Sites :
  3284   "PKG",47,2 2,1,"PAH", 1,1,204,0)
  3285   ----------
  3286   "PKG",47,2 2,1,"PAH", 1,1,205,0)
  3287   Columbus,  OH
  3288   "PKG",47,2 2,1,"PAH", 1,1,206,0)
  3289    
  3290   "PKG",47,2 2,1,"PAH", 1,1,207,0)
  3291    
  3292   "PKG",47,2 2,1,"PAH", 1,1,208,0)
  3293   Software a nd Documen tation Ret rieval Ins tructions:
  3294   "PKG",47,2 2,1,"PAH", 1,1,209,0)
  3295   ---------- ---------- ---------- ---------- ---------- -- 
  3296   "PKG",47,2 2,1,"PAH", 1,1,210,0)
  3297   Software b eing relea sed as a h ost file a nd/or docu mentation  describing  
  3298   "PKG",47,2 2,1,"PAH", 1,1,211,0)
  3299   the new fu nctionalit y introduc ed by this  patch are  available .
  3300   "PKG",47,2 2,1,"PAH", 1,1,212,0)
  3301    
  3302   "PKG",47,2 2,1,"PAH", 1,1,213,0)
  3303   The prefer red method  is to ret rieve file s from dow nload. DNS        . DNS     .
  3304   "PKG",47,2 2,1,"PAH", 1,1,214,0)
  3305   This trans mits the f iles from  the first  available  server. Si tes may 
  3306   "PKG",47,2 2,1,"PAH", 1,1,215,0)
  3307   also elect  to retrie ve files d irectly fr om a speci fic server
  3308   "PKG",47,2 2,1,"PAH", 1,1,216,0)
  3309    
  3310   "PKG",47,2 2,1,"PAH", 1,1,217,0)
  3311   Sites may  retrieve t he softwar e and/or d ocumentati on directl y using 
  3312   "PKG",47,2 2,1,"PAH", 1,1,218,0)
  3313   Secure Fil e Transfer  Protocol  (SFTP) fro m the ANON YMOUS.SOFT WARE 
  3314   "PKG",47,2 2,1,"PAH", 1,1,219,0)
  3315   directory  at the fol lowing 
  3316   "PKG",47,2 2,1,"PAH", 1,1,220,0)
  3317   OI Field O ffices:
  3318   "PKG",47,2 2,1,"PAH", 1,1,221,0)
  3319    
  3320   "PKG",47,2 2,1,"PAH", 1,1,222,0)
  3321   Albany: DN S      .UR L       
  3322   "PKG",47,2 2,1,"PAH", 1,1,223,0)
  3323   Hines:  DN S     .URL          
  3324   "PKG",47,2 2,1,"PAH", 1,1,224,0)
  3325   Salt Lake  City:        
. URL        
  3326   "PKG",47,2 2,1,"PAH", 1,1,225,0)
  3327    
  3328   "PKG",47,2 2,1,"PAH", 1,1,226,0)
  3329   Documentat ion can al so be foun d on the V A Software  Documenta tion Libra ry 
  3330   "PKG",47,2 2,1,"PAH", 1,1,227,0)
  3331   at:
  3332   "PKG",47,2 2,1,"PAH", 1,1,228,0)
  3333   http://www . DNS     /vdl/
  3334   "PKG",47,2 2,1,"PAH", 1,1,229,0)
  3335    
  3336   "PKG",47,2 2,1,"PAH", 1,1,230,0)
  3337    
  3338   "PKG",47,2 2,1,"PAH", 1,1,231,0)
  3339   Title   Fi le Name        FTP Mo de
  3340   "PKG",47,2 2,1,"PAH", 1,1,232,0)
  3341   ---------- ---------- ---------- ---------- ---------- ---------- ---------- -
  3342   "PKG",47,2 2,1,"PAH", 1,1,233,0)
  3343   MASS VistA  Technical  Manual
  3344   "PKG",47,2 2,1,"PAH", 1,1,234,0)
  3345    
  3346   "PKG",47,2 2,1,"PAH", 1,1,235,0)
  3347   Patch Inst allation:
  3348   "PKG",47,2 2,1,"PAH", 1,1,236,0)
  3349    
  3350   "PKG",47,2 2,1,"PAH", 1,1,237,0)
  3351    
  3352   "PKG",47,2 2,1,"PAH", 1,1,238,0)
  3353   Pre/Post I nstallatio n Overview :
  3354   "PKG",47,2 2,1,"PAH", 1,1,239,0)
  3355   ---------- ---------- ---------- -
  3356   "PKG",47,2 2,1,"PAH", 1,1,240,0)
  3357   N/A
  3358   "PKG",47,2 2,1,"PAH", 1,1,241,0)
  3359    
  3360   "PKG",47,2 2,1,"PAH", 1,1,242,0)
  3361    
  3362   "PKG",47,2 2,1,"PAH", 1,1,243,0)
  3363   Pre-Instal lation Ins tructions:
  3364   "PKG",47,2 2,1,"PAH", 1,1,244,0)
  3365   ---------- ---------- ----------
  3366   "PKG",47,2 2,1,"PAH", 1,1,245,0)
  3367    
  3368   "PKG",47,2 2,1,"PAH", 1,1,246,0)
  3369   This patch  may be in stalled wi th users o n the syst em althoug h it is 
  3370   "PKG",47,2 2,1,"PAH", 1,1,247,0)
  3371   recommende d that it  be install ed during  non-peak h ours to mi nimize
  3372   "PKG",47,2 2,1,"PAH", 1,1,248,0)
  3373   potential  disruption  to users.   This pat ch should  take less  than 5 
  3374   "PKG",47,2 2,1,"PAH", 1,1,249,0)
  3375   minutes 
  3376   "PKG",47,2 2,1,"PAH", 1,1,250,0)
  3377   to install .
  3378   "PKG",47,2 2,1,"PAH", 1,1,251,0)
  3379    
  3380   "PKG",47,2 2,1,"PAH", 1,1,252,0)
  3381    
  3382   "PKG",47,2 2,1,"PAH", 1,1,253,0)
  3383   Installati on Instruc tions:
  3384   "PKG",47,2 2,1,"PAH", 1,1,254,0)
  3385   ---------- ---------- ------
  3386   "PKG",47,2 2,1,"PAH", 1,1,255,0)
  3387    
  3388   "PKG",47,2 2,1,"PAH", 1,1,256,0)
  3389    
  3390   "PKG",47,2 2,1,"PAH", 1,1,257,0)
  3391   1.      Ch oose the P ackMan mes sage conta ining this  patch.
  3392   "PKG",47,2 2,1,"PAH", 1,1,258,0)
  3393    
  3394   "PKG",47,2 2,1,"PAH", 1,1,259,0)
  3395   2.      Ch oose the I NSTALL/CHE CK MESSAGE  PackMan o ption. 
  3396   "PKG",47,2 2,1,"PAH", 1,1,260,0)
  3397    
  3398   "PKG",47,2 2,1,"PAH", 1,1,261,0)
  3399   3.      Fr om the Ker nel Instal lation and  Distribut ion System  Menu, sel ect 
  3400   "PKG",47,2 2,1,"PAH", 1,1,262,0)
  3401   the Instal lation Men u (See Ins tall Promp ts Sample  below for  more 
  3402   "PKG",47,2 2,1,"PAH", 1,1,263,0)
  3403   detail).   From this  menu, you  may elect  to use the  following  options. 
  3404   "PKG",47,2 2,1,"PAH", 1,1,264,0)
  3405   When promp ted for th e INSTALL  NAME enter  the patch  DG*5.3*94 8:
  3406   "PKG",47,2 2,1,"PAH", 1,1,265,0)
  3407   a.      Ba ckup a Tra nsport Glo bal - This  option wi ll create  a backup 
  3408   "PKG",47,2 2,1,"PAH", 1,1,266,0)
  3409   message of  any routi nes export ed with th is patch.  It will no t backup a ny 
  3410   "PKG",47,2 2,1,"PAH", 1,1,267,0)
  3411   other chan ges such a s DDs or t emplates.
  3412   "PKG",47,2 2,1,"PAH", 1,1,268,0)
  3413   b.      Co mpare Tran sport Glob al to Curr ent System  - This op tion will 
  3414   "PKG",47,2 2,1,"PAH", 1,1,269,0)
  3415   (allow you  to view a ll changes  that will  be made w hen this p atch         
  3416   "PKG",47,2 2,1,"PAH", 1,1,270,0)
  3417   is install ed.  It co mpares all  component s of this  patch rout ines, DDs,  
  3418   "PKG",47,2 2,1,"PAH", 1,1,271,0)
  3419   templates,  etc.).
  3420   "PKG",47,2 2,1,"PAH", 1,1,272,0)
  3421   c.      Ve rify Check sums in Tr ansport Gl obal - Thi s option w ill allow  you 
  3422   "PKG",47,2 2,1,"PAH", 1,1,273,0)
  3423   to ensure  the integr ity of the  routines  that are i n the tran sport glob al.
  3424   "PKG",47,2 2,1,"PAH", 1,1,274,0)
  3425   4.       F rom the In stallation  Menu, sel ect the In stall Pack age(s) opt ion 
  3426   "PKG",47,2 2,1,"PAH", 1,1,275,0)
  3427   and choose  the patch  to instal l.
  3428   "PKG",47,2 2,1,"PAH", 1,1,276,0)
  3429    
  3430   "PKG",47,2 2,1,"PAH", 1,1,277,0)
  3431   5.      Wh en prompte d 'Want KI DS to Rebu ild Menu T rees Upon  Completion  of 
  3432   "PKG",47,2 2,1,"PAH", 1,1,278,0)
  3433   Install? N O//' No
  3434   "PKG",47,2 2,1,"PAH", 1,1,279,0)
  3435    
  3436   "PKG",47,2 2,1,"PAH", 1,1,280,0)
  3437   6.      Wh en prompte d 'Want KI DS to INHI BIT LOGONs  during th e install?  
  3438   "PKG",47,2 2,1,"PAH", 1,1,281,0)
  3439   NO//'No
  3440   "PKG",47,2 2,1,"PAH", 1,1,282,0)
  3441    
  3442   "PKG",47,2 2,1,"PAH", 1,1,283,0)
  3443   7.      Wh en prompte d 'Want to  DISABLE S cheduled O ptions, Me nu Options
  3444   "PKG",47,2 2,1,"PAH", 1,1,284,0)
  3445   and Protoc ols? NO//'  No
  3446   "PKG",47,2 2,1,"PAH", 1,1,285,0)
  3447    
  3448   "PKG",47,2 2,1,"PAH", 1,1,286,0)
  3449   8.      If  prompted  'Delay Ins tall (Minu tes):  (0  - 60): 0// ' respond  0.
  3450   "PKG",47,2 2,1,"PAH", 1,1,287,0)
  3451    
  3452   "PKG",47,2 2,1,"PAH", 1,1,288,0)
  3453    
  3454   "PKG",47,2 2,1,"PAH", 1,1,289,0)
  3455   Install Pr ompts Samp le:
  3456   "PKG",47,2 2,1,"PAH", 1,1,290,0)
  3457   ---------- ---------- ------
  3458   "PKG",47,2 2,1,"PAH", 1,1,291,0)
  3459    
  3460   "PKG",47,2 2,1,"PAH", 1,1,292,0)
  3461    
  3462   "PKG",47,2 2,1,"PAH", 1,1,293,0)
  3463   VISTA>D ^X UP
  3464   "PKG",47,2 2,1,"PAH", 1,1,294,0)
  3465    
  3466   "PKG",47,2 2,1,"PAH", 1,1,295,0)
  3467   Setting up  programme r environm ent
  3468   "PKG",47,2 2,1,"PAH", 1,1,296,0)
  3469   This is a  TEST accou nt.
  3470   "PKG",47,2 2,1,"PAH", 1,1,297,0)
  3471    
  3472   "PKG",47,2 2,1,"PAH", 1,1,298,0)
  3473   Terminal T ype set to : C-VT100
  3474   "PKG",47,2 2,1,"PAH", 1,1,299,0)
  3475    
  3476   "PKG",47,2 2,1,"PAH", 1,1,300,0)
  3477   Select OPT ION NAME:  XPD LOAD D ISTRIBUTIO N       Lo ad a Distr ibution
  3478   "PKG",47,2 2,1,"PAH", 1,1,301,0)
  3479   Load a Dis tribution
  3480   "PKG",47,2 2,1,"PAH", 1,1,302,0)
  3481   Enter a Ho st File: C :\HFS\DG_5 _3_948.KID
  3482   "PKG",47,2 2,1,"PAH", 1,1,303,0)
  3483    
  3484   "PKG",47,2 2,1,"PAH", 1,1,304,0)
  3485   KIDS Distr ibution sa ved on Dec  11, 2017@ 17:29:13
  3486   "PKG",47,2 2,1,"PAH", 1,1,305,0)
  3487   Comment: D G*5.3*948  12/11/17
  3488   "PKG",47,2 2,1,"PAH", 1,1,306,0)
  3489    
  3490   "PKG",47,2 2,1,"PAH", 1,1,307,0)
  3491   This Distr ibution co ntains Tra nsport Glo bals for t he followi ng Package (s):
  3492   "PKG",47,2 2,1,"PAH", 1,1,308,0)
  3493   Build DG*5 .3*948 has  been load ed before,  here is w hen: 
  3494   "PKG",47,2 2,1,"PAH", 1,1,309,0)
  3495         DG*5 .3*948   I nstall Com pleted
  3496   "PKG",47,2 2,1,"PAH", 1,1,310,0)
  3497                       w as loaded  on Oct 03,  2017@15:4 5:55
  3498   "PKG",47,2 2,1,"PAH", 1,1,311,0)
  3499         DG*5 .3*948   I nstall Com pleted
  3500   "PKG",47,2 2,1,"PAH", 1,1,312,0)
  3501                       w as loaded  on Oct 03,  2017@20:5 4:59
  3502   "PKG",47,2 2,1,"PAH", 1,1,313,0)
  3503         DG*5 .3*948   I nstall Com pleted
  3504   "PKG",47,2 2,1,"PAH", 1,1,314,0)
  3505                       w as loaded  on Oct 10,  2017@15:2 2:03
  3506   "PKG",47,2 2,1,"PAH", 1,1,315,0)
  3507         DG*5 .3*948   I nstall Com pleted
  3508   "PKG",47,2 2,1,"PAH", 1,1,316,0)
  3509                       w as loaded  on Oct 31,  2017@13:4 4:06
  3510   "PKG",47,2 2,1,"PAH", 1,1,317,0)
  3511         DG*5 .3*948   I nstall Com pleted
  3512   "PKG",47,2 2,1,"PAH", 1,1,318,0)
  3513                       w as loaded  on Nov 15,  2017@00:1 1:34
  3514   "PKG",47,2 2,1,"PAH", 1,1,319,0)
  3515         DG*5 .3*948   I nstall Com pleted
  3516   "PKG",47,2 2,1,"PAH", 1,1,320,0)
  3517                       w as loaded  on Nov 20,  2017@14:5 8
  3518   "PKG",47,2 2,1,"PAH", 1,1,321,0)
  3519         DG*5 .3*948   I nstall Com pleted
  3520   "PKG",47,2 2,1,"PAH", 1,1,322,0)
  3521                       w as loaded  on Nov 21,  2017@15:3 8:42
  3522   "PKG",47,2 2,1,"PAH", 1,1,323,0)
  3523         DG*5 .3*948   I nstall Com pleted
  3524   "PKG",47,2 2,1,"PAH", 1,1,324,0)
  3525                       w as loaded  on Nov 30,  2017@15:0 4:49
  3526   "PKG",47,2 2,1,"PAH", 1,1,325,0)
  3527         DG*5 .3*948   I nstall Com pleted
  3528   "PKG",47,2 2,1,"PAH", 1,1,326,0)
  3529                       w as loaded  on Dec 05,  2017@16:1 4:51
  3530   "PKG",47,2 2,1,"PAH", 1,1,327,0)
  3531   OK to cont inue with  Load? NO//  YES
  3532   "PKG",47,2 2,1,"PAH", 1,1,328,0)
  3533    
  3534   "PKG",47,2 2,1,"PAH", 1,1,329,0)
  3535   Distributi on OK!
  3536   "PKG",47,2 2,1,"PAH", 1,1,330,0)
  3537    
  3538   "PKG",47,2 2,1,"PAH", 1,1,331,0)
  3539   Want to Co ntinue wit h Load? YE S// 
  3540   "PKG",47,2 2,1,"PAH", 1,1,332,0)
  3541   Loading Di stribution ...
  3542   "PKG",47,2 2,1,"PAH", 1,1,333,0)
  3543    
  3544   "PKG",47,2 2,1,"PAH", 1,1,334,0)
  3545      DG*5.3* 948
  3546   "PKG",47,2 2,1,"PAH", 1,1,335,0)
  3547   Use INSTAL L NAME: DG *5.3*948 t o install  this Distr ibution.
  3548   "PKG",47,2 2,1,"PAH", 1,1,336,0)
  3549    
  3550   "PKG",47,2 2,1,"PAH", 1,1,337,0)
  3551   VISTA>D ^X UP
  3552   "PKG",47,2 2,1,"PAH", 1,1,338,0)
  3553    
  3554   "PKG",47,2 2,1,"PAH", 1,1,339,0)
  3555   Setting up  programme r environm ent
  3556   "PKG",47,2 2,1,"PAH", 1,1,340,0)
  3557   This is a  TEST accou nt.
  3558   "PKG",47,2 2,1,"PAH", 1,1,341,0)
  3559    
  3560   "PKG",47,2 2,1,"PAH", 1,1,342,0)
  3561   Terminal T ype set to : C-VT100
  3562   "PKG",47,2 2,1,"PAH", 1,1,343,0)
  3563    
  3564   "PKG",47,2 2,1,"PAH", 1,1,344,0)
  3565   Select OPT ION NAME:  XPD INS
  3566   "PKG",47,2 2,1,"PAH", 1,1,345,0)
  3567        1   X PD INSTALL  BUILD        Install  Package(s )
  3568   "PKG",47,2 2,1,"PAH", 1,1,346,0)
  3569        2   X PD INSTALL ATION MENU        Ins tallation
  3570   "PKG",47,2 2,1,"PAH", 1,1,347,0)
  3571   CHOOSE 1-2 : 1  XPD I NSTALL BUI LD     Ins tall Packa ge(s)
  3572   "PKG",47,2 2,1,"PAH", 1,1,348,0)
  3573   Install Pa ckage(s)
  3574   "PKG",47,2 2,1,"PAH", 1,1,349,0)
  3575   Select INS TALL NAME:     DG*5.3 *948     L oaded from  Distribut ion    
  3576   "PKG",47,2 2,1,"PAH", 1,1,350,0)
  3577   12/12/17@2 3:4
  3578   "PKG",47,2 2,1,"PAH", 1,1,351,0)
  3579   5:01
  3580   "PKG",47,2 2,1,"PAH", 1,1,352,0)
  3581        => DG *5.3*948 1 2/11/17  ; Created on  Dec 11, 2 017@17:29: 13
  3582   "PKG",47,2 2,1,"PAH", 1,1,353,0)
  3583    
  3584   "PKG",47,2 2,1,"PAH", 1,1,354,0)
  3585   This Distr ibution wa s loaded o n Dec 12,  2017@23:45 :01 with h eader of 
  3586   "PKG",47,2 2,1,"PAH", 1,1,355,0)
  3587      DG*5.3* 948 12/11/ 17  ;Creat ed on Dec  11, 2017@1 7:29:13
  3588   "PKG",47,2 2,1,"PAH", 1,1,356,0)
  3589      It cons isted of t he followi ng Install (s):
  3590   "PKG",47,2 2,1,"PAH", 1,1,357,0)
  3591        DG*5. 3*948
  3592   "PKG",47,2 2,1,"PAH", 1,1,358,0)
  3593   Checking I nstall for  Package D G*5.3*948
  3594   "PKG",47,2 2,1,"PAH", 1,1,359,0)
  3595    
  3596   "PKG",47,2 2,1,"PAH", 1,1,360,0)
  3597   Install Qu estions fo r DG*5.3*9 48
  3598   "PKG",47,2 2,1,"PAH", 1,1,361,0)
  3599    
  3600   "PKG",47,2 2,1,"PAH", 1,1,362,0)
  3601   Incoming F iles:
  3602   "PKG",47,2 2,1,"PAH", 1,1,363,0)
  3603    
  3604   "PKG",47,2 2,1,"PAH", 1,1,364,0)
  3605    
  3606   "PKG",47,2 2,1,"PAH", 1,1,365,0)
  3607      2          PATIENT   (Partial  Definitio n)
  3608   "PKG",47,2 2,1,"PAH", 1,1,366,0)
  3609   Note:  You  already h ave the 'P ATIENT' Fi le.
  3610   "PKG",47,2 2,1,"PAH", 1,1,367,0)
  3611    
  3612   "PKG",47,2 2,1,"PAH", 1,1,368,0)
  3613    
  3614   "PKG",47,2 2,1,"PAH", 1,1,369,0)
  3615      26.14      PRF ASS IGNMENT HI STORY  (Pa rtial Defi nition)
  3616   "PKG",47,2 2,1,"PAH", 1,1,370,0)
  3617   Note:  You  already h ave the 'P RF ASSIGNM ENT HISTOR Y' File.
  3618   "PKG",47,2 2,1,"PAH", 1,1,371,0)
  3619    
  3620   "PKG",47,2 2,1,"PAH", 1,1,372,0)
  3621    
  3622   "PKG",47,2 2,1,"PAH", 1,1,373,0)
  3623      38.1       DG SECU RITY LOG   (Partial D efinition)
  3624   "PKG",47,2 2,1,"PAH", 1,1,374,0)
  3625   Note:  You  already h ave the 'D G SECURITY  LOG' File .
  3626   "PKG",47,2 2,1,"PAH", 1,1,375,0)
  3627    
  3628   "PKG",47,2 2,1,"PAH", 1,1,376,0)
  3629    
  3630   "PKG",47,2 2,1,"PAH", 1,1,377,0)
  3631      41.41      PRE-REG ISTRATION  AUDIT  (Pa rtial Defi nition)
  3632   "PKG",47,2 2,1,"PAH", 1,1,378,0)
  3633   Note:  You  already h ave the 'P RE-REGISTR ATION AUDI T' File.
  3634   "PKG",47,2 2,1,"PAH", 1,1,379,0)
  3635    
  3636   "PKG",47,2 2,1,"PAH", 1,1,380,0)
  3637    
  3638   "PKG",47,2 2,1,"PAH", 1,1,381,0)
  3639      391.71     ADT/HL7  PIVOT  (P artial Def inition)
  3640   "PKG",47,2 2,1,"PAH", 1,1,382,0)
  3641   Note:  You  already h ave the 'A DT/HL7 PIV OT' File.
  3642   "PKG",47,2 2,1,"PAH", 1,1,383,0)
  3643    
  3644   "PKG",47,2 2,1,"PAH", 1,1,384,0)
  3645   Want KIDS  to Rebuild  Menu Tree s Upon Com pletion of  Install?  NO// 
  3646   "PKG",47,2 2,1,"PAH", 1,1,385,0)
  3647    
  3648   "PKG",47,2 2,1,"PAH", 1,1,386,0)
  3649    
  3650   "PKG",47,2 2,1,"PAH", 1,1,387,0)
  3651   Want KIDS  to INHIBIT  LOGONs du ring the i nstall? NO // 
  3652   "PKG",47,2 2,1,"PAH", 1,1,388,0)
  3653   Want to DI SABLE Sche duled Opti ons, Menu  Options, a nd Protoco ls? NO// 
  3654   "PKG",47,2 2,1,"PAH", 1,1,389,0)
  3655    
  3656   "PKG",47,2 2,1,"PAH", 1,1,390,0)
  3657   Enter the  Device you  want to p rint the I nstall mes sages.
  3658   "PKG",47,2 2,1,"PAH", 1,1,391,0)
  3659   You can qu eue the in stall by e nter a 'Q'  at the de vice promp t.
  3660   "PKG",47,2 2,1,"PAH", 1,1,392,0)
  3661   Enter a '^ ' to abort  the insta ll.
  3662   "PKG",47,2 2,1,"PAH", 1,1,393,0)
  3663    
  3664   "PKG",47,2 2,1,"PAH", 1,1,394,0)
  3665   DEVICE: HO ME// ;;999 999  CONSO LE
  3666   "PKG",47,2 2,1,"PAH", 1,1,395,0)
  3667    
  3668   "PKG",47,2 2,1,"PAH", 1,1,396,0)
  3669    Install S tarted for  DG*5.3*94 8 : 
  3670   "PKG",47,2 2,1,"PAH", 1,1,397,0)
  3671                   Dec 1 2, 2017@23 :45:18
  3672   "PKG",47,2 2,1,"PAH", 1,1,398,0)
  3673    
  3674   "PKG",47,2 2,1,"PAH", 1,1,399,0)
  3675   Build Dist ribution D ate: Dec 1 1, 2017
  3676   "PKG",47,2 2,1,"PAH", 1,1,400,0)
  3677    
  3678   "PKG",47,2 2,1,"PAH", 1,1,401,0)
  3679    Installin g Routines :  
  3680   "PKG",47,2 2,1,"PAH", 1,1,402,0)
  3681                   Dec 1 2, 2017@23 :45:19
  3682   "PKG",47,2 2,1,"PAH", 1,1,403,0)
  3683    
  3684   "PKG",47,2 2,1,"PAH", 1,1,404,0)
  3685    Installin g Data Dic tionaries:  
  3686   "PKG",47,2 2,1,"PAH", 1,1,405,0)
  3687                   Dec 1 2, 2017@23 :45:24
  3688   "PKG",47,2 2,1,"PAH", 1,1,406,0)
  3689    
  3690   "PKG",47,2 2,1,"PAH", 1,1,407,0)
  3691    Installin g PACKAGE  COMPONENTS
  3692   "PKG",47,2 2,1,"PAH", 1,1,408,0)
  3693    
  3694   "PKG",47,2 2,1,"PAH", 1,1,409,0)
  3695    Installin g PROTOCOL
  3696   "PKG",47,2 2,1,"PAH", 1,1,410,0)
  3697    
  3698   "PKG",47,2 2,1,"PAH", 1,1,411,0)
  3699    Installin g OPTION
  3700   "PKG",47,2 2,1,"PAH", 1,1,412,0)
  3701    
  3702   "PKG",47,2 2,1,"PAH", 1,1,413,0)
  3703    Installin g PARAMETE R DEFINITI ON
  3704   "PKG",47,2 2,1,"PAH", 1,1,414,0)
  3705    
  3706   "PKG",47,2 2,1,"PAH", 1,1,415,0)
  3707    Installin g HLO APPL ICATION RE GISTRY
  3708   "PKG",47,2 2,1,"PAH", 1,1,416,0)
  3709                   Dec 1 2, 2017@23 :45:24
  3710   "PKG",47,2 2,1,"PAH", 1,1,417,0)
  3711    
  3712   "PKG",47,2 2,1,"PAH", 1,1,418,0)
  3713    Updating  Routine fi le...
  3714   "PKG",47,2 2,1,"PAH", 1,1,419,0)
  3715    
  3716   "PKG",47,2 2,1,"PAH", 1,1,420,0)
  3717    Updating  KIDS files ...
  3718   "PKG",47,2 2,1,"PAH", 1,1,421,0)
  3719    
  3720   "PKG",47,2 2,1,"PAH", 1,1,422,0)
  3721    DG*5.3*94 8 Installe d. 
  3722   "PKG",47,2 2,1,"PAH", 1,1,423,0)
  3723                   Dec 1 2, 2017@23 :45:25
  3724   "PKG",47,2 2,1,"PAH", 1,1,424,0)
  3725    
  3726   "PKG",47,2 2,1,"PAH", 1,1,425,0)
  3727    No link t o PACKAGE  file
  3728   "PKG",47,2 2,1,"PAH", 1,1,426,0)
  3729    
  3730   "PKG",47,2 2,1,"PAH", 1,1,427,0)
  3731    NO Instal l Message  sent 
  3732   "PKG",47,2 2,1,"PAH", 1,1,428,0)
  3733    
  3734   "PKG",47,2 2,1,"PAH", 1,1,429,0)
  3735   Install Co mpleted
  3736   "PKG",47,2 2,1,"PAH", 1,1,430,0)
  3737    
  3738   "PKG",47,2 2,1,"PAH", 1,1,431,0)
  3739   VISTA>
  3740   "PKG",47,2 2,1,"PAH", 1,1,432,0)
  3741    
  3742   "PKG",47,2 2,1,"PAH", 1,1,433,0)
  3743    
  3744   "PKG",47,2 2,1,"PAH", 1,1,434,0)
  3745   Patch Back out Instru ctions:
  3746   "PKG",47,2 2,1,"PAH", 1,1,435,0)
  3747   ---------- ---------- ------
  3748   "PKG",47,2 2,1,"PAH", 1,1,436,0)
  3749   1.      Go  to MailMa n menu, ch oose optio n Read/Man age Messag es and sel ect 
  3750   "PKG",47,2 2,1,"PAH", 1,1,437,0)
  3751   the backup  message t hat was cr eating dur ing Instal lation ste p 3.c - Ba ckup
  3752   "PKG",47,2 2,1,"PAH", 1,1,438,0)
  3753   2.      Wh en prompte d 'Type <E nter> to c ontinue or  '^' to ex it:' type  '^' 
  3754   "PKG",47,2 2,1,"PAH", 1,1,439,0)
  3755   and then < Enter>
  3756   "PKG",47,2 2,1,"PAH", 1,1,440,0)
  3757   3.      Wh en prompte d 'Enter m essage act ion:' type  'Xtract P ackMan' an
  3758   "PKG",47,2 2,1,"PAH", 1,1,441,0)
  3759   then <Ente r>
  3760   "PKG",47,2 2,1,"PAH", 1,1,442,0)
  3761   4.      Th e followin g message  and the pr ompt will  display:
  3762   "PKG",47,2 2,1,"PAH", 1,1,443,0)
  3763   Warning: I nstalling  this messa ge will ca use a perm anent upda te of glob als 
  3764   "PKG",47,2 2,1,"PAH", 1,1,444,0)
  3765   and routin es.
  3766   "PKG",47,2 2,1,"PAH", 1,1,445,0)
  3767   Do you rea lly want t o do this?  NO//' typ e 'YES' an d then <En ter>
  3768   "PKG",47,2 2,1,"PAH", 1,1,446,0)
  3769   5.      Wh en prompte d: 
  3770   "PKG",47,2 2,1,"PAH", 1,1,447,0)
  3771   'Shall I p reserve th e routines  on disk i n a separa te back-up  message? 
  3772   "PKG",47,2 2,1,"PAH", 1,1,448,0)
  3773   YES//' typ e 'NO' and  then <Ent er>
  3774   "PKG",47,2 2,1,"PAH", 1,1,449,0)
  3775   6.      Th e system w ill displa y the foll owing mess age and sh ow all the  
  3776   "PKG",47,2 2,1,"PAH", 1,1,450,0)
  3777   routines t hat were u nloaded co nfirming t hat all th e routines  in the bu ild 
  3778   "PKG",47,2 2,1,"PAH", 1,1,451,0)
  3779   have been  restored t o the prio r version  (unloaded) :
  3780   "PKG",47,2 2,1,"PAH", 1,1,452,0)
  3781   'No backup  message b uilt.
  3782   "PKG",47,2 2,1,"PAH", 1,1,453,0)
  3783    ***LIST o f routines  from back up. See fu ll routine  list at t he end of  the 
  3784   "PKG",47,2 2,1,"PAH", 1,1,454,0)
  3785   document** *
  3786   "PKG",47,2 2,1,"PAH", 1,1,455,0)
  3787    
  3788   "PKG",47,2 2,1,"PAH", 1,1,456,0)
  3789   Select Pac kMan funct ion: and t hen <Enter >'
  3790   "PKG",47,2 2,1,"PAH", 1,1,457,0)
  3791   7.      ne xVerify th at all six  routines  are listed  as above  have been 
  3792   "PKG",47,2 2,1,"PAH", 1,1,458,0)
  3793   backed out :
  3794   "PKG",47,2 2,1,"PAH", 1,1,459,0)
  3795   No backup  message bu ilt.
  3796   "PKG",47,2 2,1,"PAH", 1,1,460,0)
  3797   When promp ted 'Want  KIDS to IN HIBIT LOGO Ns during  the instal l? NO//'
  3798   "PKG",47,2 2,1,"PAH", 1,1,461,0)
  3799   Press <Ent er>.
  3800   "PKG",47,2 2,1,"PAH", 1,1,462,0)
  3801   When promp ted 'Want  to DISABLE  Scheduled  Options,  Menu Optio ns, and 
  3802   "PKG",47,2 2,1,"PAH", 1,1,463,0)
  3803   Protocols?  NO//' 
  3804   "PKG",47,2 2,1,"PAH", 1,1,464,0)
  3805   Press <Ent er>.
  3806   "PKG",47,2 2,1,"PAH", 1,1,465,0)
  3807   If prompte d 'Delay I nstall (Mi nutes):  ( 0 - 60): 0 //' respon d 0.
  3808   "PKG",47,2 2,1,"PAH", 1,1,466,0)
  3809    
  3810   "PKG",47,2 2,1,"PAH", 1,1,467,0)
  3811   8.      Th ere are no  globals t hat are be ing saved  off for th is patch t
  3812   "PKG",47,2 2,1,"PAH", 1,1,468,0)
  3813   restore. A ll other o bjects sho uld be man ually back ed out or  deleted 
  3814   "PKG",47,2 2,1,"PAH", 1,1,469,0)
  3815   Fileman. 
  3816   "PKG",47,2 2,1,"PAH", 1,1,470,0)
  3817   9.      De leting Fil es:
  3818   "PKG",47,2 2,1,"PAH", 1,1,471,0)
  3819   The follow ing filema n files sh ould be de leted unde r their re spective 
  3820   "PKG",47,2 2,1,"PAH", 1,1,472,0)
  3821   groups. To  delete th e file, op en fileman  for the f ile specif ied. Look  for 
  3822   "PKG",47,2 2,1,"PAH", 1,1,473,0)
  3823   the name a nd once se lected ent er @ to en ter the de lete optio n.
  3824   "PKG",47,2 2,1,"PAH", 1,1,474,0)
  3825    
  3826   "PKG",47,2 2,1,"PAH", 1,1,475,0)
  3827   Example:
  3828   "PKG",47,2 2,1,"PAH", 1,1,476,0)
  3829   VA FileMan  22.2
  3830   "PKG",47,2 2,1,"PAH", 1,1,477,0)
  3831    
  3832   "PKG",47,2 2,1,"PAH", 1,1,478,0)
  3833    
  3834   "PKG",47,2 2,1,"PAH", 1,1,479,0)
  3835   Select OPT ION: 1  EN TER OR EDI T FILE ENT RIES
  3836   "PKG",47,2 2,1,"PAH", 1,1,480,0)
  3837    
  3838   "PKG",47,2 2,1,"PAH", 1,1,481,0)
  3839    
  3840   "PKG",47,2 2,1,"PAH", 1,1,482,0)
  3841    
  3842   "PKG",47,2 2,1,"PAH", 1,1,483,0)
  3843   Input to w hat File:  PROTOCOL//              (4498 en tries)
  3844   "PKG",47,2 2,1,"PAH", 1,1,484,0)
  3845   EDIT WHICH  FIELD: AL L//
  3846   "PKG",47,2 2,1,"PAH", 1,1,485,0)
  3847    
  3848   "PKG",47,2 2,1,"PAH", 1,1,486,0)
  3849    
  3850   "PKG",47,2 2,1,"PAH", 1,1,487,0)
  3851   Select PRO TOCOL NAME : SD SIU T RIGGER        SD SIU  TRIGGER
  3852   "PKG",47,2 2,1,"PAH", 1,1,488,0)
  3853   NAME: SD S IU TRIGGER // @
  3854   "PKG",47,2 2,1,"PAH", 1,1,489,0)
  3855      SURE YO U WANT TO  DELETE THE  ENTIRE 'S D SIU TRIG GER' PROTO COL?
  3856   "PKG",47,2 2,1,"PAH", 1,1,490,0)
  3857    
  3858   "PKG",47,2 2,1,"PAH", 1,1,491,0)
  3859    
  3860   "PKG",47,2 2,1,"PAH", 1,1,492,0)
  3861   HLO Applic ations:
  3862   "PKG",47,2 2,1,"PAH", 1,1,493,0)
  3863   DG-REG-OUT
  3864   "PKG",47,2 2,1,"PAH", 1,1,494,0)
  3865    
  3866   "PKG",47,2 2,1,"PAH", 1,1,495,0)
  3867   HLO Logica l Links:
  3868   "PKG",47,2 2,1,"PAH", 1,1,496,0)
  3869   DG ADT OUT
  3870   "PKG",47,2 2,1,"PAH", 1,1,497,0)
  3871    
  3872   "PKG",47,2 2,1,"PAH", 1,1,498,0)
  3873   Parameters :
  3874   "PKG",47,2 2,1,"PAH", 1,1,499,0)
  3875   DGMX MASS  ENABLE
  3876   "PKG",47,2 2,1,"PAH", 1,1,500,0)
  3877   SDMX PATIE NT IEN ASS IGNING
  3878   "PKG",47,2 2,1,"PAH", 1,1,501,0)
  3879   DGMC CONV  THREADS
  3880   "PKG",47,2 2,1,"PAH", 1,1,502,0)
  3881    
  3882   "PKG",47,2 2,1,"PAH", 1,1,503,0)
  3883   Protocol:
  3884   "PKG",47,2 2,1,"PAH", 1,1,504,0)
  3885   DGMX DEMOG RAPHICS MO NITOR
  3886   "PKG",47,2 2,1,"PAH", 1,1,505,0)
  3887   DGMX MASS  Demographi cs Update
  3888   "PKG",47,2 2,1,"PAH", 1,1,506,0)
  3889    
  3890   "PKG",47,2 2,1,"PAH", 1,1,507,0)
  3891    
  3892   "PKG",47,2 2,1,"PAH", 1,1,508,0)
  3893   10.     To  clean up  the cross  references  run BACKO UT^DGMXPOS T to clean  up 
  3894   "PKG",47,2 2,1,"PAH", 1,1,509,0)
  3895   the cross  references .
  3896   "PKG",47,2 2,1,"PAH", 1,1,510,0)
  3897    
  3898   "PKG",47,2 2,1,"PAH", 1,1,511,0)
  3899    
  3900   "PKG",47,2 2,1,"PAH", 1,1,512,0)
  3901    
  3902   "PKG",47,2 2,1,"PAH", 1,1,513,0)
  3903    
  3904   "PKG",47,2 2,1,"PAH", 1,1,514,0)
  3905    
  3906   "PKG",47,2 2,1,"PAH", 1,1,515,0)
  3907   Post-Insta llation In structions :
  3908   "PKG",47,2 2,1,"PAH", 1,1,516,0)
  3909   ---------- ---------- ---------- -
  3910   "PKG",47,2 2,1,"PAH", 1,1,517,0)
  3911   See Techni cal Manual  for cross  reference /object co ntents ver ification
  3912   "PKG",47,2 2,1,"PAH", 1,1,518,0)
  3913    
  3914   "PKG",47,2 2,1,"PAH", 1,1,519,0)
  3915   Check list  to Verify :
  3916   "PKG",47,2 2,1,"PAH", 1,1,520,0)
  3917   1.      It em list ab ove for th e Patient,  PRF ASSIG NMENT HIST ORY, DG 
  3918   "PKG",47,2 2,1,"PAH", 1,1,521,0)
  3919   SECURITY L OG, PRE-RE GISTARTION  AUDIT, an d ADT/HL7  PIVOT  fil e.
  3920   "PKG",47,2 2,1,"PAH", 1,1,522,0)
  3921   2.      HL O Applicat ions
  3922   "PKG",47,2 2,1,"PAH", 1,1,523,0)
  3923   3.      HL  Logical L inks
  3924   "PKG",47,2 2,1,"PAH", 1,1,524,0)
  3925   4.      Pr otocol
  3926   "PKG",47,2 2,1,"PAH", 1,1,525,0)
  3927   5.      Pa rameters
  3928   "PKG",47,2 2,1,"PAH", 1,1,526,0)
  3929   6.      Op tions
  3930   "PKG",47,2 2,1,"PAH", 1,1,527,0)
  3931    
  3932   "PKG",47,2 2,1,"PAH", 1,1,528,0)
  3933    
  3934   "PKG",47,2 2,1,"PAH", 1,1,529,0)
  3935    
  3936   "PKG",47,2 2,1,"PAH", 1,1,530,0)
  3937    
  3938   "PKG",47,2 2,1,"PAH", 1,1,531,0)
  3939    
  3940   "PKG",47,2 2,1,"PAH", 1,1,532,0)
  3941    
  3942   "PKG",47,2 2,1,"PAH", 1,1,533,0)
  3943    
  3944   "PKG",47,2 2,1,"PAH", 1,1,534,0)
  3945    
  3946   "PKG",47,2 2,1,"PAH", 1,1,535,0)
  3947    
  3948   "PKG",47,2 2,1,"PAH", 1,1,536,0)
  3949    
  3950   "PKG",47,2 2,1,"PAH", 1,1,537,0)
  3951    
  3952   "PKG",47,2 2,1,"PAH", 1,1,538,0)
  3953    
  3954   "PKG",47,2 2,1,"PAH", 1,1,539,0)
  3955    
  3956   "PKG",47,2 2,1,"PAH", 1,1,540,0)
  3957    
  3958   "PKG",47,2 2,1,"PAH", 1,1,541,0)
  3959    
  3960   "PKG",47,2 2,1,"PAH", 1,1,542,0)
  3961    
  3962   "PKG",47,2 2,1,"PAH", 1,1,543,0)
  3963    
  3964   "PKG",47,2 2,1,"PAH", 1,1,544,0)
  3965    
  3966   "PKG",47,2 2,1,"PAH", 1,1,545,0)
  3967    
  3968   "PKG",47,2 2,1,"PAH", 1,1,546,0)
  3969    
  3970   "PKG",47,2 2,1,"PAH", 1,1,547,0)
  3971   *;OCTOBER  05,2017
  3972   "PKG",47,2 2,1,"PAH", 1,1,548,0)
  3973    
  3974   "PKG",47,2 2,1,"PAH", 1,1,549,0)
  3975   VAFCDD01
  3976   "PKG",47,2 2,1,"PAH", 1,1,550,0)
  3977   VAFCDD01 ; ALB/JRP,LT L-DATA DIC TIONARY UT ILITIES ;0 5-SEP-1996  
  3978   "PKG",47,2 2,1,"PAH", 1,1,551,0)
  3979   VAFCMSG
  3980   "PKG",47,2 2,1,"PAH", 1,1,552,0)
  3981   VAFCMSG ;A LB/JRP-BAC KGROUND JO B TO TRANS MIT ENTRIE S IN PIVOT  FILE ; 
  3982   "PKG",47,2 2,1,"PAH", 1,1,553,0)
  3983   3/2/04 12: 54pm 
  3984   "PKG",47,2 2,1,"PAH", 1,1,554,0)
  3985           ;; 5.3;Regist ration;**9 1,149,530, 578,948**; Jun 06, 19 96;Build 5
  3986   "PKG",47,2 2,1,"PAH", 1,1,555,0)
  3987    
  3988   "PKG",47,2 2,1,"PAH", 1,1,556,0)
  3989   VAFHLZSP
  3990   "PKG",47,2 2,1,"PAH", 1,1,557,0)
  3991   VAFHLZSP ; ALB/RJS,TD M,PJH - ZS P SEGMENT  - 3/18/96  ; 5/30/07  4:21pm 
  3992   "PKG",47,2 2,1,"PAH", 1,1,558,0)
  3993           ;; 5.3;Regist ration;**9 4,106,122, 220,653,75 4,948**;Au g 13, 
  3994   "PKG",47,2 2,1,"PAH", 1,1,559,0)
  3995   1993;Build  5
  3996   "QUES","XP F1",0)
  3997   Y
  3998   "QUES","XP F1","??")
  3999   ^D REP^XPD H
  4000   "QUES","XP F1","A")
  4001   Shall I wr ite over y our |FLAG|  File
  4002   "QUES","XP F1","B")
  4003   YES
  4004   "QUES","XP F1","M")
  4005   D XPF1^XPD IQ
  4006   "QUES","XP F2",0)
  4007   Y
  4008   "QUES","XP F2","??")
  4009   ^D DTA^XPD H
  4010   "QUES","XP F2","A")
  4011   Want my da ta |FLAG|  yours
  4012   "QUES","XP F2","B")
  4013   YES
  4014   "QUES","XP F2","M")
  4015   D XPF2^XPD IQ
  4016   "QUES","XP I1",0)
  4017   YO
  4018   "QUES","XP I1","??")
  4019   ^D INHIBIT ^XPDH
  4020   "QUES","XP I1","A")
  4021   Want KIDS  to INHIBIT  LOGONs du ring the i nstall
  4022   "QUES","XP I1","B")
  4023   NO
  4024   "QUES","XP I1","M")
  4025   D XPI1^XPD IQ
  4026   "QUES","XP M1",0)
  4027   PO^VA(200, :EM
  4028   "QUES","XP M1","??")
  4029   ^D MG^XPDH
  4030   "QUES","XP M1","A")
  4031   Enter the  Coordinato r for Mail  Group '|F LAG|'
  4032   "QUES","XP M1","B")
  4033  
  4034   "QUES","XP M1","M")
  4035   D XPM1^XPD IQ
  4036   "QUES","XP O1",0)
  4037   Y
  4038   "QUES","XP O1","??")
  4039   ^D MENU^XP DH
  4040   "QUES","XP O1","A")
  4041   Want KIDS  to Rebuild  Menu Tree s Upon Com pletion of  Install
  4042   "QUES","XP O1","B")
  4043   NO
  4044   "QUES","XP O1","M")
  4045   D XPO1^XPD IQ
  4046   "QUES","XP Z1",0)
  4047   Y
  4048   "QUES","XP Z1","??")
  4049   ^D OPT^XPD H
  4050   "QUES","XP Z1","A")
  4051   Want to DI SABLE Sche duled Opti ons, Menu  Options, a nd Protoco ls
  4052   "QUES","XP Z1","B")
  4053   NO
  4054   "QUES","XP Z1","M")
  4055   D XPZ1^XPD IQ
  4056   "QUES","XP Z2",0)
  4057   Y
  4058   "QUES","XP Z2","??")
  4059   ^D RTN^XPD H
  4060   "QUES","XP Z2","A")
  4061   Want to MO VE routine s to other  CPUs
  4062   "QUES","XP Z2","B")
  4063   NO
  4064   "QUES","XP Z2","M")
  4065   D XPZ2^XPD IQ
  4066   "RTN")
  4067   10
  4068   "RTN","DGM XADT")
  4069   0^4^B28572 628
  4070   "RTN","DGM XADT",1,0)
  4071   DGMXADT ;  MASS/RPR -  ADT Trigg er Code;8/ 24/17;2018 -03-01 10: 18:50
  4072   "RTN","DGM XADT",2,0)
  4073    ;;5.3;Reg istration; **948**;SE PTEMBER 5, 2017;Build  66
  4074   "RTN","DGM XADT",3,0)
  4075    ;Per VA D IRECTIVE 6 402, this  routine sh ould not b e modified .
  4076   "RTN","DGM XADT",4,0)
  4077    ;
  4078   "RTN","DGM XADT",5,0)
  4079    ;  ICR# S upported R eferences
  4080   "RTN","DGM XADT",6,0)
  4081    ;  4716 $ $ADDSEG^HL OAPI
  4082   "RTN","DGM XADT",7,0)
  4083    ;  4716 $ $NEWMSG^HL OAPI
  4084   "RTN","DGM XADT",8,0)
  4085    ;  4717 $ $SENDONE^H LOAPI1
  4086   "RTN","DGM XADT",9,0)
  4087    ; 10063 D  ^%ZTLOAD
  4088   "RTN","DGM XADT",10,0 )
  4089    ; 10103 $ $NOW^XLFDT
  4090   "RTN","DGM XADT",11,0 )
  4091    ;  2263 $ $GET^XPAR
  4092   "RTN","DGM XADT",12,0 )
  4093    ;
  4094   "RTN","DGM XADT",13,0 )
  4095    Q
  4096   "RTN","DGM XADT",14,0 )
  4097   MONITOR(DG MXDFN,DGMX TYPE,DGMXF MX,DGMXFMX 1,DGMXFMX2 ) ; Send A DT message s to subsc ribers whe n demograp hics chang e
  4098   "RTN","DGM XADT",15,0 )
  4099    ;   DGMXD FN - Patie nt edited  (required)
  4100   "RTN","DGM XADT",16,0 )
  4101    ;   DGMXT YPE - Type  of cross- reference  action ("S ET" or "KI LL") (requ ired)
  4102   "RTN","DGM XADT",17,0 )
  4103    ;   DGMXF MX - X arr ay for Fil eMan new s tyle x-ref s (require d)
  4104   "RTN","DGM XADT",18,0 )
  4105    ;   DGMXF MX1 - X1 a rray for F ileMan new  style x-r efs (requi red)
  4106   "RTN","DGM XADT",19,0 )
  4107    ;   DGMXF MX2 - X2 a rray for F ileMan new  style x-r efs (requi red)
  4108   "RTN","DGM XADT",20,0 )
  4109    ;
  4110   "RTN","DGM XADT",21,0 )
  4111    ; Validat e Inputs
  4112   "RTN","DGM XADT",22,0 )
  4113    I $G(DGMX DFN)="" Q     ; Quit  if no pati ent
  4114   "RTN","DGM XADT",23,0 )
  4115    I $G(DGMX FMX)="" Q     ; Quit  if setting  or killin g null val ue
  4116   "RTN","DGM XADT",24,0 )
  4117    I $G(DGMX TYPE)="" Q    ; Quit  if no edit  type
  4118   "RTN","DGM XADT",25,0 )
  4119    S DGMXFMX 1=$G(DGMXF MX1),DGMXF MX2=$G(DGM XFMX2)  ;D efine thes e variable s if they  are undefi ned
  4120   "RTN","DGM XADT",26,0 )
  4121    ;
  4122   "RTN","DGM XADT",27,0 )
  4123    I (DGMXTY PE="KILL") ,(DGMXFMX2 '="") Q  ;  Skip kill  action on  data upda te
  4124   "RTN","DGM XADT",28,0 )
  4125    ;
  4126   "RTN","DGM XADT",29,0 )
  4127    ; Set edi t type
  4128   "RTN","DGM XADT",30,0 )
  4129    S DGMXTYP E=$S(DGMXT YPE="KILL" :"DELETE", DGMXTYPE=" SET":"ADD" ,1:DGMXTYP E)
  4130   "RTN","DGM XADT",31,0 )
  4131    I (DGMXFM X1'=""),(D GMXFMX2'=" ") S DGMXT YPE="UPDAT E"
  4132   "RTN","DGM XADT",32,0 )
  4133    ;
  4134   "RTN","DGM XADT",33,0 )
  4135    ; Task of f (Taskman ) driver r outine.
  4136   "RTN","DGM XADT",34,0 )
  4137    N ZTRTN,Z TDESC,ZTIO ,ZTDTH,ZTS AVE,ZTSK,D GMXVAR,BXR EF,SUBSCR, ZTREQ
  4138   "RTN","DGM XADT",35,0 )
  4139    S ZTRTN=" INIT^DGMXA DT",ZTDESC ="DGMX DEM OGRAPHICS  MONITOR"
  4140   "RTN","DGM XADT",36,0 )
  4141    S ZTIO="D GMX DEMOGR APHICS MON ITOR",ZTDT H=$$NOW^XL FDT()
  4142   "RTN","DGM XADT",37,0 )
  4143    F DGMXVAR ="DGMXDFN" ,"DGMXDFN( ","DGMXTYP E","DGMXFM X","DGMXFM X(","DGMXF MX1","DGMX FX1(","DGM XFMX2","DG MXFMX2(" S  ZTSAVE(DG MXVAR)=""
  4144   "RTN","DGM XADT",38,0 )
  4145    ; If ther e are no s ubscribers , do not c all Taskma n
  4146   "RTN","DGM XADT",39,0 )
  4147    S BXREF=0 ,BXREF=$O( ^ORD(101," B","DGMX D EMOGRAPHIC S MONITOR" ,BXREF))
  4148   "RTN","DGM XADT",40,0 )
  4149    S SUBSCR= 0,SUBSCR=$ O(^ORD(101 ,BXREF,10, SUBSCR))
  4150   "RTN","DGM XADT",41,0 )
  4151    I 'SUBSCR  Q
  4152   "RTN","DGM XADT",42,0 )
  4153    D ^%ZTLOA D
  4154   "RTN","DGM XADT",43,0 )
  4155    Q
  4156   "RTN","DGM XADT",44,0 )
  4157   INIT N X   ; Loop thr ough the s ubscribers  to DGMX D EMOGRAPHIC S MONITOR  and execut e them
  4158   "RTN","DGM XADT",45,0 )
  4159    S X=$O(^O RD(101,"B" ,"DGMX DEM OGRAPHICS  MONITOR",0 ))_";ORD(1 01," D EN1 ^XQOR
  4160   "RTN","DGM XADT",46,0 )
  4161    I $D(ZTQU EUED) S ZT REQ="@"
  4162   "RTN","DGM XADT",47,0 )
  4163    K DGMXDFN ,DGMXTYPE, DGMXFMX,DG MXFMX1,DGM XFMX2
  4164   "RTN","DGM XADT",48,0 )
  4165    Q
  4166   "RTN","DGM XADT",49,0 )
  4167   TRIGGER(DF N,EDITTYPE ,SKIPCHK,T HREAD)  ;  Trigger HL 7 messages  when pati ent edits  are made
  4168   "RTN","DGM XADT",50,0 )
  4169    ;   DFN -  Patient I EN (requir ed)
  4170   "RTN","DGM XADT",51,0 )
  4171    ;   EDITT YPE - Type  of modifi cation mad e to patie nt ("ADD",  "UPDATE",  or "DELET E")
  4172   "RTN","DGM XADT",52,0 )
  4173    ;   SKIPC HK - Skip  checking w hether MAS S is enabl ed for con versions
  4174   "RTN","DGM XADT",53,0 )
  4175    ;   THREA D - Thread  to send m essage to  for conver sions.
  4176   "RTN","DGM XADT",54,0 )
  4177    ;
  4178   "RTN","DGM XADT",55,0 )
  4179    S SKIPCHK =$G(SKIPCH K),THREAD= $G(THREAD)
  4180   "RTN","DGM XADT",56,0 )
  4181    I ('SKIPC HK),('$$GE T^XPAR("SY S","DGMX M ASS ENABLE D")) Q  ;  do not sen d messages  if MASS n ot enabled
  4182   "RTN","DGM XADT",57,0 )
  4183    I ($G(DFN )="")!($G( EDITTYPE)= "") Q  ; v alidate in puts
  4184   "RTN","DGM XADT",58,0 )
  4185    I EDITTYP E="ADD" D  TRIGDEM(DF N,"A28",TH READ) Q
  4186   "RTN","DGM XADT",59,0 )
  4187    I EDITTYP E="UPDATE"  D TRIGDEM (DFN,"A08" ,THREAD) Q
  4188   "RTN","DGM XADT",60,0 )
  4189    I EDITTYP E="DELETE"  D TRIGA40 (DFN,THREA D)
  4190   "RTN","DGM XADT",61,0 )
  4191    Q
  4192   "RTN","DGM XADT",62,0 )
  4193   TRIGDEM(DF N,EVENT,TH READ)  ; T riggers a  Patient Up date Messa ge
  4194   "RTN","DGM XADT",63,0 )
  4195    ;  DFN      - Patien t IEN
  4196   "RTN","DGM XADT",64,0 )
  4197    ;  EVENT    - Event  type to tr igger. Tri gger an A2 8 for new  patients.
  4198   "RTN","DGM XADT",65,0 )
  4199    ;  THREAD   - Number  of thread s. Only us e for init ial conver sion utili ty.
  4200   "RTN","DGM XADT",66,0 )
  4201    ;
  4202   "RTN","DGM XADT",67,0 )
  4203    I $G(DFN) ="" Q
  4204   "RTN","DGM XADT",68,0 )
  4205    N SEG,MSG ,PARAMS,ER ROR,WHOTO, OK,ENR,MAS SESC,ESCCH AR
  4206   "RTN","DGM XADT",69,0 )
  4207    S PARAMS( "MESSAGE T YPE")="ADT "
  4208   "RTN","DGM XADT",70,0 )
  4209    I $G(EVEN T)="" S PA RAMS("EVEN T")="A08"
  4210   "RTN","DGM XADT",71,0 )
  4211    E  S PARA MS("EVENT" )=EVENT
  4212   "RTN","DGM XADT",72,0 )
  4213    S PARAMS( "SENDING A PPLICATION ")="DG-REG -OUT"
  4214   "RTN","DGM XADT",73,0 )
  4215    S WHOTO(" RECEIVING  APPLICATIO N")="MASS"
  4216   "RTN","DGM XADT",74,0 )
  4217    I $G(THRE AD)'="" S  WHOTO("FAC ILITY LINK  NAME")="D G ADT O"_T HREAD
  4218   "RTN","DGM XADT",75,0 )
  4219    E  S WHOT O("FACILIT Y LINK NAM E")="DG AD T OUT"     ; HL Logic al Link
  4220   "RTN","DGM XADT",76,0 )
  4221    S ENR=$P( $G(^DPT(DF N,"ENR")), "^",1)           ; Ge t Enrollme nt informa tion
  4222   "RTN","DGM XADT",77,0 )
  4223    S MASSESC =$$GET^XPA R("SYS","M ASS ASCII  CHARACTER  SWITCH")
  4224   "RTN","DGM XADT",78,0 )
  4225    S ESCCHAR =$$GET^XPA R("SYS","M ASS ASCII  CHAR REPLA CEMENT")
  4226   "RTN","DGM XADT",79,0 )
  4227    ;
  4228   "RTN","DGM XADT",80,0 )
  4229    ; Start n ew message
  4230   "RTN","DGM XADT",81,0 )
  4231    I '$$NEWM SG^HLOAPI( .PARAMS,.M SG) Q
  4232   "RTN","DGM XADT",82,0 )
  4233    ;
  4234   "RTN","DGM XADT",83,0 )
  4235    D PID^DGM XHL7(DFN,1 ,.SEG)                     ; Bui ld PID (re quired)
  4236   "RTN","DGM XADT",84,0 )
  4237    I MASSESC  D ESCINVL D^SDMXCORE (.SEG,ESCC HAR)
  4238   "RTN","DGM XADT",85,0 )
  4239    I '$$ADDS EG^HLOAPI( .MSG,.SEG)  Q
  4240   "RTN","DGM XADT",86,0 )
  4241    D NTE^DGM XHL7(DFN,1 ,.SEG)                     ; Bui ld NTE
  4242   "RTN","DGM XADT",87,0 )
  4243    I MASSESC  D ESCINVL D^SDMXCORE (.SEG,ESCC HAR)
  4244   "RTN","DGM XADT",88,0 )
  4245    S OK=$$AD DSEG^HLOAP I(.MSG,.SE G)
  4246   "RTN","DGM XADT",89,0 )
  4247    D PV1^DGM XHL7(DFN,1 ,.SEG)                     ; Bui ld PV1
  4248   "RTN","DGM XADT",90,0 )
  4249    I MASSESC  D ESCINVL D^SDMXCORE (.SEG,ESCC HAR)
  4250   "RTN","DGM XADT",91,0 )
  4251    S OK=$$AD DSEG^HLOAP I(.MSG,.SE G)
  4252   "RTN","DGM XADT",92,0 )
  4253    D ZCT^DGM XHL7(DFN,1 ,.SEG)                     ; Bui ld ZCT
  4254   "RTN","DGM XADT",93,0 )
  4255    I MASSESC  D ESCINVL D^SDMXCORE (.SEG,ESCC HAR)
  4256   "RTN","DGM XADT",94,0 )
  4257    S OK=$$AD DSEG^HLOAP I(.MSG,.SE G)
  4258   "RTN","DGM XADT",95,0 )
  4259    D BLDZEL^ DGMXHL7(DF N,.SEG,.MS G)              ; Bui ld ZEL (re peating)
  4260   "RTN","DGM XADT",96,0 )
  4261    D ZEN^DGM XHL7(ENR,1 ,.SEG)                     ; Bui ld ZEN
  4262   "RTN","DGM XADT",97,0 )
  4263    I MASSESC  D ESCINVL D^SDMXCORE (.SEG,ESCC HAR)
  4264   "RTN","DGM XADT",98,0 )
  4265    S OK=$$AD DSEG^HLOAP I(.MSG,.SE G)
  4266   "RTN","DGM XADT",99,0 )
  4267    D ZSP^DGM XHL7(DFN,1 ,.SEG)                     ; Bui ld ZSP
  4268   "RTN","DGM XADT",100, 0)
  4269    I MASSESC  D ESCINVL D^SDMXCORE (.SEG,ESCC HAR)
  4270   "RTN","DGM XADT",101, 0)
  4271    S OK=$$AD DSEG^HLOAP I(.MSG,.SE G)
  4272   "RTN","DGM XADT",102, 0)
  4273    ;
  4274   "RTN","DGM XADT",103, 0)
  4275    ; Send me ssage
  4276   "RTN","DGM XADT",104, 0)
  4277    S OK=$$SE NDONE^HLOA PI1(.MSG,. PARAMS,.WH OTO,.ERROR )
  4278   "RTN","DGM XADT",105, 0)
  4279    Q
  4280   "RTN","DGM XADT",106, 0)
  4281   TRIGA40(PR EVID,THREA D) ; Trigg ers an A40  Message ( Patient Me rge), give n the sour ce patient .
  4282   "RTN","DGM XADT",107, 0)
  4283    ;  The so urce patie nt record  is merged  INTO the ( surviving)  target pa tient reco rd.
  4284   "RTN","DGM XADT",108, 0)
  4285    ;  PREVID  - Source  Patient IE N
  4286   "RTN","DGM XADT",109, 0)
  4287    ;  THREAD   - Number  of thread s. Only us e for init ial conver sion utili ty.
  4288   "RTN","DGM XADT",110, 0)
  4289    ;
  4290   "RTN","DGM XADT",111, 0)
  4291    I $G(PREV ID)="" Q
  4292   "RTN","DGM XADT",112, 0)
  4293    N SEG,MSG ,PARAMS,ER ROR,WHOTO, DFN,OK,MAS SESC,ESCCH AR
  4294   "RTN","DGM XADT",113, 0)
  4295    S PARAMS( "MESSAGE T YPE")="ADT "
  4296   "RTN","DGM XADT",114, 0)
  4297    S PARAMS( "EVENT")=" A40"
  4298   "RTN","DGM XADT",115, 0)
  4299    S PARAMS( "SENDING A PPLICATION ")="DG-REG -OUT"
  4300   "RTN","DGM XADT",116, 0)
  4301    S WHOTO(" RECEIVING  APPLICATIO N")="MASS"
  4302   "RTN","DGM XADT",117, 0)
  4303    I $G(THRE AD)'="" S  WHOTO("FAC ILITY LINK  NAME")="D G ADT O"_T HREAD
  4304   "RTN","DGM XADT",118, 0)
  4305    E  S WHOT O("FACILIT Y LINK NAM E")="DG AD T OUT"     ; HL Logic al Link
  4306   "RTN","DGM XADT",119, 0)
  4307    S DFN=$G( ^DPT(PREVI D,-9))                     ; Tar get Patien t
  4308   "RTN","DGM XADT",120, 0)
  4309    I DFN=""  Q
  4310   "RTN","DGM XADT",121, 0)
  4311    S MASSESC =$$GET^XPA R("SYS","M ASS ASCII  CHARACTER  SWITCH")
  4312   "RTN","DGM XADT",122, 0)
  4313    S ESCCHAR =$$GET^XPA R("SYS","M ASS ASCII  CHAR REPLA CEMENT")
  4314   "RTN","DGM XADT",123, 0)
  4315    ;
  4316   "RTN","DGM XADT",124, 0)
  4317    ; Start n ew message
  4318   "RTN","DGM XADT",125, 0)
  4319    I '$$NEWM SG^HLOAPI( .PARAMS,.M SG) Q
  4320   "RTN","DGM XADT",126, 0)
  4321    D PID^DGM XHL7(DFN,1 ,.SEG)             ;  Build PID  (required)
  4322   "RTN","DGM XADT",127, 0)
  4323    I MASSESC  D ESCINVL D^SDMXCORE (.SEG,ESCC HAR)
  4324   "RTN","DGM XADT",128, 0)
  4325    I '$$ADDS EG^HLOAPI( .MSG,.SEG)  Q
  4326   "RTN","DGM XADT",129, 0)
  4327    D MRG^DGM XHL7(PREVI D,.SEG)            ;  Build MRG  (required)
  4328   "RTN","DGM XADT",130, 0)
  4329    I MASSESC  D ESCINVL D^SDMXCORE (.SEG,ESCC HAR)
  4330   "RTN","DGM XADT",131, 0)
  4331    I '$$ADDS EG^HLOAPI( .MSG,.SEG)  Q
  4332   "RTN","DGM XADT",132, 0)
  4333    ;
  4334   "RTN","DGM XADT",133, 0)
  4335    ; Send me ssage
  4336   "RTN","DGM XADT",134, 0)
  4337    S OK=$$SE NDONE^HLOA PI1(.MSG,. PARAMS,.WH OTO,.ERROR )
  4338   "RTN","DGM XADT",135, 0)
  4339    Q
  4340   "RTN","DGM XADT",136, 0)
  4341    ;
  4342   "RTN","DGM XCONV")
  4343   0^8^B44776 123
  4344   "RTN","DGM XCONV",1,0 )
  4345   DGMXCONV ;  MASS/DXL  - Demograp hics conve rsion util ity;11/30/ 17
  4346   "RTN","DGM XCONV",2,0 )
  4347    ;;5.3;Reg istration; **948**;NO VEMBER 20, 2017;Build  66
  4348   "RTN","DGM XCONV",3,0 )
  4349    ;Per VA D IRECTIVE 6 402, this  routine sh ould not b e modified .
  4350   "RTN","DGM XCONV",4,0 )
  4351    ;
  4352   "RTN","DGM XCONV",5,0 )
  4353    ;   ICR#  Supported  References
  4354   "RTN","DGM XCONV",6,0 )
  4355    ;   2051  ^DIC
  4356   "RTN","DGM XCONV",7,0 )
  4357    ;         YN^DICN
  4358   "RTN","DGM XCONV",8,0 )
  4359    ;   2056  $$GET1^DIQ
  4360   "RTN","DGM XCONV",9,0 )
  4361    ;         ^DIR
  4362   "RTN","DGM XCONV",10, 0)
  4363    ;   2263  $$GET^XPAR
  4364   "RTN","DGM XCONV",11, 0)
  4365    ;
  4366   "RTN","DGM XCONV",12, 0)
  4367    Q
  4368   "RTN","DGM XCONV",13, 0)
  4369   ENTRY ; En try functi on for MAS S demograp hics conve rsion util ity
  4370   "RTN","DGM XCONV",14, 0)
  4371    N DIR,TYP E,Y
  4372   "RTN","DGM XCONV",15, 0)
  4373    ;
  4374   "RTN","DGM XCONV",16, 0)
  4375    ; Type Pr ompt
  4376   "RTN","DGM XCONV",17, 0)
  4377    S DIR(0)= "S^1:PATIE NT;2:PATIE NT RECORD  FLAG;3:BAD  ADDRESS I NDICATOR;4 :SENSITIVI TY FLAG;5: DEMOGRAPHI CS VERIFIC ATION DATE "
  4378   "RTN","DGM XCONV",18, 0)
  4379    D ^DIR
  4380   "RTN","DGM XCONV",19, 0)
  4381    S TYPE=$G (Y)
  4382   "RTN","DGM XCONV",20, 0)
  4383    ;
  4384   "RTN","DGM XCONV",21, 0)
  4385    ; Validat e input an d call mai n
  4386   "RTN","DGM XCONV",22, 0)
  4387    I '$$INST RING^SDMXC ORE(TYPE," 1,2,3,4,5" ,",") Q
  4388   "RTN","DGM XCONV",23, 0)
  4389    S TYPE=$S (TYPE=1:"P AT",TYPE=2 :"PRF",TYP E=3:"BAD", TYPE=4:"SE N",TYPE=5: "VER",1:"" )
  4390   "RTN","DGM XCONV",24, 0)
  4391    D MAIN(TY PE)
  4392   "RTN","DGM XCONV",25, 0)
  4393    Q
  4394   "RTN","DGM XCONV",26, 0)
  4395   MAIN(TYPE)  ; Trigger   messages  for all r ecord or a  subset of  records
  4396   "RTN","DGM XCONV",27, 0)
  4397    ;   TYPE  - Specifie s the type  of conver sion to ex ecute. Val id options  are:
  4398   "RTN","DGM XCONV",28, 0)
  4399    ;           "PAT" :  Patient                             (File 2 )
  4400   "RTN","DGM XCONV",29, 0)
  4401    ;           "PRF" :  Patient Re cord Flag                (File 2 6.13)
  4402   "RTN","DGM XCONV",30, 0)
  4403    ;           "BAD" :  Bad Addres s Indicato r             (File 2 , Field .1 21)
  4404   "RTN","DGM XCONV",31, 0)
  4405    ;           "SEN" :  Sensitivit y Flag                   (File 3 8.1)
  4406   "RTN","DGM XCONV",32, 0)
  4407    ;           "VER" :  Demographi cs Verific ation Date    (File 4 1.41)
  4408   "RTN","DGM XCONV",33, 0)
  4409    ;
  4410   "RTN","DGM XCONV",34, 0)
  4411    ; Initial ize
  4412   "RTN","DGM XCONV",35, 0)
  4413    I $G(TYPE )="" Q
  4414   "RTN","DGM XCONV",36, 0)
  4415    N DFN,Y,L IST,DONE,N UMREC,%,DI C,COUNT
  4416   "RTN","DGM XCONV",37, 0)
  4417    ;
  4418   "RTN","DGM XCONV",38, 0)
  4419    ; Main Pr ompt
  4420   "RTN","DGM XCONV",39, 0)
  4421    W !,"Trig ger messag es for ALL  records i n the syst em"
  4422   "RTN","DGM XCONV",40, 0)
  4423    S %=2        ; Defau lt no
  4424   "RTN","DGM XCONV",41, 0)
  4425    D YN^DICN
  4426   "RTN","DGM XCONV",42, 0)
  4427    ;
  4428   "RTN","DGM XCONV",43, 0)
  4429    ; 1) Yes  - Trigger  messages f or ALL rec ords
  4430   "RTN","DGM XCONV",44, 0)
  4431    I %=1 D   Q
  4432   "RTN","DGM XCONV",45, 0)
  4433    . K %
  4434   "RTN","DGM XCONV",46, 0)
  4435    . ; Final  confirmat ion check
  4436   "RTN","DGM XCONV",47, 0)
  4437    . S NUMRE C=$$GETNUM R(TYPE)
  4438   "RTN","DGM XCONV",48, 0)
  4439    . W !,"Th is will tr igger appr oximately  "_NUMREC_"  patients.  Are you s ure"
  4440   "RTN","DGM XCONV",49, 0)
  4441    . S %=2      ; Defau lt no
  4442   "RTN","DGM XCONV",50, 0)
  4443    . D YN^DI CN
  4444   "RTN","DGM XCONV",51, 0)
  4445    . I %'=1  Q
  4446   "RTN","DGM XCONV",52, 0)
  4447    . ;
  4448   "RTN","DGM XCONV",53, 0)
  4449    . ; Execu tes the co nversion f unction
  4450   "RTN","DGM XCONV",54, 0)
  4451    . D PICKC ONV(TYPE,. COUNT)
  4452   "RTN","DGM XCONV",55, 0)
  4453    . I COUNT >0 W !,"Me ssages Tri ggered: "_ COUNT
  4454   "RTN","DGM XCONV",56, 0)
  4455    ;
  4456   "RTN","DGM XCONV",57, 0)
  4457    ; 2) No -  Trigger m essages fo r subset o f records
  4458   "RTN","DGM XCONV",58, 0)
  4459    I %'=2 Q
  4460   "RTN","DGM XCONV",59, 0)
  4461    S DONE=0
  4462   "RTN","DGM XCONV",60, 0)
  4463    D GETDIC( TYPE,.DIC)
  4464   "RTN","DGM XCONV",61, 0)
  4465    F  D  Q:D ONE=1  ; C ontinually  prompt us er for rec ords
  4466   "RTN","DGM XCONV",62, 0)
  4467    . D ^DIC
  4468   "RTN","DGM XCONV",63, 0)
  4469    . S DFN=+ Y
  4470   "RTN","DGM XCONV",64, 0)
  4471    . I DFN<0  S DONE=1  Q
  4472   "RTN","DGM XCONV",65, 0)
  4473    . I $G(LI ST)="" S L IST=DFN Q
  4474   "RTN","DGM XCONV",66, 0)
  4475    . S LIST= LIST_","_D FN
  4476   "RTN","DGM XCONV",67, 0)
  4477    ;
  4478   "RTN","DGM XCONV",68, 0)
  4479    ; Loop th rough reco rds and tr igger mess ages
  4480   "RTN","DGM XCONV",69, 0)
  4481    I $G(LIST )="" Q
  4482   "RTN","DGM XCONV",70, 0)
  4483    D TRIGSUB S(TYPE,LIS T)
  4484   "RTN","DGM XCONV",71, 0)
  4485    Q
  4486   "RTN","DGM XCONV",72, 0)
  4487   PATCONV()  ; Loops th rough File  2 and tri ggers an A DT message  for each  patient. E xcludes st ub patient  records.
  4488   "RTN","DGM XCONV",73, 0)
  4489    ; Returns  the numbe r of messa ges trigge red
  4490   "RTN","DGM XCONV",74, 0)
  4491    N DFN,THR EADS,THREA D,NUMCONVS ,DONE
  4492   "RTN","DGM XCONV",75, 0)
  4493    S THREADS =$$GET^XPA R("SYS","D GMX CONV T HREADS")
  4494   "RTN","DGM XCONV",76, 0)
  4495    I THREADS '>0 S THRE ADS=1
  4496   "RTN","DGM XCONV",77, 0)
  4497    S NUMCONV S=0,DFN=0, DONE=0
  4498   "RTN","DGM XCONV",78, 0)
  4499    F  S DFN= $O(^DPT(DF N)) Q:DFN= ""!DONE=1   D
  4500   "RTN","DGM XCONV",79, 0)
  4501    . I +DFN= 0 S DONE=1  Q
  4502   "RTN","DGM XCONV",80, 0)
  4503    . I $G(^D PT(DFN,-9) )'="" Q
  4504   "RTN","DGM XCONV",81, 0)
  4505    . S THREA D=(NUMCONV S#THREADS) +1 ; Cycle  through t he number  of threads
  4506   "RTN","DGM XCONV",82, 0)
  4507    . S NUMCO NVS=NUMCON VS+1
  4508   "RTN","DGM XCONV",83, 0)
  4509    . D TRIGG ER^DGMXADT (DFN,"ADD" ,1,THREAD)
  4510   "RTN","DGM XCONV",84, 0)
  4511    Q NUMCONV S
  4512   "RTN","DGM XCONV",85, 0)
  4513   PRFCONV()  ; Loops th rough File  26.13 and  triggers  an ORU mes sage for e ach patien t with pat ient recor d flags.
  4514   "RTN","DGM XCONV",86, 0)
  4515    ; Returns  the numbe r of messa ges trigge red
  4516   "RTN","DGM XCONV",87, 0)
  4517    N DFN,THR EADS,THREA D,NUMCONVS
  4518   "RTN","DGM XCONV",88, 0)
  4519    S THREADS =$$GET^XPA R("SYS","D GMX CONV T HREADS")
  4520   "RTN","DGM XCONV",89, 0)
  4521    I THREADS '>0 S THRE ADS=1
  4522   "RTN","DGM XCONV",90, 0)
  4523    S NUMCONV S=0,DFN=0
  4524   "RTN","DGM XCONV",91, 0)
  4525    F  S DFN= $O(^DGPF(2 6.13,"B",D FN)) Q:DFN =""  D        ; Loop  through pa tient reco rd flags
  4526   "RTN","DGM XCONV",92, 0)
  4527    . S THREA D=(NUMCONV S#THREADS) +1                       ; Cycle  through t he number  of threads
  4528   "RTN","DGM XCONV",93, 0)
  4529    . S NUMCO NVS=NUMCON VS+1
  4530   "RTN","DGM XCONV",94, 0)
  4531    . D TRIGP RF^DGMXORU ($O(^DGPF( 26.13,"B", DFN,"")),1 ,THREAD)   ; Pass fla g DFN to O RU constru ctor
  4532   "RTN","DGM XCONV",95, 0)
  4533    Q NUMCONV S
  4534   "RTN","DGM XCONV",96, 0)
  4535   BADCONV()  ; Loops th rough File  2 and tri ggers an O RU message  for each  patient wi th a bad a ddress ind icator.
  4536   "RTN","DGM XCONV",97, 0)
  4537    ; Returns  the numbe r of messa ges trigge red
  4538   "RTN","DGM XCONV",98, 0)
  4539    N DFN,THR EADS,THREA D,NUMCONVS ,DONE
  4540   "RTN","DGM XCONV",99, 0)
  4541    S THREADS =$$GET^XPA R("SYS","D GMX CONV T HREADS")
  4542   "RTN","DGM XCONV",100 ,0)
  4543    I THREADS '>0 S THRE ADS=1
  4544   "RTN","DGM XCONV",101 ,0)
  4545    S NUMCONV S=0,DFN=0, DONE=0
  4546   "RTN","DGM XCONV",102 ,0)
  4547    F  S DFN= $O(^DPT(DF N)) Q:DFN= ""!DONE=1   D
  4548   "RTN","DGM XCONV",103 ,0)
  4549    . I +DFN= 0 S DONE=1
  4550   "RTN","DGM XCONV",104 ,0)
  4551    . I $G(^D PT(DFN,-9) )'="" Q
  4552   "RTN","DGM XCONV",105 ,0)
  4553    . I $$GET 1^DIQ(2,DF N,.121)=""  Q     ; Q uit if no  bad addres s indicato r
  4554   "RTN","DGM XCONV",106 ,0)
  4555    . S THREA D=(NUMCONV S#THREADS) +1     ; C ycle throu gh the num ber of thr eads
  4556   "RTN","DGM XCONV",107 ,0)
  4557    . S NUMCO NVS=NUMCON VS+1
  4558   "RTN","DGM XCONV",108 ,0)
  4559    . D TRIGB AD^DGMXORU (DFN,"ACTI VE",1,THRE AD)
  4560   "RTN","DGM XCONV",109 ,0)
  4561    Q NUMCONV S
  4562   "RTN","DGM XCONV",110 ,0)
  4563   SENCONV()  ; Loops th rough File  38.1 and  triggers a n ORU mess age for ea ch patient  with a se nsitivity  flag.
  4564   "RTN","DGM XCONV",111 ,0)
  4565    ; Returns  the numbe r of messa ges trigge red
  4566   "RTN","DGM XCONV",112 ,0)
  4567    N DFN,DFN 2,THREADS, THREAD,NUM CONVS
  4568   "RTN","DGM XCONV",113 ,0)
  4569    S THREADS =$$GET^XPA R("SYS","D GMX CONV T HREADS")
  4570   "RTN","DGM XCONV",114 ,0)
  4571    I THREADS '>0 S THRE ADS=1
  4572   "RTN","DGM XCONV",115 ,0)
  4573    S NUMCONV S=0,DFN=0
  4574   "RTN","DGM XCONV",116 ,0)
  4575    F  S DFN= $O(^DGSL(3 8.1,"B",DF N)) Q:DFN= ""  D
  4576   "RTN","DGM XCONV",117 ,0)
  4577    . S THREA D=(NUMCONV S#THREADS) +1     ; C ycle throu gh the num ber of thr eads
  4578   "RTN","DGM XCONV",118 ,0)
  4579    . S NUMCO NVS=NUMCON VS+1
  4580   "RTN","DGM XCONV",119 ,0)
  4581    . S DFN2= $O(^DGSL(3 8.1,"B",DF N,""))                                ; Get  the patie nt sensiti vity flag  DFN
  4582   "RTN","DGM XCONV",120 ,0)
  4583    . D TRIGS EN^DGMXORU (DFN2,$$GE T1^DIQ(38. 1,DFN2,2," I"),1,THRE AD)  ; Pas s in the s ensitivity  flag stat us
  4584   "RTN","DGM XCONV",121 ,0)
  4585    Q NUMCONV S
  4586   "RTN","DGM XCONV",122 ,0)
  4587   VERCONV()  ; Loops th rough File  41.41 and  triggers  an ORU mes sage for e ach patien t with a d emographic  verificat ion date.
  4588   "RTN","DGM XCONV",123 ,0)
  4589    ; Returns  the numbe r of messa ges trigge red
  4590   "RTN","DGM XCONV",124 ,0)
  4591    N DFN,THR EADS,THREA D,NUMCONVS
  4592   "RTN","DGM XCONV",125 ,0)
  4593    S THREADS =$$GET^XPA R("SYS","D GMX CONV T HREADS")
  4594   "RTN","DGM XCONV",126 ,0)
  4595    I THREADS '>0 S THRE ADS=1
  4596   "RTN","DGM XCONV",127 ,0)
  4597    S NUMCONV S=0,DFN=0
  4598   "RTN","DGM XCONV",128 ,0)
  4599    F  S DFN= $O(^DGS(41 .41,"B",DF N)) Q:DFN= ""  D
  4600   "RTN","DGM XCONV",129 ,0)
  4601    . S THREA D=(NUMCONV S#THREADS) +1     ; C ycle throu gh the num ber of thr eads
  4602   "RTN","DGM XCONV",130 ,0)
  4603    . S NUMCO NVS=NUMCON VS+1
  4604   "RTN","DGM XCONV",131 ,0)
  4605    . D TRIGV ER^DGMXORU ($O(^DGS(4 1.41,"B",D FN,""),-1) ,1,THREAD)
  4606   "RTN","DGM XCONV",132 ,0)
  4607    Q NUMCONV S
  4608   "RTN","DGM XCONV",133 ,0)
  4609   PICKCONV(T YPE,COUNT)  ; Execute s the appr opriate co nversion t ag
  4610   "RTN","DGM XCONV",134 ,0)
  4611    ;   TYPE   - Specifi es the typ e of conve rsion to e xecute
  4612   "RTN","DGM XCONV",135 ,0)
  4613    ;   COUNT  - Number  of message s triggere d
  4614   "RTN","DGM XCONV",136 ,0)
  4615    ;
  4616   "RTN","DGM XCONV",137 ,0)
  4617    I $G(TYPE )="" Q
  4618   "RTN","DGM XCONV",138 ,0)
  4619    I TYPE="P AT" S COUN T=$$PATCON V()
  4620   "RTN","DGM XCONV",139 ,0)
  4621    I TYPE="P RF" S COUN T=$$PRFCON V()
  4622   "RTN","DGM XCONV",140 ,0)
  4623    I TYPE="B AD" S COUN T=$$BADCON V()
  4624   "RTN","DGM XCONV",141 ,0)
  4625    I TYPE="S EN" S COUN T=$$SENCON V()
  4626   "RTN","DGM XCONV",142 ,0)
  4627    I TYPE="V ER" S COUN T=$$VERCON V()
  4628   "RTN","DGM XCONV",143 ,0)
  4629    Q
  4630   "RTN","DGM XCONV",144 ,0)
  4631   TRIGSUBS(T YPE,LIST)  ; Given a  list of re cords, tri gger messa ges for th e subset
  4632   "RTN","DGM XCONV",145 ,0)
  4633    ;   TYPE  - Specifie s the type  of conver sion to ex ecute
  4634   "RTN","DGM XCONV",146 ,0)
  4635    ;   LIST  - Comma-de limited li st of reco rds to tri gger messa ges for
  4636   "RTN","DGM XCONV",147 ,0)
  4637    ;
  4638   "RTN","DGM XCONV",148 ,0)
  4639    N LENGTH, IND,DFN,VA L,STATUS
  4640   "RTN","DGM XCONV",149 ,0)
  4641    I ($G(TYP E)="")!($G (LIST)="")  Q
  4642   "RTN","DGM XCONV",150 ,0)
  4643    S LENGTH= $L(LIST,", ")
  4644   "RTN","DGM XCONV",151 ,0)
  4645    I LENGTH< 1 Q
  4646   "RTN","DGM XCONV",152 ,0)
  4647    I TYPE="P AT" F IND= 1:1:LENGTH  D TRIGGER ^DGMXADT($ P(LIST,"," ,IND),"UPD ATE")  ; P atient
  4648   "RTN","DGM XCONV",153 ,0)
  4649    I TYPE="P RF" F IND= 1:1:LENGTH  D TRIGPRF ^DGMXORU($ P(LIST,"," ,IND))            ; P atient Rec ord Flag
  4650   "RTN","DGM XCONV",154 ,0)
  4651    I TYPE="B AD" D                                                                    ; B ad Address  Indicator
  4652   "RTN","DGM XCONV",155 ,0)
  4653    . F IND=1 :1:LENGTH  D
  4654   "RTN","DGM XCONV",156 ,0)
  4655    . . S DFN =$P(LIST," ,",IND)
  4656   "RTN","DGM XCONV",157 ,0)
  4657    . . S VAL =$$GET1^DI Q(2,DFN,.1 21)
  4658   "RTN","DGM XCONV",158 ,0)
  4659    . . I VAL '="" S STA TUS="ACTIV E"
  4660   "RTN","DGM XCONV",159 ,0)
  4661    . . E  S  STATUS="IN ACTIVE"
  4662   "RTN","DGM XCONV",160 ,0)
  4663    . . D TRI GBAD^DGMXO RU(DFN,STA TUS) Q
  4664   "RTN","DGM XCONV",161 ,0)
  4665    I TYPE="S EN" D                                                                ; Patie nt Sensiti vity Flag
  4666   "RTN","DGM XCONV",162 ,0)
  4667    . F IND=1 :1:LENGTH  D
  4668   "RTN","DGM XCONV",163 ,0)
  4669    . . S DFN =$P(LIST," ,",IND)
  4670   "RTN","DGM XCONV",164 ,0)
  4671    . . D TRI GSEN^DGMXO RU(DFN,$$G ET1^DIQ(38 .1,DFN,2," I"))
  4672   "RTN","DGM XCONV",165 ,0)
  4673    I TYPE="V ER" F IND= 1:1:LENGTH  D TRIGVER ^DGMXORU($ P(LIST,"," ,IND))        ; Demog raphics Ve rification  Date
  4674   "RTN","DGM XCONV",166 ,0)
  4675    W !,"Mess ages Trigg ered: "_LE NGTH
  4676   "RTN","DGM XCONV",167 ,0)
  4677    Q
  4678   "RTN","DGM XCONV",168 ,0)
  4679   GETNUMR(TY PE) ; Esti mate the n umber of r ecords tha t will be  searched
  4680   "RTN","DGM XCONV",169 ,0)
  4681    ;   TYPE  - Specifie s the type  of conver sion to ex ecute
  4682   "RTN","DGM XCONV",170 ,0)
  4683    ;
  4684   "RTN","DGM XCONV",171 ,0)
  4685    I $G(TYPE )="" Q
  4686   "RTN","DGM XCONV",172 ,0)
  4687    I TYPE="P AT" Q $P($ G(^DPT(0)) ,"^",4)
  4688   "RTN","DGM XCONV",173 ,0)
  4689    I TYPE="P RF" Q $P($ G(^DGPF(26 .13,0)),"^ ",4)
  4690   "RTN","DGM XCONV",174 ,0)
  4691    I TYPE="B AD" Q $P($ G(^DPT(0)) ,"^",4)
  4692   "RTN","DGM XCONV",175 ,0)
  4693    I TYPE="S EN" Q $P($ G(^DGSL(38 .1,0)),"^" ,4)
  4694   "RTN","DGM XCONV",176 ,0)
  4695    I TYPE="V ER" Q $P($ G(^DGS(41. 41,0)),"^" ,4)
  4696   "RTN","DGM XCONV",177 ,0)
  4697    Q ""
  4698   "RTN","DGM XCONV",178 ,0)
  4699   GETDIC(TYP E,DIC) ; G et the Dic tionary va lues for t he prompt
  4700   "RTN","DGM XCONV",179 ,0)
  4701    ;   TYPE  - Specifie s the type  of conver sion to ex ecute
  4702   "RTN","DGM XCONV",180 ,0)
  4703    ;   DIC -  Dictionar y variable  needed fo r menu pro mpt
  4704   "RTN","DGM XCONV",181 ,0)
  4705    ;
  4706   "RTN","DGM XCONV",182 ,0)
  4707    I $G(TYPE )="" Q
  4708   "RTN","DGM XCONV",183 ,0)
  4709    I TYPE="P AT" S DIC= 2,DIC(0)=" QEAMIZ",DI C("A")="Se lect PATIE NT: "
  4710   "RTN","DGM XCONV",184 ,0)
  4711    I TYPE="P RF" S DIC= 26.13,DIC( 0)="QEAMIZ ",DIC("A") ="Select P RF ASSIGNM ENT: "
  4712   "RTN","DGM XCONV",185 ,0)
  4713    I TYPE="B AD" S DIC= 2,DIC(0)=" QEAMIZ",DI C("A")="Se lect PATIE NT: "
  4714   "RTN","DGM XCONV",186 ,0)
  4715    I TYPE="S EN" S DIC= 38.1,DIC(0 )="QEAMIZ" ,DIC("A")= "Select DG  SECURITY  LOG: "
  4716   "RTN","DGM XCONV",187 ,0)
  4717    I TYPE="V ER" S DIC= 41.41,DIC( 0)="QEAMIZ ",DIC("A") ="Select P RE-REGISTR ATION AUDI T: "
  4718   "RTN","DGM XCONV",188 ,0)
  4719    Q
  4720   "RTN","DGM XHL7")
  4721   0^5^B28578 7963
  4722   "RTN","DGM XHL7",1,0)
  4723   DGMXHL7 ;  MASS/DXL -  HL7 Segme nt Build C ode;8/22/1 7
  4724   "RTN","DGM XHL7",2,0)
  4725    ;;5.3;Reg istration; **948**;AU GUST 17,20 17;Build 6 6
  4726   "RTN","DGM XHL7",3,0)
  4727    ;Per VA D IRECTIVE 6 402, this  routine sh ould not b e modified .
  4728   "RTN","DGM XHL7",4,0)
  4729    ;
  4730   "RTN","DGM XHL7",5,0)
  4731    ;  ICR# S upported R eferences
  4732   "RTN","DGM XHL7",6,0)
  4733    ;  2056 $ $GET1^DIQ
  4734   "RTN","DGM XHL7",7,0)
  4735    ;  2056 $ $GETS^DIQ
  4736   "RTN","DGM XHL7",8,0)
  4737    ;  2263 $ $GET^XPAR
  4738   "RTN","DGM XHL7",9,0)
  4739    ;  2701 $ $GETICN^MP IF001
  4740   "RTN","DGM XHL7",10,0 )
  4741    ;  3065 S TDNAME^XLF NAME
  4742   "RTN","DGM XHL7",11,0 )
  4743    ;  4716 $ $ADDSEG^HL OAPI
  4744   "RTN","DGM XHL7",12,0 )
  4745    ;  4716 S ET^HLOAPI
  4746   "RTN","DGM XHL7",13,0 )
  4747    ;  4853 S ETAD^HLOAP I4
  4748   "RTN","DGM XHL7",14,0 )
  4749    ;  4853 S ETDT^HLOAP I4
  4750   "RTN","DGM XHL7",15,0 )
  4751    ;  4853 S ETXPN^HLOA PI4
  4752   "RTN","DGM XHL7",16,0 )
  4753    ; 10061 A DD^VADPT   Patient Ad dress
  4754   "RTN","DGM XHL7",17,0 )
  4755    ; 10061 D EM^VADPT   Patient De mographics
  4756   "RTN","DGM XHL7",18,0 )
  4757    ; 10061 E LIG^VADPT  Patient El igibility
  4758   "RTN","DGM XHL7",19,0 )
  4759    ;       E SCINVLD^SD MXCORE
  4760   "RTN","DGM XHL7",20,0 )
  4761    ; 3065  $ $NAMEFMT^X LFNAME1
  4762   "RTN","DGM XHL7",21,0 )
  4763    ;       $ $VA2HL7TS^ SDMXCORE
  4764   "RTN","DGM XHL7",22,0 )
  4765    ;       $ $FMTPHONE^ SDMXCORE
  4766   "RTN","DGM XHL7",23,0 )
  4767    ; 10035 ^ DPT
  4768   "RTN","DGM XHL7",24,0 )
  4769    ;
  4770   "RTN","DGM XHL7",25,0 )
  4771    Q
  4772   "RTN","DGM XHL7",26,0 )
  4773   PID(DFN,SE Q,SEG) ; B uilds a PI D segment
  4774   "RTN","DGM XHL7",27,0 )
  4775    ;  DFN -  Pat ID (IE N)
  4776   "RTN","DGM XHL7",28,0 )
  4777    ;  SEQ -  Seg index
  4778   "RTN","DGM XHL7",29,0 )
  4779    ;  SEG -  Seg output
  4780   "RTN","DGM XHL7",30,0 )
  4781    ;
  4782   "RTN","DGM XHL7",31,0 )
  4783    I $G(SEQ) ="" S SEQ= 1
  4784   "RTN","DGM XHL7",32,0 )
  4785    K SEG S S EG=""
  4786   "RTN","DGM XHL7",33,0 )
  4787    I $G(DFN) ="" Q
  4788   "RTN","DGM XHL7",34,0 )
  4789    ;
  4790   "RTN","DGM XHL7",35,0 )
  4791    ; Get Pat ient Demog raphics
  4792   "RTN","DGM XHL7",36,0 )
  4793    N NAME,DO B,SSN,ICN, ADDRESS
  4794   "RTN","DGM XHL7",37,0 )
  4795    N SEX,ALI AS,TEMPADD R,CONFADDR ,HPHONE,WP HONE,TPHON E,DOD,EMAI L,HPEXT,WP EXT,TPEXT, DIND,CPHON E,CPEXT,MP HONE
  4796   "RTN","DGM XHL7",38,0 )
  4797    D GETDEMO G(DFN,.NAM E,.DOB,.SS N,.SEX,.IC N,.DOD,.AL IAS,.DIND)
  4798   "RTN","DGM XHL7",39,0 )
  4799    D GETADDR (DFN,.ADDR ESS,.CONFA DDR,.TEMPA DDR)
  4800   "RTN","DGM XHL7",40,0 )
  4801    D GETTELE (DFN,.HPHO NE,.HPEXT, .WPHONE,.W PEXT,.TPHO NE,.TPEXT, .EMAIL,.CP HONE,.CPEX T,.MPHONE)
  4802   "RTN","DGM XHL7",41,0 )
  4803    I $G(TEMP ADDR("ACTI VE"))=0 S  (TPHONE,TP EXT)="" D  SET1NULL(. TPHONE),SE T1NULL(.TP EXT)
  4804   "RTN","DGM XHL7",42,0 )
  4805    I $G(CONF ADDR("ACTI VE"))=0 S  (CPHONE,CP EXT)="" D  SET1NULL(. CPHONE),SE T1NULL(.CP EXT)
  4806   "RTN","DGM XHL7",43,0 )
  4807    ;
  4808   "RTN","DGM XHL7",44,0 )
  4809    ; Sanitiz e Variable s
  4810   "RTN","DGM XHL7",45,0 )
  4811    S HPHONE= $G(HPHONE) ,WPHONE=$G (WPHONE),T PHONE=$G(T PHONE),CPH ONE=$G(CPH ONE),MPHON E=$G(MPHON E)
  4812   "RTN","DGM XHL7",46,0 )
  4813    S HPEXT=$ G(HPEXT),W PEXT=$G(WP EXT),TPEXT =$G(TPEXT) ,CPEXT=$G( CPEXT)
  4814   "RTN","DGM XHL7",47,0 )
  4815    S ICN=$G( ICN),SEX=$ G(SEX),ALI AS=$G(ALIA S),SSN=$G( SSN),DOD=$ G(DOD)
  4816   "RTN","DGM XHL7",48,0 )
  4817    ;
  4818   "RTN","DGM XHL7",49,0 )
  4819    ; Build S egment
  4820   "RTN","DGM XHL7",50,0 )
  4821    D SET^HLO API(.SEG," PID",0)
  4822   "RTN","DGM XHL7",51,0 )
  4823    D SET^HLO API(.SEG,S EQ,1)
  4824   "RTN","DGM XHL7",52,0 )
  4825    D BLDPID3 (.SEG,ICN, DFN,3)                             ; Identi fiers
  4826   "RTN","DGM XHL7",53,0 )
  4827    D SETXPN^ HLOAPI4(.S EG,.NAME,5 )                       ; Name
  4828   "RTN","DGM XHL7",54,0 )
  4829    D SETDT^H LOAPI4(.SE G,DOB,7)                           ; Date o f Birth
  4830   "RTN","DGM XHL7",55,0 )
  4831    D SET^HLO API(.SEG,S EX,8)                              ; Gender
  4832   "RTN","DGM XHL7",56,0 )
  4833    D BLDPID9 (.SEG,ALIA S,9)                               ; Aliase s
  4834   "RTN","DGM XHL7",57,0 )
  4835    D BLDPID1 1(.SEG,.AD DRESS,.CON FADDR,.TEM PADDR,11)    ; Addres s
  4836   "RTN","DGM XHL7",58,0 )
  4837    D BLDPID1 3(.SEG,HPH ONE,HPEXT, EMAIL,TPHO NE,TPEXT,C PHONE,CPEX T,MPHONE,1 3)    ; Ph one/Email
  4838   "RTN","DGM XHL7",59,0 )
  4839    D BLDPID1 4(.SEG,WPH ONE,WPEXT, 14)                     ; Work P hone
  4840   "RTN","DGM XHL7",60,0 )
  4841    D SET^HLO API(.SEG,S SN,19)                             ; SSN
  4842   "RTN","DGM XHL7",61,0 )
  4843    D SETDT^H LOAPI4(.SE G,DOD,29)                          ; Date o f Death
  4844   "RTN","DGM XHL7",62,0 )
  4845    D SET^HLO API(.SEG,D IND,30)                            ; Death  Indicator
  4846   "RTN","DGM XHL7",63,0 )
  4847    Q
  4848   "RTN","DGM XHL7",64,0 )
  4849   PV1(DFN,SE Q,SEG) ; B uilds a PV 1 segment
  4850   "RTN","DGM XHL7",65,0 )
  4851    ;  DFN -  Pat ID (IE N)
  4852   "RTN","DGM XHL7",66,0 )
  4853    ;  SEQ -  Seg index
  4854   "RTN","DGM XHL7",67,0 )
  4855    ;  SEG -  Seg output
  4856   "RTN","DGM XHL7",68,0 )
  4857    ;
  4858   "RTN","DGM XHL7",69,0 )
  4859    I $G(SEQ) ="" S SEQ= 1
  4860   "RTN","DGM XHL7",70,0 )
  4861    K SEG S S EG=""
  4862   "RTN","DGM XHL7",71,0 )
  4863    I $G(DFN) ="" Q
  4864   "RTN","DGM XHL7",72,0 )
  4865    ;
  4866   "RTN","DGM XHL7",73,0 )
  4867    ; Get Pat ient Type
  4868   "RTN","DGM XHL7",74,0 )
  4869    N PTYPE
  4870   "RTN","DGM XHL7",75,0 )
  4871    S PTYPE=$ $GET1^DIQ( 2,DFN,391)
  4872   "RTN","DGM XHL7",76,0 )
  4873    ;
  4874   "RTN","DGM XHL7",77,0 )
  4875    ; Build S egment
  4876   "RTN","DGM XHL7",78,0 )
  4877    I $G(PTYP E)="" Q
  4878   "RTN","DGM XHL7",79,0 )
  4879    D SET^HLO API(.SEG," PV1",0)
  4880   "RTN","DGM XHL7",80,0 )
  4881    D SET^HLO API(.SEG,S EQ,1)
  4882   "RTN","DGM XHL7",81,0 )
  4883    D SET^HLO API(.SEG,P TYPE,18) ;  Patient t ype
  4884   "RTN","DGM XHL7",82,0 )
  4885    Q
  4886   "RTN","DGM XHL7",83,0 )
  4887   MRG(DFN,SE G) ; Build s an MRG s egment
  4888   "RTN","DGM XHL7",84,0 )
  4889    ;  DFN -  Pat ID (IE N) - Sourc e patient
  4890   "RTN","DGM XHL7",85,0 )
  4891    ;  SEG -  Seg output
  4892   "RTN","DGM XHL7",86,0 )
  4893    ;
  4894   "RTN","DGM XHL7",87,0 )
  4895    K SEG S S EG=""
  4896   "RTN","DGM XHL7",88,0 )
  4897    I $G(DFN) ="" Q
  4898   "RTN","DGM XHL7",89,0 )
  4899    ;
  4900   "RTN","DGM XHL7",90,0 )
  4901    ; Build S egment
  4902   "RTN","DGM XHL7",91,0 )
  4903    D SET^HLO API(.SEG," MRG",0)
  4904   "RTN","DGM XHL7",92,0 )
  4905    D BLDPID3 (.SEG,-1,D FN,1)         ; Old P atient ID
  4906   "RTN","DGM XHL7",93,0 )
  4907    Q
  4908   "RTN","DGM XHL7",94,0 )
  4909   OBR(SEQ,SE G,SUMMARY)  ; Builds  an OBR seg ment
  4910   "RTN","DGM XHL7",95,0 )
  4911    ;  SEQ -  Seg index
  4912   "RTN","DGM XHL7",96,0 )
  4913    ;  SEG -  Seg output
  4914   "RTN","DGM XHL7",97,0 )
  4915    ;  SUMMAR Y - Name o f the flag
  4916   "RTN","DGM XHL7",98,0 )
  4917    ;
  4918   "RTN","DGM XHL7",99,0 )
  4919    I $G(SEQ) ="" S SEQ= 1
  4920   "RTN","DGM XHL7",100, 0)
  4921    K SEG S S EG=""
  4922   "RTN","DGM XHL7",101, 0)
  4923    ;
  4924   "RTN","DGM XHL7",102, 0)
  4925    I $G(SUMM ARY)="" Q
  4926   "RTN","DGM XHL7",103, 0)
  4927    D SET^HLO API(.SEG," OBR",0)
  4928   "RTN","DGM XHL7",104, 0)
  4929    D SET^HLO API(.SEG,S EQ,1)
  4930   "RTN","DGM XHL7",105, 0)
  4931    D SET^HLO API(.SEG,$ G(SUMMARY) ,4)    ; F lag Name
  4932   "RTN","DGM XHL7",106, 0)
  4933    Q
  4934   "RTN","DGM XHL7",107, 0)
  4935   OBX(SEQ,SE G,TYPE,TEX T) ; Build s an OBX s egment
  4936   "RTN","DGM XHL7",108, 0)
  4937    ;  SEQ -  Seg index
  4938   "RTN","DGM XHL7",109, 0)
  4939    ;  SEG -  Seg output
  4940   "RTN","DGM XHL7",110, 0)
  4941    ;  TYPE -  Obs type
  4942   "RTN","DGM XHL7",111, 0)
  4943    ;  TEXT -  Obs value
  4944   "RTN","DGM XHL7",112, 0)
  4945    ;
  4946   "RTN","DGM XHL7",113, 0)
  4947    I $G(SEQ) ="" S SEQ= 1
  4948   "RTN","DGM XHL7",114, 0)
  4949    K SEG S S EG=""
  4950   "RTN","DGM XHL7",115, 0)
  4951    ;
  4952   "RTN","DGM XHL7",116, 0)
  4953    ; Get Obs ervation T ypes
  4954   "RTN","DGM XHL7",117, 0)
  4955    N VALTYPE
  4956   "RTN","DGM XHL7",118, 0)
  4957    S TYPE=$G (TYPE)
  4958   "RTN","DGM XHL7",119, 0)
  4959    S VALTYPE =$S(TYPE=" NARRATIVE" :"TX",TYPE ="STATUS": "ST",1:TYP E)
  4960   "RTN","DGM XHL7",120, 0)
  4961    ;
  4962   "RTN","DGM XHL7",121, 0)
  4963    I $G(TEXT )="" Q
  4964   "RTN","DGM XHL7",122, 0)
  4965    D SET^HLO API(.SEG," OBX",0)
  4966   "RTN","DGM XHL7",123, 0)
  4967    D SET^HLO API(.SEG,S EQ,1)
  4968   "RTN","DGM XHL7",124, 0)
  4969    D SET^HLO API(.SEG,$ G(VALTYPE) ,2)    ; V al Type
  4970   "RTN","DGM XHL7",125, 0)
  4971    D SET^HLO API(.SEG,$ G(TYPE),3)        ; O bs Type
  4972   "RTN","DGM XHL7",126, 0)
  4973    D SET^HLO API(.SEG,$ G(TEXT),5)        ; O bs Value
  4974   "RTN","DGM XHL7",127, 0)
  4975    Q
  4976   "RTN","DGM XHL7",128, 0)
  4977   ZCT(DFN,SE Q,SEG) ; B uilds a ZC T segment
  4978   "RTN","DGM XHL7",129, 0)
  4979    ;  DFN -  Pat ID (IE N)
  4980   "RTN","DGM XHL7",130, 0)
  4981    ;  SEQ -  Seg index
  4982   "RTN","DGM XHL7",131, 0)
  4983    ;  SEG -  Seg output
  4984   "RTN","DGM XHL7",132, 0)
  4985    ;
  4986   "RTN","DGM XHL7",133, 0)
  4987    I $G(SEQ) ="" S SEQ= 1
  4988   "RTN","DGM XHL7",134, 0)
  4989    K SEG S S EG=""
  4990   "RTN","DGM XHL7",135, 0)
  4991    I $G(DFN) ="" Q
  4992   "RTN","DGM XHL7",136, 0)
  4993    ;
  4994   "RTN","DGM XHL7",137, 0)
  4995    ; Get Eme rgency Con tact Info
  4996   "RTN","DGM XHL7",138, 0)
  4997    N ENAME,E REL,EADDR, EPHONE
  4998   "RTN","DGM XHL7",139, 0)
  4999    S (ENAME, EREL,EADDR ,EPHONE)=" "
  5000   "RTN","DGM XHL7",140, 0)
  5001    D GETEINF O(DFN,.ENA ME,.EREL,. EADDR,.EPH ONE)
  5002   "RTN","DGM XHL7",141, 0)
  5003    ;
  5004   "RTN","DGM XHL7",142, 0)
  5005    ; Build S egment
  5006   "RTN","DGM XHL7",143, 0)
  5007    I $G(ENAM E)="",$G(E REL)="",'$ $HASADDR(. EADDR),$G( EPHONE)=""  Q
  5008   "RTN","DGM XHL7",144, 0)
  5009    D SET^HLO API(.SEG," ZCT",0)
  5010   "RTN","DGM XHL7",145, 0)
  5011    D SET^HLO API(.SEG,S EQ,1)
  5012   "RTN","DGM XHL7",146, 0)
  5013    D SETXPN^ HLOAPI4(.S EG,.ENAME, 3)  ; Name
  5014   "RTN","DGM XHL7",147, 0)
  5015    D SET^HLO API(.SEG,$ G(EREL),4)     ; Rela tion
  5016   "RTN","DGM XHL7",148, 0)
  5017    D SETAD^H LOAPI4(.SE G,.EADDR,5 )   ; Addr ess
  5018   "RTN","DGM XHL7",149, 0)
  5019    D SET^HLO API(.SEG,$ G(EPHONE), 6)  ; Phon e
  5020   "RTN","DGM XHL7",150, 0)
  5021    Q
  5022   "RTN","DGM XHL7",151, 0)
  5023   ZEL(SEQ,SE G,ELIGCODE ,ELIGSTAT, COMBSTAT,C OMBDATE) ;  Builds a  ZEL segmen t
  5024   "RTN","DGM XHL7",152, 0)
  5025    ;  SEQ       - Seg i ndex
  5026   "RTN","DGM XHL7",153, 0)
  5027    ;  SEG       - Seg o utput
  5028   "RTN","DGM XHL7",154, 0)
  5029    ;  ELIGCO DE - Eligi bility cod e (File 8)
  5030   "RTN","DGM XHL7",155, 0)
  5031    ;  ELIGST AT - Eligi bility sta tus
  5032   "RTN","DGM XHL7",156, 0)
  5033    ;  COMBST AT - Comba t service  indicated?
  5034   "RTN","DGM XHL7",157, 0)
  5035    ;  COMBDA TE - Comba t veteran  end date
  5036   "RTN","DGM XHL7",158, 0)
  5037    ;
  5038   "RTN","DGM XHL7",159, 0)
  5039    I $G(SEQ) ="" S SEQ= 1
  5040   "RTN","DGM XHL7",160, 0)
  5041    K SEG S S EG=""
  5042   "RTN","DGM XHL7",161, 0)
  5043    ;
  5044   "RTN","DGM XHL7",162, 0)
  5045    ; Build S egment
  5046   "RTN","DGM XHL7",163, 0)
  5047    I $G(ELIG CODE)="",$ G(COMBSTAT )="" Q
  5048   "RTN","DGM XHL7",164, 0)
  5049    D SET^HLO API(.SEG," ZEL",0)
  5050   "RTN","DGM XHL7",165, 0)
  5051    D SET^HLO API(.SEG,S EQ,1)
  5052   "RTN","DGM XHL7",166, 0)
  5053    I $G(ELIG CODE)'=""  D SET^HLOA PI(.SEG,$G (ELIGCODE) ,2)    ; E lig Code
  5054   "RTN","DGM XHL7",167, 0)
  5055    I $G(ELIG STAT)'=""  D SET^HLOA PI(.SEG,$G (ELIGSTAT) ,10)   ; E lig Status
  5056   "RTN","DGM XHL7",168, 0)
  5057    I $G(COMB STAT)'=""  D SET^HLOA PI(.SEG,$G (COMBSTAT) ,37)   ; C ombat Elig  Indicator
  5058   "RTN","DGM XHL7",169, 0)
  5059    I $G(COMB DATE)'=""  D SET^HLOA PI(.SEG,$G (COMBDATE) ,38)   ; C ombat Elig  End Date
  5060   "RTN","DGM XHL7",170, 0)
  5061    Q
  5062   "RTN","DGM XHL7",171, 0)
  5063   ZEN(ENR,SE Q,SEG) ; B uilds a ZE N segment
  5064   "RTN","DGM XHL7",172, 0)
  5065    ;  ENR -  Enrollment  (File 27. 11)
  5066   "RTN","DGM XHL7",173, 0)
  5067    ;  SEQ -  Seg index
  5068   "RTN","DGM XHL7",174, 0)
  5069    ;  SEG -  Seg output
  5070   "RTN","DGM XHL7",175, 0)
  5071    ;
  5072   "RTN","DGM XHL7",176, 0)
  5073    I $G(SEQ) ="" S SEQ= 1
  5074   "RTN","DGM XHL7",177, 0)
  5075    K SEG S S EG=""
  5076   "RTN","DGM XHL7",178, 0)
  5077    ;
  5078   "RTN","DGM XHL7",179, 0)
  5079    I $G(ENR) ="" Q
  5080   "RTN","DGM XHL7",180, 0)
  5081    ; Get Enr ollment In formation
  5082   "RTN","DGM XHL7",181, 0)
  5083    N ENSTATU S,ENPRIORI ,ENSUBGRP
  5084   "RTN","DGM XHL7",182, 0)
  5085    D GETENR( ENR,.ENSTA TUS,.ENPRI ORI,.ENSUB GRP)
  5086   "RTN","DGM XHL7",183, 0)
  5087    ;
  5088   "RTN","DGM XHL7",184, 0)
  5089    ; Build S egment
  5090   "RTN","DGM XHL7",185, 0)
  5091    I $G(ENST ATUS)="",$ G(ENPRIORI )="",$G(EN SUBGRP)=""  Q
  5092   "RTN","DGM XHL7",186, 0)
  5093    D SET^HLO API(.SEG," ZEN",0)
  5094   "RTN","DGM XHL7",187, 0)
  5095    D SET^HLO API(.SEG,S EQ,1)
  5096   "RTN","DGM XHL7",188, 0)
  5097    D SET^HLO API(.SEG,$ G(ENSTATUS ),4)   ; S tatus
  5098   "RTN","DGM XHL7",189, 0)
  5099    D SET^HLO API(.SEG,$ G(ENPRIORI ),9)   ; P riority
  5100   "RTN","DGM XHL7",190, 0)
  5101    D SET^HLO API(.SEG,$ G(ENSUBGRP ),13)  ; S ubgroup
  5102   "RTN","DGM XHL7",191, 0)
  5103    Q
  5104   "RTN","DGM XHL7",192, 0)
  5105   ZSP(DFN,SE Q,SEG) ; B uilds a ZS P segment  if Service  Connected
  5106   "RTN","DGM XHL7",193, 0)
  5107    ;  DFN -  Pat ID (IE N)
  5108   "RTN","DGM XHL7",194, 0)
  5109    ;  SEQ -  Seg index
  5110   "RTN","DGM XHL7",195, 0)
  5111    ;  SEG -  Seg output
  5112   "RTN","DGM XHL7",196, 0)
  5113    ;
  5114   "RTN","DGM XHL7",197, 0)
  5115    I $G(SEQ) ="" S SEQ= 1
  5116   "RTN","DGM XHL7",198, 0)
  5117    K SEG S S EG=""
  5118   "RTN","DGM XHL7",199, 0)
  5119    I $G(DFN) ="" Q
  5120   "RTN","DGM XHL7",200, 0)
  5121    ;
  5122   "RTN","DGM XHL7",201, 0)
  5123    ; Get Ser vice Conne cted Infor mation
  5124   "RTN","DGM XHL7",202, 0)
  5125    N ISSERCO N,SERCONPC ,DENTCLAS
  5126   "RTN","DGM XHL7",203, 0)
  5127    S (ISSERC ON,SERCONP C,DENTCLAS )=""
  5128   "RTN","DGM XHL7",204, 0)
  5129    D GETSERV C(DFN,.ISS ERCON,.SER CONPC,.DEN TCLAS)
  5130   "RTN","DGM XHL7",205, 0)
  5131    ;
  5132   "RTN","DGM XHL7",206, 0)
  5133    ; Build S egment
  5134   "RTN","DGM XHL7",207, 0)
  5135    I $G(ISSE RCON)="",$ G(SERCONPC )="",$G(DE NTCLAS)=""  Q
  5136   "RTN","DGM XHL7",208, 0)
  5137    D SET^HLO API(.SEG," ZSP",0)
  5138   "RTN","DGM XHL7",209, 0)
  5139    D SET^HLO API(.SEG,S EQ,1)
  5140   "RTN","DGM XHL7",210, 0)
  5141    D SET^HLO API(.SEG,$ G(ISSERCON ),2)   ; S ervice Con nected?
  5142   "RTN","DGM XHL7",211, 0)
  5143    D SET^HLO API(.SEG,$ G(SERCONPC ),3)   ; P ercentage
  5144   "RTN","DGM XHL7",212, 0)
  5145    D SET^HLO API(.SEG,$ G(DENTCLAS ),12)  ; D ental Clas sification
  5146   "RTN","DGM XHL7",213, 0)
  5147    Q
  5148   "RTN","DGM XHL7",214, 0)
  5149   NTE(DFN,SE Q,SEG) ; B uilds an N TE Segment
  5150   "RTN","DGM XHL7",215, 0)
  5151    ;  DFN -  Pat ID (IE N)
  5152   "RTN","DGM XHL7",216, 0)
  5153    ;  SEQ -  Seg index
  5154   "RTN","DGM XHL7",217, 0)
  5155    ;  SEG -  Seg output
  5156   "RTN","DGM XHL7",218, 0)
  5157    ;
  5158   "RTN","DGM XHL7",219, 0)
  5159    I $G(SEQ) ="" S SEQ= 1
  5160   "RTN","DGM XHL7",220, 0)
  5161    K SEG S S EG=""
  5162   "RTN","DGM XHL7",221, 0)
  5163    I $G(DFN) ="" Q
  5164   "RTN","DGM XHL7",222, 0)
  5165    ;
  5166   "RTN","DGM XHL7",223, 0)
  5167    ; Get Sel f Identifi ed Gender
  5168   "RTN","DGM XHL7",224, 0)
  5169    N SIGENDE R
  5170   "RTN","DGM XHL7",225, 0)
  5171    S SIGENDE R=$$GET1^D IQ(2,DFN,. 024,"I")
  5172   "RTN","DGM XHL7",226, 0)
  5173    ;
  5174   "RTN","DGM XHL7",227, 0)
  5175    ; Build S egment
  5176   "RTN","DGM XHL7",228, 0)
  5177    I $G(SIGE NDER)="" Q
  5178   "RTN","DGM XHL7",229, 0)
  5179    D SET^HLO API(.SEG," NTE",0)
  5180   "RTN","DGM XHL7",230, 0)
  5181    D SET^HLO API(.SEG,S EQ,1)
  5182   "RTN","DGM XHL7",231, 0)
  5183    D SET^HLO API(.SEG,$ G(SIGENDER ),3)   ; V alue
  5184   "RTN","DGM XHL7",232, 0)
  5185    D SET^HLO API(.SEG," RE",4)            ; R emark
  5186   "RTN","DGM XHL7",233, 0)
  5187    Q
  5188   "RTN","DGM XHL7",234, 0)
  5189   BLDPID3(SE G,ICN,DFN, FIELD) ; B uilds pati ent identi fier list
  5190   "RTN","DGM XHL7",235, 0)
  5191    ;  SEG    - Seg outp ut
  5192   "RTN","DGM XHL7",236, 0)
  5193    ;  ICN    - Integrat ion Contro l Number
  5194   "RTN","DGM XHL7",237, 0)
  5195    ;  DFN    - Pat ID ( IEN)
  5196   "RTN","DGM XHL7",238, 0)
  5197    ;  FIELD  - Field In dex
  5198   "RTN","DGM XHL7",239, 0)
  5199    ;
  5200   "RTN","DGM XHL7",240, 0)
  5201    ; IEN
  5202   "RTN","DGM XHL7",241, 0)
  5203    N ASSIGNI NG
  5204   "RTN","DGM XHL7",242, 0)
  5205    S ASSIGNI NG=$$GET^X PAR("SYS", "DGMX PATI ENT IEN AS SIGNING")
  5206   "RTN","DGM XHL7",243, 0)
  5207    I $G(ASSI GNING)=""  S ASSIGNIN G="USVHA"
  5208   "RTN","DGM XHL7",244, 0)
  5209    D SET^HLO API(.SEG,$ G(DFN),$G( FIELD),1,1 ,1)
  5210   "RTN","DGM XHL7",245, 0)
  5211    D SET^HLO API(.SEG,$ G(ASSIGNIN G),$G(FIEL D),4,1,1)
  5212   "RTN","DGM XHL7",246, 0)
  5213    D SET^HLO API(.SEG," IEN",$G(FI ELD),5,1,1 )
  5214   "RTN","DGM XHL7",247, 0)
  5215    ;
  5216   "RTN","DGM XHL7",248, 0)
  5217    ; ICN
  5218   "RTN","DGM XHL7",249, 0)
  5219    I $P($G(I CN),"^",1) =-1 Q
  5220   "RTN","DGM XHL7",250, 0)
  5221    D SET^HLO API(.SEG,$ G(ICN),$G( FIELD),1,1 ,2)
  5222   "RTN","DGM XHL7",251, 0)
  5223    D SET^HLO API(.SEG," USVHA",$G( FIELD),4,1 ,2)
  5224   "RTN","DGM XHL7",252, 0)
  5225    D SET^HLO API(.SEG," NI",$G(FIE LD),5,1,2)
  5226   "RTN","DGM XHL7",253, 0)
  5227    Q
  5228   "RTN","DGM XHL7",254, 0)
  5229   BLDPID9(SE G,ALIAS,FI ELD) ; Bui lds patien t aliases
  5230   "RTN","DGM XHL7",255, 0)
  5231    ;  SEG    - Seg outp ut
  5232   "RTN","DGM XHL7",256, 0)
  5233    ;  ALIAS  - "^" deli mited list  of aliase s
  5234   "RTN","DGM XHL7",257, 0)
  5235    ;  FIELD  - Field In dex
  5236   "RTN","DGM XHL7",258, 0)
  5237    ;
  5238   "RTN","DGM XHL7",259, 0)
  5239    N REP,LEN ,IND,VAL
  5240   "RTN","DGM XHL7",260, 0)
  5241    S (REP,LE N,IND,VAL) =""
  5242   "RTN","DGM XHL7",261, 0)
  5243    S REP=1
  5244   "RTN","DGM XHL7",262, 0)
  5245    S LEN=$L( $G(ALIAS), "^")
  5246   "RTN","DGM XHL7",263, 0)
  5247    ;
  5248   "RTN","DGM XHL7",264, 0)
  5249    F IND=1:1 :LEN D
  5250   "RTN","DGM XHL7",265, 0)
  5251    . S VAL=$ P($G(ALIAS ),"^",IND)
  5252   "RTN","DGM XHL7",266, 0)
  5253    . I VAL=" NONE" Q
  5254   "RTN","DGM XHL7",267, 0)
  5255    . D STDNA ME^XLFNAME (.VAL,"C")
  5256   "RTN","DGM XHL7",268, 0)
  5257    . D SETXP N^HLOAPI4( .SEG,.VAL, FIELD,"",R EP)
  5258   "RTN","DGM XHL7",269, 0)
  5259    . S REP=R EP+1
  5260   "RTN","DGM XHL7",270, 0)
  5261    Q
  5262   "RTN","DGM XHL7",271, 0)
  5263   BLDPID11(S EG,PERMADD R,CONFADDR ,TEMPADDR, FIELD) ; B uilds pati ent addres ses
  5264   "RTN","DGM XHL7",272, 0)
  5265    ;  SEG       - Seg o utput
  5266   "RTN","DGM XHL7",273, 0)
  5267    ;  PERMAD DR - Perma nent addre ss
  5268   "RTN","DGM XHL7",274, 0)
  5269    ;  CONFAD DR - Confi dential ad dress
  5270   "RTN","DGM XHL7",275, 0)
  5271    ;  TEMPAD DR - Temp  address
  5272   "RTN","DGM XHL7",276, 0)
  5273    ;  FIELD     - Field  Index
  5274   "RTN","DGM XHL7",277, 0)
  5275    ;
  5276   "RTN","DGM XHL7",278, 0)
  5277    N REP
  5278   "RTN","DGM XHL7",279, 0)
  5279    S REP=1
  5280   "RTN","DGM XHL7",280, 0)
  5281    D SETAD^H LOAPI4(.SE G,.PERMADD R,FIELD,"" ,REP)
  5282   "RTN","DGM XHL7",281, 0)
  5283    S REP=2
  5284   "RTN","DGM XHL7",282, 0)
  5285    D SETAD^H LOAPI4(.SE G,.TEMPADD R,FIELD,"" ,REP)
  5286   "RTN","DGM XHL7",283, 0)
  5287    D SET^HLO API(.SEG,$ G(TEMPADDR ("STARTDT" )),FIELD,1 3,"",REP)
  5288   "RTN","DGM XHL7",284, 0)
  5289    D SET^HLO API(.SEG,$ G(TEMPADDR ("ENDDT")) ,FIELD,14, "",REP)
  5290   "RTN","DGM XHL7",285, 0)
  5291    S REP=3
  5292   "RTN","DGM XHL7",286, 0)
  5293    D SETAD^H LOAPI4(.SE G,.CONFADD R,FIELD,"" ,REP)
  5294   "RTN","DGM XHL7",287, 0)
  5295    D SET^HLO API(.SEG,$ G(CONFADDR ("STARTDT" )),FIELD,1 3,"",REP)
  5296   "RTN","DGM XHL7",288, 0)
  5297    D SET^HLO API(.SEG,$ G(CONFADDR ("ENDDT")) ,FIELD,14, "",REP)
  5298   "RTN","DGM XHL7",289, 0)
  5299    Q
  5300   "RTN","DGM XHL7",290, 0)
  5301   BLDPID13(S EG,HPHONE, HPEXT,EMAI L,TPHONE,T PEXT,CPHON E,CPEXT,MP HONE,FIELD ) ; Builds  patient t elecoms
  5302   "RTN","DGM XHL7",291, 0)
  5303    ;  SEG     - Seg out put
  5304   "RTN","DGM XHL7",292, 0)
  5305    ;  HPHONE  - Home
  5306   "RTN","DGM XHL7",293, 0)
  5307    ;  HPEXT   - Ext
  5308   "RTN","DGM XHL7",294, 0)
  5309    ;  EMAIL   - Email
  5310   "RTN","DGM XHL7",295, 0)
  5311    ;  TPHONE  - Tempora ry
  5312   "RTN","DGM XHL7",296, 0)
  5313    ;  TPEXT   - Ext
  5314   "RTN","DGM XHL7",297, 0)
  5315    ;  CPHONE  - Confide ntial
  5316   "RTN","DGM XHL7",298, 0)
  5317    ;  CPEXT   - Ext
  5318   "RTN","DGM XHL7",299, 0)
  5319    ;  MPHONE  - Mobile
  5320   "RTN","DGM XHL7",300, 0)
  5321    ;  FIELD   - Field I ndex
  5322   "RTN","DGM XHL7",301, 0)
  5323    ;
  5324   "RTN","DGM XHL7",302, 0)
  5325    N REP
  5326   "RTN","DGM XHL7",303, 0)
  5327    S REP=1
  5328   "RTN","DGM XHL7",304, 0)
  5329    D SET^HLO API(.SEG,H PHONE,FIEL D,1,"",REP )
  5330   "RTN","DGM XHL7",305, 0)
  5331    D SET^HLO API(.SEG," P",FIELD,2 ,"",REP)
  5332   "RTN","DGM XHL7",306, 0)
  5333    D SET^HLO API(.SEG,H PEXT,FIELD ,8,"",REP)
  5334   "RTN","DGM XHL7",307, 0)
  5335    D SET^HLO API(.SEG,E MAIL,FIELD ,4,"",REP)
  5336   "RTN","DGM XHL7",308, 0)
  5337    S REP=2
  5338   "RTN","DGM XHL7",309, 0)
  5339    D SET^HLO API(.SEG,T PHONE,FIEL D,1,"",REP )
  5340   "RTN","DGM XHL7",310, 0)
  5341    D SET^HLO API(.SEG," T",FIELD,2 ,"",REP)
  5342   "RTN","DGM XHL7",311, 0)
  5343    D SET^HLO API(.SEG,T PEXT,FIELD ,8,"",REP)
  5344   "RTN","DGM XHL7",312, 0)
  5345    S REP=3
  5346   "RTN","DGM XHL7",313, 0)
  5347    D SET^HLO API(.SEG,C PHONE,FIEL D,1,"",REP )
  5348   "RTN","DGM XHL7",314, 0)
  5349    D SET^HLO API(.SEG," C",FIELD,2 ,"",REP)
  5350   "RTN","DGM XHL7",315, 0)
  5351    D SET^HLO API(.SEG,T PEXT,FIELD ,8,"",REP)
  5352   "RTN","DGM XHL7",316, 0)
  5353    S REP=4
  5354   "RTN","DGM XHL7",317, 0)
  5355    D SET^HLO API(.SEG,M PHONE,FIEL D,1,"",REP )
  5356   "RTN","DGM XHL7",318, 0)
  5357    D SET^HLO API(.SEG," P",FIELD,2 ,"",REP)
  5358   "RTN","DGM XHL7",319, 0)
  5359    D SET^HLO API(.SEG," M",FIELD,3 ,"",REP)
  5360   "RTN","DGM XHL7",320, 0)
  5361    Q
  5362   "RTN","DGM XHL7",321, 0)
  5363   BLDPID14(S EG,WPHONE, WPEXT,FIEL D) ; Build s patient  work phone
  5364   "RTN","DGM XHL7",322, 0)
  5365    ;  SEG     - Seg out put
  5366   "RTN","DGM XHL7",323, 0)
  5367    ;  WPHONE  - Work ph one
  5368   "RTN","DGM XHL7",324, 0)
  5369    ;  WPEXT   - Work ph one extens ion
  5370   "RTN","DGM XHL7",325, 0)
  5371    ;  FIELD   - Field I ndex
  5372   "RTN","DGM XHL7",326, 0)
  5373    ;
  5374   "RTN","DGM XHL7",327, 0)
  5375    D SET^HLO API(.SEG,W PHONE,FIEL D,1)
  5376   "RTN","DGM XHL7",328, 0)
  5377    D SET^HLO API(.SEG,W PEXT,FIELD ,8)
  5378   "RTN","DGM XHL7",329, 0)
  5379    Q
  5380   "RTN","DGM XHL7",330, 0)
  5381   BLDZEL(DFN ,SEG,MSG,O NLYPRIM) ;  Builds el igibility  informatio n in ZEL s egments.
  5382   "RTN","DGM XHL7",331, 0)
  5383    ; These s egments ca n repeat,  but the fi rst repeti tion
  5384   "RTN","DGM XHL7",332, 0)
  5385    ; contain s the prim ary eligib ility.
  5386   "RTN","DGM XHL7",333, 0)
  5387    ;  DFN       - Pat I D (IEN) -  Used by EL IG^VADPT
  5388   "RTN","DGM XHL7",334, 0)
  5389    ;  SEG       - Seg o utput
  5390   "RTN","DGM XHL7",335, 0)
  5391    ;  MSG       - Messa ge output
  5392   "RTN","DGM XHL7",336, 0)
  5393    ;  ONLYPR IM - Set t o 1 to onl y build th e primary  eligibilit y
  5394   "RTN","DGM XHL7",337, 0)
  5395    ;
  5396   "RTN","DGM XHL7",338, 0)
  5397    ; Get Eli gibility i nformation
  5398   "RTN","DGM XHL7",339, 0)
  5399    N PECODE, PESTAT,SEQ ,LINE,VAHO W,VAEL,VAL ,COMBSTAT, COMBDATE,M ASSESC,ESC CHAR
  5400   "RTN","DGM XHL7",340, 0)
  5401    S (PECODE ,PESTAT,SE Q,LINE,VAH OW,VAEL,VA L,COMBSTAT ,COMBDATE, MASSESC,ES CCHAR)=""
  5402   "RTN","DGM XHL7",341, 0)
  5403    S SEQ=1,L INE=0,VAHO W=0
  5404   "RTN","DGM XHL7",342, 0)
  5405    S MASSESC =$$GET^XPA R("SYS","M ASS ASCII  CHARACTER  SWITCH")
  5406   "RTN","DGM XHL7",343, 0)
  5407    S ESCCHAR =$$GET^XPA R("SYS","M ASS ASCII  CHAR REPLA CEMENT")
  5408   "RTN","DGM XHL7",344, 0)
  5409    D ELIG^VA DPT
  5410   "RTN","DGM XHL7",345, 0)
  5411    D GETCOMB (DFN,.COMB STAT,.COMB DATE)
  5412   "RTN","DGM XHL7",346, 0)
  5413    ;
  5414   "RTN","DGM XHL7",347, 0)
  5415    ; Primary  Eligibili ty
  5416   "RTN","DGM XHL7",348, 0)
  5417    S PECODE= $P($G(VAEL (1)),"^",2 )
  5418   "RTN","DGM XHL7",349, 0)
  5419    S PESTAT= $P($G(VAEL (8)),"^",2 )
  5420   "RTN","DGM XHL7",350, 0)
  5421    D ZEL(SEQ ,.SEG,PECO DE,PESTAT, $G(COMBSTA T),$G(COMB DATE))
  5422   "RTN","DGM XHL7",351, 0)
  5423    I MASSESC  D ESCINVL D^SDMXCORE (.SEG,ESCC HAR)
  5424   "RTN","DGM XHL7",352, 0)
  5425    I '$$ADDS EG^HLOAPI( .MSG,.SEG)  Q
  5426   "RTN","DGM XHL7",353, 0)
  5427    I $G(ONLY PRIM)=1 Q
  5428   "RTN","DGM XHL7",354, 0)
  5429    ;
  5430   "RTN","DGM XHL7",355, 0)
  5431    ; Seconda ry Eligibi lity
  5432   "RTN","DGM XHL7",356, 0)
  5433    F  S LINE =$O(VAEL(1 ,LINE)) Q: (LINE="")   D
  5434   "RTN","DGM XHL7",357, 0)
  5435    . S VAL=$ P($G(VAEL( 1,LINE))," ^",2)
  5436   "RTN","DGM XHL7",358, 0)
  5437    . I VAL=P ECODE Q             ;  Do not bu ild primar y again
  5438   "RTN","DGM XHL7",359, 0)
  5439    . S SEQ=S EQ+1
  5440   "RTN","DGM XHL7",360, 0)
  5441    . D ZEL(S EQ,.SEG,$G (VAL),"")
  5442   "RTN","DGM XHL7",361, 0)
  5443    . I MASSE SC D ESCIN VLD^SDMXCO RE(.SEG,ES CCHAR)
  5444   "RTN","DGM XHL7",362, 0)
  5445    . I '$$AD DSEG^HLOAP I(.MSG,.SE G) Q
  5446   "RTN","DGM XHL7",363, 0)
  5447    Q
  5448   "RTN","DGM XHL7",364, 0)
  5449   GETALIAS(D FN) ; Get  Patient Al iases
  5450   "RTN","DGM XHL7",365, 0)
  5451    ;  DFN -  Pat ID (IE N)
  5452   "RTN","DGM XHL7",366, 0)
  5453    ;  LIST -  Output co ntains pat ient alias es in "^"  delimited  string.
  5454   "RTN","DGM XHL7",367, 0)
  5455    ;
  5456   "RTN","DGM XHL7",368, 0)
  5457    N LINE,LI ST,NAME
  5458   "RTN","DGM XHL7",369, 0)
  5459    S (LINE,L IST,NAME)= ""
  5460   "RTN","DGM XHL7",370, 0)
  5461    S LINE=0, LIST=""
  5462   "RTN","DGM XHL7",371, 0)
  5463    ;
  5464   "RTN","DGM XHL7",372, 0)
  5465    ; Get the  patient a liases
  5466   "RTN","DGM XHL7",373, 0)
  5467    D GETS^DI Q(2,DFN,"1 *","E","AL IAS")
  5468   "RTN","DGM XHL7",374, 0)
  5469    ;
  5470   "RTN","DGM XHL7",375, 0)
  5471    ; Loop th rough and  build retu rn string
  5472   "RTN","DGM XHL7",376, 0)
  5473    F  S LINE =$O(ALIAS( 2.01,LINE) ) Q:LINE=" "  D
  5474   "RTN","DGM XHL7",377, 0)
  5475    . S NAME= $G(ALIAS(2 .01,LINE,. 01,"E"))
  5476   "RTN","DGM XHL7",378, 0)
  5477    . I NAME= "" Q
  5478   "RTN","DGM XHL7",379, 0)
  5479    . I LIST= "" S LIST= NAME
  5480   "RTN","DGM XHL7",380, 0)
  5481    . E  S LI ST=LIST_"^ "_NAME
  5482   "RTN","DGM XHL7",381, 0)
  5483    I LIST=""  S LIST="N ONE"
  5484   "RTN","DGM XHL7",382, 0)
  5485    Q LIST
  5486   "RTN","DGM XHL7",383, 0)
  5487   GETDEMOG(D FN,NAME,DO B,SSN,SEX, ICN,DOD,AL IAS,DIND)  ; Get Pati ent Demogr aphics
  5488   "RTN","DGM XHL7",384, 0)
  5489    ;  DFN  -  Pat ID (I EN)
  5490   "RTN","DGM XHL7",385, 0)
  5491    ;  NAME -  Name
  5492   "RTN","DGM XHL7",386, 0)
  5493    ;  DOB  -  Date of b irth
  5494   "RTN","DGM XHL7",387, 0)
  5495    ;  SSN  -  SSN
  5496   "RTN","DGM XHL7",388, 0)
  5497    ;  SEX  -  Sex
  5498   "RTN","DGM XHL7",389, 0)
  5499    ;  ICN  -  Integrati on Control  Number (I CN)
  5500   "RTN","DGM XHL7",390, 0)
  5501    ;  DOD  -  Date of d eath
  5502   "RTN","DGM XHL7",391, 0)
  5503    ;  ALIAS  - Pat Alia ses
  5504   "RTN","DGM XHL7",392, 0)
  5505    ;  DIND -  Death Ind icator
  5506   "RTN","DGM XHL7",393, 0)
  5507    ;
  5508   "RTN","DGM XHL7",394, 0)
  5509    N VAHOW,V ADM
  5510   "RTN","DGM XHL7",395, 0)
  5511    S VAHOW=1
  5512   "RTN","DGM XHL7",396, 0)
  5513    D DEM^VAD PT
  5514   "RTN","DGM XHL7",397, 0)
  5515    D GETNAME (.NAME,DFN ,2,.01)
  5516   "RTN","DGM XHL7",398, 0)
  5517    S ALIAS=$ $GETALIAS( DFN)
  5518   "RTN","DGM XHL7",399, 0)
  5519    S DOB=$P( $G(VADM("D B")),"^")
  5520   "RTN","DGM XHL7",400, 0)
  5521    S SSN=$P( $G(VADM("S S")),"^")
  5522   "RTN","DGM XHL7",401, 0)
  5523    S SEX=$P( $G(VADM("S X")),"^")
  5524   "RTN","DGM XHL7",402, 0)
  5525    S ICN=$$G ETICN^MPIF 001(DFN)
  5526   "RTN","DGM XHL7",403, 0)
  5527    S DOD=$P( $G(VADM("E X")),"^")
  5528   "RTN","DGM XHL7",404, 0)
  5529    S DIND=$S ($G(DOD)'= "":"Y",1:" N")
  5530   "RTN","DGM XHL7",405, 0)
  5531    Q
  5532   "RTN","DGM XHL7",406, 0)
  5533   GETNAME(NA ME,IEN,FIL E,FIELD) ;  Get Patie nt Name
  5534   "RTN","DGM XHL7",407, 0)
  5535    ; NAME  -  Return ar ray
  5536   "RTN","DGM XHL7",408, 0)
  5537    ; IEN   -  Pat ID
  5538   "RTN","DGM XHL7",409, 0)
  5539    ; FILE  -  Vista fil e
  5540   "RTN","DGM XHL7",410, 0)
  5541    ; FIELD -  Name fiel d
  5542   "RTN","DGM XHL7",411, 0)
  5543    ;
  5544   "RTN","DGM XHL7",412, 0)
  5545    I ($G(IEN )="")!($G( FILE)="")! ($G(FIELD) ="") Q
  5546   "RTN","DGM XHL7",413, 0)
  5547    K NAME
  5548   "RTN","DGM XHL7",414, 0)
  5549    N PARAMS, NAMESTR
  5550   "RTN","DGM XHL7",415, 0)
  5551    S PARAMS( "FILE")=FI LE
  5552   "RTN","DGM XHL7",416, 0)
  5553    S PARAMS( "FIELD")=F IELD
  5554   "RTN","DGM XHL7",417, 0)
  5555    S PARAMS( "IENS")=IE N
  5556   "RTN","DGM XHL7",418, 0)
  5557    S NAMESTR =$$NAMEFMT ^XLFNAME1( .PARAMS,"H ","PD","^" )
  5558   "RTN","DGM XHL7",419, 0)
  5559    I $G(NAME STR)="" Q
  5560   "RTN","DGM XHL7",420, 0)
  5561    ;
  5562   "RTN","DGM XHL7",421, 0)
  5563    S NAME("F AMILY")=$P (NAMESTR," ^",1)
  5564   "RTN","DGM XHL7",422, 0)
  5565    S NAME("G IVEN")=$P( NAMESTR,"^ ",2)
  5566   "RTN","DGM XHL7",423, 0)
  5567    S NAME("S ECOND")=$P (NAMESTR," ^",3)
  5568   "RTN","DGM XHL7",424, 0)
  5569    S NAME("S UFFIX")=$P (NAMESTR," ^",4)
  5570   "RTN","DGM XHL7",425, 0)
  5571    S NAME("P REFIX")=$P (NAMESTR," ^",5)
  5572   "RTN","DGM XHL7",426, 0)
  5573    S NAME("D EGREE")=$P (NAMESTR," ^",6)
  5574   "RTN","DGM XHL7",427, 0)
  5575    Q
  5576   "RTN","DGM XHL7",428, 0)
  5577   GETADDR(DF N,PADDR,CA DDR,TADDR)  ; Get Pat ient Addre sses
  5578   "RTN","DGM XHL7",429, 0)
  5579    ;  DFN      - Pat ID  (IEN)
  5580   "RTN","DGM XHL7",430, 0)
  5581    ;  PADDR    - Perman ent addres s
  5582   "RTN","DGM XHL7",431, 0)
  5583    ;  CADDR    - Confid ential add ress
  5584   "RTN","DGM XHL7",432, 0)
  5585    ;  TADDR    - Tempor ary addres s
  5586   "RTN","DGM XHL7",433, 0)
  5587    ;
  5588   "RTN","DGM XHL7",434, 0)
  5589    N TADSTDT ,TADENDT,T ADFLAG,CAD STDT,CADEN DT,CADFLAG
  5590   "RTN","DGM XHL7",435, 0)
  5591    S DFN=$G( DFN)
  5592   "RTN","DGM XHL7",436, 0)
  5593    I DFN=""  Q
  5594   "RTN","DGM XHL7",437, 0)
  5595    I '$D(^DP T(DFN)) Q
  5596   "RTN","DGM XHL7",438, 0)
  5597    ;
  5598   "RTN","DGM XHL7",439, 0)
  5599    D   ; Per manent Add ress
  5600   "RTN","DGM XHL7",440, 0)
  5601    . S PADDR ("TYPE")=" P"
  5602   "RTN","DGM XHL7",441, 0)
  5603    . I $$GET 1^DIQ(2,DF N,.121)'=" " D SETNUL L(.PADDR)  Q    ; Bad  address
  5604   "RTN","DGM XHL7",442, 0)
  5605    . S PADDR ("STREET1" )=$$GET1^D IQ(2,DFN,. 111)
  5606   "RTN","DGM XHL7",443, 0)
  5607    . S PADDR ("STREET2" )=$$GET1^D IQ(2,DFN,. 112)
  5608   "RTN","DGM XHL7",444, 0)
  5609    . S PADDR ("STREET3" )=$$GET1^D IQ(2,DFN,. 113)
  5610   "RTN","DGM XHL7",445, 0)
  5611    . S PADDR ("CITY")=$ $GET1^DIQ( 2,DFN,.114 )
  5612   "RTN","DGM XHL7",446, 0)
  5613    . S PADDR ("STATE")= $$GET1^DIQ (5,$$GET1^ DIQ(2,DFN, .115,"I"), 1)
  5614   "RTN","DGM XHL7",447, 0)
  5615    . S PADDR ("ZIP")=$$ GET1^DIQ(2 ,DFN,.1112 )
  5616   "RTN","DGM XHL7",448, 0)
  5617    . D SETNU LL(.PADDR)
  5618   "RTN","DGM XHL7",449, 0)
  5619    ;
  5620   "RTN","DGM XHL7",450, 0)
  5621    D   ; Tem porary Add ress
  5622   "RTN","DGM XHL7",451, 0)
  5623    . S TADDR ("TYPE")=" T"
  5624   "RTN","DGM XHL7",452, 0)
  5625    . S TADST DT=$$GET1^ DIQ(2,DFN, .1217,"I")
  5626   "RTN","DGM XHL7",453, 0)
  5627    . S TADEN DT=$$GET1^ DIQ(2,DFN, .1218,"I")
  5628   "RTN","DGM XHL7",454, 0)
  5629    . S TADFL AG=$$GET1^ DIQ(2,DFN, .12105,"I" )
  5630   "RTN","DGM XHL7",455, 0)
  5631    . S TADST DT=$G(TADS TDT),TADEN DT=$G(TADE NDT),TADFL AG=$G(TADF LAG)
  5632   "RTN","DGM XHL7",456, 0)
  5633    . S TADDR ("ACTIVE") =$$ISACTIV E(TADFLAG, TADSTDT,TA DENDT)
  5634   "RTN","DGM XHL7",457, 0)
  5635    . I TADDR ("ACTIVE") =0 D SETNU LL(.TADDR)  Q
  5636   "RTN","DGM XHL7",458, 0)
  5637    . ;
  5638   "RTN","DGM XHL7",459, 0)
  5639    . S TADDR ("STREET1" )=$$GET1^D IQ(2,DFN,. 1211)
  5640   "RTN","DGM XHL7",460, 0)
  5641    . S TADDR ("STREET2" )=$$GET1^D IQ(2,DFN,. 1212)
  5642   "RTN","DGM XHL7",461, 0)
  5643    . S TADDR ("STREET3" )=$$GET1^D IQ(2,DFN,. 1213)
  5644   "RTN","DGM XHL7",462, 0)
  5645    . S TADDR ("CITY")=$ $GET1^DIQ( 2,DFN,.121 4)
  5646   "RTN","DGM XHL7",463, 0)
  5647    . S TADDR ("STATE")= $$GET1^DIQ (5,$$GET1^ DIQ(2,DFN, .1215,"I") ,1)
  5648   "RTN","DGM XHL7",464, 0)
  5649    . S TADDR ("ZIP")=$$ GET1^DIQ(2 ,DFN,.1216 )
  5650   "RTN","DGM XHL7",465, 0)
  5651    . S TADDR ("STARTDT" )=$$VA2HL7 TS^SDMXCOR E(TADSTDT)
  5652   "RTN","DGM XHL7",466, 0)
  5653    . S TADDR ("ENDDT")= $$VA2HL7TS ^SDMXCORE( TADENDT)
  5654   "RTN","DGM XHL7",467, 0)
  5655    . D SETNU LL(.TADDR)
  5656   "RTN","DGM XHL7",468, 0)
  5657    ;
  5658   "RTN","DGM XHL7",469, 0)
  5659    D   ; Con fidential  Address
  5660   "RTN","DGM XHL7",470, 0)
  5661    . S CADDR ("TYPE")=" C"
  5662   "RTN","DGM XHL7",471, 0)
  5663    . S CADST DT=$$GET1^ DIQ(2,DFN, .1417,"I")
  5664   "RTN","DGM XHL7",472, 0)
  5665    . S CADEN DT=$$GET1^ DIQ(2,DFN, .1418,"I")
  5666   "RTN","DGM XHL7",473, 0)
  5667    . S CADFL AG=$$GET1^ DIQ(2,DFN, .14105,"I" )
  5668   "RTN","DGM XHL7",474, 0)
  5669    . S CADST DT=$G(CADS TDT),CADEN DT=$G(CADE NDT),CADFL AG=$G(CADF LAG)
  5670   "RTN","DGM XHL7",475, 0)
  5671    . S CADDR ("ACTIVE") =$$ISACTIV E(CADFLAG, CADSTDT,CA DENDT)
  5672   "RTN","DGM XHL7",476, 0)
  5673    . I CADDR ("ACTIVE") =0 D SETNU LL(.CADDR)  Q
  5674   "RTN","DGM XHL7",477, 0)
  5675    . ;
  5676   "RTN","DGM XHL7",478, 0)
  5677    . S CADDR ("STREET1" )=$$GET1^D IQ(2,DFN,. 1411)
  5678   "RTN","DGM XHL7",479, 0)
  5679    . S CADDR ("STREET2" )=$$GET1^D IQ(2,DFN,. 1412)
  5680   "RTN","DGM XHL7",480, 0)
  5681    . S CADDR ("STREET3" )=$$GET1^D IQ(2,DFN,. 1413)
  5682   "RTN","DGM XHL7",481, 0)
  5683    . S CADDR ("CITY")=$ $GET1^DIQ( 2,DFN,.141 4)
  5684   "RTN","DGM XHL7",482, 0)
  5685    . S CADDR ("STATE")= $$GET1^DIQ (5,$$GET1^ DIQ(2,DFN, .1415,"I") ,1)
  5686   "RTN","DGM XHL7",483, 0)
  5687    . S CADDR ("ZIP")=$$ GET1^DIQ(2 ,DFN,.1416 )
  5688   "RTN","DGM XHL7",484, 0)
  5689    . S CADDR ("STARTDT" )=$$VA2HL7 TS^SDMXCOR E(CADSTDT)
  5690   "RTN","DGM XHL7",485, 0)
  5691    . S CADDR ("ENDDT")= $$VA2HL7TS ^SDMXCORE( CADENDT)
  5692   "RTN","DGM XHL7",486, 0)
  5693    . D SETNU LL(.CADDR)
  5694   "RTN","DGM XHL7",487, 0)
  5695    Q
  5696   "RTN","DGM XHL7",488, 0)
  5697   GETTELE(DF N,HPHONE,H PEXT,WPHON E,WPEXT,TP HONE,TPEXT ,EMAIL,CPH ONE,CPEXT, MPHONE) ;  Get Teleco mmunicatio n informat ion
  5698   "RTN","DGM XHL7",489, 0)
  5699    ;  DFN      - Pat ID  (IEN)
  5700   "RTN","DGM XHL7",490, 0)
  5701    ;  HPHONE   - Home P hone
  5702   "RTN","DGM XHL7",491, 0)
  5703    ;  HPEXT    - Home P hone Exten sion
  5704   "RTN","DGM XHL7",492, 0)
  5705    ;  WPHONE   - Work P hone
  5706   "RTN","DGM XHL7",493, 0)
  5707    ;  WPEXT    - Work P hone Exten sion
  5708   "RTN","DGM XHL7",494, 0)
  5709    ;  TPHONE   - Temp P hone
  5710   "RTN","DGM XHL7",495, 0)
  5711    ;  TPEXT    - Temp P hone Exten sion
  5712   "RTN","DGM XHL7",496, 0)
  5713    ;  EMAIL    - Email  Address
  5714   "RTN","DGM XHL7",497, 0)
  5715    ;  CPHONE   - Conf P hone
  5716   "RTN","DGM XHL7",498, 0)
  5717    ;  CPEXT    - Conf P hone Exten sion
  5718   "RTN","DGM XHL7",499, 0)
  5719    ;  MPHONE   - Mobile  (Cell) Ph one
  5720   "RTN","DGM XHL7",500, 0)
  5721    ;
  5722   "RTN","DGM XHL7",501, 0)
  5723    N OK
  5724   "RTN","DGM XHL7",502, 0)
  5725    S HPHONE= $$GET1^DIQ (2,DFN,.13 1)
  5726   "RTN","DGM XHL7",503, 0)
  5727    S OK=$$FM TPHONE^SDM XCORE(.HPH ONE,.HPEXT )
  5728   "RTN","DGM XHL7",504, 0)
  5729    D SET1NUL L(.HPHONE) ,SET1NULL( .HPEXT)
  5730   "RTN","DGM XHL7",505, 0)
  5731    S WPHONE= $$GET1^DIQ (2,DFN,.13 2)
  5732   "RTN","DGM XHL7",506, 0)
  5733    S OK=$$FM TPHONE^SDM XCORE(.WPH ONE,.WPEXT )
  5734   "RTN","DGM XHL7",507, 0)
  5735    D SET1NUL L(.WPHONE) ,SET1NULL( .WPEXT)
  5736   "RTN","DGM XHL7",508, 0)
  5737    S TPHONE= $$GET1^DIQ (2,DFN,.12 19)
  5738   "RTN","DGM XHL7",509, 0)
  5739    S OK=$$FM TPHONE^SDM XCORE(.TPH ONE,.TPEXT )
  5740   "RTN","DGM XHL7",510, 0)
  5741    D SET1NUL L(.TPHONE) ,SET1NULL( .TPEXT)
  5742   "RTN","DGM XHL7",511, 0)
  5743    S CPHONE= $$GET1^DIQ (2,DFN,.13 15)
  5744   "RTN","DGM XHL7",512, 0)
  5745    S OK=$$FM TPHONE^SDM XCORE(.CPH ONE,.CPEXT )
  5746   "RTN","DGM XHL7",513, 0)
  5747    D SET1NUL L(.CPHONE) ,SET1NULL( .CPEXT)
  5748   "RTN","DGM XHL7",514, 0)
  5749    S EMAIL=$ $GET1^DIQ( 2,DFN,.133 )
  5750   "RTN","DGM XHL7",515, 0)
  5751    D SET1NUL L(.EMAIL)
  5752   "RTN","DGM XHL7",516, 0)
  5753    S MPHONE= $$GET1^DIQ (2,DFN,.13 4)
  5754   "RTN","DGM XHL7",517, 0)
  5755    S OK=$$FM TPHONE^SDM XCORE(.MPH ONE,"")
  5756   "RTN","DGM XHL7",518, 0)
  5757    D SET1NUL L(.MPHONE)
  5758   "RTN","DGM XHL7",519, 0)
  5759    Q
  5760   "RTN","DGM XHL7",520, 0)
  5761   GETEINFO(D FN,ENAME,E REL,EADDR, EPHONE) ;  Gets the p atient's e mergency c ontact inf ormation
  5762   "RTN","DGM XHL7",521, 0)
  5763    ;  DFN     - Pat ID  (IEN)
  5764   "RTN","DGM XHL7",522, 0)
  5765    ;  ENAME   - Contact  name
  5766   "RTN","DGM XHL7",523, 0)
  5767    ;  EREL    - Contact  relation  to patient
  5768   "RTN","DGM XHL7",524, 0)
  5769    ;  EADDR   - Contact  address
  5770   "RTN","DGM XHL7",525, 0)
  5771    ;  EPHONE  - Contact  phone num ber
  5772   "RTN","DGM XHL7",526, 0)
  5773    ;
  5774   "RTN","DGM XHL7",527, 0)
  5775    N STATE,E PEXT,OK
  5776   "RTN","DGM XHL7",528, 0)
  5777    S (STATE, EPEXT,OK)= ""
  5778   "RTN","DGM XHL7",529, 0)
  5779    D GETNAME (.ENAME,DF N,2,.331)
  5780   "RTN","DGM XHL7",530, 0)
  5781    S EREL=$$ GET1^DIQ(2 ,DFN,.332)
  5782   "RTN","DGM XHL7",531, 0)
  5783    S EPHONE= $$GET1^DIQ (2,DFN,.33 9)
  5784   "RTN","DGM XHL7",532, 0)
  5785    S OK=$$FM TPHONE^SDM XCORE(.EPH ONE,.EPEXT )
  5786   "RTN","DGM XHL7",533, 0)
  5787    I $G(EPEX T)'="" S E PHONE=$G(E PHONE)_"x" _$G(EPEXT)
  5788   "RTN","DGM XHL7",534, 0)
  5789    ;
  5790   "RTN","DGM XHL7",535, 0)
  5791    ; Address
  5792   "RTN","DGM XHL7",536, 0)
  5793    S EADDR(" STREET1")= $$GET1^DIQ (2,DFN,.33 3)
  5794   "RTN","DGM XHL7",537, 0)
  5795    S EADDR(" STREET2")= $$GET1^DIQ (2,DFN,.33 4)
  5796   "RTN","DGM XHL7",538, 0)
  5797    S EADDR(" STREET3")= $$GET1^DIQ (2,DFN,.33 5)
  5798   "RTN","DGM XHL7",539, 0)
  5799    S EADDR(" CITY")=$$G ET1^DIQ(2, DFN,.336)
  5800   "RTN","DGM XHL7",540, 0)
  5801    S STATE=$ P($G(^DPT( DFN,.33)), "^",7)
  5802   "RTN","DGM XHL7",541, 0)
  5803    I STATE'= "" S EADDR ("STATE")= $P($G(^DIC (5,STATE,0 )),"^",2)
  5804   "RTN","DGM XHL7",542, 0)
  5805    S EADDR(" ZIP")=$$GE T1^DIQ(2,D FN,.338)
  5806   "RTN","DGM XHL7",543, 0)
  5807    Q
  5808   "RTN","DGM XHL7",544, 0)
  5809   GETSERVC(D FN,ISSERCO N,SERCONPC ,DENTCLAS)  ; Gets th e patient' s service  connected  informatio n
  5810   "RTN","DGM XHL7",545, 0)
  5811    ;  DFN       - Pat I D (IEN)
  5812   "RTN","DGM XHL7",546, 0)
  5813    ;  ISSERC ON - Servi ce connect ed?
  5814   "RTN","DGM XHL7",547, 0)
  5815    ;  SERCON PC - Perce ntage
  5816   "RTN","DGM XHL7",548, 0)
  5817    ;  DENTCL AS - Patie nt dental  class
  5818   "RTN","DGM XHL7",549, 0)
  5819    ;
  5820   "RTN","DGM XHL7",550, 0)
  5821    N VAHOW,V AEL
  5822   "RTN","DGM XHL7",551, 0)
  5823    S VAHOW=0  D ELIG^VA DPT
  5824   "RTN","DGM XHL7",552, 0)
  5825    S ISSERCO N=$S($P($G (VAEL(3)), "^",1)=1:" Y",1:"N")
  5826   "RTN","DGM XHL7",553, 0)
  5827    S SERCONP C=$P($G(VA EL(3)),"^" ,2)
  5828   "RTN","DGM XHL7",554, 0)
  5829    S DENTCLA S=$$GET1^D IQ(2,DFN,2 20)
  5830   "RTN","DGM XHL7",555, 0)
  5831    Q
  5832   "RTN","DGM XHL7",556, 0)
  5833   GETENR(ENR ,ENSTATUS, ENPRIORI,E NSUBGRP) ;  Gets the  enrollment  informati on
  5834   "RTN","DGM XHL7",557, 0)
  5835    ;  ENR       - Enrol lment ID ( IEN)
  5836   "RTN","DGM XHL7",558, 0)
  5837    ;  ENSTAT US - Statu s
  5838   "RTN","DGM XHL7",559, 0)
  5839    ;  ENPRIO RI - Prior ity
  5840   "RTN","DGM XHL7",560, 0)
  5841    ;  ENSUBG RP - Subgr oup
  5842   "RTN","DGM XHL7",561, 0)
  5843    ;
  5844   "RTN","DGM XHL7",562, 0)
  5845    I $G(ENR) ="" Q
  5846   "RTN","DGM XHL7",563, 0)
  5847    S ENSTATU S=$$GET1^D IQ(27.11,E NR,.04)
  5848   "RTN","DGM XHL7",564, 0)
  5849    S ENPRIOR I=$$GET1^D IQ(27.11,E NR,.07)
  5850   "RTN","DGM XHL7",565, 0)
  5851    S ENSUBGR P=$$GET1^D IQ(27.11,E NR,.12)
  5852   "RTN","DGM XHL7",566, 0)
  5853    Q
  5854   "RTN","DGM XHL7",567, 0)
  5855   GETCOMB(DF N,COMBSTAT ,COMBDATE)  ; Gets th e combat s ervice eli gibility i nformation
  5856   "RTN","DGM XHL7",568, 0)
  5857    ;  DFN       - Pat I D (IEN)
  5858   "RTN","DGM XHL7",569, 0)
  5859    ;  COMBST AT - Comba t service  indicated?
  5860   "RTN","DGM XHL7",570, 0)
  5861    ;  COMBDA TE - Comba t veteran  end date
  5862   "RTN","DGM XHL7",571, 0)
  5863    ;
  5864   "RTN","DGM XHL7",572, 0)
  5865    I $G(DFN) ="" Q
  5866   "RTN","DGM XHL7",573, 0)
  5867    S COMBSTA T=$$GET1^D IQ(2,DFN,. 5291)
  5868   "RTN","DGM XHL7",574, 0)
  5869    S COMBDAT E=$$VA2HL7 TS^SDMXCOR E($$GET1^D IQ(2,DFN,. 5295,"I"))
  5870   "RTN","DGM XHL7",575, 0)
  5871    Q
  5872   "RTN","DGM XHL7",576, 0)
  5873   HASADDR(AD DR) ; Chec ks nodes o f an addre ss array f or data.
  5874   "RTN","DGM XHL7",577, 0)
  5875    ;  ADDR -  Address i n standard  array str ucture
  5876   "RTN","DGM XHL7",578, 0)
  5877    ;
  5878   "RTN","DGM XHL7",579, 0)
  5879    I $G(ADDR ("STREET1" ))'="" Q 1
  5880   "RTN","DGM XHL7",580, 0)
  5881    I $G(ADDR ("STREET2" ))'="" Q 1
  5882   "RTN","DGM XHL7",581, 0)
  5883    I $G(ADDR ("STREET3" ))'="" Q 1
  5884   "RTN","DGM XHL7",582, 0)
  5885    I $G(ADDR ("CITY"))' ="" Q 1
  5886   "RTN","DGM XHL7",583, 0)
  5887    I $G(ADDR ("ZIP"))'= "" Q 1
  5888   "RTN","DGM XHL7",584, 0)
  5889    I $G(ADDR ("STATE")) '="" Q 1
  5890   "RTN","DGM XHL7",585, 0)
  5891    Q 0
  5892   "RTN","DGM XHL7",586, 0)
  5893   ISACTIVE(F LAG,STDT,E NDT) ; Det ermine if  an address  is active
  5894   "RTN","DGM XHL7",587, 0)
  5895    ;   FLAG  - Is Activ e?
  5896   "RTN","DGM XHL7",588, 0)
  5897    ;   STDT  - Start Da te
  5898   "RTN","DGM XHL7",589, 0)
  5899    ;   ENDT  - End Date
  5900   "RTN","DGM XHL7",590, 0)
  5901    ;
  5902   "RTN","DGM XHL7",591, 0)
  5903    I FLAG="N " Q 0
  5904   "RTN","DGM XHL7",592, 0)
  5905    I STDT=""  Q 0
  5906   "RTN","DGM XHL7",593, 0)
  5907    I STDT>DT  Q 0
  5908   "RTN","DGM XHL7",594, 0)
  5909    I ENDT=""  Q 1
  5910   "RTN","DGM XHL7",595, 0)
  5911    I ENDT<DT  Q 0
  5912   "RTN","DGM XHL7",596, 0)
  5913    Q 1
  5914   "RTN","DGM XHL7",597, 0)
  5915   SETXCN(SEG ,USERID,FI ELD) ; Set s an XCN f ield in an  HLO messa ge
  5916   "RTN","DGM XHL7",598, 0)
  5917    ;  SEG    - HLO Seg
  5918   "RTN","DGM XHL7",599, 0)
  5919    ;  USERID    - Pat I D (IEN)
  5920   "RTN","DGM XHL7",600, 0)
  5921    ;  FIELD  - Field nu mber
  5922   "RTN","DGM XHL7",601, 0)
  5923    ;
  5924   "RTN","DGM XHL7",602, 0)
  5925    N NAME
  5926   "RTN","DGM XHL7",603, 0)
  5927    S NAME=$$ GET1^DIQ(2 00,USERID, .01)
  5928   "RTN","DGM XHL7",604, 0)
  5929    D STDNAME ^XLFNAME(. NAME,"C")
  5930   "RTN","DGM XHL7",605, 0)
  5931    D SET^HLO API(.SEG,U SERID,FIEL D,1)
  5932   "RTN","DGM XHL7",606, 0)
  5933    D SET^HLO API(.SEG,$ G(NAME("FA MILY")),FI ELD,2)
  5934   "RTN","DGM XHL7",607, 0)
  5935    D SET^HLO API(.SEG,$ G(NAME("GI VEN")),FIE LD,3)
  5936   "RTN","DGM XHL7",608, 0)
  5937    D SET^HLO API(.SEG,$ G(NAME("SE COND")),FI ELD,4)
  5938   "RTN","DGM XHL7",609, 0)
  5939    D SET^HLO API(.SEG,$ G(NAME("SU FFIX")),FI ELD,5)
  5940   "RTN","DGM XHL7",610, 0)
  5941    D SET^HLO API(.SEG,$ G(NAME("PR EFIX")),FI ELD,6)
  5942   "RTN","DGM XHL7",611, 0)
  5943    D SET^HLO API(.SEG,$ G(NAME("DE GREE")),FI ELD,7)
  5944   "RTN","DGM XHL7",612, 0)
  5945    Q
  5946   "RTN","DGM XHL7",613, 0)
  5947   SETNULL(AR Y) ; Sets  an  array  to null va lue
  5948   "RTN","DGM XHL7",614, 0)
  5949    ;  ARY -  Address ar ray
  5950   "RTN","DGM XHL7",615, 0)
  5951    ;
  5952   "RTN","DGM XHL7",616, 0)
  5953    N NULL
  5954   "RTN","DGM XHL7",617, 0)
  5955    S NULL="" """"
  5956   "RTN","DGM XHL7",618, 0)
  5957    I $G(ARY( "STREET1") )="" S ARY ("STREET1" )=NULL
  5958   "RTN","DGM XHL7",619, 0)
  5959    I $G(ARY( "STREET2") )="" S ARY ("STREET2" )=NULL
  5960   "RTN","DGM XHL7",620, 0)
  5961    I $G(ARY( "STREET3") )="" S ARY ("STREET3" )=NULL
  5962   "RTN","DGM XHL7",621, 0)
  5963    I $G(ARY( "CITY"))=" " S ARY("C ITY")=NULL
  5964   "RTN","DGM XHL7",622, 0)
  5965    I $G(ARY( "STATE"))= "" S ARY(" STATE")=NU LL
  5966   "RTN","DGM XHL7",623, 0)
  5967    I $G(ARY( "ZIP"))=""  S ARY("ZI P")=NULL
  5968   "RTN","DGM XHL7",624, 0)
  5969    I $G(ARY( "STARTDT") )="" S ARY ("STARTDT" )=NULL
  5970   "RTN","DGM XHL7",625, 0)
  5971    I $G(ARY( "ENDDT"))= "" S ARY(" ENDDT")=NU LL
  5972   "RTN","DGM XHL7",626, 0)
  5973    Q
  5974   "RTN","DGM XHL7",627, 0)
  5975   SET1NULL(V AR) ; Sets  a variabl e to null  value
  5976   "RTN","DGM XHL7",628, 0)
  5977    ; VAR - V ariable to  set
  5978   "RTN","DGM XHL7",629, 0)
  5979    ;
  5980   "RTN","DGM XHL7",630, 0)
  5981    N NULL
  5982   "RTN","DGM XHL7",631, 0)
  5983    S NULL="" """"
  5984   "RTN","DGM XHL7",632, 0)
  5985    I $G(VAR) ="" S VAR= NULL
  5986   "RTN","DGM XHL7",633, 0)
  5987    Q
  5988   "RTN","DGM XORU")
  5989   0^7^B54754 724
  5990   "RTN","DGM XORU",1,0)
  5991   DGMXORU ;  MASS/DXL -  ORU Trigg er/Build C ode;10/05/ 17 ;2018-0 3-01 10:29 :20
  5992   "RTN","DGM XORU",2,0)
  5993    ;;5.3;Reg istration; **948**;OC TOBER 05,2 017;Build  66
  5994   "RTN","DGM XORU",3,0)
  5995    ;Per VA D IRECTIVE 6 402, this  routine sh ould not b e modified .
  5996   "RTN","DGM XORU",4,0)
  5997    ;
  5998   "RTN","DGM XORU",5,0)
  5999    ;  ICR# S upported R eferences
  6000   "RTN","DGM XORU",6,0)
  6001    ;       $ $GETALL^DG PFAA
  6002   "RTN","DGM XORU",7,0)
  6003    ;  2056 $ $GET1^DIQ
  6004   "RTN","DGM XORU",8,0)
  6005    ;  2056 G ETS^DIQ
  6006   "RTN","DGM XORU",9,0)
  6007    ;  4716 $ $ADDSEG^HL OAPI
  6008   "RTN","DGM XORU",10,0 )
  6009    ;  4716 $ $NEWMSG^HL OAPI
  6010   "RTN","DGM XORU",11,0 )
  6011    ;  4717 $ $SENDONE^H LOAPI1
  6012   "RTN","DGM XORU",12,0 )
  6013    ;  2263 $ $GET^XPAR
  6014   "RTN","DGM XORU",13,0 )
  6015    ;
  6016   "RTN","DGM XORU",14,0 )
  6017    Q
  6018   "RTN","DGM XORU",15,0 )
  6019   TRIGBAD(DF N,STATUS,S KIPCHK,THR EAD) ; Wra pper funct ion for Ba d address  indicator
  6020   "RTN","DGM XORU",16,0 )
  6021    ;  DFN -  VistA Inte rnal Entry  Number (I EN)
  6022   "RTN","DGM XORU",17,0 )
  6023    ;  STATUS  - Active  or inactiv e flag
  6024   "RTN","DGM XORU",18,0 )
  6025    ;  SKIPCH K - Skip c hecking wh ether MASS  is enable d
  6026   "RTN","DGM XORU",19,0 )
  6027    ;  THREAD  - Thread  to send me ssage to f or convers ions.
  6028   "RTN","DGM XORU",20,0 )
  6029    ;
  6030   "RTN","DGM XORU",21,0 )
  6031    I $G(SKIP CHK)="" S  SKIPCHK=0
  6032   "RTN","DGM XORU",22,0 )
  6033    I ('SKIPC HK),('$$GE T^XPAR("SY S","DGMX M ASS ENABLE D")) Q
  6034   "RTN","DGM XORU",23,0 )
  6035    I ($G(DFN )="")!($G( STATUS)="" ) Q
  6036   "RTN","DGM XORU",24,0 )
  6037    N TRIGDAT A
  6038   "RTN","DGM XORU",25,0 )
  6039    S TRIGDAT A("STATUS" )=STATUS
  6040   "RTN","DGM XORU",26,0 )
  6041    D TRIGFLA G(DFN,"BAD ",.TRIGDAT A,$G(THREA D))
  6042   "RTN","DGM XORU",27,0 )
  6043    Q
  6044   "RTN","DGM XORU",28,0 )
  6045   TRIGPRF(FL AGID,SKIPC HK,THREAD)  ; Wrapper  function  for patien t record f lag
  6046   "RTN","DGM XORU",29,0 )
  6047    ;  FLAGID  - Identif ier of the  patient r ecord flag  (Field .0 01 in File  26.13)
  6048   "RTN","DGM XORU",30,0 )
  6049    ;  SKIPCH K - Skip c hecking wh ether MASS  is enable d
  6050   "RTN","DGM XORU",31,0 )
  6051    ;  THREAD  - Thread  to send me ssage to f or convers ions.
  6052   "RTN","DGM XORU",32,0 )
  6053    ;
  6054   "RTN","DGM XORU",33,0 )
  6055    I $G(SKIP CHK)="" S  SKIPCHK=0
  6056   "RTN","DGM XORU",34,0 )
  6057    I $G(FLAG ID)="" Q
  6058   "RTN","DGM XORU",35,0 )
  6059    I ('SKIPC HK),('$$GE T^XPAR("SY S","DGMX M ASS ENABLE D")) Q
  6060   "RTN","DGM XORU",36,0 )
  6061    N DFN
  6062   "RTN","DGM XORU",37,0 )
  6063    S DFN=$P( $G(^DGPF(2 6.13,FLAGI D,0)),"^", 1)   ; Get  the patie nt DFN
  6064   "RTN","DGM XORU",38,0 )
  6065    I $G(DFN) ="" Q
  6066   "RTN","DGM XORU",39,0 )
  6067    D TRIGFLA G(DFN,"PRF ","",$G(TH READ))
  6068   "RTN","DGM XORU",40,0 )
  6069    Q
  6070   "RTN","DGM XORU",41,0 )
  6071   TRIGPRFH(H ISTID)  ;W rapper fun ction for  patient re cord flag  history
  6072   "RTN","DGM XORU",42,0 )
  6073    ;  HISTID  - Identif ier of the  PRF ASSIG NMENT HIST ORY (File  26.14)
  6074   "RTN","DGM XORU",43,0 )
  6075    ;
  6076   "RTN","DGM XORU",44,0 )
  6077    I $G(HIST ID)="" Q
  6078   "RTN","DGM XORU",45,0 )
  6079    N FLAGID
  6080   "RTN","DGM XORU",46,0 )
  6081    S FLAGID= $$GET1^DIQ (26.14,HIS TID,.01,"I ")
  6082   "RTN","DGM XORU",47,0 )
  6083    D TRIGPRF (FLAGID)
  6084   "RTN","DGM XORU",48,0 )
  6085    Q
  6086   "RTN","DGM XORU",49,0 )
  6087   TRIGSEN(DF N,STATUS,S KIPCHK,THR EAD) ; Wra pper funct ion for pa tient sens itivity fl ag
  6088   "RTN","DGM XORU",50,0 )
  6089    ;  DFN -  VistA Inte rnal Entry  Number (I EN)
  6090   "RTN","DGM XORU",51,0 )
  6091    ;  STATUS  - Active  or inactiv e flag
  6092   "RTN","DGM XORU",52,0 )
  6093    ;  SKIPCH K - Skip c hecking wh ether MASS  is enable d
  6094   "RTN","DGM XORU",53,0 )
  6095    ;  THREAD  - Thread  to send me ssage to f or convers ions.
  6096   "RTN","DGM XORU",54,0 )
  6097    ;
  6098   "RTN","DGM XORU",55,0 )
  6099    I $G(SKIP CHK)="" S  SKIPCHK=0
  6100   "RTN","DGM XORU",56,0 )
  6101    I ('SKIPC HK),('$$GE T^XPAR("SY S","DGMX M ASS ENABLE D")) Q
  6102   "RTN","DGM XORU",57,0 )
  6103    I $G(DFN) ="" Q
  6104   "RTN","DGM XORU",58,0 )
  6105    I $G(STAT US)="" Q
  6106   "RTN","DGM XORU",59,0 )
  6107    N TRIGDAT A
  6108   "RTN","DGM XORU",60,0 )
  6109    S STATUS= $S(STATUS= 1:"ACTIVE" ,STATUS=0: "INACTIVE" ,1:STATUS)
  6110   "RTN","DGM XORU",61,0 )
  6111    S TRIGDAT A("STATUS" )=STATUS
  6112   "RTN","DGM XORU",62,0 )
  6113    D TRIGFLA G(DFN,"SEN ",.TRIGDAT A,$G(THREA D))
  6114   "RTN","DGM XORU",63,0 )
  6115    Q
  6116   "RTN","DGM XORU",64,0 )
  6117   TRIGVER(DF N,SKIPCHK, THREAD) ;  Wrapper fu nction for  patient d emographic s verifica tion date
  6118   "RTN","DGM XORU",65,0 )
  6119    ;  DFN -  VistA Inte rnal Entry  Number (I EN)
  6120   "RTN","DGM XORU",66,0 )
  6121    ;  SKIPCH K - Skip c hecking wh ether MASS  is enable d
  6122   "RTN","DGM XORU",67,0 )
  6123    ;  THREAD  - Thread  to send me ssage to f or convers ions.
  6124   "RTN","DGM XORU",68,0 )
  6125    ;
  6126   "RTN","DGM XORU",69,0 )
  6127    I $G(SKIP CHK)="" S  SKIPCHK=0
  6128   "RTN","DGM XORU",70,0 )
  6129    I ('SKIPC HK),('$$GE T^XPAR("SY S","DGMX M ASS ENABLE D")) Q
  6130   "RTN","DGM XORU",71,0 )
  6131    I $G(DFN) ="" Q
  6132   "RTN","DGM XORU",72,0 )
  6133    N PDFN,TR IGDATA
  6134   "RTN","DGM XORU",73,0 )
  6135    S PDFN=$$ GET1^DIQ(4 1.41,DFN,. 01,"I")     ; Get the  patient D FN
  6136   "RTN","DGM XORU",74,0 )
  6137    S TRIGDAT A("VERDFN" )=DFN
  6138   "RTN","DGM XORU",75,0 )
  6139    D TRIGFLA G(PDFN,"VE R",.TRIGDA TA,$G(THRE AD))
  6140   "RTN","DGM XORU",76,0 )
  6141    Q
  6142   "RTN","DGM XORU",77,0 )
  6143   TRIGFLAG(D FN,TYPE,TR IGDATA,THR EAD) ; Tri ggers an O RU message  containin g patient  flag infor mation.
  6144   "RTN","DGM XORU",78,0 )
  6145    ; This cu rrently in cludes Pat ient Recor d Flags, B ad Address  Indicator s, Patient  Sensitivi ty,
  6146   "RTN","DGM XORU",79,0 )
  6147    ; and Dem ographic V erificatio n Date.
  6148   "RTN","DGM XORU",80,0 )
  6149    ;  DFN -  VistA Inte rnal Entry  Number (I EN)
  6150   "RTN","DGM XORU",81,0 )
  6151    ;  TYPE -  Type of f lag ("PRF" ,"BAD","SE N","VER")
  6152   "RTN","DGM XORU",82,0 )
  6153    ;  TRIGDA TA - Array  containin g paramete rs for the  build cod e. Nodes i nclude:
  6154   "RTN","DGM XORU",83,0 )
  6155    ;            ("STATU S") - For  Bad Addres s/Sensitiv ity - Acti ve or inac tive flag
  6156   "RTN","DGM XORU",84,0 )
  6157    ;            ("VERDF N") - For  Verificati on - DFN f or file 41 .41
  6158   "RTN","DGM XORU",85,0 )
  6159    ;  THREAD  - Thread  to send me ssage to f or convers ions.
  6160   "RTN","DGM XORU",86,0 )
  6161    ;
  6162   "RTN","DGM XORU",87,0 )
  6163    I $G(DFN) ="" Q
  6164   "RTN","DGM XORU",88,0 )
  6165    I $G(TYPE )="" Q
  6166   "RTN","DGM XORU",89,0 )
  6167    N SEG,MSG ,PARAMS,ER ROR,WHOTO, OK,MASSESC ,ESCCHAR
  6168   "RTN","DGM XORU",90,0 )
  6169    S PARAMS( "MESSAGE T YPE")="ORU "
  6170   "RTN","DGM XORU",91,0 )
  6171    S PARAMS( "EVENT")=" R01"
  6172   "RTN","DGM XORU",92,0 )
  6173    S PARAMS( "SENDING A PPLICATION ")="DG-ORU -OUT"
  6174   "RTN","DGM XORU",93,0 )
  6175    S WHOTO(" RECEIVING  APPLICATIO N")="MASS"
  6176   "RTN","DGM XORU",94,0 )
  6177    I $G(THRE AD)'="" S  WHOTO("FAC ILITY LINK  NAME")="D G ORU O"_T HREAD
  6178   "RTN","DGM XORU",95,0 )
  6179    E  S WHOT O("FACILIT Y LINK NAM E")="DG OR U OUT"        ; HL Lo gical Link
  6180   "RTN","DGM XORU",96,0 )
  6181    S MASSESC =$$GET^XPA R("SYS","M ASS ASCII  CHARACTER  SWITCH")
  6182   "RTN","DGM XORU",97,0 )
  6183    S ESCCHAR =$$GET^XPA R("SYS","M ASS ASCII  CHAR REPLA CEMENT")
  6184   "RTN","DGM XORU",98,0 )
  6185    ;
  6186   "RTN","DGM XORU",99,0 )
  6187    ; Start n ew message
  6188   "RTN","DGM XORU",100, 0)
  6189    I '$$NEWM SG^HLOAPI( .PARAMS,.M SG) Q
  6190   "RTN","DGM XORU",101, 0)
  6191    D PID^DGM XHL7(DFN,1 ,.SEG)                         ;  Build PID  (required )
  6192   "RTN","DGM XORU",102, 0)
  6193    I MASSESC  D ESCINVL D^SDMXCORE (.SEG,ESCC HAR)
  6194   "RTN","DGM XORU",103, 0)
  6195    I '$$ADDS EG^HLOAPI( .MSG,.SEG)  Q
  6196   "RTN","DGM XORU",104, 0)
  6197    I TYPE="P RF" D BLDP RF(DFN,.SE G,.MSG)             ;  Patient r ecord flag s
  6198   "RTN","DGM XORU",105, 0)
  6199    I TYPE="B AD" D BLDB AD(DFN,.SE G,.MSG,.TR IGDATA)  ;  Bad addre ss indicat or
  6200   "RTN","DGM XORU",106, 0)
  6201    I TYPE="S EN" D BLDS EN(DFN,.SE G,.MSG,.TR IGDATA)  ;  Patient s ensitivity  flag
  6202   "RTN","DGM XORU",107, 0)
  6203    I TYPE="V ER" D BLDV ER(DFN,.SE G,.MSG,.TR IGDATA)  ;  Demograph ics verifi cation dat e
  6204   "RTN","DGM XORU",108, 0)
  6205    ;
  6206   "RTN","DGM XORU",109, 0)
  6207    ; Send me ssage
  6208   "RTN","DGM XORU",110, 0)
  6209    S OK=$$SE NDONE^HLOA PI1(.MSG,. PARAMS,.WH OTO,.ERROR )
  6210   "RTN","DGM XORU",111, 0)
  6211    Q
  6212   "RTN","DGM XORU",112, 0)
  6213   BLDPRF(DFN ,SEG,MSG)  ; Build pa tient reco rd flags i n OBR-OBX  segments
  6214   "RTN","DGM XORU",113, 0)
  6215    ;  DFN -  VistA Inte rnal Entry  Number (I EN)
  6216   "RTN","DGM XORU",114, 0)
  6217    ;  SEG -  Segment ou tput
  6218   "RTN","DGM XORU",115, 0)
  6219    ;  MSG -  Message ou tput
  6220   "RTN","DGM XORU",116, 0)
  6221    ;
  6222   "RTN","DGM XORU",117, 0)
  6223    I $G(DFN) ="" Q
  6224   "RTN","DGM XORU",118, 0)
  6225    N IND,FLA GS,OK,LINE ,NARR,TEXT ,SUMMARY,O BRIND,OBXI ND,STATUS, MASSESC,ES CCHAR
  6226   "RTN","DGM XORU",119, 0)
  6227    S IND=0
  6228   "RTN","DGM XORU",120, 0)
  6229    I '$$GETA LL^DGPFAA( DFN,.FLAGS ,"","") Q   ; Nationa l and Loca l Flags
  6230   "RTN","DGM XORU",121, 0)
  6231    S MASSESC =$$GET^XPA R("SYS","M ASS ASCII  CHARACTER  SWITCH")
  6232   "RTN","DGM XORU",122, 0)
  6233    S ESCCHAR =$$GET^XPA R("SYS","M ASS ASCII  CHAR REPLA CEMENT")
  6234   "RTN","DGM XORU",123, 0)
  6235    ;
  6236   "RTN","DGM XORU",124, 0)
  6237    S OBRIND= 1
  6238   "RTN","DGM XORU",125, 0)
  6239    F  S IND= $O(FLAGS(I ND)) Q:IND =""  D      ; Loop Th rough Pati ent Flags
  6240   "RTN","DGM XORU",126, 0)
  6241    . ;
  6242   "RTN","DGM XORU",127, 0)
  6243    . ; Get F lag Info
  6244   "RTN","DGM XORU",128, 0)
  6245    . S SUMMA RY=$$GET1^ DIQ(26.13, IND,.02)    ; Summary
  6246   "RTN","DGM XORU",129, 0)
  6247    . S STATU S=$$GET1^D IQ(26.13,I ND,.03)     ; Status
  6248   "RTN","DGM XORU",130, 0)
  6249    . D GETS^ DIQ(26.13, IND,"1","" ,"NARR")    ; Narrati ve Text
  6250   "RTN","DGM XORU",131, 0)
  6251    . ;
  6252   "RTN","DGM XORU",132, 0)
  6253    . ; Build  OBR Segme nt
  6254   "RTN","DGM XORU",133, 0)
  6255    . D OBR^D GMXHL7(OBR IND,.SEG,S UMMARY)
  6256   "RTN","DGM XORU",134, 0)
  6257    . I MASSE SC D ESCIN VLD^SDMXCO RE(.SEG,ES CCHAR)
  6258   "RTN","DGM XORU",135, 0)
  6259    . I '$$AD DSEG^HLOAP I(.MSG,.SE G) Q
  6260   "RTN","DGM XORU",136, 0)
  6261    . S OBRIN D=OBRIND+1
  6262   "RTN","DGM XORU",137, 0)
  6263    . ;
  6264   "RTN","DGM XORU",138, 0)
  6265    . ; Build  Status OB X
  6266   "RTN","DGM XORU",139, 0)
  6267    . S OBXIN D=1
  6268   "RTN","DGM XORU",140, 0)
  6269    . D OBX^D GMXHL7(OBX IND,.SEG," STATUS",ST ATUS)
  6270   "RTN","DGM XORU",141, 0)
  6271    . I MASSE SC D ESCIN VLD^SDMXCO RE(.SEG,ES CCHAR)
  6272   "RTN","DGM XORU",142, 0)
  6273    . S OK=$$ ADDSEG^HLO API(.MSG,. SEG)
  6274   "RTN","DGM XORU",143, 0)
  6275    . ;
  6276   "RTN","DGM XORU",144, 0)
  6277    . ; Build  Narrative  OBX(s)
  6278   "RTN","DGM XORU",145, 0)
  6279    . S LINE= 0,OBXIND=O BXIND+1
  6280   "RTN","DGM XORU",146, 0)
  6281    . F  S LI NE=$O(NARR (26.13,IND _",",1,LIN E)) Q:LINE =""  D
  6282   "RTN","DGM XORU",147, 0)
  6283    . . S TEX T=$G(NARR( 26.13,IND_ ",",1,LINE ))
  6284   "RTN","DGM XORU",148, 0)
  6285    . . D OBX ^DGMXHL7(O BXIND,.SEG ,"NARRATIV E",TEXT)
  6286   "RTN","DGM XORU",149, 0)
  6287    . . I MAS SESC D ESC INVLD^SDMX CORE(.SEG, ESCCHAR)
  6288   "RTN","DGM XORU",150, 0)
  6289    . . S OK= $$ADDSEG^H LOAPI(.MSG ,.SEG)
  6290   "RTN","DGM XORU",151, 0)
  6291    . . S OBX IND=OBXIND +1
  6292   "RTN","DGM XORU",152, 0)
  6293    Q
  6294   "RTN","DGM XORU",153, 0)
  6295   BLDBAD(DFN ,SEG,MSG,T RIGDATA) ;  Build bad  address f lag in OBR -OBX segme nts
  6296   "RTN","DGM XORU",154, 0)
  6297    ;  DFN -  VistA Inte rnal Entry  Number (I EN)
  6298   "RTN","DGM XORU",155, 0)
  6299    ;  SEG -  Segment ou tput
  6300   "RTN","DGM XORU",156, 0)
  6301    ;  MSG -  Message ou tput
  6302   "RTN","DGM XORU",157, 0)
  6303    ;  TRIGDA TA - Param eter array  containin g the acti on
  6304   "RTN","DGM XORU",158, 0)
  6305    ;              ("STA TUS") - Ac tive or in active sta tus
  6306   "RTN","DGM XORU",159, 0)
  6307    ;
  6308   "RTN","DGM XORU",160, 0)
  6309    I $G(DFN) ="" Q
  6310   "RTN","DGM XORU",161, 0)
  6311    N OK,MASS ESC,ESCCHA R
  6312   "RTN","DGM XORU",162, 0)
  6313    S MASSESC =$$GET^XPA R("SYS","M ASS ASCII  CHARACTER  SWITCH")
  6314   "RTN","DGM XORU",163, 0)
  6315    S ESCCHAR =$$GET^XPA R("SYS","M ASS ASCII  CHAR REPLA CEMENT")
  6316   "RTN","DGM XORU",164, 0)
  6317    D OBR^DGM XHL7(1,.SE G,"BAD ADD RESS")                            ; Build O BR
  6318   "RTN","DGM XORU",165, 0)
  6319    I MASSESC  D ESCINVL D^SDMXCORE (.SEG,ESCC HAR)
  6320   "RTN","DGM XORU",166, 0)
  6321    S OK=$$AD DSEG^HLOAP I(.MSG,.SE G)
  6322   "RTN","DGM XORU",167, 0)
  6323    D OBX^DGM XHL7(1,.SE G,"STATUS" ,$G(TRIGDA TA("STATUS ")))        ; Build S tatus OBX
  6324   "RTN","DGM XORU",168, 0)
  6325    I MASSESC  D ESCINVL D^SDMXCORE (.SEG,ESCC HAR)
  6326   "RTN","DGM XORU",169, 0)
  6327    S OK=$$AD DSEG^HLOAP I(.MSG,.SE G)
  6328   "RTN","DGM XORU",170, 0)
  6329    D OBX^DGM XHL7(2,.SE G,"NARRATI VE",$$GET1 ^DIQ(2,DFN ,.121))     ; Build N arrative O BX
  6330   "RTN","DGM XORU",171, 0)
  6331    I MASSESC  D ESCINVL D^SDMXCORE (.SEG,ESCC HAR)
  6332   "RTN","DGM XORU",172, 0)
  6333    S OK=$$AD DSEG^HLOAP I(.MSG,.SE G)
  6334   "RTN","DGM XORU",173, 0)
  6335    Q
  6336   "RTN","DGM XORU",174, 0)
  6337   BLDSEN(DFN ,SEG,MSG,T RIGDATA) ;  Build pat ient sensi tivity fla g in OBR-O BX segment s
  6338   "RTN","DGM XORU",175, 0)
  6339    ;  DFN -  VistA Inte rnal Entry  Number (I EN)
  6340   "RTN","DGM XORU",176, 0)
  6341    ;  SEG -  Segment ou tput
  6342   "RTN","DGM XORU",177, 0)
  6343    ;  MSG -  Message ou tput
  6344   "RTN","DGM XORU",178, 0)
  6345    ;  TRIGDA TA - Param eter array  containin g the acti on
  6346   "RTN","DGM XORU",179, 0)
  6347    ;              ("STA TUS") - Ac tive or in active sta tus
  6348   "RTN","DGM XORU",180, 0)
  6349    ;
  6350   "RTN","DGM XORU",181, 0)
  6351    I $G(DFN) ="" Q
  6352   "RTN","DGM XORU",182, 0)
  6353    N OK,MASS ESC,ESCCHA R
  6354   "RTN","DGM XORU",183, 0)
  6355    S MASSESC =$$GET^XPA R("SYS","M ASS ASCII  CHARACTER  SWITCH")
  6356   "RTN","DGM XORU",184, 0)
  6357    S ESCCHAR =$$GET^XPA R("SYS","M ASS ASCII  CHAR REPLA CEMENT")
  6358   "RTN","DGM XORU",185, 0)
  6359    D OBR^DGM XHL7(1,.SE G,"SENSITI VITY")                            ; Build O BR
  6360   "RTN","DGM XORU",186, 0)
  6361    I MASSESC  D ESCINVL D^SDMXCORE (.SEG,ESCC HAR)
  6362   "RTN","DGM XORU",187, 0)
  6363    S OK=$$AD DSEG^HLOAP I(.MSG,.SE G)
  6364   "RTN","DGM XORU",188, 0)
  6365    D OBX^DGM XHL7(1,.SE G,"STATUS" ,$G(TRIGDA TA("STATUS ")))        ; Build S tatus OBX
  6366   "RTN","DGM XORU",189, 0)
  6367    I MASSESC  D ESCINVL D^SDMXCORE (.SEG,ESCC HAR)
  6368   "RTN","DGM XORU",190, 0)
  6369    S OK=$$AD DSEG^HLOAP I(.MSG,.SE G)
  6370   "RTN","DGM XORU",191, 0)
  6371    Q
  6372   "RTN","DGM XORU",192, 0)
  6373   BLDVER(DFN ,SEG,MSG,T RIGDATA) ;  Builds th e patient  demographi cs verific ation date  in OBR-OB X
  6374   "RTN","DGM XORU",193, 0)
  6375    ;  DFN       - VistA  Internal  Entry Numb er (IEN) -  Used by E LIG^VADPT
  6376   "RTN","DGM XORU",194, 0)
  6377    ;  SEG       - Segme nt output
  6378   "RTN","DGM XORU",195, 0)
  6379    ;  MSG       - Messa ge output
  6380   "RTN","DGM XORU",196, 0)
  6381    ;  TRIGDA TA - Param eter array  containin g the veri fication D FN
  6382   "RTN","DGM XORU",197, 0)
  6383    ;              ("VER DFN") - DF N of the V erificatio n record i n file 41. 41
  6384   "RTN","DGM XORU",198, 0)
  6385    ;
  6386   "RTN","DGM XORU",199, 0)
  6387    I $G(DFN) ="" Q
  6388   "RTN","DGM XORU",200, 0)
  6389    N OK,VERD ATE,NARR,M ASSESC,ESC CHAR
  6390   "RTN","DGM XORU",201, 0)
  6391    S VERDATE =$$FMTE^XL FDT($P($$G ET1^DIQ(41 .41,$G(TRI GDATA("VER DFN")),1," I"),".",1) ,2)  ; For mat Verifi cation dat e (MM/DD/Y Y)
  6392   "RTN","DGM XORU",202, 0)
  6393    I $G(VERD ATE)="" Q
  6394   "RTN","DGM XORU",203, 0)
  6395    S MASSESC =$$GET^XPA R("SYS","M ASS ASCII  CHARACTER  SWITCH")
  6396   "RTN","DGM XORU",204, 0)
  6397    S ESCCHAR =$$GET^XPA R("SYS","M ASS ASCII  CHAR REPLA CEMENT")
  6398   "RTN","DGM XORU",205, 0)
  6399    S NARR="P re-Registe r Date: "_ VERDATE
  6400   "RTN","DGM XORU",206, 0)
  6401    D OBR^DGM XHL7(1,.SE G,"DEMOGRA PHIC VERIF ICATION")     ; Build  OBR
  6402   "RTN","DGM XORU",207, 0)
  6403    I MASSESC  D ESCINVL D^SDMXCORE (.SEG,ESCC HAR)
  6404   "RTN","DGM XORU",208, 0)
  6405    S OK=$$AD DSEG^HLOAP I(.MSG,.SE G)
  6406   "RTN","DGM XORU",209, 0)
  6407    D OBX^DGM XHL7(1,.SE G,"STATUS" ,"ACTIVE")               ; Build  Status OB X (Always  send ACTIV E)
  6408   "RTN","DGM XORU",210, 0)
  6409    I MASSESC  D ESCINVL D^SDMXCORE (.SEG,ESCC HAR)
  6410   "RTN","DGM XORU",211, 0)
  6411    S OK=$$AD DSEG^HLOAP I(.MSG,.SE G)
  6412   "RTN","DGM XORU",212, 0)
  6413    D OBX^DGM XHL7(2,.SE G,"NARRATI VE",NARR)                ; Build  Narrative  OBX
  6414   "RTN","DGM XORU",213, 0)
  6415    I MASSESC  D ESCINVL D^SDMXCORE (.SEG,ESCC HAR)
  6416   "RTN","DGM XORU",214, 0)
  6417    S OK=$$AD DSEG^HLOAP I(.MSG,.SE G)
  6418   "RTN","DGM XORU",215, 0)
  6419    Q
  6420   "RTN","DGM XPOST")
  6421   0^10^B2249 025
  6422   "RTN","DGM XPOST",1,0 )
  6423   DGMXPOST ;  MASS/MKN  - Post-ins tall routi ne;12/13/2 017
  6424   "RTN","DGM XPOST",2,0 )
  6425    ;;5.3;Reg istration; **948**;De cember 13, 2017;Build  66
  6426   "RTN","DGM XPOST",3,0 )
  6427    ;VA DIREC TIVE 6402,  this rout ine should  not be mo dified.
  6428   "RTN","DGM XPOST",4,0 )
  6429    ;
  6430   "RTN","DGM XPOST",5,0 )
  6431   EN ;The ac tual post  install do es nothing . The purp ose of thi s routine  is
  6432   "RTN","DGM XPOST",6,0 )
  6433    ; to prov ide a "bac k out" fun ction at t ag BACKOUT
  6434   "RTN","DGM XPOST",7,0 )
  6435    Q
  6436   "RTN","DGM XPOST",8,0 )
  6437    ;
  6438   "RTN","DGM XPOST",9,0 )
  6439   BACKOUT ;
  6440   "RTN","DGM XPOST",10, 0)
  6441    N FN,FNA, IEN97,N,NA ,X
  6442   "RTN","DGM XPOST",11, 0)
  6443    S IEN97=$ O(^XPD(9.7 ,"B","DG*5 .3*948","" ),-1),TEMP ="Temporar y backup f ile:"
  6444   "RTN","DGM XPOST",12, 0)
  6445    I 'IEN97  W !,"DG*5. 3*948 Inst all not fo und" Q
  6446   "RTN","DGM XPOST",13, 0)
  6447    S N=0,NA= "" F  S N= $O(^XPD(9. 7,IEN97,"M ES",N)) Q: N=""  S X= ^XPD(9.7,I EN97,"MES" ,N,0) D
  6448   "RTN","DGM XPOST",14, 0)
  6449    .I $E(X,1 ,$L(TEMP)) =TEMP S NA =$P(X,":", 2)
  6450   "RTN","DGM XPOST",15, 0)
  6451    I NA="" W  !,"Backup  file name  not found  in instal lation fil e" Q
  6452   "RTN","DGM XPOST",16, 0)
  6453    W !,"Back up file "_ TEMP_" fou nd; restor e commenci ng..."
  6454   "RTN","DGM XPOST",17, 0)
  6455    F FN=2,26 .14,27.11, 38.1,41.41 ,391.71 S  FNA="File  "_FN W !," Restoring  data dicti onary for  file #"_FN _"..." D
  6456   "RTN","DGM XPOST",18, 0)
  6457    .I '$D(@N A@(FNA)) W  !,"File # "_FN_" not  found in  backup fil e" Q
  6458   "RTN","DGM XPOST",19, 0)
  6459    .K ^DD(FN ) M ^DD(FN )=@NA@(FNA )
  6460   "RTN","DGM XPOST",20, 0)
  6461    W !,"DG*5 .3*948 Bac k out fini shed!"
  6462   "RTN","DGM XPOST",21, 0)
  6463    Q
  6464   "RTN","DGM XPOST",22, 0)
  6465    ;
  6466   "RTN","DGM XPRE")
  6467   0^9^B16756 92
  6468   "RTN","DGM XPRE",1,0)
  6469   DGMXPRE ;  MASS/MKN -  Pre-insta ll routine ;12/13/201 7
  6470   "RTN","DGM XPRE",2,0)
  6471    ;;5.3;Reg istration; **948**;De cember 13, 2017;Build  66
  6472   "RTN","DGM XPRE",3,0)
  6473    ;VA DIREC TIVE 6402,  this rout ine should  not be mo dified.
  6474   "RTN","DGM XPRE",4,0)
  6475    ;
  6476   "RTN","DGM XPRE",5,0)
  6477    ;  ICR#    Supported  Reference s
  6478   "RTN","DGM XPRE",6,0)
  6479    ;  10103   $FMADD^XL FDT
  6480   "RTN","DGM XPRE",7,0)
  6481    ;
  6482   "RTN","DGM XPRE",8,0)
  6483   EN ;Make a  copy of d ata dictio naries for  the files  in patch  DG*5.3*948
  6484   "RTN","DGM XPRE",9,0)
  6485    ;
  6486   "RTN","DGM XPRE",10,0 )
  6487    N FN,NA
  6488   "RTN","DGM XPRE",11,0 )
  6489    D MES^XPD UTL("Pre I nstall rou tine start ing. Savin g data dic tionaries. ..")
  6490   "RTN","DGM XPRE",12,0 )
  6491    S NA=$NA( ^XTMP("DGM X_5_3_948" _$J)) K @N A S @NA@(0 )=$$FMADD^ XLFDT(DT,6 0)_U_DT
  6492   "RTN","DGM XPRE",13,0 )
  6493    D MES^XPD UTL("This  is the tem porary fil e that wou ld be used  for a ""b ack out"": ")
  6494   "RTN","DGM XPRE",14,0 )
  6495    D MES^XPD UTL("Tempo rary backu p file:"_N A)
  6496   "RTN","DGM XPRE",15,0 )
  6497    F FN=2,26 .14,27.11, 38.1,41.41 ,391.71 D  MES^XPDUTL ("Saving D D for file  "_FN) M @ NA@("File  "_FN)=^DD( FN)
  6498   "RTN","DGM XPRE",16,0 )
  6499    ;
  6500   "RTN","DGM XPRE",17,0 )
  6501    D MES^XPD UTL("Pre I nstall rou tine ended ")
  6502   "RTN","DGM XPRE",18,0 )
  6503    Q
  6504   "RTN","DGM XPRE",19,0 )
  6505    ;
  6506   "RTN","DGM XVLD")
  6507   0^6^B14924 583
  6508   "RTN","DGM XVLD",1,0)
  6509   DGMXVLD ;  MASS/DXL -  Incoming  Patient Va lidation;1 0/05/17
  6510   "RTN","DGM XVLD",2,0)
  6511    ;;5.3;Reg istration; **948**;OC TOBER 05,2 017;Build  66
  6512   "RTN","DGM XVLD",3,0)
  6513    ;Per VA D IRECTIVE 6 402, this  routine sh ould not b e modified .
  6514   "RTN","DGM XVLD",4,0)
  6515    ;
  6516   "RTN","DGM XVLD",5,0)
  6517    ;  ICR# S upported R eferences
  6518   "RTN","DGM XVLD",6,0)
  6519    ;       $ $FMTE^DILI BF
  6520   "RTN","DGM XVLD",7,0)
  6521    ;  4718 $ $GET^HLOPR S
  6522   "RTN","DGM XVLD",8,0)
  6523    ;       $ $STRIP^XLF STR
  6524   "RTN","DGM XVLD",9,0)
  6525    ;       $ $UP^XLFSTR
  6526   "RTN","DGM XVLD",10,0 )
  6527    ;
  6528   "RTN","DGM XVLD",11,0 )
  6529    Q
  6530   "RTN","DGM XVLD",12,0 )
  6531   VLDPAT(PID ,DFN) ; Va lidates pa tient info rmation fr om an inco ming HL7 m essage. Re turns '1'  for valid,  '0' for i nvalid.
  6532   "RTN","DGM XVLD",13,0 )
  6533    ; PID - C ontains th e PID segm ent from t he HL7 mes sage (in s tandard HL O array)
  6534   "RTN","DGM XVLD",14,0 )
  6535    ; DFN - V istA Inter nal Entry  Number (IE N)
  6536   "RTN","DGM XVLD",15,0 )
  6537    ;
  6538   "RTN","DGM XVLD",16,0 )
  6539    S PID=$G( PID),DFN=$ G(DFN)
  6540   "RTN","DGM XVLD",17,0 )
  6541    N NAME,FN AME,LNAME, DOB,SEX,SS N,MSGFNAME ,MSGLNAME, MSGDOB,MSG SEX,MSGSSN ,ERRLIST,R ET
  6542   "RTN","DGM XVLD",18,0 )
  6543    S RET=1,E RRLIST="", NAME=""
  6544   "RTN","DGM XVLD",19,0 )
  6545    D GETDEMO G^DGMXHL7( $G(DFN),.N AME,.DOB,. SSN,.SEX)         ; G et interna l patient  demographi cs
  6546   "RTN","DGM XVLD",20,0 )
  6547    S LNAME=$ P($G(NAME) ,",",1)                                 ; P iece inter nal name
  6548   "RTN","DGM XVLD",21,0 )
  6549    S FNAME=$ P($G(NAME) ,",",2)
  6550   "RTN","DGM XVLD",22,0 )
  6551    D GETPID( .PID,.MSGL NAME,.MSGF NAME,.MSGD OB,.MSGSEX ,.MSGSSN)   ; Get dem ographics  from PID
  6552   "RTN","DGM XVLD",23,0 )
  6553    ;
  6554   "RTN","DGM XVLD",24,0 )
  6555    ; Sanitiz e variable s
  6556   "RTN","DGM XVLD",25,0 )
  6557    S LNAME=$ G(LNAME),M SGLNAME=$G (MSGLNAME)
  6558   "RTN","DGM XVLD",26,0 )
  6559    S FNAME=$ G(FNAME),M SGFNAME=$G (MSGFNAME)
  6560   "RTN","DGM XVLD",27,0 )
  6561    S DOB=$G( DOB),MSGDO B=$G(MSGDO B)
  6562   "RTN","DGM XVLD",28,0 )
  6563    S SEX=$G( SEX),MSGSE X=$G(MSGSE X)
  6564   "RTN","DGM XVLD",29,0 )
  6565    S SSN=$G( SSN),MSGSS N=$G(MSGSS N)
  6566   "RTN","DGM XVLD",30,0 )
  6567    ;
  6568   "RTN","DGM XVLD",31,0 )
  6569    ; Check d emographic s
  6570   "RTN","DGM XVLD",32,0 )
  6571    I (LNAME' =""),(MSGL NAME'=""), ($E(LNAME, 1,3)'=$E(M SGLNAME,1, 3)) D BLDE RR(.ERRLIS T,"Last Na me",LNAME, MSGLNAME)     ; Last  Name (firs t three ch aracters)
  6572   "RTN","DGM XVLD",33,0 )
  6573    I (FNAME' =""),(MSGF NAME'=""), ($E(FNAME, 1,3)'=$E(M SGFNAME,1, 3)) D BLDE RR(.ERRLIS T,"First N ame",FNAME ,MSGFNAME)    ; First  Name (fir st three c haracters)
  6574   "RTN","DGM XVLD",34,0 )
  6575    I (DOB'=" "),(MSGDOB '=""),(DOB '=MSGDOB)  D BLDERR(. ERRLIST,"D OB",$$FMTE ^DILIBF(DO B),$$FMTE^ DILIBF(MSG DOB))         ; DOB ( readable f ormat)
  6576   "RTN","DGM XVLD",35,0 )
  6577    I (SEX'=" "),(MSGSEX '=""),(SEX '=MSGSEX)  D BLDERR(. ERRLIST,"G ender",SEX ,MSGSEX)                                       ; Sex
  6578   "RTN","DGM XVLD",36,0 )
  6579    I (SSN'=" "),(MSGSSN '=""),(SSN '=MSGSSN)  D BLDERR(. ERRLIST,"S SN",SSN,MS GSSN)                                          ; Socia l Security  Number
  6580   "RTN","DGM XVLD",37,0 )
  6581    I $G(ERRL IST)'="" D  ERRLOG^SD MXERRO(313 ,ERRLIST,1 ) S RET=0
  6582   "RTN","DGM XVLD",38,0 )
  6583    Q RET
  6584   "RTN","DGM XVLD",39,0 )
  6585   GETPID(PID ,MSGLNAME, MSGFNAME,M SGDOB,MSGS EX,MSGSSN)  ; Pulls d emographic  data from  the PID s egment on  an incomin g message
  6586   "RTN","DGM XVLD",40,0 )
  6587    ; PID - C ontains th e PID segm ent from t he HL7 mes sage (in s tandard HL O array)
  6588   "RTN","DGM XVLD",41,0 )
  6589    ; MSGLNAM E - Last n ame from t he message
  6590   "RTN","DGM XVLD",42,0 )
  6591    ; MSGFNAM E - First  name from  the messag e
  6592   "RTN","DGM XVLD",43,0 )
  6593    ; MSGDOB    - Date o f birth fr om the mes sage
  6594   "RTN","DGM XVLD",44,0 )
  6595    ; MSGSEX    - Sex fr om the mes sage
  6596   "RTN","DGM XVLD",45,0 )
  6597    ; MSGSSN    - Social  security  number fro m the mess age
  6598   "RTN","DGM XVLD",46,0 )
  6599    ;
  6600   "RTN","DGM XVLD",47,0 )
  6601    ; Sanitiz e Inputs
  6602   "RTN","DGM XVLD",48,0 )
  6603    S PID=$G( PID),MSGLN AME=$G(MSG LNAME),MSG FNAME=$G(M SGFNAME),M SGDOB=$G(M SGDOB),MSG SEX=$G(MSG SEX),MSGSS N=$G(MSGSS N)
  6604   "RTN","DGM XVLD",49,0 )
  6605    ;
  6606   "RTN","DGM XVLD",50,0 )
  6607    ; Get dat a from PID
  6608   "RTN","DGM XVLD",51,0 )
  6609    S MSGLNAM E=$$GET^HL OPRS(.PID, 5,1)   ; P ID-5.1 (La st Name)
  6610   "RTN","DGM XVLD",52,0 )
  6611    S MSGFNAM E=$$GET^HL OPRS(.PID, 5,2)   ; P ID-5.2 (Fi rst Name)
  6612   "RTN","DGM XVLD",53,0 )
  6613    S MSGDOB= $$GET^HLOP RS(.PID,7)        ; P ID-7   (Da te of Birt h)
  6614   "RTN","DGM XVLD",54,0 )
  6615    S MSGSEX= $$GET^HLOP RS(.PID,8)        ; P ID-8   (Se x)
  6616   "RTN","DGM XVLD",55,0 )
  6617    S MSGSSN= $$GET^HLOP RS(.PID,19 )      ; P ID-19  (So cial Secur ity Number )
  6618   "RTN","DGM XVLD",56,0 )
  6619    ;
  6620   "RTN","DGM XVLD",57,0 )
  6621    ; Format  data from  PID
  6622   "RTN","DGM XVLD",58,0 )
  6623    S MSGLNAM E=$$UP^XLF STR($G(MSG LNAME))         ; Fir st three c haracters  (uppercase )
  6624   "RTN","DGM XVLD",59,0 )
  6625    S MSGFNAM E=$$UP^XLF STR($G(MSG FNAME))         ; Fir st three c haracters  (uppercase )
  6626   "RTN","DGM XVLD",60,0 )
  6627    S MSGDOB= $$HL72VATS ^SDMXCORE( $G(MSGDOB) )    ; HL7  timestamp  to intern al time
  6628   "RTN","DGM XVLD",61,0 )
  6629    S MSGSEX= $$UP^XLFST R($G(MSGSE X))
  6630   "RTN","DGM XVLD",62,0 )
  6631    S MSGSEX= $S(MSGSEX= "MALE":"M" ,MSGSEX="F EMALE":"F" ,1:MSGSEX)  ; "M" or  "F" gender
  6632   "RTN","DGM XVLD",63,0 )
  6633    S MSGSSN= $$STRIP^XL FSTR($G(MS GSSN),"-")                            ; Str ip '-'s
  6634   "RTN","DGM XVLD",64,0 )
  6635    ;
  6636   "RTN","DGM XVLD",65,0 )
  6637    Q
  6638   "RTN","DGM XVLD",66,0 )
  6639   BLDERR(ERR LIST,TYPE, INTVAL,MSG VAL) ; Bui lds a stri ng contain ing error  informatio n for pati ent valida tion
  6640   "RTN","DGM XVLD",67,0 )
  6641    ; The for mat of the  error tex t is repea ting. Type s include:  "Last Nam e","First  Name","DOB ","Gender" ,"SSN"
  6642   "RTN","DGM XVLD",68,0 )
  6643    N DROW,DC OL
  6644   "RTN","DGM XVLD",69,0 )
  6645    S ERRLIST =$G(ERRLIS T),TYPE=$G (TYPE),INT VAL=$G(INT VAL),MSGVA L=$G(MSGVA L)
  6646   "RTN","DGM XVLD",70,0 )
  6647    S DROW="  / "
  6648   "RTN","DGM XVLD",71,0 )
  6649    S DCOL=": "
  6650   "RTN","DGM XVLD",72,0 )
  6651    I $G(ERRL IST)="" S  ERRLIST="T ype"_DCOL_ "Internal  Value"_DCO L_"Msg Val ue"_DROW
  6652   "RTN","DGM XVLD",73,0 )
  6653    S ERRLIST =ERRLIST_T YPE_DCOL_I NTVAL_DCOL _MSGVAL_DR OW
  6654   "RTN","DGM XVLD",74,0 )
  6655    Q
  6656   "RTN","VAF CDD01")
  6657   0^2^B39020 667
  6658   "RTN","VAF CDD01",1,0 )
  6659   VAFCDD01 ; ALB/JRP,LT L-DATA DIC TIONARY UT ILITIES ;0 5-SEP-1996
  6660   "RTN","VAF CDD01",2,0 )
  6661    ;;5.3;Reg istration; **91,149,9 48**;Jun 0 6, 1996;Bu ild 66
  6662   "RTN","VAF CDD01",3,0 )
  6663   AVAFC(DFN)  ;AVAFC* c ross refer ence for P ATIENT fil e (#2)
  6664   "RTN","VAF CDD01",4,0 )
  6665    ;
  6666   "RTN","VAF CDD01",5,0 )
  6667    ;Input  :  IFN - Poi nter to en try in PAT IENT file  (#2)
  6668   "RTN","VAF CDD01",6,0 )
  6669    ;          Variable  VAFCEPIC m ay be pass ed to upda te field  
  6670   "RTN","VAF CDD01",7,0 )
  6671    ;          ENTRY WAS  CREATED B Y MASS EPI C (.11) in  the
  6672   "RTN","VAF CDD01",8,0 )
  6673    ;          ADT/HL7 P IVOT file  (#391.71)
  6674   "RTN","VAF CDD01",9,0 )
  6675    ;Output :  None
  6676   "RTN","VAF CDD01",10, 0)
  6677    ;          VAFCFLG w ill be set  to 1 if t he cross r eference i s
  6678   "RTN","VAF CDD01",11, 0)
  6679    ;          not execu ted becaus e the chan ge is bein g made fro m
  6680   "RTN","VAF CDD01",12, 0)
  6681    ;          within th e Registra tion proce ss.  This  notifies
  6682   "RTN","VAF CDD01",13, 0)
  6683    ;          Registrat ion that a  change wa s made and  that this
  6684   "RTN","VAF CDD01",14, 0)
  6685    ;          cross ref erence sho uld be exe cuted if t he Registr ation
  6686   "RTN","VAF CDD01",15, 0)
  6687    ;          process i s aborted.
  6688   "RTN","VAF CDD01",16, 0)
  6689    ;
  6690   "RTN","VAF CDD01",17, 0)
  6691    ;Notes  :  The AVAFC * cross re ferences a re used to  remember  that
  6692   "RTN","VAF CDD01",18, 0)
  6693    ;          changes w ere made t o the PATI ENT file ( #2) outsid e of
  6694   "RTN","VAF CDD01",19, 0)
  6695    ;          the Regis tration pr ocess.  Ex ecution of  this cros s
  6696   "RTN","VAF CDD01",20, 0)
  6697    ;          reference  will crea te an entr y in the A DT/HL7 PIV OT
  6698   "RTN","VAF CDD01",21, 0)
  6699    ;          file (#39 1.71) and  mark it as  requiring  transmiss ion
  6700   "RTN","VAF CDD01",22, 0)
  6701    ;          of an HL7  ADT-A08 m essage.
  6702   "RTN","VAF CDD01",23, 0)
  6703    ;
  6704   "RTN","VAF CDD01",24, 0)
  6705    ;       :  Execution  of this c ross refer ence can b e prevente d by
  6706   "RTN","VAF CDD01",25, 0)
  6707    ;          setting t he local v ariables:  VAFCA08 eq ual to 1
  6708   "RTN","VAF CDD01",26, 0)
  6709    ;                                          VAFHCA08 e qual to 1
  6710   "RTN","VAF CDD01",27, 0)
  6711    ;
  6712   "RTN","VAF CDD01",28, 0)
  6713    ;       :  If only o ne of the  CA08 varia bles is se t to 1 an  entry
  6714   "RTN","VAF CDD01",29, 0)
  6715    ;          will be m ade in the  pivot fil e (#391.71 ) but the
  6716   "RTN","VAF CDD01",30, 0)
  6717    ;          correspon ding trans mission fl ag will no t be set.   In this
  6718   "RTN","VAF CDD01",31, 0)
  6719    ;          case sett ing VAFCA0 8=1 will p revent the  REQUIRES  TRANSMISSI ON
  6720   "RTN","VAF CDD01",32, 0)
  6721    ;          flag from  being set  and setti ng VAFHCA0 8=1 will p revent the
  6722   "RTN","VAF CDD01",33, 0)
  6723    ;          TRANSMITT ED-REQUIRE S TRANSMIS SION flag  from being  set.
  6724   "RTN","VAF CDD01",34, 0)
  6725    ;          This allo ws control  for sendi ng HL7 and /or HL7v2. 3
  6726   "RTN","VAF CDD01",35, 0)
  6727    ;
  6728   "RTN","VAF CDD01",36, 0)
  6729    ;Check in put
  6730   "RTN","VAF CDD01",37, 0)
  6731    I +$G(DFN ),$D(^DPT( DFN,0))
  6732   "RTN","VAF CDD01",38, 0)
  6733    E  Q
  6734   "RTN","VAF CDD01",39, 0)
  6735    ;quit if  re-indexin g
  6736   "RTN","VAF CDD01",40, 0)
  6737    Q:$D(DIU( 0))
  6738   "RTN","VAF CDD01",41, 0)
  6739    ;
  6740   "RTN","VAF CDD01",42, 0)
  6741    N VARPTR, PIVOTNUM ; Declare va riables
  6742   "RTN","VAF CDD01",43, 0)
  6743    ;
  6744   "RTN","VAF CDD01",44, 0)
  6745    DO  K VAF CF ; do HL 7 V2.3 MES SAGING
  6746   "RTN","VAF CDD01",45, 0)
  6747    .;CHECK T URNOFF FLA G
  6748   "RTN","VAF CDD01",46, 0)
  6749    .Q:$D(VAF CA08)
  6750   "RTN","VAF CDD01",47, 0)
  6751    .;IF SEND  HL7 V2.3  MESSAGES I N MAS PARA METER FILE  IS SET
  6752   "RTN","VAF CDD01",48, 0)
  6753    .;TO SEND /SUSPEND T HEN DO IT,  ELSE QUIT  
  6754   "RTN","VAF CDD01",49, 0)
  6755    .I '$P($$ SEND^VAFHU TL(),"^",2 ) Q
  6756   "RTN","VAF CDD01",50, 0)
  6757    .;IF in R egistratio n option,  save field s edited
  6758   "RTN","VAF CDD01",51, 0)
  6759    .I $$REG( ) D  Q
  6760   "RTN","VAF CDD01",52, 0)
  6761    . . Q:$G( VAFCF)=""
  6762   "RTN","VAF CDD01",53, 0)
  6763    . . S VAF CFLDS(VAFC F)=""
  6764   "RTN","VAF CDD01",54, 0)
  6765    .;IF NOT  IN REGISTR ATION DO T HIS
  6766   "RTN","VAF CDD01",55, 0)
  6767    .D PVT4A0 8(DFN)
  6768   "RTN","VAF CDD01",56, 0)
  6769    .I PIVOTN UM<0 Q
  6770   "RTN","VAF CDD01",57, 0)
  6771    .; set ne ed to tran smit flag
  6772   "RTN","VAF CDD01",58, 0)
  6773    .D XMITFL AG(0,PIVOT NUM)
  6774   "RTN","VAF CDD01",59, 0)
  6775    ;
  6776   "RTN","VAF CDD01",60, 0)
  6777    DO  ;     do HL7 V2. 2 MESSAGIN G
  6778   "RTN","VAF CDD01",61, 0)
  6779    .Q:$G(VAF HCA08)
  6780   "RTN","VAF CDD01",62, 0)
  6781    .Q:$G(VAF CFLG)
  6782   "RTN","VAF CDD01",63, 0)
  6783    .I $$EN^V AFHREG() S  VAFCFLG=1  Q
  6784   "RTN","VAF CDD01",64, 0)
  6785    .I '$$SEN D^VAFHUTL( ) Q
  6786   "RTN","VAF CDD01",65, 0)
  6787    .I +$G(PI VOTNUM)<0  Q  ;          its alr eady been  called and  failed qu it
  6788   "RTN","VAF CDD01",66, 0)
  6789    .I '$G(PI VOTNUM) D  PVT4A08(DF N) ;                   set ac xr ef and piv ot
  6790   "RTN","VAF CDD01",67, 0)
  6791    .I PIVOTN UM<0 Q
  6792   "RTN","VAF CDD01",68, 0)
  6793    .; set re quires tra nsmission- Yes flag
  6794   "RTN","VAF CDD01",69, 0)
  6795    .D SETTFL AG(0,PIVOT NUM)
  6796   "RTN","VAF CDD01",70, 0)
  6797    .;done
  6798   "RTN","VAF CDD01",71, 0)
  6799    QUIT
  6800   "RTN","VAF CDD01",72, 0)
  6801    ;
  6802   "RTN","VAF CDD01",73, 0)
  6803   PVT4A08(DF N) ;Create  entry in  ADT/HL7 PI VOT file f or an ADT- A08 event
  6804   "RTN","VAF CDD01",74, 0)
  6805    ; and mar k it for t ransmissio n
  6806   "RTN","VAF CDD01",75, 0)
  6807    ;
  6808   "RTN","VAF CDD01",76, 0)
  6809    ;Input  :  IFN - Poi nter to en try in PAT IENT file  (#2)
  6810   "RTN","VAF CDD01",77, 0)
  6811    ;Output :  None
  6812   "RTN","VAF CDD01",78, 0)
  6813    ;Notes  :  There are  no checks  to determ ine if the  entry sho uld be
  6814   "RTN","VAF CDD01",79, 0)
  6815    ;          created ( other than  input of  a valid DF N)
  6816   "RTN","VAF CDD01",80, 0)
  6817    ;
  6818   "RTN","VAF CDD01",81, 0)
  6819    ;Check in put
  6820   "RTN","VAF CDD01",82, 0)
  6821    I +$G(DFN ),$D(^DPT( DFN,0))
  6822   "RTN","VAF CDD01",83, 0)
  6823    E  QUIT
  6824   "RTN","VAF CDD01",84, 0)
  6825    ;Declare  variables   don't new  for call  from top
  6826   "RTN","VAF CDD01",85, 0)
  6827    ;N VARPTR ,PIVOTNUM
  6828   "RTN","VAF CDD01",86, 0)
  6829    ;Set vari able point er used by  ADT/HL7 P IVOT file
  6830   "RTN","VAF CDD01",87, 0)
  6831    S VARPTR= DFN_";DPT( "
  6832   "RTN","VAF CDD01",88, 0)
  6833    ;Create e ntry
  6834   "RTN","VAF CDD01",89, 0)
  6835    S PIVOTNU M=+$$PIVNW ^VAFHPIVT( DFN,$P(DT, "."),4,VAR PTR)
  6836   "RTN","VAF CDD01",90, 0)
  6837    Q:(PIVOTN UM<0)
  6838   "RTN","VAF CDD01",91, 0)
  6839    ;Mark ent ry as requ ires trans mission
  6840   "RTN","VAF CDD01",92, 0)
  6841    I $P($$SE ND^VAFHUTL (),"^",2)  D XMITFLAG (0,PIVOTNU M)
  6842   "RTN","VAF CDD01",93, 0)
  6843    ;Mark ent ry as tran smitted fi eld YES
  6844   "RTN","VAF CDD01",94, 0)
  6845    I $G(VAFC FLG),$$SEN D^VAFHUTL( ) D SETTFL AG(0,PIVOT NUM)
  6846   "RTN","VAF CDD01",95, 0)
  6847    ;Done
  6848   "RTN","VAF CDD01",96, 0)
  6849    Q
  6850   "RTN","VAF CDD01",97, 0)
  6851    ;
  6852   "RTN","VAF CDD01",98, 0)
  6853   PROCESS()  ;
  6854   "RTN","VAF CDD01",99, 0)
  6855    ;This cal l simply p rocesses t he array e lements in  the VAFCF LDS
  6856   "RTN","VAF CDD01",100 ,0)
  6857    ;variable  into a st ring
  6858   "RTN","VAF CDD01",101 ,0)
  6859    Q:'$D(VAF CFLDS) -1
  6860   "RTN","VAF CDD01",102 ,0)
  6861    N INDEX,R ETURN S IN DEX="",RET URN=""
  6862   "RTN","VAF CDD01",103 ,0)
  6863    F  S INDE X=$O(VAFCF LDS(INDEX) ) Q:INDEX= ""  D
  6864   "RTN","VAF CDD01",104 ,0)
  6865    . S RETUR N=RETURN_I NDEX
  6866   "RTN","VAF CDD01",105 ,0)
  6867    Q:$G(RETU RN)="" -1
  6868   "RTN","VAF CDD01",106 ,0)
  6869    Q RETURN
  6870   "RTN","VAF CDD01",107 ,0)
  6871    ;
  6872   "RTN","VAF CDD01",108 ,0)
  6873   REGEDIT(PI VOTNUM,FIE LDS) ;
  6874   "RTN","VAF CDD01",109 ,0)
  6875    ;This cal l is used  to generat e an HL7 V ERSION 2.3  A04 or A0 8 message
  6876   "RTN","VAF CDD01",110 ,0)
  6877    ;from the  pivot fil e the A04  is generat ed from DG REG00 when  a 
  6878   "RTN","VAF CDD01",111 ,0)
  6879    ;Registra tion is kn own to hav e been com pleted. Th e A08 mess age
  6880   "RTN","VAF CDD01",112 ,0)
  6881    ;is gener ated from  DGREG0 whe n the Regi stration o ption was  used
  6882   "RTN","VAF CDD01",113 ,0)
  6883    ;to edit  some field s, but the  Registrat ion was ne ver comple ted.
  6884   "RTN","VAF CDD01",114 ,0)
  6885    ;FIELDS v ariable co ntains the  fields ed ited durin g the sess ion.
  6886   "RTN","VAF CDD01",115 ,0)
  6887    S DIE="39 1.71",DA=P IVOTNUM
  6888   "RTN","VAF CDD01",116 ,0)
  6889    S DR="2.1 ///^S X=FI ELDS"
  6890   "RTN","VAF CDD01",117 ,0)
  6891    D ^DIE
  6892   "RTN","VAF CDD01",118 ,0)
  6893    K DIE,DA, DR
  6894   "RTN","VAF CDD01",119 ,0)
  6895    Q
  6896   "RTN","VAF CDD01",120 ,0)
  6897   TRANSMIT(P IVOTNUM) ;
  6898   "RTN","VAF CDD01",121 ,0)
  6899    ;This cal l is used  to simply  set the 'R equires Tr ansmission '
  6900   "RTN","VAF CDD01",122 ,0)
  6901    ;flag in  the pivot  file
  6902   "RTN","VAF CDD01",123 ,0)
  6903    S DIE="39 1.71",DA=P IVOTNUM
  6904   "RTN","VAF CDD01",124 ,0)
  6905    S DR=".08 ///^S X=1"
  6906   "RTN","VAF CDD01",125 ,0)
  6907    D ^DIE
  6908   "RTN","VAF CDD01",126 ,0)
  6909    K DIE,DA, DR
  6910   "RTN","VAF CDD01",127 ,0)
  6911    Q
  6912   "RTN","VAF CDD01",128 ,0)
  6913    ;
  6914   "RTN","VAF CDD01",129 ,0)
  6915   MESSAGE(PI VOTPTR,NUM BER) ;
  6916   "RTN","VAF CDD01",130 ,0)
  6917    ;This tag  stuffs th e message  id from hl 7 into piv ot file
  6918   "RTN","VAF CDD01",131 ,0)
  6919    S DIE="39 1.71",DA=P IVOTPTR
  6920   "RTN","VAF CDD01",132 ,0)
  6921    S DR="1.1 ///^S X=NU MBER"
  6922   "RTN","VAF CDD01",133 ,0)
  6923    D ^DIE
  6924   "RTN","VAF CDD01",134 ,0)
  6925    K DIE,DA, DR
  6926   "RTN","VAF CDD01",135 ,0)
  6927    Q
  6928   "RTN","VAF CDD01",136 ,0)
  6929    ;
  6930   "RTN","VAF CDD01",137 ,0)
  6931   REG() ;
  6932   "RTN","VAF CDD01",138 ,0)
  6933    ;this tag  looks at  what optio n the user  is in at  the time
  6934   "RTN","VAF CDD01",139 ,0)
  6935    ;
  6936   "RTN","VAF CDD01",140 ,0)
  6937    I $P($G(X QY0),"^")= "DG REGIST ER PATIENT " Q 1
  6938   "RTN","VAF CDD01",141 ,0)
  6939    I $P($G(X QY0),"^")= "DGRPT 10- 10T REGIST RATION" Q  1
  6940   "RTN","VAF CDD01",142 ,0)
  6941    Q 0
  6942   "RTN","VAF CDD01",143 ,0)
  6943    ;
  6944   "RTN","VAF CDD01",144 ,0)
  6945   HL7A08 ;
  6946   "RTN","VAF CDD01",145 ,0)
  6947    I $D(VAFH MRG) D KIL L^VAFHUTL2 (DFN,VAFHB EF)
  6948   "RTN","VAF CDD01",146 ,0)
  6949    ;Registra tion proce ss was abo rted and c hanges wer e made
  6950   "RTN","VAF CDD01",147 ,0)
  6951    ;to key d emographic  data.  Cr eate an HL 7 V2.3 ent ry in
  6952   "RTN","VAF CDD01",148 ,0)
  6953    ;the ADT/ HL PIVOT f ile so tha t demograp hic change s will be 
  6954   "RTN","VAF CDD01",149 ,0)
  6955    ;broadcas t. VAFCFLD S is set i n routine  VAFCDD01.  It contain s the
  6956   "RTN","VAF CDD01",150 ,0)
  6957    ;fields t hat were e dited.
  6958   "RTN","VAF CDD01",151 ,0)
  6959    I $D(VAFC FLDS) D
  6960   "RTN","VAF CDD01",152 ,0)
  6961    . N PIVOT NUM,IEN,PT R
  6962   "RTN","VAF CDD01",153 ,0)
  6963    . S PTR=D FN_";DPT("
  6964   "RTN","VAF CDD01",154 ,0)
  6965    . S PIVOT NUM=+$$PIV NW^VAFHPIV T(DFN,DT,4 ,PTR)
  6966   "RTN","VAF CDD01",155 ,0)
  6967    . Q:PIVOT NUM'>0
  6968   "RTN","VAF CDD01",156 ,0)
  6969    . S IEN=$ O(^VAT(391 .71,"D",PI VOTNUM,"") )
  6970   "RTN","VAF CDD01",157 ,0)
  6971    . Q:IEN'> 0
  6972   "RTN","VAF CDD01",158 ,0)
  6973    . S VAFCF LDS=$$PROC ESS^VAFCDD 01()
  6974   "RTN","VAF CDD01",159 ,0)
  6975    . I VAFCF LDS'=-1 D
  6976   "RTN","VAF CDD01",160 ,0)
  6977    . . D REG EDIT^VAFCD D01(IEN,VA FCFLDS)
  6978   "RTN","VAF CDD01",161 ,0)
  6979    . . D TRA NSMIT^VAFC DD01(IEN)
  6980   "RTN","VAF CDD01",162 ,0)
  6981    K VAFCFLD S
  6982   "RTN","VAF CDD01",163 ,0)
  6983    Q
  6984   "RTN","VAF CDD01",164 ,0)
  6985    ;
  6986   "RTN","VAF CDD01",165 ,0)
  6987   SECA08(DFN ) ;PUT ENT RY IN PIVO T FILE WHE N USER FLA GS A PT AS  SENSITIVE  IN 
  6988   "RTN","VAF CDD01",166 ,0)
  6989    ;FILE 38. 1 THIS IS  TRIGGERED  OUT OF ROU TINE DGSEC 1
  6990   "RTN","VAF CDD01",167 ,0)
  6991    N PIVOTNU M,IEN,PTR
  6992   "RTN","VAF CDD01",168 ,0)
  6993    S PTR=DFN _";DPT("
  6994   "RTN","VAF CDD01",169 ,0)
  6995    S PIVOTNU M=+$$PIVNW ^VAFHPIVT( DFN,DT,4,P TR)
  6996   "RTN","VAF CDD01",170 ,0)
  6997    Q:PIVOTNU M'>0
  6998   "RTN","VAF CDD01",171 ,0)
  6999    S IEN=$O( ^VAT(391.7 1,"D",PIVO TNUM,""))
  7000   "RTN","VAF CDD01",172 ,0)
  7001    Q:IEN'>0
  7002   "RTN","VAF CDD01",173 ,0)
  7003    ;SET EVEN T CODE FIE LD TO 97 I NDICATING  A SENSITIV ITY UPDATE
  7004   "RTN","VAF CDD01",174 ,0)
  7005    S DIE="39 1.71",DA=I EN
  7006   "RTN","VAF CDD01",175 ,0)
  7007    S DR=".1/ //^S X=97"
  7008   "RTN","VAF CDD01",176 ,0)
  7009    D ^DIE
  7010   "RTN","VAF CDD01",177 ,0)
  7011    K DIE,DA, DR
  7012   "RTN","VAF CDD01",178 ,0)
  7013    D TRANSMI T^VAFCDD01 (IEN)
  7014   "RTN","VAF CDD01",179 ,0)
  7015    Q
  7016   "RTN","VAF CDD01",180 ,0)
  7017    ;
  7018   "RTN","VAF CDD01",181 ,0)
  7019   XMITFLAG(P IVOTPTR,PI VOTNUM,TUR NOFF) ;Tur n transmis sion flag  for entry
  7020   "RTN","VAF CDD01",182 ,0)
  7021    ; in ADT/ HL7 PIVOT  file on/of f
  7022   "RTN","VAF CDD01",183 ,0)
  7023    ;
  7024   "RTN","VAF CDD01",184 ,0)
  7025    ;Input  :  PIVOTPTR  - Pointer  to entry i n ADT/HL7  PIVOT file  (#391.71)
  7026   "RTN","VAF CDD01",185 ,0)
  7027    ;                    - Use this  parameter  if the en try number  is known
  7028   "RTN","VAF CDD01",186 ,0)
  7029    ;                    - Not requ ired if us ing PIVOTN UM paramet er
  7030   "RTN","VAF CDD01",187 ,0)
  7031    ;                    - Use of t his parame ter takes  precedence  over use
  7032   "RTN","VAF CDD01",188 ,0)
  7033    ;                      the PIVO TNUM param eter
  7034   "RTN","VAF CDD01",189 ,0)
  7035    ;          PIVOTNUM  - PIVOT NU MBER value  (field #. 02) for en try
  7036   "RTN","VAF CDD01",190 ,0)
  7037    ;                      in ADT/H L7 PIVOT f ile (#391. 71)
  7038   "RTN","VAF CDD01",191 ,0)
  7039    ;                    - Use this  parameter  if the pi vot number  is known
  7040   "RTN","VAF CDD01",192 ,0)
  7041    ;                    - Not requ ired if us ing PIVOTP TR paramet er
  7042   "RTN","VAF CDD01",193 ,0)
  7043    ;          TURNOFF -  Denotes i f REQUIRES  TRANSMISS ION field  (#.08) sho uld
  7044   "RTN","VAF CDD01",194 ,0)
  7045    ;                     be turned  on (set t o 'YES') o r off (set  to 'NO')
  7046   "RTN","VAF CDD01",195 ,0)
  7047    ;                  1  = Turns t ransmissio n off
  7048   "RTN","VAF CDD01",196 ,0)
  7049    ;                  0  = Turns t ransmissio n on (defa ult)
  7050   "RTN","VAF CDD01",197 ,0)
  7051    ;Output :  None
  7052   "RTN","VAF CDD01",198 ,0)
  7053    ;
  7054   "RTN","VAF CDD01",199 ,0)
  7055    ;Check in put
  7056   "RTN","VAF CDD01",200 ,0)
  7057    S PIVOTPT R=+$G(PIVO TPTR)
  7058   "RTN","VAF CDD01",201 ,0)
  7059    S PIVOTNU M=+$G(PIVO TNUM)
  7060   "RTN","VAF CDD01",202 ,0)
  7061    Q:(('PIVO TPTR)&('PI VOTNUM))
  7062   "RTN","VAF CDD01",203 ,0)
  7063    S TURNOFF =+$G(TURNO FF)
  7064   "RTN","VAF CDD01",204 ,0)
  7065    ;Declare  variables
  7066   "RTN","VAF CDD01",205 ,0)
  7067    N VALUE,N ODE,XREFNU M,DA,X
  7068   "RTN","VAF CDD01",206 ,0)
  7069    ;Passed p ointer - v alidate
  7070   "RTN","VAF CDD01",207 ,0)
  7071    I (PIVOTP TR) Q:('$D (^VAT(391. 71,PIVOTPT R,0)))
  7072   "RTN","VAF CDD01",208 ,0)
  7073    ;Passed p ivot numbe r - conver t to point er
  7074   "RTN","VAF CDD01",209 ,0)
  7075    I ('PIVOT PTR) S PIV OTPTR=+$O( ^VAT(391.7 1,"D",PIVO TNUM,0)) Q :('PIVOTPT R)
  7076   "RTN","VAF CDD01",210 ,0)
  7077    ;Set File Man variab les
  7078   "RTN","VAF CDD01",211 ,0)
  7079    S DA=PIVO TPTR
  7080   "RTN","VAF CDD01",212 ,0)
  7081    S X='TURN OFF
  7082   "RTN","VAF CDD01",213 ,0)
  7083    ;If alrea dy transmi tted, empt y field(s)  edited, c an't do 8t h piece ""
  7084   "RTN","VAF CDD01",214 ,0)
  7085    ;I $G(VAF CF),'$P($G (^VAT(391. 71,DA,0)), U,8),$G(^V AT(391.71, DA,2)) S $ P(^VAT(391 .71,DA,2), U)=""
  7086   "RTN","VAF CDD01",215 ,0)
  7087    ;Hard set  field
  7088   "RTN","VAF CDD01",216 ,0)
  7089    S $P(^VAT (391.71,DA ,0),"^",8) =X
  7090   "RTN","VAF CDD01",217 ,0)
  7091    ;Hard set  fields ed ited
  7092   "RTN","VAF CDD01",218 ,0)
  7093    S:$G(VAFC F)&($P($G( ^VAT(391.7 1,DA,2)),U )'[$G(VAFC F)) $P(^VA T(391.71,D A,2),U)=$P ($G(^VAT(3 91.71,DA,2 )),U)_$G(V AFCF)
  7094   "RTN","VAF CDD01",219 ,0)
  7095    S $P(^VAT (391.71,DA ,0),U,11)= +$G(VAFCEP IC)
  7096   "RTN","VAF CDD01",220 ,0)
  7097    ;Execute  cross refe rences
  7098   "RTN","VAF CDD01",221 ,0)
  7099    S XREFNUM =0
  7100   "RTN","VAF CDD01",222 ,0)
  7101    F  S XREF NUM=+$O(^D D(391.71,. 08,1,XREFN UM)) Q:('X REFNUM)  D
  7102   "RTN","VAF CDD01",223 ,0)
  7103    .;Execute  kill logi c
  7104   "RTN","VAF CDD01",224 ,0)
  7105    .S NODE=$ G(^DD(391. 71,.08,1,X REFNUM,2))
  7106   "RTN","VAF CDD01",225 ,0)
  7107    .I (NODE' ="") X NOD E
  7108   "RTN","VAF CDD01",226 ,0)
  7109    .;Execute  set logic
  7110   "RTN","VAF CDD01",227 ,0)
  7111    .S NODE=$ G(^DD(391. 71,.08,1,X REFNUM,1))
  7112   "RTN","VAF CDD01",228 ,0)
  7113    .I (NODE' ="") X NOD E
  7114   "RTN","VAF CDD01",229 ,0)
  7115    Q
  7116   "RTN","VAF CDD01",230 ,0)
  7117    ;
  7118   "RTN","VAF CDD01",231 ,0)
  7119   SETTFLAG(P IVOTPTR,PI VOTNUM,TUR NOFF) ;Tur n transmis sion flag  for entry
  7120   "RTN","VAF CDD01",232 ,0)
  7121    ;                                   in ADT /HL7 PIVOT  file on/o ff
  7122   "RTN","VAF CDD01",233 ,0)
  7123    ;
  7124   "RTN","VAF CDD01",234 ,0)
  7125    ;Input  :  PIVOTPTR  - Pointer  to entry i n ADT/HL7  PIVOT file  (#391.71)
  7126   "RTN","VAF CDD01",235 ,0)
  7127    ;                    - Use this  parameter  if the en try number  is known
  7128   "RTN","VAF CDD01",236 ,0)
  7129    ;                    - Not requ ired if us ing PIVOTN UM paramet er
  7130   "RTN","VAF CDD01",237 ,0)
  7131    ;                    - Use of t his parame ter takes  precedence  over use
  7132   "RTN","VAF CDD01",238 ,0)
  7133    ;                      the PIVO TNUM param eter
  7134   "RTN","VAF CDD01",239 ,0)
  7135    ;          PIVOTNUM  - PIVOT NU MBER value  (field #. 02) for en try
  7136   "RTN","VAF CDD01",240 ,0)
  7137    ;                      in ADT/H L7 PIVOT f ile (#391. 71)
  7138   "RTN","VAF CDD01",241 ,0)
  7139    ;                    - Use this  parameter  if the pi vot number  is known
  7140   "RTN","VAF CDD01",242 ,0)
  7141    ;                    - Not requ ired if us ing PIVOTP TR paramet er
  7142   "RTN","VAF CDD01",243 ,0)
  7143    ;          TURNOFF -  Denotes i f TRANSMIT TED field  (#.06) sho uld
  7144   "RTN","VAF CDD01",244 ,0)
  7145    ;                     be turned  on (set t o 'YES') o r off (set  to 'NO')
  7146   "RTN","VAF CDD01",245 ,0)
  7147    ;                  1  = Turns t ransmissio n off
  7148   "RTN","VAF CDD01",246 ,0)
  7149    ;                  0  = Turns t ransmissio n on (defa ult)
  7150   "RTN","VAF CDD01",247 ,0)
  7151    ;Output :  None
  7152   "RTN","VAF CDD01",248 ,0)
  7153    ;
  7154   "RTN","VAF CDD01",249 ,0)
  7155    ;Check in put
  7156   "RTN","VAF CDD01",250 ,0)
  7157    S PIVOTPT R=+$G(PIVO TPTR)
  7158   "RTN","VAF CDD01",251 ,0)
  7159    S PIVOTNU M=+$G(PIVO TNUM)
  7160   "RTN","VAF CDD01",252 ,0)
  7161    Q:(('PIVO TPTR)&('PI VOTNUM))
  7162   "RTN","VAF CDD01",253 ,0)
  7163    S TURNOFF =+$G(TURNO FF)
  7164   "RTN","VAF CDD01",254 ,0)
  7165    ;Declare  variables
  7166   "RTN","VAF CDD01",255 ,0)
  7167    N VALUE,N ODE,XREFNU M,DA,X
  7168   "RTN","VAF CDD01",256 ,0)
  7169    ;Passed p ointer - v alidate
  7170   "RTN","VAF CDD01",257 ,0)
  7171    I (PIVOTP TR) Q:('$D (^VAT(391. 71,PIVOTPT R,0)))
  7172   "RTN","VAF CDD01",258 ,0)
  7173    ;Passed p ivot numbe r - conver t to point er
  7174   "RTN","VAF CDD01",259 ,0)
  7175    I ('PIVOT PTR) S PIV OTPTR=+$O( ^VAT(391.7 1,"D",PIVO TNUM,0)) Q :('PIVOTPT R)
  7176   "RTN","VAF CDD01",260 ,0)
  7177    ;Set File Man variab les
  7178   "RTN","VAF CDD01",261 ,0)
  7179    S DA=PIVO TPTR
  7180   "RTN","VAF CDD01",262 ,0)
  7181    S X='TURN OFF
  7182   "RTN","VAF CDD01",263 ,0)
  7183    ;Hard set  field
  7184   "RTN","VAF CDD01",264 ,0)
  7185    S $P(^VAT (391.71,DA ,0),"^",6) =X
  7186   "RTN","VAF CDD01",265 ,0)
  7187    ;Execute  cross refe rences
  7188   "RTN","VAF CDD01",266 ,0)
  7189    S XREFNUM =0
  7190   "RTN","VAF CDD01",267 ,0)
  7191    F  S XREF NUM=+$O(^D D(391.71,. 06,1,XREFN UM)) Q:('X REFNUM)  D
  7192   "RTN","VAF CDD01",268 ,0)
  7193    .;Execute  kill logi c
  7194   "RTN","VAF CDD01",269 ,0)
  7195    .S NODE=$ G(^DD(391. 71,.06,1,X REFNUM,2))
  7196   "RTN","VAF CDD01",270 ,0)
  7197    .I (NODE' ="") X NOD E
  7198   "RTN","VAF CDD01",271 ,0)
  7199    .;Execute  set logic
  7200   "RTN","VAF CDD01",272 ,0)
  7201    .S NODE=$ G(^DD(391. 71,.06,1,X REFNUM,1))
  7202   "RTN","VAF CDD01",273 ,0)
  7203    .I (NODE' ="") X NOD E
  7204   "RTN","VAF CDD01",274 ,0)
  7205    Q
  7206   "RTN","VAF CMSG")
  7207   0^1^B20895 268
  7208   "RTN","VAF CMSG",1,0)
  7209   VAFCMSG ;A LB/JRP-BAC KGROUND JO B TO TRANS MIT ENTRIE S IN PIVOT  FILE ; 3/ 2/04 12:54 pm
  7210   "RTN","VAF CMSG",2,0)
  7211    ;;5.3;Reg istration; **91,149,5 30,578,948 **;Jun 06,  1996;Buil d 66
  7212   "RTN","VAF CMSG",3,0)
  7213    ;
  7214   "RTN","VAF CMSG",4,0)
  7215   MAIN ;Main  entry poi nt for bac kground jo b
  7216   "RTN","VAF CMSG",5,0)
  7217    ;
  7218   "RTN","VAF CMSG",6,0)
  7219    ;attempt  to lock no n existant  global.
  7220   "RTN","VAF CMSG",7,0)
  7221    L +^VAT(3 91.71,"VAF C BATCH UP DATE ADT/H L7"):1 I ' $T Q
  7222   "RTN","VAF CMSG",8,0)
  7223    ;Send mes sages ? 0= STOP,2=SUS PEND
  7224   "RTN","VAF CMSG",9,0)
  7225    N VAFCEPI C,SEND
  7226   "RTN","VAF CMSG",10,0 )
  7227    S VAFCEPI C=0,SEND=$ P($$SEND^V AFHUTL()," ^",2)
  7228   "RTN","VAF CMSG",11,0 )
  7229    I (SEND=0 )!(SEND=2)  L -^VAT(3 91.71,"VAF C BATCH UP DATE ADT/H L7") Q
  7230   "RTN","VAF CMSG",12,0 )
  7231    ;Send Reg istration  messages
  7232   "RTN","VAF CMSG",13,0 )
  7233    D BCSTA04
  7234   "RTN","VAF CMSG",14,0 )
  7235    ;Send cha nges to pa tient's de mographica l data (AD T-A08)
  7236   "RTN","VAF CMSG",15,0 )
  7237    D:'VAFCEP IC BCSTA08
  7238   "RTN","VAF CMSG",16,0 )
  7239    ;Send cha nges to pa tient's tr eating fac ility list  (MFU-M05)
  7240   "RTN","VAF CMSG",17,0 )
  7241    D:'VAFCEP IC BCKTFMF U^VAFCTFMF
  7242   "RTN","VAF CMSG",18,0 )
  7243    ;unlock g lobal
  7244   "RTN","VAF CMSG",19,0 )
  7245    L -^VAT(3 91.71,"VAF C BATCH UP DATE ADT/H L7")
  7246   "RTN","VAF CMSG",20,0 )
  7247    ;K DIC,X, Y
  7248   "RTN","VAF CMSG",21,0 )
  7249    Q
  7250   "RTN","VAF CMSG",22,0 )
  7251    ;
  7252   "RTN","VAF CMSG",23,0 )
  7253   BCSTA08 ;B roadcast A DT-A08 mes sages for  all entrie s in ADT/H L PIVOT fi le
  7254   "RTN","VAF CMSG",24,0 )
  7255    ;(#391.71 ) that hav e been mar ked for tr ansmission
  7256   "RTN","VAF CMSG",25,0 )
  7257    ;
  7258   "RTN","VAF CMSG",26,0 )
  7259    ;Input  :  None
  7260   "RTN","VAF CMSG",27,0 )
  7261    ;Output :  None
  7262   "RTN","VAF CMSG",28,0 )
  7263    ;
  7264   "RTN","VAF CMSG",29,0 )
  7265    ;Declare  variables
  7266   "RTN","VAF CMSG",30,0 )
  7267    N PIVOTPT R,NODE,DFN ,EDITDATE, TMP,INFOAR R
  7268   "RTN","VAF CMSG",31,0 )
  7269    S INFOARR ="^TMP(""V AFCMSG""," _$J_",""EV NTINFO"")"
  7270   "RTN","VAF CMSG",32,0 )
  7271    K @INFOAR R
  7272   "RTN","VAF CMSG",33,0 )
  7273    ;Loop thr ough pivot  file base d on demog raphic upd ates
  7274   "RTN","VAF CMSG",34,0 )
  7275    S PIVOTPT R=0
  7276   "RTN","VAF CMSG",35,0 )
  7277    F  S PIVO TPTR=+$O(^ VAT(391.71 ,"AXMIT",4 ,PIVOTPTR) ) Q:('PIVO TPTR)  D
  7278   "RTN","VAF CMSG",36,0 )
  7279    .;Bad ent ry in cros s referenc e - delete  it and qu it
  7280   "RTN","VAF CMSG",37,0 )
  7281    .I ('$D(^ VAT(391.71 ,PIVOTPTR) )) K ^VAT( 391.71,"AX MIT",4,PIV OTPTR) Q
  7282   "RTN","VAF CMSG",38,0 )
  7283    .;Get eve nt date an d pointer  to patient
  7284   "RTN","VAF CMSG",39,0 )
  7285    .S NODE=$ G(^VAT(391 .71,PIVOTP TR,0))
  7286   "RTN","VAF CMSG",40,0 )
  7287    .S EDITDA TE=+NODE
  7288   "RTN","VAF CMSG",41,0 )
  7289    .S DFN=+$ P(NODE,"^" ,3)
  7290   "RTN","VAF CMSG",42,0 )
  7291    .;PATCH 5 30 check g lobal for  lock statu s - quit i f locked.
  7292   "RTN","VAF CMSG",43,0 )
  7293    .L +^DPT( DFN):1 I ' $T Q
  7294   "RTN","VAF CMSG",44,0 )
  7295    .;Bad poi nter to pa tient - ma rk entry a s transmit ted and qu it
  7296   "RTN","VAF CMSG",45,0 )
  7297    .I ('$D(^ DPT(DFN,0) ))!($G(^DP T(DFN,-9)) ) D XMITFL AG^VAFCDD0 1(PIVOTPTR ,"",1) Q
  7298   "RTN","VAF CMSG",46,0 )
  7299    .I $P(^DP T(DFN,0),U )="" D XMI TFLAG^VAFC DD01(PIVOT PTR,"",1)  Q
  7300   "RTN","VAF CMSG",47,0 )
  7301    .I '$D(^D PT("B",$P( ^DPT(DFN,0 ),U),DFN))  D XMITFLA G^VAFCDD01 (PIVOTPTR, "",1) Q
  7302   "RTN","VAF CMSG",48,0 )
  7303    .D TRIGDE M^DGMXADT( DFN)
  7304   "RTN","VAF CMSG",49,0 )
  7305    .;Check i f the Pivo t File ent ry was cre ated by MA SS/EPIC
  7306   "RTN","VAF CMSG",50,0 )
  7307    .I $P(NOD E,U,11)=1  S VAFCEPIC =1 D XMITF LAG^VAFCDD 01(PIVOTPT R,"",1) Q
  7308   "RTN","VAF CMSG",51,0 )
  7309    .;Store i nfo into e vent infor mation arr ay
  7310   "RTN","VAF CMSG",52,0 )
  7311    .K @INFOA RR
  7312   "RTN","VAF CMSG",53,0 )
  7313    .S @INFOA RR@("PIVOT ")=PIVOTPT R
  7314   "RTN","VAF CMSG",54,0 )
  7315    .;Event r eason code
  7316   "RTN","VAF CMSG",55,0 )
  7317    .;  99 =  Death      98 = Resur rection    97=Sensiti vity Updat e
  7318   "RTN","VAF CMSG",56,0 )
  7319    .;  Death  will over write any  other reas on code. I t is the 
  7320   "RTN","VAF CMSG",57,0 )
  7321    .;  domin ant reason  code.
  7322   "RTN","VAF CMSG",58,0 )
  7323    .S @INFOA RR@("REASO N",1)=""
  7324   "RTN","VAF CMSG",59,0 )
  7325    .S @INFOA RR@("REASO N",1)=$P($ G(^VAT(391 .71,PIVOTP TR,0)),"^" ,10)
  7326   "RTN","VAF CMSG",60,0 )
  7327    .I (+$G(^ DPT(DFN,.3 5))) S @IN FOARR@("RE ASON",1)=9 9
  7328   "RTN","VAF CMSG",61,0 )
  7329    .;
  7330   "RTN","VAF CMSG",62,0 )
  7331    .; user/o perator na me from du z
  7332   "RTN","VAF CMSG",63,0 )
  7333    .S DIC="^ VA(200,",D IC(0)="MZO ",X="`"_+$ P(NODE,"^" ,9) D ^DIC
  7334   "RTN","VAF CMSG",64,0 )
  7335    .S @INFOA RR@("USER" )=$P($G(Y) ,"^",2)
  7336   "RTN","VAF CMSG",65,0 )
  7337    .;
  7338   "RTN","VAF CMSG",66,0 )
  7339    .S @INFOA RR@("EVENT -NUM")=$P( NODE,"^",2 )
  7340   "RTN","VAF CMSG",67,0 )
  7341    .S @INFOA RR@("VAR-P TR")=$P(NO DE,"^",5)
  7342   "RTN","VAF CMSG",68,0 )
  7343    .;
  7344   "RTN","VAF CMSG",69,0 )
  7345    .;Broadca st ADT-A08  message
  7346   "RTN","VAF CMSG",70,0 )
  7347    .S TMP=$$ BCSTADT^VA FCMSG0(DFN ,"A08",EDI TDATE,INFO ARR)
  7348   "RTN","VAF CMSG",71,0 )
  7349    .;Store r esult in p ivot file
  7350   "RTN","VAF CMSG",72,0 )
  7351    .S:$P(TMP ,U,2)]"" T MP=$P(TMP, U,2) D FIL ERM^VAFCUT L(PIVOTPTR ,TMP)
  7352   "RTN","VAF CMSG",73,0 )
  7353    .;Error b roadcastin g message
  7354   "RTN","VAF CMSG",74,0 )
  7355    .Q:(TMP<0 )
  7356   "RTN","VAF CMSG",75,0 )
  7357    .;Mark en try in piv ot file as  transmitt ed
  7358   "RTN","VAF CMSG",76,0 )
  7359    .D XMITFL AG^VAFCDD0 1(PIVOTPTR ,"",1)
  7360   "RTN","VAF CMSG",77,0 )
  7361    .;PATCH 5 30 if lock ed by chec k unlock.
  7362   "RTN","VAF CMSG",78,0 )
  7363    .L -^DPT( DFN)
  7364   "RTN","VAF CMSG",79,0 )
  7365    ;Done - c lean up an d quit
  7366   "RTN","VAF CMSG",80,0 )
  7367    K @INFOAR R
  7368   "RTN","VAF CMSG",81,0 )
  7369    Q
  7370   "RTN","VAF CMSG",82,0 )
  7371    ;
  7372   "RTN","VAF CMSG",83,0 )
  7373   BCSTA04 ;B roadcast A DT-A04 mes sages for  all entrie s in ADT/H L PIVOT fi le
  7374   "RTN","VAF CMSG",84,0 )
  7375    ;(#391.71 ) that hav e been mar ked for tr ansmission
  7376   "RTN","VAF CMSG",85,0 )
  7377    ;
  7378   "RTN","VAF CMSG",86,0 )
  7379    ;Input  :  None
  7380   "RTN","VAF CMSG",87,0 )
  7381    ;Output :  None
  7382   "RTN","VAF CMSG",88,0 )
  7383    ;
  7384   "RTN","VAF CMSG",89,0 )
  7385    ;Declare  variables
  7386   "RTN","VAF CMSG",90,0 )
  7387    N PIVOTPT R,NODE,DFN ,EDITDATE, FIELDS,RES ULT,USER
  7388   "RTN","VAF CMSG",91,0 )
  7389    S PIVOTPT R=0
  7390   "RTN","VAF CMSG",92,0 )
  7391    F  S PIVO TPTR=+$O(^ VAT(391.71 ,"AXMIT",3 ,PIVOTPTR) ) Q:('PIVO TPTR)  D
  7392   "RTN","VAF CMSG",93,0 )
  7393    .;Bad ent ry in cros s referenc e - delete  it and qu it
  7394   "RTN","VAF CMSG",94,0 )
  7395    .I ('$D(^ VAT(391.71 ,PIVOTPTR) )) K ^VAT( 391.71,"AX MIT",3,PIV OTPTR) Q
  7396   "RTN","VAF CMSG",95,0 )
  7397    .;Get eve nt date an d pointer  to patient
  7398   "RTN","VAF CMSG",96,0 )
  7399    .S NODE=$ G(^VAT(391 .71,PIVOTP TR,0))
  7400   "RTN","VAF CMSG",97,0 )
  7401    .S FIELDS =$G(^VAT(3 91.71,PIVO TPTR,2))
  7402   "RTN","VAF CMSG",98,0 )
  7403    .S USER=+ $P(NODE,"^ ",9)
  7404   "RTN","VAF CMSG",99,0 )
  7405    .S EDITDA TE=+NODE
  7406   "RTN","VAF CMSG",100, 0)
  7407    .S DFN=+$ P(NODE,"^" ,3)
  7408   "RTN","VAF CMSG",101, 0)
  7409    .;PATCH 5 30 check f or locked  record - q uit if loc ked.
  7410   "RTN","VAF CMSG",102, 0)
  7411    .L +^DPT( DFN):1 I ' $T Q
  7412   "RTN","VAF CMSG",103, 0)
  7413    .;Bad poi nter to pa tient - ma rk entry a s transmit ted and qu it
  7414   "RTN","VAF CMSG",104, 0)
  7415    .I ('$D(^ DPT(DFN,0) ))!($G(^DP T(DFN,-9)) ) D XMITFL AG^VAFCDD0 1(PIVOTPTR ,"",1) Q
  7416   "RTN","VAF CMSG",105, 0)
  7417    .I $P(^DP T(DFN,0),U )="" D XMI TFLAG^VAFC DD01(PIVOT PTR,"",1)  Q
  7418   "RTN","VAF CMSG",106, 0)
  7419    .I '$D(^D PT("B",$P( ^DPT(DFN,0 ),U),DFN))  D XMITFLA G^VAFCDD01 (PIVOTPTR, "",1) Q
  7420   "RTN","VAF CMSG",107, 0)
  7421    .D TRIGDE M^DGMXADT( DFN)
  7422   "RTN","VAF CMSG",108, 0)
  7423    .;Check i f the Pivo t File ent ry was cre ated by MA SS/EPIC
  7424   "RTN","VAF CMSG",109, 0)
  7425    .I $P(NOD E,U,11)=1  S VAFCEPIC =1 D XMITF LAG^VAFCDD 01(PIVOTPT R,"",1) Q
  7426   "RTN","VAF CMSG",110, 0)
  7427    .;Broadca st ADT-A04  message
  7428   "RTN","VAF CMSG",111, 0)
  7429    .S RESULT =$$EN^VAFC A04(DFN,ED ITDATE,USE R,PIVOTPTR )
  7430   "RTN","VAF CMSG",112, 0)
  7431    .D XMITFL AG^VAFCDD0 1(PIVOTPTR ,"",1)
  7432   "RTN","VAF CMSG",113, 0)
  7433    .L -^DPT( DFN)
  7434   "RTN","VAF CMSG",114, 0)
  7435    ;Done - q uit
  7436   "RTN","VAF CMSG",115, 0)
  7437    Q
  7438   "RTN","VAF HLZSP")
  7439   0^3^B57388 66
  7440   "RTN","VAF HLZSP",1,0 )
  7441   VAFHLZSP ; ALB/RJS,TD M,PJH - ZS P SEGMENT  - 3/18/96  ; 5/30/07  4:21pm
  7442   "RTN","VAF HLZSP",2,0 )
  7443    ;;5.3;Reg istration; **94,106,1 22,220,653 ,754,948** ;Aug 13, 1 993;Build  66
  7444   "RTN","VAF HLZSP",3,0 )
  7445   EN(DFN,VAF NUM,VAFAMB ) ;
  7446   "RTN","VAF HLZSP",4,0 )
  7447    N VAROOT, VAFHROOT,V AFY,VAFNOD E,VIETSRV, SERVCONN,P ERCENT,POS ,RETURN
  7448   "RTN","VAF HLZSP",5,0 )
  7449    S VAROOT= "VAFHROOT"
  7450   "RTN","VAF HLZSP",6,0 )
  7451    D ELIG^VA DPT
  7452   "RTN","VAF HLZSP",7,0 )
  7453    ;- ALB/ES D - Added  VAFNUM as  part of Am bulatory C are Report ing Projec t
  7454   "RTN","VAF HLZSP",8,0 )
  7455    ;             requir ements.
  7456   "RTN","VAF HLZSP",9,0 )
  7457    S VAFNUM= $S($G(VAFN UM):VAFNUM ,1:1)
  7458   "RTN","VAF HLZSP",10, 0)
  7459    S VAFAMB= +$G(VAFAMB ,1)
  7460   "RTN","VAF HLZSP",11, 0)
  7461    I $P(VAFH ROOT(3),U, 1)=1 S SER VCONN="Y", PERCENT=$P (VAFHROOT( 3),U,2)
  7462   "RTN","VAF HLZSP",12, 0)
  7463    I $P(VAFH ROOT(3),U, 1)=0 S SER VCONN="N"
  7464   "RTN","VAF HLZSP",13, 0)
  7465    I VAFHROO T(2)'="" S  POS=$P($G (^DIC(21,+ VAFHROOT(2 ),0)),U,3)
  7466   "RTN","VAF HLZSP",14, 0)
  7467    I '$D(SER VCONN) S S ERVCONN="" """"
  7468   "RTN","VAF HLZSP",15, 0)
  7469    I '$D(PER CENT) S PE RCENT="""" ""
  7470   "RTN","VAF HLZSP",16, 0)
  7471    I '$D(POS ) S POS="" """"
  7472   "RTN","VAF HLZSP",17, 0)
  7473    ;
  7474   "RTN","VAF HLZSP",18, 0)
  7475    ;- Conver t Y/N to 1 /0 (HL7 Ta ble VA01)
  7476   "RTN","VAF HLZSP",19, 0)
  7477    I $D(SERV CONN) S SE RVCONN=$$Y N^VAFHLFNC (SERVCONN)
  7478   "RTN","VAF HLZSP",20, 0)
  7479    S RETURN= "ZSP"_HLFS _VAFNUM_HL FS_SERVCON N_HLFS_PER CENT_HLFS_ POS
  7480   "RTN","VAF HLZSP",21, 0)
  7481    ;- ALB/ES D - Get 'V ietnam Ser vice Indic ated?' fie ld from PA TIENT file
  7482   "RTN","VAF HLZSP",22, 0)
  7483    ;             (requi red by Amb ulatory Ca re Reporti ng Project ).
  7484   "RTN","VAF HLZSP",23, 0)
  7485    ;I +$G(VA FAMB)=1 D
  7486   "RTN","VAF HLZSP",24, 0)
  7487    ;. ;
  7488   "RTN","VAF HLZSP",25, 0)
  7489    ;. ;- 'Vi etnam Serv ice Indica ted?' fiel d = Y, N,  or U (UNKN OWN)
  7490   "RTN","VAF HLZSP",26, 0)
  7491    ;. S VIET SRV=$P($G( ^DPT(DFN,. 321)),"^")
  7492   "RTN","VAF HLZSP",27, 0)
  7493    ;. I $G(V IETSRV)=""  S VIETSRV =""""""
  7494   "RTN","VAF HLZSP",28, 0)
  7495    ;. S RETU RN=RETURN_ HLFS_VIETS RV
  7496   "RTN","VAF HLZSP",29, 0)
  7497    ;
  7498   "RTN","VAF HLZSP",30, 0)
  7499    ;- DG*5.3 *220 REMOV ED CHECK F OR VAFAMB  PARAMETER
  7500   "RTN","VAF HLZSP",31, 0)
  7501    ;'Vietnam  Service I ndicated?'  field = Y , N, or U  (UNKNOWN)
  7502   "RTN","VAF HLZSP",32, 0)
  7503    S VIETSRV =$P($G(^DP T(DFN,.321 )),"^")
  7504   "RTN","VAF HLZSP",33, 0)
  7505    I $G(VIET SRV)="" S  VIETSRV="" """"
  7506   "RTN","VAF HLZSP",34, 0)
  7507    S RETURN= RETURN_HLF S_VIETSRV
  7508   "RTN","VAF HLZSP",35, 0)
  7509    ;
  7510   "RTN","VAF HLZSP",36, 0)
  7511    ; **** AL B/KCL - Pa tch DG*5.3 *122; Add  additional  data fiel ds ****
  7512   "RTN","VAF HLZSP",37, 0)
  7513    S VAFNODE =$G(^DPT(D FN,.3))
  7514   "RTN","VAF HLZSP",38, 0)
  7515    S $P(VAFY ,HLFS,3)=" ",HLQ=$S($ D(HLQ):HLQ ,1:"""""")
  7516   "RTN","VAF HLZSP",39, 0)
  7517    S $P(VAFY ,HLFS,1)=$ S($P(VAFNO DE,"^",4)] "":$$YN^VA FHLFNC($P( VAFNODE,"^ ",4)),1:HL Q) ; P&T
  7518   "RTN","VAF HLZSP",40, 0)
  7519    S $P(VAFY ,HLFS,2)=$ S($P(VAFNO DE,"^",5)] "":$$YN^VA FHLFNC($P( VAFNODE,"^ ",5)),1:HL Q) ; Unemp loyable
  7520   "RTN","VAF HLZSP",41, 0)
  7521    S $P(VAFY ,HLFS,3)=$ S($P(VAFNO DE,"^",12) ]"":$$HLDA TE^HLFNC($ P(VAFNODE, "^",12)),1 :HLQ) ; SC  Award Dat e
  7522   "RTN","VAF HLZSP",42, 0)
  7523    S $P(VAFY ,HLFS,5)=$ S($P(VAFNO DE,"^",13) ]"":$$HLDA TE^HLFNC($ P(VAFNODE, "^",13)),1 :HLQ) ; P& T Effectiv e Date
  7524   "RTN","VAF HLZSP",43, 0)
  7525    ; **** PJ H - Patch  DG*5.3*754 ; Add addi tional dat a field ** **
  7526   "RTN","VAF HLZSP",44, 0)
  7527    S $P(VAFY ,HLFS,6)=$ S($P(VAFNO DE,"^",14) ]"":$$HLDA TE^HLFNC($ P(VAFNODE, "^",14)),1 :HLQ) ; Co mbined SC  percent Ef fective Da te
  7528   "RTN","VAF HLZSP",45, 0)
  7529    S $P(VAFY ,HLFS,7)=$ $GET1^DIQ( 2,DFN_",", 220) ;Dent al Classif ication
  7530   "RTN","VAF HLZSP",46, 0)
  7531    ;
  7532   "RTN","VAF HLZSP",47, 0)
  7533    S RETURN= RETURN_HLF S_$G(VAFY)
  7534   "RTN","VAF HLZSP",48, 0)
  7535    ;
  7536   "RTN","VAF HLZSP",49, 0)
  7537    ;
  7538   "RTN","VAF HLZSP",50, 0)
  7539    D KVAR^VA DPT
  7540   "RTN","VAF HLZSP",51, 0)
  7541    Q RETURN
  7542   "UP",2,2.0 1,-1)
  7543   2^.01
  7544   "UP",2,2.0 1,0)
  7545   2.01
  7546   "UP",2,2.0 361,-1)
  7547   2^E
  7548   "UP",2,2.0 361,0)
  7549   2.0361
  7550   "VER")
  7551   8.0^22.2
  7552   "^DD",2,2, .01,0)
  7553   NAME^RFXa^ ^0;1^K:$L( X)>30!($L( X)<3) X I  $D(X) S DG 20NAME=X,( X,DG20NAME )=$$FORMAT ^XLFNAME7( .DG20NAME, 3,30) K:'$ L(X) X,DG2 0NAME S:$D (X) DGNEWV AL=X
  7554   "^DD",2,2, .01,.1)
  7555  
  7556   "^DD",2,2, .01,1,0)
  7557   ^.1^^-1
  7558   "^DD",2,2, .01,1,1,0)
  7559   2^B
  7560   "^DD",2,2, .01,1,1,1)
  7561   S ^DPT("B" ,$E(X,1,30 ),DA)=""
  7562   "^DD",2,2, .01,1,1,2)
  7563   K ^DPT("B" ,$E(X,1,30 ),DA)
  7564   "^DD",2,2, .01,1,2,0)
  7565   2^BS5^MUMP S
  7566   "^DD",2,2, .01,1,2,1)
  7567   Q:$P(^DPT( DA,0),U,9) ']""  S ^D PT("BS5",$ E(X,1)_$E( $P(^(0),U, 9),6,9),DA )=""
  7568   "^DD",2,2, .01,1,2,2)
  7569   Q:$P(^DPT( DA,0),U,9) ']""  K ^D PT("BS5",$ E(X,1)_$E( $P(^(0),U, 9),6,9),DA )
  7570   "^DD",2,2, .01,1,4,0)
  7571   2^AODS2^MU MPS
  7572   "^DD",2,2, .01,1,4,1)
  7573   S A1B2TAG= "PAT" D ^A 1B2XFR
  7574   "^DD",2,2, .01,1,4,2)
  7575   S A1B2TAG= "PAT" D ^A 1B2XFR
  7576   "^DD",2,2, .01,1,5,0)
  7577   2^ABUL^MUM PS
  7578   "^DD",2,2, .01,1,5,1)
  7579   K DGNEWVAL  Q
  7580   "^DD",2,2, .01,1,5,2)
  7581   S DFN=DA D  ^DGPATN K  DGNEWVAL  Q
  7582   "^DD",2,2, .01,1,5,"% D",0)
  7583   ^^2^2^2950 110^
  7584   "^DD",2,2, .01,1,5,"% D",1,0)
  7585   This cross -reference  will gene rate a mai l message  when a pat ient is de leted
  7586   "^DD",2,2, .01,1,5,"% D",2,0)
  7587   or the pat ient's nam e is chang ed.
  7588   "^DD",2,2, .01,1,5,"D T")
  7589   2950110
  7590   "^DD",2,2, .01,1,301, 0)
  7591   2^IVM01^MU MPS
  7592   "^DD",2,2, .01,1,301, 1)
  7593   S IVMX=X,X ="IVMPXFR"  X ^%ZOSF( "TEST") D: $T DPT^IVM PXFR S X=I VMX K IVMX
  7594   "^DD",2,2, .01,1,301, 2)
  7595   S IVMX=X,X ="IVMPXFR"  X ^%ZOSF( "TEST") D: $T DPT^IVM PXFR S X=I VMX K IVMX
  7596   "^DD",2,2, .01,1,301, "%D",0)
  7597   ^^5^5^2930 513^
  7598   "^DD",2,2, .01,1,301, "%D",1,0)
  7599   This cross -reference  will chec k the IVM  PATIENT fi le to see  if a chang e
  7600   "^DD",2,2, .01,1,301, "%D",2,0)
  7601   to this fi eld will r equire tra nsmission  to the IVM  Center.   If it does ,
  7602   "^DD",2,2, .01,1,301, "%D",3,0)
  7603   the IVM PA TIENT file  entry's T RANSMISSIO N STATUS w ill be set  to 0 and
  7604   "^DD",2,2, .01,1,301, "%D",4,0)
  7605   the nightl y backgrou nd job wil l transmit  the updat ed informa tion.
  7606   "^DD",2,2, .01,1,301, "DT")
  7607   2930513
  7608   "^DD",2,2, .01,1,991, 0)
  7609   2^AVAFC01^ MUMPS
  7610   "^DD",2,2, .01,1,991, 1)
  7611   I '$D(DFN) ,($T(AVAFC ^VAFCDD01) '="") S VA FCF=".01;"  D AVAFC^V AFCDD01(DA )
  7612   "^DD",2,2, .01,1,991, 2)
  7613   I ($T(AVAF C^VAFCDD01 )'="") S V AFCF=".01; " D AVAFC^ VAFCDD01(D A)
  7614   "^DD",2,2, .01,1,991, "%D",0)
  7615   ^^15^15^29 90204^^^^
  7616   "^DD",2,2, .01,1,991, "%D",1,0)
  7617   This cross  reference  is used t o remember  that chan ges were m ade to the
  7618   "^DD",2,2, .01,1,991, "%D",2,0)
  7619   PATIENT fi le (#2) ou tside of t he Registr ation proc ess.  Exec ution of t his
  7620   "^DD",2,2, .01,1,991, "%D",3,0)
  7621   cross refe rence will  create an  entry in  the ADT/HL 7 PIVOT fi le (#391.7 1)
  7622   "^DD",2,2, .01,1,991, "%D",4,0)
  7623   and mark i t as requi ring trans mission of  an HL7 AD T-A08 mess age.
  7624   "^DD",2,2, .01,1,991, "%D",5,0)
  7625    
  7626   "^DD",2,2, .01,1,991, "%D",6,0)
  7627   The local  variable V AFCFLG wil l be set t o 1 if the  cross ref erence is
  7628   "^DD",2,2, .01,1,991, "%D",7,0)
  7629   not execut ed because  the chang e is being  made from  within th e Registra tion
  7630   "^DD",2,2, .01,1,991, "%D",8,0)
  7631   process.
  7632   "^DD",2,2, .01,1,991, "%D",9,0)
  7633    
  7634   "^DD",2,2, .01,1,991, "%D",10,0)
  7635   Execution  of this cr oss refere nce can be  prevented  by settin g the loca l
  7636   "^DD",2,2, .01,1,991, "%D",11,0)
  7637   variable V AFCA08 equ al to 1.
  7638   "^DD",2,2, .01,1,991, "%D",12,0)
  7639    
  7640   "^DD",2,2, .01,1,991, "%D",13,0)
  7641   The local  variable V AFCF is us ed to iden tify the f ield edite d.
  7642   "^DD",2,2, .01,1,991, "%D",14,0)
  7643   This data  is stored  in the FIE LD(S) EDIT ED (#2.1)  field in t he 
  7644   "^DD",2,2, .01,1,991, "%D",15,0)
  7645   ADT/HL7 PI VOT file ( #391.71).
  7646   "^DD",2,2, .01,1,991, "DT")
  7647   2970825
  7648   "^DD",2,2, .01,1,992, 0)
  7649   2^AMPIMIS^ MUMPS
  7650   "^DD",2,2, .01,1,992, 1)
  7651   I $T(SET^V AFCMIS)'=" "&('$D(VAF CNO)) D SE T^VAFCMIS( DA)
  7652   "^DD",2,2, .01,1,992, 2)
  7653   I $T(KILL^ VAFCMIS)'= ""&('$D(VA FCNO)) D K ILL^VAFCMI S(DA)
  7654   "^DD",2,2, .01,1,992, "%D",0)
  7655   ^^4^4^2980 114^^^^
  7656   "^DD",2,2, .01,1,992, "%D",1,0)
  7657   Temporary  cross refe rence that  lets the  MPI Missin g ICN job  know that  a
  7658   "^DD",2,2, .01,1,992, "%D",2,0)
  7659   patient wa s added to  the Patie nt file, v ia another  package o ther than
  7660   "^DD",2,2, .01,1,992, "%D",3,0)
  7661   PIMS, and  needs to g et an ICN.   Once the  ICN is as signed (lo cal or
  7662   "^DD",2,2, .01,1,992, "%D",4,0)
  7663   national)  the cross  reference  is killed.
  7664   "^DD",2,2, .01,1,992, "DT")
  7665   3030603
  7666   "^DD",2,2, .01,1,993, 0)
  7667   2^ADGRU01^ MUMPS
  7668   "^DD",2,2, .01,1,993, 1)
  7669   D:($T(ADGR U^DGRUDD01 )'="") ADG RU^DGRUDD0 1(DA)
  7670   "^DD",2,2, .01,1,993, 2)
  7671   D:($T(ADGR U^DGRUDD01 )'="") ADG RU^DGRUDD0 1(DA)
  7672   "^DD",2,2, .01,1,993, "%D",0)
  7673   ^^9^9^3000 208^
  7674   "^DD",2,2, .01,1,993, "%D",1,0)
  7675   This cross  reference  is used t o remember  that chan ges were m ade to a
  7676   "^DD",2,2, .01,1,993, "%D",2,0)
  7677   monitored  data field  in the PA TIENT File  (#2) requ ired for a  vendor
  7678   "^DD",2,2, .01,1,993, "%D",3,0)
  7679   RAI/MDS CO TS system.   Executio n of this  cross refe rence will  create an
  7680   "^DD",2,2, .01,1,993, "%D",4,0)
  7681   entry in t he ADT/HL7  PIVOT fil e (#391.71 ) and mark  it as req uiring
  7682   "^DD",2,2, .01,1,993, "%D",5,0)
  7683   transmissi on of an H L7 demogra phic A08 u pdate mess age to the  COTS
  7684   "^DD",2,2, .01,1,993, "%D",6,0)
  7685   interface.
  7686   "^DD",2,2, .01,1,993, "%D",7,0)
  7687    
  7688   "^DD",2,2, .01,1,993, "%D",8,0)
  7689   The local  variable D GRUGA08 wi ll be set  to 1 if th e cross re ference is  not
  7690   "^DD",2,2, .01,1,993, "%D",9,0)
  7691   to be exec uted as pa rt of a re -indexing.
  7692   "^DD",2,2, .01,1,993, "DT")
  7693   3000208
  7694   "^DD",2,2, .01,3)
  7695   Enter name  in 'LAST, FIRST MIDD LE SUFFIX'  format, m ust be 3-3 0 characte rs in leng th.
  7696   "^DD",2,2, .01,7.5)
  7697   D INPUT^DG RPDD1
  7698   "^DD",2,2, .01,20,0)
  7699   ^.3LA^1^1
  7700   "^DD",2,2, .01,20,1,0 )
  7701   DEMOG^
  7702   "^DD",2,2, .01,21,0)
  7703   ^^4^4^2990 208^^^^
  7704   "^DD",2,2, .01,21,1,0 )
  7705   Enter the  patient's  name in 'L AST,FIRST  MIDDLE SUF FIX' forma t.
  7706   "^DD",2,2, .01,21,2,0 )
  7707   This value  must be 3 -30 charac ters in le ngth and m ay contain  only uppe rcase
  7708   "^DD",2,2, .01,21,3,0 )
  7709   alpha char acters, sp aces, apos trophes, h yphens and  one comma .  All oth er
  7710   "^DD",2,2, .01,21,4,0 )
  7711   characters  and paren thetical t ext will b e removed.
  7712   "^DD",2,2, .01,"AUDIT ")
  7713   y
  7714   "^DD",2,2, .01,"AX")
  7715   I 1
  7716   "^DD",2,2, .01,"DEL", 100,0)
  7717   I $D(^OR(1 00,"ACT",D A_";DPT(") ) D EN^DDI OL("Patien t orders m ust be del eted first .","","!?0 ")
  7718   "^DD",2,2, .01,"DEL", 401,0)
  7719   I $O(^DGPM ("C",DA,0) ) W *7,!," Delete Pat ient Movem ents First ",!
  7720   "^DD",2,2, .01,"DEL", 1900,0)
  7721   I $N(^DPT( DA,"S",DT) )+1 W *7,! ,"APPOINTM ENT(S) PEN DING!"
  7722   "^DD",2,2, .01,"DEL", 3000,0)
  7723   I $N(^PS(5 5,DA,"P",0 ))+1 W *7, !,"PATIENT  HAS OUTPA TIENT PRES CRIPTIONS"
  7724   "^DD",2,2, .01,"DEL", 999999,0)
  7725   D DEL^DPTL K2
  7726   "^DD",2,2, .01,"DT")
  7727   3060923
  7728   "^DD",2,2, .02,0)
  7729   SEX^RSa^M: MALE;F:FEM ALE;^0;2^Q
  7730   "^DD",2,2, .02,1,0)
  7731   ^.1^^-1
  7732   "^DD",2,2, .02,1,1,0)
  7733   2^ASX
  7734   "^DD",2,2, .02,1,1,1)
  7735   S ^DPT("AS X",$E(X,1, 30),DA)=""
  7736   "^DD",2,2, .02,1,1,2)
  7737   K ^DPT("AS X",$E(X,1, 30),DA)
  7738   "^DD",2,2, .02,1,2,0)
  7739   2^AENR02^M UMPS
  7740   "^DD",2,2, .02,1,2,1)
  7741   D EVENT^IV MPLOG(DA)
  7742   "^DD",2,2, .02,1,2,2)
  7743   D EVENT^IV MPLOG(DA)
  7744   "^DD",2,2, .02,1,2,3)
  7745   DO NOT DEL ETE
  7746   "^DD",2,2, .02,1,2,"% D",0)
  7747   ^^2^2^2971 007^^^
  7748   "^DD",2,2, .02,1,2,"% D",1,0)
  7749   This cross -reference  is used t o notify H EC of chan ges that m ay affect
  7750   "^DD",2,2, .02,1,2,"% D",2,0)
  7751   enrollment
  7752   "^DD",2,2, .02,1,2,"D T")
  7753   2971007
  7754   "^DD",2,2, .02,1,301, 0)
  7755   2^IVM02^MU MPS
  7756   "^DD",2,2, .02,1,301, 1)
  7757   S IVMX=X,X ="IVMPXFR"  X ^%ZOSF( "TEST") D: $T DPT^IVM PXFR S X=I VMX K IVMX
  7758   "^DD",2,2, .02,1,301, 2)
  7759   S IVMX=X,I VMKILL=2,X ="IVMPXFR"  X ^%ZOSF( "TEST") D: $T DPT^IVM PXFR S X=I VMX K IVMX ,IVMKILL
  7760   "^DD",2,2, .02,1,301, "%D",0)
  7761   ^^8^8^2991 027^
  7762   "^DD",2,2, .02,1,301, "%D",1,0)
  7763   This cross -reference  will chec k the IVM  PATIENT fi le to see  if a chang e
  7764   "^DD",2,2, .02,1,301, "%D",2,0)
  7765   to this fi eld will r equire tra nsmission  to the IVM  Center.   If it does ,
  7766   "^DD",2,2, .02,1,301, "%D",3,0)
  7767   the IVM PA TIENT file  entry's T RANSMISSIO N STATUS w ill be set  to 0 and
  7768   "^DD",2,2, .02,1,301, "%D",4,0)
  7769   the nightl y backgrou nd job wil l transmit  the updat ed informa tion.
  7770   "^DD",2,2, .02,1,301, "%D",5,0)
  7771    
  7772   "^DD",2,2, .02,1,301, "%D",6,0)
  7773   Also, if t his field  is edited,  this cros s-referenc e will che ck to see  if the
  7774   "^DD",2,2, .02,1,301, "%D",7,0)
  7775   patient re quires a f inancial q uery to be  sent to t he IVM Cen ter (Data
  7776   "^DD",2,2, .02,1,301, "%D",8,0)
  7777   Collection  Division  (DCD).
  7778   "^DD",2,2, .02,1,301, "DT")
  7779   2991027
  7780   "^DD",2,2, .02,1,991, 0)
  7781   2^AVAFC02^ MUMPS
  7782   "^DD",2,2, .02,1,991, 1)
  7783   I ($T(AVAF C^VAFCDD01 )'="") S V AFCF=".02; " D AVAFC^ VAFCDD01(D A)
  7784   "^DD",2,2, .02,1,991, 2)
  7785   I ($T(AVAF C^VAFCDD01 )'="") S V AFCF=".02; " D AVAFC^ VAFCDD01(D A)
  7786   "^DD",2,2, .02,1,991, "%D",0)
  7787   ^^15^15^29 90204^^^^
  7788   "^DD",2,2, .02,1,991, "%D",1,0)
  7789   This cross  reference  is used t o remember  that chan ges were m ade to the
  7790   "^DD",2,2, .02,1,991, "%D",2,0)
  7791   PATIENT fi le (#2) ou tside of t he Registr ation proc ess.  Exec ution of t his
  7792   "^DD",2,2, .02,1,991, "%D",3,0)
  7793   cross refe rence will  create an  entry in  the ADT/HL 7 PIVOT fi le (#391.7 1)
  7794   "^DD",2,2, .02,1,991, "%D",4,0)
  7795   and mark i t as requi ring trans mission of  an HL7 AD T-A08 mess age.
  7796   "^DD",2,2, .02,1,991, "%D",5,0)
  7797    
  7798   "^DD",2,2, .02,1,991, "%D",6,0)
  7799   The local  variable V AFCFLG wil l be set t o 1 if the  cross ref erence is
  7800   "^DD",2,2, .02,1,991, "%D",7,0)
  7801   not execut ed because  the chang e is being  made from  within th e Registra tion
  7802   "^DD",2,2, .02,1,991, "%D",8,0)
  7803   process.
  7804   "^DD",2,2, .02,1,991, "%D",9,0)
  7805    
  7806   "^DD",2,2, .02,1,991, "%D",10,0)
  7807   Execution  of this cr oss refere nce can be  prevented  by settin g the loca l
  7808   "^DD",2,2, .02,1,991, "%D",11,0)
  7809   variable V AFCA08 equ al to 1.
  7810   "^DD",2,2, .02,1,991, "%D",12,0)
  7811     
  7812   "^DD",2,2, .02,1,991, "%D",13,0)
  7813   The local  variable V AFCF is us ed to iden tify the f ield edite d.
  7814   "^DD",2,2, .02,1,991, "%D",14,0)
  7815   This data  is stored  in the FIE LD(S) EDIT ED (#2.1)  field in t he 
  7816   "^DD",2,2, .02,1,991, "%D",15,0)
  7817   ADT/HL7 PI VOT file ( #391.71).
  7818   "^DD",2,2, .02,1,991, "DT")
  7819   2970825
  7820   "^DD",2,2, .02,1,992, 0)
  7821   2^ADGRU02^ MUMPS
  7822   "^DD",2,2, .02,1,992, 1)
  7823   D:($T(ADGR U^DGRUDD01 )'="") ADG RU^DGRUDD0 1(DA)
  7824   "^DD",2,2, .02,1,992, 2)
  7825   D:($T(ADGR U^DGRUDD01 )'="") ADG RU^DGRUDD0 1(DA)
  7826   "^DD",2,2, .02,1,992, "%D",0)
  7827   ^^9^9^2990 920^
  7828   "^DD",2,2, .02,1,992, "%D",1,0)
  7829   This cross  reference  is used t o remember  that chan ges were m ade to a 
  7830   "^DD",2,2, .02,1,992, "%D",2,0)
  7831   monitored  data field  in the PA TIENT File  (#2) requ ired for a  vendor
  7832   "^DD",2,2, .02,1,992, "%D",3,0)
  7833   RAI/MDS CO TS system.   Executio n of this  cross refe rence will  create
  7834   "^DD",2,2, .02,1,992, "%D",4,0)
  7835   an entry i n the ADT/ HL7 PIVOT  file (#391 .71) and m ark it as  requiring
  7836   "^DD",2,2, .02,1,992, "%D",5,0)
  7837   transmissi on of an H L7 demogra phic A08 u pdate mess age to the  COTS
  7838   "^DD",2,2, .02,1,992, "%D",6,0)
  7839   interface.
  7840   "^DD",2,2, .02,1,992, "%D",7,0)
  7841    
  7842   "^DD",2,2, .02,1,992, "%D",8,0)
  7843   The local  variable D GRUGA08 wi ll be set  to 1 if th e cross re ference is
  7844   "^DD",2,2, .02,1,992, "%D",9,0)
  7845   not to be  executed a s part of  a re-index ing.
  7846   "^DD",2,2, .02,1,992, "DT")
  7847   2990920
  7848   "^DD",2,2, .02,3)
  7849   Enter 'M'  for MALE,  or 'F' for  FEMALE.
  7850   "^DD",2,2, .02,20,0)
  7851   ^.3LA^1^1
  7852   "^DD",2,2, .02,20,1,0 )
  7853   DEMOG^
  7854   "^DD",2,2, .02,21,0)
  7855   ^^1^1^2920 721^^^
  7856   "^DD",2,2, .02,21,1,0 )
  7857   Enter 'M'  if this ap plicant is  a male, o r 'F' if f emale.
  7858   "^DD",2,2, .02,"AUDIT ")
  7859   y
  7860   "^DD",2,2, .02,"DT")
  7861   3060624
  7862   "^DD",2,2, .024,0)
  7863   SELF IDENT IFIED GEND ER^Sa^M:Ma le;F:Femal e;TM:Trans male/Trans man/Female -to-Male;T F:Transfem ale/Transw oman/Male- to-Female; O:Other;N: individual  chooses n ot to answ er;^.24;4^ Q
  7864   "^DD",2,2, .024,1,0)
  7865   ^.1
  7866   "^DD",2,2, .024,1,1,0 )
  7867   2^AZ^MUMPS
  7868   "^DD",2,2, .024,1,1,1 )
  7869   S VAFCF=". 024;",DGMX EPIC=1 D A VAFC^VAFCD D01(DA)
  7870   "^DD",2,2, .024,1,1,2 )
  7871   S VAFCF=". 024;",DGMX EPIC=1 D A VAFC^VAFCD D01(DA)
  7872   "^DD",2,2, .024,1,1," %D",0)
  7873   ^.101^19^1 9^3180208^ ^^
  7874   "^DD",2,2, .024,1,1," %D",1,0)
  7875   This cross  reference  is used t o remember  that chan ges were m ade to the  
  7876   "^DD",2,2, .024,1,1," %D",2,0)
  7877   PATIENT fi le (#2) ou tside of t he Registr ation proc ess.  Exec ution of t his 
  7878   "^DD",2,2, .024,1,1," %D",3,0)
  7879   cross refe rence will  create an  entry in  the ADT/HL 7 PIVOT fi le (#391.7 1) 
  7880   "^DD",2,2, .024,1,1," %D",4,0)
  7881   and mark i t as requi ring trans mission of  an HL7 AD T-A08 mess age.  
  7882   "^DD",2,2, .024,1,1," %D",5,0)
  7883    
  7884   "^DD",2,2, .024,1,1," %D",6,0)
  7885   The local  variable V AFCFLG wil l be set t o 1 if the  cross ref erence is  not 
  7886   "^DD",2,2, .024,1,1," %D",7,0)
  7887   executed b ecause the  change is  being mad e from wit hin the Re gistration  
  7888   "^DD",2,2, .024,1,1," %D",8,0)
  7889   process.
  7890   "^DD",2,2, .024,1,1," %D",9,0)
  7891    
  7892   "^DD",2,2, .024,1,1," %D",10,0)
  7893   Execution  of this cr oss refere nce can be  prevented  by settin g the loca
  7894   "^DD",2,2, .024,1,1," %D",11,0)
  7895   variable V AFCA08 equ al to 1.  
  7896   "^DD",2,2, .024,1,1," %D",12,0)
  7897    
  7898   "^DD",2,2, .024,1,1," %D",13,0)
  7899   The local  variable V AFCF is us ed to iden tify the f ield edite d.  This d ata 
  7900   "^DD",2,2, .024,1,1," %D",14,0)
  7901   is stored  in the FIE LD(S) EDIT ED (#2.1)  field in t he ADT/HL7  PIVOT fil
  7902   "^DD",2,2, .024,1,1," %D",15,0)
  7903   (#391.71).
  7904   "^DD",2,2, .024,1,1," %D",16,0)
  7905    
  7906   "^DD",2,2, .024,1,1," %D",17,0)
  7907   The local  variable V AFCEPIC is  set to 1  to stop th e existing  output of  
  7908   "^DD",2,2, .024,1,1," %D",18,0)
  7909   messages t o MPI when  the updat e to this  field is f or the MAS S to Epic 
  7910   "^DD",2,2, .024,1,1," %D",19,0)
  7911   transmissi on only.
  7912   "^DD",2,2, .024,1,1," DT")
  7913   3180208
  7914   "^DD",2,2, .024,3)
  7915   Select the  code that  specifies  the patie nt's prefe rred gende r.
  7916   "^DD",2,2, .024,21,0)
  7917   ^^2^2^3170 320^
  7918   "^DD",2,2, .024,21,1, 0)
  7919   This SELF  IDENTIFIED  GENDER va lue indica tes the pa tient's vi ew of thei
  7920   "^DD",2,2, .024,21,2, 0)
  7921   gender ide ntity, if  they choos e to provi de it.
  7922   "^DD",2,2, .024,"AUDI T")
  7923   y
  7924   "^DD",2,2, .024,"DT")
  7925   3180208
  7926   "^DD",2,2, .03,0)
  7927   DATE OF BI RTH^RDXOa^ ^0;3^S %DT ="EP" D ^% DT S X=Y K :1701231>X !(DT<X) X  I $D(X) D  BIRTH^DGLO CK
  7928   "^DD",2,2, .03,.1)
  7929   DOB
  7930   "^DD",2,2, .03,1,0)
  7931   ^.1
  7932   "^DD",2,2, .03,1,1,0)
  7933   2^ADOB
  7934   "^DD",2,2, .03,1,1,1)
  7935   S ^DPT("AD OB",$E(X,1 ,30),DA)=" "
  7936   "^DD",2,2, .03,1,1,2)
  7937   K ^DPT("AD OB",$E(X,1 ,30),DA)
  7938   "^DD",2,2, .03,1,2,0)
  7939   ^^TRIGGER^ 2^.083
  7940   "^DD",2,2, .03,1,2,1)
  7941   K DIV S DI V=X,D0=DA, DIV(0)=D0  S Y(1)=$S( $D(^DPT(D0 ,0)):^(0), 1:"") S X= $P(Y(1),U, 20),X=X S  DIU=X K Y  S X=DIV S  X="1" S DI H=$G(^DPT( DIV(0),0)) ,DIV=X S $ P(^(0),U,2 0)=DIV,DIH =2,DIG=.08 3 D ^DICR
  7942   "^DD",2,2, .03,1,2,2)
  7943   Q
  7944   "^DD",2,2, .03,1,2,"C REATE VALU E")
  7945   "1"
  7946   "^DD",2,2, .03,1,2,"D ELETE VALU E")
  7947   NO EFFECT
  7948   "^DD",2,2, .03,1,2,"D T")
  7949   3080310
  7950   "^DD",2,2, .03,1,2,"F IELD")
  7951   #.083
  7952   "^DD",2,2, .03,1,3,0)
  7953   2^AODS3^MU MPS
  7954   "^DD",2,2, .03,1,3,1)
  7955   S A1B2TAG= "PAT" D ^A 1B2XFR
  7956   "^DD",2,2, .03,1,3,2)
  7957   S A1B2TAG= "PAT" D ^A 1B2XFR
  7958   "^DD",2,2, .03,1,301, 0)
  7959   2^IVM03^MU MPS
  7960   "^DD",2,2, .03,1,301, 1)
  7961   S IVMX=X,X ="IVMPXFR"  X ^%ZOSF( "TEST") D: $T DPT^IVM PXFR S X=I VMX K IVMX
  7962   "^DD",2,2, .03,1,301, 2)
  7963   S IVMX=X,I VMKILL=3,X ="IVMPXFR"  X ^%ZOSF( "TEST") D: $T DPT^IVM PXFR S X=I VMX K IVMX ,IVMKILL
  7964   "^DD",2,2, .03,1,301, "%D",0)
  7965   ^^8^8^2991 027^
  7966   "^DD",2,2, .03,1,301, "%D",1,0)
  7967   This cross -reference  will chec k the IVM  PATIENT fi le to see  if a chang e
  7968   "^DD",2,2, .03,1,301, "%D",2,0)
  7969   to this fi eld will r equire tra nsmission  to the IVM  Center.   If it does ,
  7970   "^DD",2,2, .03,1,301, "%D",3,0)
  7971   the IVM PA TIENT file  entry's T RANSMISSIO N STATUS w ill be set  to 0 and
  7972   "^DD",2,2, .03,1,301, "%D",4,0)
  7973   the nightl y backgrou nd job wil l transmit  the updat ed informa tion.
  7974   "^DD",2,2, .03,1,301, "%D",5,0)
  7975    
  7976   "^DD",2,2, .03,1,301, "%D",6,0)
  7977   Also, if t his field  is edited,  this cros s-referenc e will che ck to see  if the
  7978   "^DD",2,2, .03,1,301, "%D",7,0)
  7979   patient re quires a f inancial q uery to be  sent to t he IVM Cen ter (Data
  7980   "^DD",2,2, .03,1,301, "%D",8,0)
  7981   Collection  Division  (DCD).
  7982   "^DD",2,2, .03,1,301, "DT")
  7983   2991027
  7984   "^DD",2,2, .03,1,991, 0)
  7985   2^AVAFC03^ MUMPS
  7986   "^DD",2,2, .03,1,991, 1)
  7987   I ($T(AVAF C^VAFCDD01 )'="") S V AFCF=".03; " D AVAFC^ VAFCDD01(D A)
  7988   "^DD",2,2, .03,1,991, 2)
  7989   I ($T(AVAF C^VAFCDD01 )'="") S V AFCF=".03; " D AVAFC^ VAFCDD01(D A)
  7990   "^DD",2,2, .03,1,991, "%D",0)
  7991   ^.101^15^1 5^3171101^ ^^^
  7992   "^DD",2,2, .03,1,991, "%D",1,0)
  7993   This cross  reference  is used t o remember  that chan ges were m ade to the
  7994   "^DD",2,2, .03,1,991, "%D",2,0)
  7995   PATIENT fi le (#2) ou tside of t he Registr ation proc ess.  Exec ution of t his
  7996   "^DD",2,2, .03,1,991, "%D",3,0)
  7997   cross refe rence will  create an  entry in  the ADT/HL 7 PIVOT fi le (#391.7 1)
  7998   "^DD",2,2, .03,1,991, "%D",4,0)
  7999   and mark i t as requi ring trans mission of  an HL7 AD T-A08 mess age.
  8000   "^DD",2,2, .03,1,991, "%D",5,0)
  8001    
  8002   "^DD",2,2, .03,1,991, "%D",6,0)
  8003   The local  variable V AFCFLG wil l be set t o 1 if the  cross ref erence is
  8004   "^DD",2,2, .03,1,991, "%D",7,0)
  8005   not execut ed because  the chang e is being  made from  within th e Registra tion
  8006   "^DD",2,2, .03,1,991, "%D",8,0)
  8007   process.
  8008   "^DD",2,2, .03,1,991, "%D",9,0)
  8009    
  8010   "^DD",2,2, .03,1,991, "%D",10,0)
  8011   Execution  of this cr oss refere nce can be  prevented  by settin g the loca l
  8012   "^DD",2,2, .03,1,991, "%D",11,0)
  8013   variable V AFCA08 equ al to 1.
  8014   "^DD",2,2, .03,1,991, "%D",12,0)
  8015     
  8016   "^DD",2,2, .03,1,991, "%D",13,0)
  8017   The local  variable V AFCF is us ed to iden tify the f ield edite d.
  8018   "^DD",2,2, .03,1,991, "%D",14,0)
  8019   This data  is stored  in the FIE LD(S) EDIT ED (#2.1)  field in t he 
  8020   "^DD",2,2, .03,1,991, "%D",15,0)
  8021   ADT/HL7 PI VOT file ( #391.71).
  8022   "^DD",2,2, .03,1,991, "DT")
  8023   2980501
  8024   "^DD",2,2, .03,1,992, 0)
  8025   2^ADGRU03^ MUMPS
  8026   "^DD",2,2, .03,1,992, 1)
  8027   D:($T(ADGR U^DGRUDD01 )'="") ADG RU^DGRUDD0 1(DA)
  8028   "^DD",2,2, .03,1,992, 2)
  8029   D:($T(ADGR U^DGRUDD01 )'="") ADG RU^DGRUDD0 1(DA)
  8030   "^DD",2,2, .03,1,992, "%D",0)
  8031   ^^9^9^2990 920^
  8032   "^DD",2,2, .03,1,992, "%D",1,0)
  8033   This cross  reference  is used t o remember  that chan ges were m ade to a 
  8034   "^DD",2,2, .03,1,992, "%D",2,0)
  8035   monitored  data field  in the PA TIENT File  (#2) requ ired for a  vendor
  8036   "^DD",2,2, .03,1,992, "%D",3,0)
  8037   RAI/MDS CO TS system.   Executio n of this  cross refe rence will  create
  8038   "^DD",2,2, .03,1,992, "%D",4,0)
  8039   an entry i n the ADT/ HL7 PIVOT  file (#391 .71) and m ark it as  requiring
  8040   "^DD",2,2, .03,1,992, "%D",5,0)
  8041   transmissi on of an H L7 demogra phic A08 u pdate mess age to the  COTS
  8042   "^DD",2,2, .03,1,992, "%D",6,0)
  8043   interface.
  8044   "^DD",2,2, .03,1,992, "%D",7,0)
  8045    
  8046   "^DD",2,2, .03,1,992, "%D",8,0)
  8047   The local  variable D GRUGA08 wi ll be set  to 1 if th e cross re ference is
  8048   "^DD",2,2, .03,1,992, "%D",9,0)
  8049   not to be  executed a s part of  a re-index ing.
  8050   "^DD",2,2, .03,1,992, "DT")
  8051   2990920
  8052   "^DD",2,2, .03,2)
  8053   S Y(0)=Y S  X=Y(0) S: X X=$E(X,4 ,5)_"/"_$E (X,6,7)_"/ "_(1700+$E (X,1,3)) S  Y=X
  8054   "^DD",2,2, .03,2.1)
  8055   NUMDATE4(D OB)
  8056   "^DD",2,2, .03,3)
  8057   Enter the  patient's  DATE OF BI RTH which  must be la ter than 1 2/31/1870.   DATE OF  BIRTH cann ot be a da te after t he benefic iary 'Inel igible Dat e' or a da te after t he 'Enroll ment Appli cation Dat e'.
  8058   "^DD",2,2, .03,20,0)
  8059   ^.3LA^1^1
  8060   "^DD",2,2, .03,20,1,0 )
  8061   DEMOG^
  8062   "^DD",2,2, .03,21,0)
  8063   ^.001^3^3^ 3101213^^^ ^
  8064   "^DD",2,2, .03,21,1,0 )
  8065   Enter the  patient's  DATE OF BI RTH which  must be la ter than 1 2/31/1870.   
  8066   "^DD",2,2, .03,21,2,0 )
  8067   DATE OF BI RTH cannot  be a date  after the  beneficia ry 'Inelig ible Date'  
  8068   "^DD",2,2, .03,21,3,0 )
  8069   or a date  after the  'Enrollmen t Applicat ion Date'.
  8070   "^DD",2,2, .03,"AUDIT ")
  8071   y
  8072   "^DD",2,2, .03,"DT")
  8073   3090904
  8074   "^DD",2,2, .09,0)
  8075   SOCIAL SEC URITY NUMB ER^RFXa^^0 ;9^K:X[""" "!($A(X)=4 5) X I $D( X) S:'$D(D PTX) DFN=D A D SSN^DG INP Q  I $ L(X)>10
  8076   "^DD",2,2, .09,.1)
  8077   SSN
  8078   "^DD",2,2, .09,1,0)
  8079   ^.1^^-1
  8080   "^DD",2,2, .09,1,1,0)
  8081   2^BS^MUMPS
  8082   "^DD",2,2, .09,1,1,1)
  8083   S ^DPT("BS ",$E(X,6,9 ),DA)=""
  8084   "^DD",2,2, .09,1,1,2)
  8085   K:$E(X,6,9 )'="" ^DPT ("BS",$E(X ,6,9),DA)
  8086   "^DD",2,2, .09,1,2,0)
  8087   ^^TRIGGER^ 2^.083
  8088   "^DD",2,2, .09,1,2,1)
  8089   K DIV S DI V=X,D0=DA, DIV(0)=D0  S Y(1)=$S( $D(^DPT(D0 ,0)):^(0), 1:"") S X= $P(Y(1),U, 20),X=X S  DIU=X K Y  S X=DIV S  X="1" X ^D D(2,.09,1, 2,1.4)
  8090   "^DD",2,2, .09,1,2,1. 4)
  8091   S DIH=$S($ D(^DPT(DIV (0),0)):^( 0),1:""),D IV=X X "F  %=0:0 Q:$L ($P(DIH,U, 19,99))  S  DIH=DIH_U " S %=$P(D IH,U,21,99 9),DIU=$P( DIH,U,20), ^(0)=$P(DI H,U,1,19)_ U_DIV_$S(% ]"":U_%,1: ""),DIH=2, DIG=.083 D  ^DICR
  8092   "^DD",2,2, .09,1,2,2)
  8093   Q
  8094   "^DD",2,2, .09,1,2,"C REATE VALU E")
  8095   "1"
  8096   "^DD",2,2, .09,1,2,"D ELETE VALU E")
  8097   NO EFFECT
  8098   "^DD",2,2, .09,1,2,"F IELD")
  8099   #.083
  8100   "^DD",2,2, .09,1,3,0)
  8101   2^BS5^MUMP S
  8102   "^DD",2,2, .09,1,3,1)
  8103   S ^DPT("BS 5",$E(^DPT (DA,0),1)_ $E(X,6,9), DA)=""
  8104   "^DD",2,2, .09,1,3,2)
  8105   K ^DPT("BS 5",$E(^DPT (DA,0),1)_ $E(X,6,9), DA)
  8106   "^DD",2,2, .09,1,4,0)
  8107   2^AODS1^MU MPS
  8108   "^DD",2,2, .09,1,4,1)
  8109   S A1B2TAG= "PAT" D ^A 1B2XFR
  8110   "^DD",2,2, .09,1,4,2)
  8111   S A1B2TAG= "PAT" D ^A 1B2XFR
  8112   "^DD",2,2, .09,1,5,0)
  8113   2^ATP^MUMP S
  8114   "^DD",2,2, .09,1,5,1)
  8115   I $E(X,1,5 )="00000"  D SET^DGRE GDD1(DA,.6 ,0,21,1)
  8116   "^DD",2,2, .09,1,5,2)
  8117   D KILL^DGR EGDD1(DA,. 6,0,21,0)
  8118   "^DD",2,2, .09,1,5,"% D",0)
  8119   ^^2^2^2951 026^^^^
  8120   "^DD",2,2, .09,1,5,"% D",1,0)
  8121   This cross  reference  is used t o indentif y test pat ients. Tes t patients  are
  8122   "^DD",2,2, .09,1,5,"% D",2,0)
  8123   designated  by five l eading zer os in the  SSN.
  8124   "^DD",2,2, .09,1,5,"D T")
  8125   2951026
  8126   "^DD",2,2, .09,1,7,0)
  8127   2^SSN
  8128   "^DD",2,2, .09,1,7,1)
  8129   S ^DPT("SS N",$E(X,1, 30),DA)=""
  8130   "^DD",2,2, .09,1,7,2)
  8131   K ^DPT("SS N",$E(X,1, 30),DA)
  8132   "^DD",2,2, .09,1,8,0)
  8133   2^AVADPT6^ MUMPS
  8134   "^DD",2,2, .09,1,8,1)
  8135   S VADFN=DA  D SET^VAD PT6 K VADF N
  8136   "^DD",2,2, .09,1,8,2)
  8137   S VADFN=DA  D KILL^VA DPT6 K VAD FN
  8138   "^DD",2,2, .09,1,9,0)
  8139   2^AD^MUMPS
  8140   "^DD",2,2, .09,1,9,1)
  8141   S PPP=X,X= "PPPFMX" X  ^%ZOSF("T EST") D:$T  SNSSN^PPP FMX S X=PP P K PPP
  8142   "^DD",2,2, .09,1,9,2)
  8143   S PPP=X,X= "PPPFMX" X  ^%ZOSF("T EST") D:$T  KNSSN^PPP FMX S X=PP P K PPP
  8144   "^DD",2,2, .09,1,9,"% D",0)
  8145   ^.101^2^2^ 3010423^^
  8146   "^DD",2,2, .09,1,9,"% D",1,0)
  8147   This cross -reference  is used t o add a ne w SSN to t he Prescri ption
  8148   "^DD",2,2, .09,1,9,"% D",2,0)
  8149   Practices  Files when  a new pat ient is ad ded to the  patient f ile.
  8150   "^DD",2,2, .09,1,9,"D T")
  8151   2920611
  8152   "^DD",2,2, .09,1,10,0 )
  8153   ^^TRIGGER^ 2^.0906
  8154   "^DD",2,2, .09,1,10,1 )
  8155   K DIV S DI V=X,D0=DA, DIV(0)=D0  S Y(0)=X S  X=Y(0)'[" P" I X S X =DIV S Y(1 )=$S($D(^D PT(D0,"SSN ")):^("SSN "),1:"") S  X=$P(Y(1) ,U,1),X=X  S DIU=X K  Y S X="" X  ^DD(2,.09 ,1,10,1.4)
  8156   "^DD",2,2, .09,1,10,1 .4)
  8157   S DIH=$G(^ DPT(DIV(0) ,"SSN")),D IV=X S $P( ^("SSN"),U ,1)=DIV,DI H=2,DIG=.0 906 D ^DIC R
  8158   "^DD",2,2, .09,1,10,2 )
  8159   Q
  8160   "^DD",2,2, .09,1,10," %D",0)
  8161   ^^1^1^3051 128^
  8162   "^DD",2,2, .09,1,10," %D",1,0)
  8163   Pseudo SSN  Reason wi ll have a  value only  if SSN is  a Pseudo  SSN. 
  8164   "^DD",2,2, .09,1,10," CREATE CON DITION")
  8165   #.09'["P"
  8166   "^DD",2,2, .09,1,10," CREATE VAL UE")
  8167   @
  8168   "^DD",2,2, .09,1,10," DELETE VAL UE")
  8169   NO EFFECT
  8170   "^DD",2,2, .09,1,10," DT")
  8171   3051003
  8172   "^DD",2,2, .09,1,10," FIELD")
  8173   PSEUDO SSN  REAS
  8174   "^DD",2,2, .09,1,301, 0)
  8175   2^IVM09^MU MPS
  8176   "^DD",2,2, .09,1,301, 1)
  8177   S IVMX=X,X ="IVMPXFR"  X ^%ZOSF( "TEST") D: $T DPT^IVM PXFR S X=I VMX K IVMX
  8178   "^DD",2,2, .09,1,301, 2)
  8179   S IVMX=X,X ="IVMPXFR"  X ^%ZOSF( "TEST") D: $T DPT^IVM PXFR S X=I VMX K IVMX
  8180   "^DD",2,2, .09,1,301, "%D",0)
  8181   ^.101^4^4^ 3010423^^
  8182   "^DD",2,2, .09,1,301, "%D",1,0)
  8183   This cross -reference  will chec k the IVM  PATIENT fi le to see  if a chang e
  8184   "^DD",2,2, .09,1,301, "%D",2,0)
  8185   to this fi eld will r equire tra nsmission  to the IVM  Center.   If it does ,
  8186   "^DD",2,2, .09,1,301, "%D",3,0)
  8187   the IVM PA TIENT file  entry's T RANSMISSIO N STATUS w ill be set  to 0 and
  8188   "^DD",2,2, .09,1,301, "%D",4,0)
  8189   the nightl y backgrou nd job wil l transmit  the updat ed informa tion.
  8190   "^DD",2,2, .09,1,301, "DT")
  8191   2930605
  8192   "^DD",2,2, .09,1,800, 0)
  8193   2^PX09^MUM PS
  8194   "^DD",2,2, .09,1,800, 1)
  8195   S PX=X,X=" PXXDPT" X  ^%ZOSF("TE ST") D:$T  SETSSN^PXX DPT S X=PX  K PX
  8196   "^DD",2,2, .09,1,800, 2)
  8197   S PX=X,X=" PXXDPT" X  ^%ZOSF("TE ST") D:$T  KILLSSN^PX XDPT S X=P X K PX
  8198   "^DD",2,2, .09,1,800, "%D",0)
  8199   ^^2^2^2960 624^^^
  8200   "^DD",2,2, .09,1,800, "%D",1,0)
  8201   This cross -reference  is used t o add a ne w SSN to t he 9000001  IHS Patie nt
  8202   "^DD",2,2, .09,1,800, "%D",2,0)
  8203   File when  a new pati ent is add ed to the  Patient Fi le.
  8204   "^DD",2,2, .09,1,800, "DT")
  8205   2930908
  8206   "^DD",2,2, .09,1,991, 0)
  8207   2^AVAFC09^ MUMPS
  8208   "^DD",2,2, .09,1,991, 1)
  8209   I ($T(AVAF C^VAFCDD01 )'="") S V AFCF=".09; " D AVAFC^ VAFCDD01(D A)
  8210   "^DD",2,2, .09,1,991, 2)
  8211   I ($T(AVAF C^VAFCDD01 )'="") S V AFCF=".09; " D AVAFC^ VAFCDD01(D A)
  8212   "^DD",2,2, .09,1,991, "%D",0)
  8213   ^^15^15^29 90204^^^^
  8214   "^DD",2,2, .09,1,991, "%D",1,0)
  8215   This cross  reference  is used t o remember  that chan ges were m ade to the
  8216   "^DD",2,2, .09,1,991, "%D",2,0)
  8217   PATIENT fi le (#2) ou tside of t he Registr ation proc ess.  Exec ution of t his
  8218   "^DD",2,2, .09,1,991, "%D",3,0)
  8219   cross refe rence will  create an  entry in  the ADT/HL 7 PIVOT fi le (#391.7 1)
  8220   "^DD",2,2, .09,1,991, "%D",4,0)
  8221   and mark i t as requi ring trans mission of  an HL7 AD T-A08 mess age.
  8222   "^DD",2,2, .09,1,991, "%D",5,0)
  8223    
  8224   "^DD",2,2, .09,1,991, "%D",6,0)
  8225   The local  variable V AFCFLG wil l be set t o 1 if the  cross ref erence is
  8226   "^DD",2,2, .09,1,991, "%D",7,0)
  8227   not execut ed because  the chang e is being  made from  within th e Registra tion
  8228   "^DD",2,2, .09,1,991, "%D",8,0)
  8229   process.
  8230   "^DD",2,2, .09,1,991, "%D",9,0)
  8231    
  8232   "^DD",2,2, .09,1,991, "%D",10,0)
  8233   Execution  of this cr oss refere nce can be  prevented  by settin g the loca l
  8234   "^DD",2,2, .09,1,991, "%D",11,0)
  8235   variable V AFCA08 equ al to 1.
  8236   "^DD",2,2, .09,1,991, "%D",12,0)
  8237     
  8238   "^DD",2,2, .09,1,991, "%D",13,0)
  8239   The local  variable V AFCF is us ed to iden tify the f ield edite d.
  8240   "^DD",2,2, .09,1,991, "%D",14,0)
  8241   This data  is stored  in the FIE LD(S) EDIT ED (#2.1)  field in t he 
  8242   "^DD",2,2, .09,1,991, "%D",15,0)
  8243   ADT/HL7 PI VOT file ( #391.71).
  8244   "^DD",2,2, .09,1,991, "DT")
  8245   2970825
  8246   "^DD",2,2, .09,1,992, 0)
  8247   2^ADGRU09^ MUMPS
  8248   "^DD",2,2, .09,1,992, 1)
  8249   D:($T(ADGR U^DGRUDD01 )'="") ADG RU^DGRUDD0 1(DA)
  8250   "^DD",2,2, .09,1,992, 2)
  8251   D:($T(ADGR U^DGRUDD01 )'="") ADG RU^DGRUDD0 1(DA)
  8252   "^DD",2,2, .09,1,992, "%D",0)
  8253   ^^9^9^3000 202^^^^
  8254   "^DD",2,2, .09,1,992, "%D",1,0)
  8255   This cross  reference  is used t o remember  that chan ges were m ade to a 
  8256   "^DD",2,2, .09,1,992, "%D",2,0)
  8257   monitored  data field  in the PA TIENT File  (#2) requ ired for a  vendor
  8258   "^DD",2,2, .09,1,992, "%D",3,0)
  8259   RAI/MDS CO TS system.   Executio n of this  cross refe rence will  create
  8260   "^DD",2,2, .09,1,992, "%D",4,0)
  8261   an entry i n the ADT/ HL7 PIVOT  file (#391 .71) and m ark it as  requiring
  8262   "^DD",2,2, .09,1,992, "%D",5,0)
  8263   transmissi on of an H L7 demogra phic A08 u pdate mess age to the  COTS
  8264   "^DD",2,2, .09,1,992, "%D",6,0)
  8265   interface.
  8266   "^DD",2,2, .09,1,992, "%D",7,0)
  8267    
  8268   "^DD",2,2, .09,1,992, "%D",8,0)
  8269   The local  variable D GRUGA08 wi ll be set  to 1 if th e cross re ference is
  8270   "^DD",2,2, .09,1,992, "%D",9,0)
  8271   not to be  executed a s part of  a re-index ing.
  8272   "^DD",2,2, .09,1,992, "DT")
  8273   3000202
  8274   "^DD",2,2, .09,2)
  8275   S Y(0)=Y S :$L(Y)=11  Y=$E(Y,10, 11)_$E(Y,1 ,9)
  8276   "^DD",2,2, .09,2.1)
  8277   S:$L(Y)=11  Y=$E(Y,10 ,11)_$E(Y, 1,9)
  8278   "^DD",2,2, .09,3)
  8279   Enter 9-di git SSN or  'P' for p seudo-SSN.
  8280   "^DD",2,2, .09,10)
  8281   10/10 FORM
  8282   "^DD",2,2, .09,11,0)
  8283   ^.2LAP^^0
  8284   "^DD",2,2, .09,11,1,0 )
  8285   1^
  8286   "^DD",2,2, .09,11,2,0 )
  8287   2^
  8288   "^DD",2,2, .09,20,0)
  8289   ^.3LA^1^1
  8290   "^DD",2,2, .09,20,1,0 )
  8291   DEMOG^
  8292   "^DD",2,2, .09,21,0)
  8293   ^^14^14^30 81021^
  8294   "^DD",2,2, .09,21,1,0 )
  8295   Answer wit h the indi vidual's s ocial secu rity numbe r.  Answer  must be 9  
  8296   "^DD",2,2, .09,21,2,0 )
  8297   numbers in  length. T he SSN wil l be sent  to the SSA  for verif ication.  
  8298   "^DD",2,2, .09,21,3,0 )
  8299   This will  be display ed next to  the SSN.   Once an S SN has rec eived a
  8300   "^DD",2,2, .09,21,4,0 )
  8301   status of  Verified,  it is lock ed from us er updatin g and a "V ERIFIED"
  8302   "^DD",2,2, .09,21,5,0 )
  8303   will be di splayed by  the SSN f ield.  Onl y the Iden tity Manag ement Data
  8304   "^DD",2,2, .09,21,6,0 )
  8305   QUality Te am are abl e to chang e a benefi ciary's (v eteran/non  veteran)
  8306   "^DD",2,2, .09,21,7,0 )
  8307   SSN.  If a n Invalid  per SSA st atus is re ceived for  the SSN,  then an
  8308   "^DD",2,2, .09,21,8,0 )
  8309   "INVALID"  will appea r next to  the invali d SSN of t he individ ual.
  8310   "^DD",2,2, .09,21,9,0 )
  8311   Facilities  should ma ke every e ffort to o btain the  accurate S SN from th e
  8312   "^DD",2,2, .09,21,10, 0)
  8313   individual  for any i nvalid or  pseudo SSN  entry.
  8314   "^DD",2,2, .09,21,11, 0)
  8315    
  8316   "^DD",2,2, .09,21,12, 0)
  8317   If a valid  SSN is no t known, t hen a "P"  will be en tered at t he SSN
  8318   "^DD",2,2, .09,21,13, 0)
  8319   prompt for  the syste m to autom atically a ssign a Ps eudo-SSN.   If a
  8320   "^DD",2,2, .09,21,14, 0)
  8321   Pseudo SSN  is entere d, a Reaso n for ente ring it wi ll be requ ired.
  8322   "^DD",2,2, .09,"AUDIT ")
  8323   y
  8324   "^DD",2,2, .09,"DT")
  8325   3051006
  8326   "^DD",2,2, .116,0)
  8327   ZIP CODE^F ^^.11;6^K: X[""""!($A (X)=45) X  I $D(X) K: $L(X)>5!($ L(X)<5)!'( X?5N) X
  8328   "^DD",2,2, .116,1,0)
  8329   ^.1
  8330   "^DD",2,2, .116,1,1,0 )
  8331   2^AODS116^ MUMPS
  8332   "^DD",2,2, .116,1,1,1 )
  8333   S A1B2TAG= "PAT" D ^A 1B2XFR
  8334   "^DD",2,2, .116,1,1,2 )
  8335   S A1B2TAG= "PAT" D ^A 1B2XFR
  8336   "^DD",2,2, .116,1,2,0 )
  8337   2^AZIP^MUM PS
  8338   "^DD",2,2, .116,1,2,1 )
  8339   D SET^DGRE GDD1(DA,.1 112,.11,12 ,X)
  8340   "^DD",2,2, .116,1,2,2 )
  8341   D KILL^DGR EGDD1(DA,. 1112,.11,1 2,X)
  8342   "^DD",2,2, .116,1,2," %D",0)
  8343   ^^2^2^2930 603^^^^
  8344   "^DD",2,2, .116,1,2," %D",1,0)
  8345   This sets  the corres ponding zi p+4 field  to be equa l to the z ip field
  8346   "^DD",2,2, .116,1,2," %D",2,0)
  8347   after the  zip is edi ted.
  8348   "^DD",2,2, .116,1,2," DT")
  8349   2930413
  8350   "^DD",2,2, .116,1,3,0 )
  8351   ^^TRIGGER^ 2^.118
  8352   "^DD",2,2, .116,1,3,1 )
  8353   K DIV S DI V=X,D0=DA, DIV(0)=D0  S Y(1)=$S( $D(^DPT(D0 ,.11)):^(. 11),1:"")  S X=$P(Y(1 ),U,13),X= X S DIU=X  K Y S X=DI V S X=$$NO W^XLFDT()  S DIH=$G(^ DPT(DIV(0) ,.11)),DIV =X S $P(^( .11),U,13) =DIV,DIH=2 ,DIG=.118  D ^DICR
  8354   "^DD",2,2, .116,1,3,2 )
  8355   K DIV S DI V=X,D0=DA, DIV(0)=D0  S Y(1)=$S( $D(^DPT(D0 ,.11)):^(. 11),1:"")  S X=$P(Y(1 ),U,13),X= X S DIU=X  K Y S X=DI V S X=$$NO W^XLFDT()  S DIH=$G(^ DPT(DIV(0) ,.11)),DIV =X S $P(^( .11),U,13) =DIV,DIH=2 ,DIG=.118  D ^DICR
  8356   "^DD",2,2, .116,1,3," %D",0)
  8357   ^^2^2^3020 703^
  8358   "^DD",2,2, .116,1,3," %D",1,0)
  8359   This cross -reference  will upda te the Add ress Chang e DT/TM fi eld when 
  8360   "^DD",2,2, .116,1,3," %D",2,0)
  8361   address da ta changes  for a pat ient.
  8362   "^DD",2,2, .116,1,3," CREATE VAL UE")
  8363   S X=$$NOW^ XLFDT()
  8364   "^DD",2,2, .116,1,3," DELETE VAL UE")
  8365   S X=$$NOW^ XLFDT()
  8366   "^DD",2,2, .116,1,3," DT")
  8367   3020703
  8368   "^DD",2,2, .116,1,3," FIELD")
  8369   ADDRESS CH ANGE DT
  8370   "^DD",2,2, .116,1,991 ,0)
  8371   2^AVAFC116 ^MUMPS
  8372   "^DD",2,2, .116,1,991 ,1)
  8373   I ($T(AVAF C^VAFCDD01 )'="") S V AFCF=".116 ;",VAFCEPI C=1 D AVAF C^VAFCDD01 (DA)
  8374   "^DD",2,2, .116,1,991 ,2)
  8375   I ($T(AVAF C^VAFCDD01 )'="") S V AFCF=".116 ;",VAFCEPI C=1 D AVAF C^VAFCDD01 (DA)
  8376   "^DD",2,2, .116,1,991 ,"%D",0)
  8377   ^.101^19^1 9^3180209^ ^^^
  8378   "^DD",2,2, .116,1,991 ,"%D",1,0)
  8379   This cross  reference  is used t o remember  that chan ges were m ade to the  
  8380   "^DD",2,2, .116,1,991 ,"%D",2,0)
  8381   PATIENT fi le (#2) ou tside of t he Registr ation proc ess.  Exec ution of t his 
  8382   "^DD",2,2, .116,1,991 ,"%D",3,0)
  8383   cross refe rence will  create an  entry in  the ADT/HL 7 PIVOT fi le (#391.7 1) 
  8384   "^DD",2,2, .116,1,991 ,"%D",4,0)
  8385   and mark i t as requi ring trans mission of  an HL7 AD T-A08 mess age.  
  8386   "^DD",2,2, .116,1,991 ,"%D",5,0)
  8387                                       
  8388   "^DD",2,2, .116,1,991 ,"%D",6,0)
  8389   The local  variable V AFCFLG wil l be set t o 1 if the  cross ref erence is  not 
  8390   "^DD",2,2, .116,1,991 ,"%D",7,0)
  8391   executed b ecause the  change is  being mad e from wit hin the Re gistration  
  8392   "^DD",2,2, .116,1,991 ,"%D",8,0)
  8393   process.
  8394   "^DD",2,2, .116,1,991 ,"%D",9,0)
  8395    
  8396   "^DD",2,2, .116,1,991 ,"%D",10,0 )
  8397   Execution  of this cr oss refere nce can be  prevented  by settin g the loca
  8398   "^DD",2,2, .116,1,991 ,"%D",11,0 )
  8399   variable V AFCA08 equ al to 1.  
  8400   "^DD",2,2, .116,1,991 ,"%D",12,0 )
  8401                                        
  8402   "^DD",2,2, .116,1,991 ,"%D",13,0 )
  8403   The local  variable V AFCF is us ed to iden tify the f ield edite d.  This d ata 
  8404   "^DD",2,2, .116,1,991 ,"%D",14,0 )
  8405   is stored  in the FIE LD(S) EDIT ED (#2.1)  field in t he ADT/HL7  PIVOT fil
  8406   "^DD",2,2, .116,1,991 ,"%D",15,0 )
  8407   (#391.71).
  8408   "^DD",2,2, .116,1,991 ,"%D",16,0 )
  8409    
  8410   "^DD",2,2, .116,1,991 ,"%D",17,0 )
  8411   The local  variable V AFCEPIC is  set to 1  to stop th e existing  output of  
  8412   "^DD",2,2, .116,1,991 ,"%D",18,0 )
  8413   messages t o MPI when  the updat e to this  field is f or the MAS S to Epic 
  8414   "^DD",2,2, .116,1,991 ,"%D",19,0 )
  8415   transmissi on only.
  8416   "^DD",2,2, .116,1,991 ,"DT")
  8417   3170914
  8418   "^DD",2,2, .116,3)
  8419   Enter the  zip code f or the cit y in which  this appl icant resi des.
  8420   "^DD",2,2, .116,20,0)
  8421   ^.3LA^1^1
  8422   "^DD",2,2, .116,20,1, 0)
  8423   DEMOG
  8424   "^DD",2,2, .116,21,0)
  8425   ^^2^2^2951 026^^^^
  8426   "^DD",2,2, .116,21,1, 0)
  8427   Enter the  zip code [ 5 numerics ] for the  city in wh ich this a pplicant
  8428   "^DD",2,2, .116,21,2, 0)
  8429   resides.
  8430   "^DD",2,2, .116,23,0)
  8431   ^^4^4^2951 026^^
  8432   "^DD",2,2, .116,23,1, 0)
  8433   This field  will beco me un-edit able in a  later rele ase.  Prog rammers
  8434   "^DD",2,2, .116,23,2, 0)
  8435   should mod ify code f rom this f ield (.116 ) to the Z IP+4 field  (.1112)
  8436   "^DD",2,2, .116,23,3, 0)
  8437   Currently,  modificat ions to th is field w ill create  an entry  in the
  8438   "^DD",2,2, .116,23,4, 0)
  8439   ZIP+4 fiel d (without  the +4 of  course).
  8440   "^DD",2,2, .116,"DT")
  8441   3170914
  8442   "^DD",2,2, .121,0)
  8443   BAD ADDRES S INDICATO R^*S^1:UND ELIVERABLE ;2:HOMELES S;3:OTHER; 4:ADDRESS  NOT FOUND; ^.11;16^Q
  8444   "^DD",2,2, .121,1,0)
  8445   ^.1
  8446   "^DD",2,2, .121,1,1,0 )
  8447   2^AENR121^ MUMPS
  8448   "^DD",2,2, .121,1,1,1 )
  8449   D EVENT^IV MPLOG(DA)
  8450   "^DD",2,2, .121,1,1,2 )
  8451   D EVENT^IV MPLOG(DA)
  8452   "^DD",2,2, .121,1,1,3 )
  8453   DO NOT DEL ETE
  8454   "^DD",2,2, .121,1,1," %D",0)
  8455   ^^2^2^3060 911^
  8456   "^DD",2,2, .121,1,1," %D",1,0)
  8457   This cross -reference  is used t o notify H EC of chan ges that m ay affect
  8458   "^DD",2,2, .121,1,1," %D",2,0)
  8459   enrollment .
  8460   "^DD",2,2, .121,1,1," DT")
  8461   3060911
  8462   "^DD",2,2, .121,1,2,0 )
  8463   ^^TRIGGER^ 2^.118
  8464   "^DD",2,2, .121,1,2,1 )
  8465   K DIV S DI V=X,D0=DA, DIV(0)=D0  S Y(1)=$S( $D(^DPT(D0 ,.11)):^(. 11),1:"")  S X=$P(Y(1 ),U,13),X= X S DIU=X  K Y S X=DI V S X=$$NO W^XLFDT()  S DIH=$G(^ DPT(DIV(0) ,.11)),DIV =X S $P(^( .11),U,13) =DIV,DIH=2 ,DIG=.118  D ^DICR
  8466   "^DD",2,2, .121,1,2,2 )
  8467   K DIV S DI V=X,D0=DA, DIV(0)=D0  S Y(1)=$S( $D(^DPT(D0 ,.11)):^(. 11),1:"")  S X=$P(Y(1 ),U,13),X= X S DIU=X  K Y S X=DI V S X=$$NO W^XLFDT()  S DIH=$G(^ DPT(DIV(0) ,.11)),DIV =X S $P(^( .11),U,13) =DIV,DIH=2 ,DIG=.118  D ^DICR
  8468   "^DD",2,2, .121,1,2," %D",0)
  8469   ^.101^2^2^ 3061030^^
  8470   "^DD",2,2, .121,1,2," %D",1,0)
  8471   This cross -reference  will be u sed to upd ate the Da te/Time st amp for an   
  8472   "^DD",2,2, .121,1,2," %D",2,0)
  8473   Address Ch ange.
  8474   "^DD",2,2, .121,1,2," CREATE VAL UE")
  8475   S X=$$NOW^ XLFDT()
  8476   "^DD",2,2, .121,1,2," DELETE VAL UE")
  8477   S X=$$NOW^ XLFDT()
  8478   "^DD",2,2, .121,1,2," DT")
  8479   3061010
  8480   "^DD",2,2, .121,1,2," FIELD")
  8481   #.118
  8482   "^DD",2,2, .121,1,991 ,0)
  8483   2^AVAFCMX1 21^MUMPS
  8484   "^DD",2,2, .121,1,991 ,1)
  8485   D TRIGBAD^ DGMXORU(DA ,"ACTIVE")
  8486   "^DD",2,2, .121,1,991 ,2)
  8487   D TRIGBAD^ DGMXORU(DA ,"INACTIVE ")
  8488   "^DD",2,2, .121,1,991 ,"%D",0)
  8489   ^.101^19^1 9^3171205^ ^^^
  8490   "^DD",2,2, .121,1,991 ,"%D",1,0)
  8491   This cross  reference  is used t o remember  that chan ges were m ade to the  
  8492   "^DD",2,2, .121,1,991 ,"%D",2,0)
  8493   PATIENT fi le (#2) ou tside of t he Registr ation proc ess.  Exec ution of t his 
  8494   "^DD",2,2, .121,1,991 ,"%D",3,0)
  8495   cross refe rence will  create an  entry in  the ADT/HL 7 PIVOT fi le (#391.7 1) 
  8496   "^DD",2,2, .121,1,991 ,"%D",4,0)
  8497   and mark i t as requi ring trans mission of  an HL7 AD T-A08 mess age.  
  8498   "^DD",2,2, .121,1,991 ,"%D",5,0)
  8499                                       
  8500   "^DD",2,2, .121,1,991 ,"%D",6,0)
  8501   The local  variable V AFCFLG wil l be set t o 1 if the  cross ref erence is  not 
  8502   "^DD",2,2, .121,1,991 ,"%D",7,0)
  8503   executed b ecause the  change is  being mad e from wit hin the Re gistration  
  8504   "^DD",2,2, .121,1,991 ,"%D",8,0)
  8505   process.
  8506   "^DD",2,2, .121,1,991 ,"%D",9,0)
  8507    
  8508   "^DD",2,2, .121,1,991 ,"%D",10,0 )
  8509   Execution  of this cr oss refere nce can be  prevented  by settin g the loca
  8510   "^DD",2,2, .121,1,991 ,"%D",11,0 )
  8511   variable V AFCA08 equ al to 1.  
  8512   "^DD",2,2, .121,1,991 ,"%D",12,0 )
  8513                                        
  8514   "^DD",2,2, .121,1,991 ,"%D",13,0 )
  8515   The local  variable V AFCF is us ed to iden tify the f ield edite d.  This d ata 
  8516   "^DD",2,2, .121,1,991 ,"%D",14,0 )
  8517   is stored  in the FIE LD(S) EDIT ED (#2.1)  field in t he ADT/HL7  PIVOT fil
  8518   "^DD",2,2, .121,1,991 ,"%D",15,0 )
  8519   (#391.71).
  8520   "^DD",2,2, .121,1,991 ,"%D",16,0 )
  8521    
  8522   "^DD",2,2, .121,1,991 ,"%D",17,0 )
  8523   The local  variable V AFCEPIC is  set to 1  to stop th e existing  output of  
  8524   "^DD",2,2, .121,1,991 ,"%D",18,0 )
  8525   messages t o MPI when  the updat e to this  field is f or the MAS S to Epic 
  8526   "^DD",2,2, .121,1,991 ,"%D",19,0 )
  8527   transmissi on only.
  8528   "^DD",2,2, .121,1,991 ,"DT")
  8529   3171204
  8530   "^DD",2,2, .121,3)
  8531   Please ent er 1 if th e address  is 'UNDELI VERABLE',  2 if the p atient is  'HOMELESS' , or 3 for  'OTHER' b ad address  reasons.  Enter "@"  to remove  the indica tor.
  8532   "^DD",2,2, .121,12)
  8533   Only 1-3 m ay be sele cted.
  8534   "^DD",2,2, .121,12.1)
  8535   S DIC("S") ="I Y'=4"
  8536   "^DD",2,2, .121,21,0)
  8537   ^^15^15^31 40707^
  8538   "^DD",2,2, .121,21,1, 0)
  8539   The Bad Ad dress Indi cator fiel d applies  to the add ress at wh ich the pa tient
  8540   "^DD",2,2, .121,21,2, 0)
  8541   resides.   This field  should be  set as fo llows (if  applicable ):
  8542   "^DD",2,2, .121,21,3, 0)
  8543    
  8544   "^DD",2,2, .121,21,4, 0)
  8545       "UNDEL IVERABLE"  - Bad Addr ess based  on returne d mail.
  8546   "^DD",2,2, .121,21,5, 0)
  8547       "HOMEL ESS" - Pat ient is kn own to be  homeless.
  8548   "^DD",2,2, .121,21,6, 0)
  8549       "OTHER " - Other  Bad Addres s Reason
  8550   "^DD",2,2, .121,21,7, 0)
  8551    
  8552   "^DD",2,2, .121,21,8, 0)
  8553   Setting th is field w ill preven t a Bad Ad dress from  being sha red with H EC
  8554   "^DD",2,2, .121,21,9, 0)
  8555   and other  VAMC facil ities.
  8556   "^DD",2,2, .121,21,10 ,0)
  8557    
  8558   "^DD",2,2, .121,21,11 ,0)
  8559    
  8560   "^DD",2,2, .121,21,12 ,0)
  8561   Once the B ad Address  Indicator  is set, i ncoming "n ewer" addr esses will
  8562   "^DD",2,2, .121,21,13 ,0)
  8563   automatica lly remove  the Bad A ddress Ind icator, an d allow th e "updated "
  8564   "^DD",2,2, .121,21,14 ,0)
  8565   address to  be transm itted to H EC and oth er VAMC fa cilities.  To manuall y
  8566   "^DD",2,2, .121,21,15 ,0)
  8567   remove the  Bad Addre ss Indicat or enter t he "@" sym bol.
  8568   "^DD",2,2, .121,23,0)
  8569   ^.001^9^9^ 3140707^^^ ^
  8570   "^DD",2,2, .121,23,1, 0)
  8571   This field  is being  used in co njunction  with Patie nt Address  fields
  8572   "^DD",2,2, .121,23,2, 0)
  8573   .111, .111 2, .112, . 113, .114,  .115, .11 6, and .11 7, which a re located
  8574   "^DD",2,2, .121,23,3, 0)
  8575   in the Pat ient (#2)  file.
  8576   "^DD",2,2, .121,23,4, 0)
  8577  
  8578   "^DD",2,2, .121,23,5, 0)
  8579   A programm er API, $$ BADADR^DGU TL3(DFN) w ill allow  the return  of the Ba d
  8580   "^DD",2,2, .121,23,6, 0)
  8581   Address In dicator.   The follow ing parame ters are u sed:
  8582   "^DD",2,2, .121,23,7, 0)
  8583  
  8584   "^DD",2,2, .121,23,8, 0)
  8585   Input Para meter: DFN  - interna l entry nu mber for t he Patient  file (#2)
  8586   "^DD",2,2, .121,23,9, 0)
  8587      Return  value: int ernal valu e of the B ad Address  Indicator  or <null>
  8588   "^DD",2,2, .121,"AUDI T")
  8589  
  8590   "^DD",2,2, .121,"DT")
  8591   3171204
  8592   "^DD",2,2, .1211,0)
  8593   TEMPORARY  STREET [LI NE 1]^FX^^ .121;1^K:X [""""!($A( X)=45) X I  $D(X) K:$ L(X)>30!($ L(X)<2) X  I $D(X) S  DFN=DA D T AD^DGLOCK
  8594   "^DD",2,2, .1211,.1)
  8595  
  8596   "^DD",2,2, .1211,1,0)
  8597   ^.1
  8598   "^DD",2,2, .1211,1,1, 0)
  8599   2^AXR12^MU MPS
  8600   "^DD",2,2, .1211,1,1, 1)
  8601   Q
  8602   "^DD",2,2, .1211,1,1, 2)
  8603   S DGXRF=.1 211 D ^DGD DC Q
  8604   "^DD",2,2, .1211,1,99 1,0)
  8605   2^AVAFC121 1^MUMPS
  8606   "^DD",2,2, .1211,1,99 1,1)
  8607   I ($T(AVAF C^VAFCDD01 )'="") S V AFCF=".121 1;",VAFCEP IC=1 D AVA FC^VAFCDD0 1(DA)
  8608   "^DD",2,2, .1211,1,99 1,2)
  8609   I ($T(AVAF C^VAFCDD01 )'="") S V AFCF=".121 1;",VAFCEP IC=1 D AVA FC^VAFCDD0 1(DA)
  8610   "^DD",2,2, .1211,1,99 1,"%D",0)
  8611   ^.101^19^1 9^3170913^ ^
  8612   "^DD",2,2, .1211,1,99 1,"%D",1,0 )
  8613   This cross  reference  is used t o remember  that chan ges were m ade to the  
  8614   "^DD",2,2, .1211,1,99 1,"%D",2,0 )
  8615   PATIENT fi le (#2) ou tside of t he Registr ation proc ess.  Exec ution of t his 
  8616   "^DD",2,2, .1211,1,99 1,"%D",3,0 )
  8617   cross refe rence will  create an  entry in  the ADT/HL 7 PIVOT fi le (#391.7 1) 
  8618   "^DD",2,2, .1211,1,99 1,"%D",4,0 )
  8619   and mark i t as requi ring trans mission of  an HL7 AD T-A08 mess age.  
  8620   "^DD",2,2, .1211,1,99 1,"%D",5,0 )
  8621                                       
  8622   "^DD",2,2, .1211,1,99 1,"%D",6,0 )
  8623   The local  variable V AFCFLG wil l be set t o 1 if the  cross ref erence is  not 
  8624   "^DD",2,2, .1211,1,99 1,"%D",7,0 )
  8625   executed b ecause the  change is  being mad e from wit hin the Re gistration  
  8626   "^DD",2,2, .1211,1,99 1,"%D",8,0 )
  8627   process.
  8628   "^DD",2,2, .1211,1,99 1,"%D",9,0 )
  8629    
  8630   "^DD",2,2, .1211,1,99 1,"%D",10, 0)
  8631   Execution  of this cr oss refere nce can be  prevented  by settin g the loca
  8632   "^DD",2,2, .1211,1,99 1,"%D",11, 0)
  8633   variable V AFCA08 equ al to 1.  
  8634   "^DD",2,2, .1211,1,99 1,"%D",12, 0)
  8635                                        
  8636   "^DD",2,2, .1211,1,99 1,"%D",13, 0)
  8637   The local  variable V AFCF is us ed to iden tify the f ield edite d.  This d ata 
  8638   "^DD",2,2, .1211,1,99 1,"%D",14, 0)
  8639   is stored  in the FIE LD(S) EDIT ED (#2.1)  field in t he ADT/HL7  PIVOT fil
  8640   "^DD",2,2, .1211,1,99 1,"%D",15, 0)
  8641   (#391.71).
  8642   "^DD",2,2, .1211,1,99 1,"%D",16, 0)
  8643    
  8644   "^DD",2,2, .1211,1,99 1,"%D",17, 0)
  8645   The local  variable V AFCEPIC is  set to 1  to stop th e existing  output of  
  8646   "^DD",2,2, .1211,1,99 1,"%D",18, 0)
  8647   messages t o MPI when  the updat e to this  field is f or the MAS S to Epic 
  8648   "^DD",2,2, .1211,1,99 1,"%D",19, 0)
  8649   transmissi on only.
  8650   "^DD",2,2, .1211,1,99 1,"DT")
  8651   3170913
  8652   "^DD",2,2, .1211,3)
  8653   Enter the  first line  of this a pplicants  temporary  address [2 -30 charac ters].
  8654   "^DD",2,2, .1211,20,0 )
  8655   ^.3LA^1^1
  8656   "^DD",2,2, .1211,20,1 ,0)
  8657   TAD
  8658   "^DD",2,2, .1211,21,0 )
  8659   ^^5^5^2870 728^^^^
  8660   "^DD",2,2, .1211,21,1 ,0)
  8661   If the WAN T TO ENTER  A TEMPORA RY ADDRESS  prompt is  answered  YES
  8662   "^DD",2,2, .1211,21,2 ,0)
  8663   enter the  first line  of the te mporary st reet addre ss for thi s
  8664   "^DD",2,2, .1211,21,3 ,0)
  8665   applicant  [2-30 char acters] ot herwise no thing may  be entered .  This
  8666   "^DD",2,2, .1211,21,4 ,0)
  8667   field cann ot be dele ted as lon g as the n eed for a  temporary  address
  8668   "^DD",2,2, .1211,21,5 ,0)
  8669   is indicat ed.
  8670   "^DD",2,2, .1211,"DEL ",1,0)
  8671   S DFN=DA D  TADD^DGLO CK1 I '$D( X)
  8672   "^DD",2,2, .1211,"DT" )
  8673   3170913
  8674   "^DD",2,2, .1212,0)
  8675   TEMPORARY  STREET [LI NE 2]^FX^^ .121;2^K:X [""""!($A( X)=45) X I  $D(X) K:$ L(X)>30!($ L(X)<2) X  I $D(X) S  DFN=DA D T AD^DGLOCK
  8676   "^DD",2,2, .1212,.1)
  8677  
  8678   "^DD",2,2, .1212,1,0)
  8679   ^.1
  8680   "^DD",2,2, .1212,1,1, 0)
  8681   2^AXR13^MU MPS
  8682   "^DD",2,2, .1212,1,1, 1)
  8683   Q
  8684   "^DD",2,2, .1212,1,1, 2)
  8685   S DGXRF=.1 212 D ^DGD DC Q
  8686   "^DD",2,2, .1212,1,99 1,0)
  8687   2^AVAFC121 2^MUMPS
  8688   "^DD",2,2, .1212,1,99 1,1)
  8689   I ($T(AVAF C^VAFCDD01 )'="") S V AFCF=".121 2;",VAFCEP IC=1 D AVA FC^VAFCDD0 1(DA)
  8690   "^DD",2,2, .1212,1,99 1,2)
  8691   I ($T(AVAF C^VAFCDD01 )'="") S V AFCF=".121 2;",VAFCEP IC=1 D AVA FC^VAFCDD0 1(DA)
  8692   "^DD",2,2, .1212,1,99 1,"%D",0)
  8693   ^^19^19^31 70913^
  8694   "^DD",2,2, .1212,1,99 1,"%D",1,0 )
  8695   This cross  reference  is used t o remember  that chan ges were m ade to the  
  8696   "^DD",2,2, .1212,1,99 1,"%D",2,0 )
  8697   PATIENT fi le (#2) ou tside of t he Registr ation proc ess.  Exec ution of t his 
  8698   "^DD",2,2, .1212,1,99 1,"%D",3,0 )
  8699   cross refe rence will  create an  entry in  the ADT/HL 7 PIVOT fi le (#391.7 1) 
  8700   "^DD",2,2, .1212,1,99 1,"%D",4,0 )
  8701   and mark i t as requi ring trans mission of  an HL7 AD T-A08 mess age.  
  8702   "^DD",2,2, .1212,1,99 1,"%D",5,0 )
  8703                                       
  8704   "^DD",2,2, .1212,1,99 1,"%D",6,0 )
  8705   The local  variable V AFCFLG wil l be set t o 1 if the  cross ref erence is  not 
  8706   "^DD",2,2, .1212,1,99 1,"%D",7,0 )
  8707   executed b ecause the  change is  being mad e from wit hin the Re gistration  
  8708   "^DD",2,2, .1212,1,99 1,"%D",8,0 )
  8709   process.
  8710   "^DD",2,2, .1212,1,99 1,"%D",9,0 )
  8711    
  8712   "^DD",2,2, .1212,1,99 1,"%D",10, 0)
  8713   Execution  of this cr oss refere nce can be  prevented  by settin g the loca
  8714   "^DD",2,2, .1212,1,99 1,"%D",11, 0)
  8715   variable V AFCA08 equ al to 1.  
  8716   "^DD",2,2, .1212,1,99 1,"%D",12, 0)
  8717                                        
  8718   "^DD",2,2, .1212,1,99 1,"%D",13, 0)
  8719   The local  variable V AFCF is us ed to iden tify the f ield edite d.  This d ata 
  8720   "^DD",2,2, .1212,1,99 1,"%D",14, 0)
  8721   is stored  in the FIE LD(S) EDIT ED (#2.1)  field in t he ADT/HL7  PIVOT fil
  8722   "^DD",2,2, .1212,1,99 1,"%D",15, 0)
  8723   (#391.71).
  8724   "^DD",2,2, .1212,1,99 1,"%D",16, 0)
  8725    
  8726   "^DD",2,2, .1212,1,99 1,"%D",17, 0)
  8727   The local  variable V AFCEPIC is  set to 1  to stop th e existing  output of  
  8728   "^DD",2,2, .1212,1,99 1,"%D",18, 0)
  8729   messages t o MPI when  the updat e to this  field is f or the MAS S to Epic 
  8730   "^DD",2,2, .1212,1,99 1,"%D",19, 0)
  8731   transmissi on only.
  8732   "^DD",2,2, .1212,1,99 1,"DT")
  8733   3170913
  8734   "^DD",2,2, .1212,3)
  8735   Enter, if  necessary,  the secon d line of  this appli cants temp orary addr ess [2-30  characters ].
  8736   "^DD",2,2, .1212,20,0 )
  8737   ^.3LA^1^1
  8738   "^DD",2,2, .1212,20,1 ,0)
  8739   TAD
  8740   "^DD",2,2, .1212,21,0 )
  8741   ^^5^5^2861 007^^^^
  8742   "^DD",2,2, .1212,21,1 ,0)
  8743   If the WAN T TO ENTER  A TEMPORA RY ADDRESS  prompt is  answered  YES
  8744   "^DD",2,2, .1212,21,2 ,0)
  8745   enter the  second lin e of the t emporary s treet addr ess [2-30
  8746   "^DD",2,2, .1212,21,3 ,0)
  8747   characters ], if nece ssary, oth erwise not hing may b e entered.   This
  8748   "^DD",2,2, .1212,21,4 ,0)
  8749   field may  not be del eted as lo ng as the  need for a  temporary
  8750   "^DD",2,2, .1212,21,5 ,0)
  8751   address is  indicated .
  8752   "^DD",2,2, .1212,"DT" )
  8753   3170913
  8754   "^DD",2,2, .1213,0)
  8755   TEMPORARY  STREET [LI NE 3]^FX^^ .121;3^K:$ L(X)>30!($ L(X)<2) X  I $D(X) S  DFN=DA D T AD^DGLOCK
  8756   "^DD",2,2, .1213,.1)
  8757  
  8758   "^DD",2,2, .1213,1,0)
  8759   ^.1
  8760   "^DD",2,2, .1213,1,99 1,0)
  8761   2^AVAFC121 3^MUMPS
  8762   "^DD",2,2, .1213,1,99 1,1)
  8763   I ($T(AVAF C^VAFCDD01 )'="") S V AFCF=".121 3;",VAFCEP IC=1 D AVA FC^VAFCDD0 1(DA)
  8764   "^DD",2,2, .1213,1,99 1,2)
  8765   I ($T(AVAF C^VAFCDD01 )'="") S V AFCF=".121 3;",VAFCEP IC=1 D AVA FC^VAFCDD0 1(DA)
  8766   "^DD",2,2, .1213,1,99 1,"%D",0)
  8767   ^^19^19^31 70913^
  8768   "^DD",2,2, .1213,1,99 1,"%D",1,0 )
  8769   This cross  reference  is used t o remember  that chan ges were m ade to the  
  8770   "^DD",2,2, .1213,1,99 1,"%D",2,0 )
  8771   PATIENT fi le (#2) ou tside of t he Registr ation proc ess.  Exec ution of t his 
  8772   "^DD",2,2, .1213,1,99 1,"%D",3,0 )
  8773   cross refe rence will  create an  entry in  the ADT/HL 7 PIVOT fi le (#391.7 1) 
  8774   "^DD",2,2, .1213,1,99 1,"%D",4,0 )
  8775   and mark i t as requi ring trans mission of  an HL7 AD T-A08 mess age.  
  8776   "^DD",2,2, .1213,1,99 1,"%D",5,0 )
  8777                                       
  8778   "^DD",2,2, .1213,1,99 1,"%D",6,0 )
  8779   The local  variable V AFCFLG wil l be set t o 1 if the  cross ref erence is  not 
  8780   "^DD",2,2, .1213,1,99 1,"%D",7,0 )
  8781   executed b ecause the  change is  being mad e from wit hin the Re gistration  
  8782   "^DD",2,2, .1213,1,99 1,"%D",8,0 )
  8783   process.
  8784   "^DD",2,2, .1213,1,99 1,"%D",9,0 )
  8785    
  8786   "^DD",2,2, .1213,1,99 1,"%D",10, 0)
  8787   Execution  of this cr oss refere nce can be  prevented  by settin g the loca
  8788   "^DD",2,2, .1213,1,99 1,"%D",11, 0)
  8789   variable V AFCA08 equ al to 1.  
  8790   "^DD",2,2, .1213,1,99 1,"%D",12, 0)
  8791                                        
  8792   "^DD",2,2, .1213,1,99 1,"%D",13, 0)
  8793   The local  variable V AFCF is us ed to iden tify the f ield edite d.  This d ata 
  8794   "^DD",2,2, .1213,1,99 1,"%D",14, 0)
  8795   is stored  in the FIE LD(S) EDIT ED (#2.1)  field in t he ADT/HL7  PIVOT fil
  8796   "^DD",2,2, .1213,1,99 1,"%D",15, 0)
  8797   (#391.71).
  8798   "^DD",2,2, .1213,1,99 1,"%D",16, 0)
  8799    
  8800   "^DD",2,2, .1213,1,99 1,"%D",17, 0)
  8801   The local  variable V AFCEPIC is  set to 1  to stop th e existing  output of  
  8802   "^DD",2,2, .1213,1,99 1,"%D",18, 0)
  8803   messages t o MPI when  the updat e to this  field is f or the MAS S to Epic 
  8804   "^DD",2,2, .1213,1,99 1,"%D",19, 0)
  8805   transmissi on only.
  8806   "^DD",2,2, .1213,1,99 1,"DT")
  8807   3170913
  8808   "^DD",2,2, .1213,3)
  8809   Enter, if  necessary,  the third  line of t his applic ants tempo rary addre ss [2-30 c haracters] .
  8810   "^DD",2,2, .1213,20,0 )
  8811   ^.3LA^1^1
  8812   "^DD",2,2, .1213,20,1 ,0)
  8813   TAD
  8814   "^DD",2,2, .1213,21,0 )
  8815   ^^5^5^2861 007^^
  8816   "^DD",2,2, .1213,21,1 ,0)
  8817   If the WAN T TO ENTER  A TEMPORA RY ADDRESS  prompt is  answered  YES
  8818   "^DD",2,2, .1213,21,2 ,0)
  8819   enter the  third line  of the te mporary st reet addre ss [2-30
  8820   "^DD",2,2, .1213,21,3 ,0)
  8821   characters ], if nece ssary, oth erwise not hing may b e entered.
  8822   "^DD",2,2, .1213,21,4 ,0)
  8823   This field  may not b e deleted  as long as  the need  for a temp orary
  8824   "^DD",2,2, .1213,21,5 ,0)
  8825   address is  indicated .
  8826   "^DD",2,2, .1213,"DT" )
  8827   3170913
  8828   "^DD",2,2, .1214,0)
  8829   TEMPORARY  CITY^FX^^. 121;4^K:$L (X)>30!($L (X)<2) X I  $D(X) S D FN=DA D TA D^DGLOCK
  8830   "^DD",2,2, .1214,.1)
  8831  
  8832   "^DD",2,2, .1214,1,0)
  8833   ^.1
  8834   "^DD",2,2, .1214,1,99 1,0)
  8835   2^AVAFC121 4^MUMPS
  8836   "^DD",2,2, .1214,1,99 1,1)
  8837   I ($T(AVAF C^VAFCDD01 )'="") S V AFCF=".121 4;",VAFCEP IC=1 D AVA FC^VAFCDD0 1(DA)
  8838   "^DD",2,2, .1214,1,99 1,2)
  8839   I ($T(AVAF C^VAFCDD01 )'="") S V AFCF=".121 4;",VAFCEP IC=1 D AVA FC^VAFCDD0 1(DA)
  8840   "^DD",2,2, .1214,1,99 1,"%D",0)
  8841   ^^19^19^31 70913^
  8842   "^DD",2,2, .1214,1,99 1,"%D",1,0 )
  8843   This cross  reference  is used t o remember  that chan ges were m ade to the  
  8844   "^DD",2,2, .1214,1,99 1,"%D",2,0 )
  8845   PATIENT fi le (#2) ou tside of t he Registr ation proc ess.  Exec ution of t his 
  8846   "^DD",2,2, .1214,1,99 1,"%D",3,0 )
  8847   cross refe rence will  create an  entry in  the ADT/HL 7 PIVOT fi le (#391.7 1) 
  8848   "^DD",2,2, .1214,1,99 1,"%D",4,0 )
  8849   and mark i t as requi ring trans mission of  an HL7 AD T-A08 mess age.  
  8850   "^DD",2,2, .1214,1,99 1,"%D",5,0 )
  8851                                       
  8852   "^DD",2,2, .1214,1,99 1,"%D",6,0 )
  8853   The local  variable V AFCFLG wil l be set t o 1 if the  cross ref erence is  not 
  8854   "^DD",2,2, .1214,1,99 1,"%D",7,0 )
  8855   executed b ecause the  change is  being mad e from wit hin the Re gistration  
  8856   "^DD",2,2, .1214,1,99 1,"%D",8,0 )
  8857   process.
  8858   "^DD",2,2, .1214,1,99 1,"%D",9,0 )
  8859    
  8860   "^DD",2,2, .1214,1,99 1,"%D",10, 0)
  8861   Execution  of this cr oss refere nce can be  prevented  by settin g the loca
  8862   "^DD",2,2, .1214,1,99 1,"%D",11, 0)
  8863   variable V AFCA08 equ al to 1.  
  8864   "^DD",2,2, .1214,1,99 1,"%D",12, 0)
  8865                                        
  8866   "^DD",2,2, .1214,1,99 1,"%D",13, 0)
  8867   The local  variable V AFCF is us ed to iden tify the f ield edite d.  This d ata 
  8868   "^DD",2,2, .1214,1,99 1,"%D",14, 0)
  8869   is stored  in the FIE LD(S) EDIT ED (#2.1)  field in t he ADT/HL7  PIVOT fil
  8870   "^DD",2,2, .1214,1,99 1,"%D",15, 0)
  8871   (#391.71).
  8872   "^DD",2,2, .1214,1,99 1,"%D",16, 0)
  8873    
  8874   "^DD",2,2, .1214,1,99 1,"%D",17, 0)
  8875   The local  variable V AFCEPIC is  set to 1  to stop th e existing  output of  
  8876   "^DD",2,2, .1214,1,99 1,"%D",18, 0)
  8877   messages t o MPI when  the updat e to this  field is f or the MAS S to Epic 
  8878   "^DD",2,2, .1214,1,99 1,"%D",19, 0)
  8879   transmissi on only.
  8880   "^DD",2,2, .1214,1,99 1,"DT")
  8881   3170913
  8882   "^DD",2,2, .1214,3)
  8883   Enter the  city in wh ich this a pplicant i s temporar ily residi ng [2-30 c haracters] .
  8884   "^DD",2,2, .1214,20,0 )
  8885   ^.3LA^1^1
  8886   "^DD",2,2, .1214,20,1 ,0)
  8887   TAD
  8888   "^DD",2,2, .1214,21,0 )
  8889   ^^4^4^2861 007^^^^
  8890   "^DD",2,2, .1214,21,1 ,0)
  8891   If the WAN T TO ENTER  A TEMPORA RY ADDRESS  prompt is  answered  YES
  8892   "^DD",2,2, .1214,21,2 ,0)
  8893   enter the  city in wh ich the te mporary ad dress lies  [2-30 cha racters],
  8894   "^DD",2,2, .1214,21,3 ,0)
  8895   otherwise  nothing ma y be enter ed.  This  field may  not be del eted as
  8896   "^DD",2,2, .1214,21,4 ,0)
  8897   long as th e need for  a tempora ry address  is indica ted.
  8898   "^DD",2,2, .1214,"DEL ",1,0)
  8899   S DFN=DA D  TADD^DGLO CK1 I '$D( X)
  8900   "^DD",2,2, .1214,"DT" )
  8901   3170913
  8902   "^DD",2,2, .1215,0)
  8903   TEMPORARY  STATE^*P5' X^DIC(5,^. 121;5^S DI C("S")="I  $P(^DIC(5, Y,0),U,6)= 1" D ^DIC  K DIC S DI C=DIE,X=+Y  K:Y<0 X I  $D(X) S D FN=DA D TA D^DGLOCK Q
  8904   "^DD",2,2, .1215,.1)
  8905  
  8906   "^DD",2,2, .1215,1,0)
  8907   ^.1
  8908   "^DD",2,2, .1215,1,99 1,0)
  8909   2^AVAFC121 5^MUMPS
  8910   "^DD",2,2, .1215,1,99 1,1)
  8911   I ($T(AVAF C^VAFCDD01 )'="") S V AFCF=".121 5;",VAFCEP IC=1 D AVA FC^VAFCDD0 1(DA)
  8912   "^DD",2,2, .1215,1,99 1,2)
  8913   I ($T(AVAF C^VAFCDD01 )'="") S V AFCF=".121 5;",VAFCEP IC=1 D AVA FC^VAFCDD0 1(DA)
  8914   "^DD",2,2, .1215,1,99 1,"%D",0)
  8915   ^^19^19^31 70913^
  8916   "^DD",2,2, .1215,1,99 1,"%D",1,0 )
  8917   This cross  reference  is used t o remember  that chan ges were m ade to the  
  8918   "^DD",2,2, .1215,1,99 1,"%D",2,0 )
  8919   PATIENT fi le (#2) ou tside of t he Registr ation proc ess.  Exec ution of t his 
  8920   "^DD",2,2, .1215,1,99 1,"%D",3,0 )
  8921   cross refe rence will  create an  entry in  the ADT/HL 7 PIVOT fi le (#391.7 1) 
  8922   "^DD",2,2, .1215,1,99 1,"%D",4,0 )
  8923   and mark i t as requi ring trans mission of  an HL7 AD T-A08 mess age.  
  8924   "^DD",2,2, .1215,1,99 1,"%D",5,0 )
  8925                                       
  8926   "^DD",2,2, .1215,1,99 1,"%D",6,0 )
  8927   The local  variable V AFCFLG wil l be set t o 1 if the  cross ref erence is  not 
  8928   "^DD",2,2, .1215,1,99 1,"%D",7,0 )
  8929   executed b ecause the  change is  being mad e from wit hin the Re gistration  
  8930   "^DD",2,2, .1215,1,99 1,"%D",8,0 )
  8931   process.
  8932   "^DD",2,2, .1215,1,99 1,"%D",9,0 )
  8933    
  8934   "^DD",2,2, .1215,1,99 1,"%D",10, 0)
  8935   Execution  of this cr oss refere nce can be  prevented  by settin g the loca
  8936   "^DD",2,2, .1215,1,99 1,"%D",11, 0)
  8937   variable V AFCA08 equ al to 1.  
  8938   "^DD",2,2, .1215,1,99 1,"%D",12, 0)
  8939                                        
  8940   "^DD",2,2, .1215,1,99 1,"%D",13, 0)
  8941   The local  variable V AFCF is us ed to iden tify the f ield edite d.  This d ata 
  8942   "^DD",2,2, .1215,1,99 1,"%D",14, 0)
  8943   is stored  in the FIE LD(S) EDIT ED (#2.1)  field in t he ADT/HL7  PIVOT fil
  8944   "^DD",2,2, .1215,1,99 1,"%D",15, 0)
  8945   (#391.71).
  8946   "^DD",2,2, .1215,1,99 1,"%D",16, 0)
  8947    
  8948   "^DD",2,2, .1215,1,99 1,"%D",17, 0)
  8949   The local  variable V AFCEPIC is  set to 1  to stop th e existing  output of  
  8950   "^DD",2,2, .1215,1,99 1,"%D",18, 0)
  8951   messages t o MPI when  the updat e to this  field is f or the MAS S to Epic 
  8952   "^DD",2,2, .1215,1,99 1,"%D",19, 0)
  8953   transmissi on only.
  8954   "^DD",2,2, .1215,1,99 1,"DT")
  8955   3170913
  8956   "^DD",2,2, .1215,3)
  8957   Enter the  state in w hich this  applicant  is tempora rily resid ing.
  8958   "^DD",2,2, .1215,12)
  8959   This scree n will res trict the  entry of a  state to  valid US s tates or p ossessions .
  8960   "^DD",2,2, .1215,12.1 )
  8961   S DIC("S") ="I $P(^DI C(5,Y,0),U ,6)=1"
  8962   "^DD",2,2, .1215,20,0 )
  8963   ^.3LA^1^1
  8964   "^DD",2,2, .1215,20,1 ,0)
  8965   TAD
  8966   "^DD",2,2, .1215,21,0 )
  8967   ^.001^5^5^ 3070626^^^ ^
  8968   "^DD",2,2, .1215,21,1 ,0)
  8969   If the WAN T TO ENTER  A TEMPORA RY ADDRESS  prompt is  answered  YES
  8970   "^DD",2,2, .1215,21,2 ,0)
  8971   select fro m the avai lable list ing the st ate in whi ch the tem porary
  8972   "^DD",2,2, .1215,21,3 ,0)
  8973   address li es, otherw ise nothin g may be e ntered.  T his field  may
  8974   "^DD",2,2, .1215,21,4 ,0)
  8975   not be del eted as lo ng as the  need for a  temporary  address i s
  8976   "^DD",2,2, .1215,21,5 ,0)
  8977   indicated.
  8978   "^DD",2,2, .1215,"DEL ",1,0)
  8979   S DFN=DA D  TADD^DGLO CK1 I '$D( X)
  8980   "^DD",2,2, .1215,"DT" )
  8981   3170913
  8982   "^DD",2,2, .1216,0)
  8983   TEMPORARY  ZIP CODE^F X^^.121;6^ K:X[""""!( $A(X)=45)  X I $D(X)  K:$L(X)>5! ($L(X)<5)! '(X?5N) X  I $D(X) S  DFN=DA D T AD^DGLOCK
  8984   "^DD",2,2, .1216,.1)
  8985  
  8986   "^DD",2,2, .1216,1,0)
  8987   ^.1
  8988   "^DD",2,2, .1216,1,1, 0)
  8989   2^ATZIP^MU MPS
  8990   "^DD",2,2, .1216,1,1, 1)
  8991   D SET^DGRE GDD1(DA,.1 2112,.121, 12,X)
  8992   "^DD",2,2, .1216,1,1, 2)
  8993   D KILL^DGR EGDD1(DA,. 12112,.121 ,12,X)
  8994   "^DD",2,2, .1216,1,1, "%D",0)
  8995   ^^1^1^2930 603^^^^
  8996   "^DD",2,2, .1216,1,1, "%D",1,0)
  8997   This sets  the corres ponding zi p+4 field  to be equa l to this  field's va lue.
  8998   "^DD",2,2, .1216,1,1, "DT")
  8999   2930413
  9000   "^DD",2,2, .1216,1,99 1,0)
  9001   2^AVAFC121 6^MUMPS
  9002   "^DD",2,2, .1216,1,99 1,1)
  9003   I ($T(AVAF C^VAFCDD01 )'="") S V AFCF=".121 6;",VAFCEP IC=1 D AVA FC^VAFCDD0 1(DA)
  9004   "^DD",2,2, .1216,1,99 1,2)
  9005   I ($T(AVAF C^VAFCDD01 )'="") S V AFCF=".121 6;",VAFCEP IC=1 D AVA FC^VAFCDD0 1(DA)
  9006   "^DD",2,2, .1216,1,99 1,"%D",0)
  9007   ^^19^19^31 70913^
  9008   "^DD",2,2, .1216,1,99 1,"%D",1,0 )
  9009   This cross  reference  is used t o remember  that chan ges were m ade to the  
  9010   "^DD",2,2, .1216,1,99 1,"%D",2,0 )
  9011   PATIENT fi le (#2) ou tside of t he Registr ation proc ess.  Exec ution of t his 
  9012   "^DD",2,2, .1216,1,99 1,"%D",3,0 )
  9013   cross refe rence will  create an  entry in  the ADT/HL 7 PIVOT fi le (#391.7 1) 
  9014   "^DD",2,2, .1216,1,99 1,"%D",4,0 )
  9015   and mark i t as requi ring trans mission of  an HL7 AD T-A08 mess age.  
  9016   "^DD",2,2, .1216,1,99 1,"%D",5,0 )
  9017                                       
  9018   "^DD",2,2, .1216,1,99 1,"%D",6,0 )
  9019   The local  variable V AFCFLG wil l be set t o 1 if the  cross ref erence is  not 
  9020   "^DD",2,2, .1216,1,99 1,"%D",7,0 )
  9021   executed b ecause the  change is  being mad e from wit hin the Re gistration  
  9022   "^DD",2,2, .1216,1,99 1,"%D",8,0 )
  9023   process.
  9024   "^DD",2,2, .1216,1,99 1,"%D",9,0 )
  9025    
  9026   "^DD",2,2, .1216,1,99 1,"%D",10, 0)
  9027   Execution  of this cr oss refere nce can be  prevented  by settin g the loca
  9028   "^DD",2,2, .1216,1,99 1,"%D",11, 0)
  9029   variable V AFCA08 equ al to 1.  
  9030   "^DD",2,2, .1216,1,99 1,"%D",12, 0)
  9031                                        
  9032   "^DD",2,2, .1216,1,99 1,"%D",13, 0)
  9033   The local  variable V AFCF is us ed to iden tify the f ield edite d.  This d ata 
  9034   "^DD",2,2, .1216,1,99 1,"%D",14, 0)
  9035   is stored  in the FIE LD(S) EDIT ED (#2.1)  field in t he ADT/HL7  PIVOT fil
  9036   "^DD",2,2, .1216,1,99 1,"%D",15, 0)
  9037   (#391.71).
  9038   "^DD",2,2, .1216,1,99 1,"%D",16, 0)
  9039    
  9040   "^DD",2,2, .1216,1,99 1,"%D",17, 0)
  9041   The local  variable V AFCEPIC is  set to 1  to stop th e existing  output of  
  9042   "^DD",2,2, .1216,1,99 1,"%D",18, 0)
  9043   messages t o MPI when  the updat e to this  field is f or the MAS S to Epic 
  9044   "^DD",2,2, .1216,1,99 1,"%D",19, 0)
  9045   transmissi on only.
  9046   "^DD",2,2, .1216,1,99 1,"DT")
  9047   3170913
  9048   "^DD",2,2, .1216,3)
  9049   Enter the  zip code o f the temp orary addr ess at whi ch this pa tient is c urrently r esiding.
  9050   "^DD",2,2, .1216,20,0 )
  9051   ^.3LA^1^1
  9052   "^DD",2,2, .1216,20,1 ,0)
  9053   TAD
  9054   "^DD",2,2, .1216,21,0 )
  9055   ^^4^4^2930 603^^^^
  9056   "^DD",2,2, .1216,21,1 ,0)
  9057   If the WAN T TO ENTER  A TEMPORA RY ADDRESS  prompt is  answered  YES
  9058   "^DD",2,2, .1216,21,2 ,0)
  9059   enter the  zip code a ssigned to  the tempo rary city  [5 numeric s],
  9060   "^DD",2,2, .1216,21,3 ,0)
  9061   otherwise  nothing ma y be enter ed.  This  field may  not be del eted
  9062   "^DD",2,2, .1216,21,4 ,0)
  9063   as long as  the need  for a temp orary addr ess is ind icated.
  9064   "^DD",2,2, .1216,23,0 )
  9065   ^^4^4^2930 603^^
  9066   "^DD",2,2, .1216,23,1 ,0)
  9067   This five- digit zip  code assoc iated with  the tempo rary addre ss is 
  9068   "^DD",2,2, .1216,23,2 ,0)
  9069   populated  by the fiv e or nine  digit TEMP ORARY ZIP+ 4 field (v ia a trigg er).
  9070   "^DD",2,2, .1216,23,3 ,0)
  9071   The TEMPOR ARY ZIP CO DE field w ill be mad e un-editi able sever al months
  9072   "^DD",2,2, .1216,23,4 ,0)
  9073   following  the releas e of PIMS  5.3.
  9074   "^DD",2,2, .1216,"DEL ",1,0)
  9075   S DFN=DA D  TADD^DGLO CK1 I '$D( X)
  9076   "^DD",2,2, .1216,"DT" )
  9077   3170913
  9078   "^DD",2,2, .1217,0)
  9079   TEMPORARY  ADDRESS ST ART DATE^D X^^.121;7^ S %DT="E"  D ^%DT S X =Y K:Y<1 X  I $D(X) S  DFN=DA D  TAD^DGLOCK
  9080   "^DD",2,2, .1217,.1)
  9081   START DATE  OF TEMP A DDRESS
  9082   "^DD",2,2, .1217,1,0)
  9083   ^.1
  9084   "^DD",2,2, .1217,1,1, 0)
  9085   2^AGU1^MUM PS
  9086   "^DD",2,2, .1217,1,1, 1)
  9087   Q
  9088   "^DD",2,2, .1217,1,1, 2)
  9089   Q
  9090   "^DD",2,2, .1217,1,99 1,0)
  9091   2^AVAFC121 7^MUMPS
  9092   "^DD",2,2, .1217,1,99 1,1)
  9093   I ($T(AVAF C^VAFCDD01 )'="") S V AFCF=".121 7;",VAFCEP IC=1 D AVA FC^VAFCDD0 1(DA)
  9094   "^DD",2,2, .1217,1,99 1,2)
  9095   I ($T(AVAF C^VAFCDD01 )'="") S V AFCF=".121 7;",VAFCEP IC=1 D AVA FC^VAFCDD0 1(DA)
  9096   "^DD",2,2, .1217,1,99 1,"%D",0)
  9097   ^.101^19^1 9^3170914^ ^
  9098   "^DD",2,2, .1217,1,99 1,"%D",1,0 )
  9099   This cross  reference  is used t o remember  that chan ges were m ade to the  
  9100   "^DD",2,2, .1217,1,99 1,"%D",2,0 )
  9101   PATIENT fi le (#2) ou tside of t he Registr ation proc ess.  Exec ution of t his 
  9102   "^DD",2,2, .1217,1,99 1,"%D",3,0 )
  9103   cross refe rence will  create an  entry in  the ADT/HL 7 PIVOT fi le (#391.7 1) 
  9104   "^DD",2,2, .1217,1,99 1,"%D",4,0 )
  9105   and mark i t as requi ring trans mission of  an HL7 AD T-A08 mess age.  
  9106   "^DD",2,2, .1217,1,99 1,"%D",5,0 )
  9107                                       
  9108   "^DD",2,2, .1217,1,99 1,"%D",6,0 )
  9109   The local  variable V AFCFLG wil l be set t o 1 if the  cross ref erence is  not 
  9110   "^DD",2,2, .1217,1,99 1,"%D",7,0 )
  9111   executed b ecause the  change is  being mad e from wit hin the Re gistration  
  9112   "^DD",2,2, .1217,1,99 1,"%D",8,0 )
  9113   process.
  9114   "^DD",2,2, .1217,1,99 1,"%D",9,0 )
  9115    
  9116   "^DD",2,2, .1217,1,99 1,"%D",10, 0)
  9117   Execution  of this cr oss refere nce can be  prevented  by settin g the loca
  9118   "^DD",2,2, .1217,1,99 1,"%D",11, 0)
  9119   variable V AFCA08 equ al to 1.  
  9120   "^DD",2,2, .1217,1,99 1,"%D",12, 0)
  9121                                        
  9122   "^DD",2,2, .1217,1,99 1,"%D",13, 0)
  9123   The local  variable V AFCF is us ed to iden tify the f ield edite d.  This d ata 
  9124   "^DD",2,2, .1217,1,99 1,"%D",14, 0)
  9125   is stored  in the FIE LD(S) EDIT ED (#2.1)  field in t he ADT/HL7  PIVOT fil
  9126   "^DD",2,2, .1217,1,99 1,"%D",15, 0)
  9127   (#391.71).
  9128   "^DD",2,2, .1217,1,99 1,"%D",16, 0)
  9129    
  9130   "^DD",2,2, .1217,1,99 1,"%D",17, 0)
  9131   The local  variable V AFCEPIC is  set to 1  to stop th e existing  output of  
  9132   "^DD",2,2, .1217,1,99 1,"%D",18, 0)
  9133   messages t o MPI when  the updat e to this  field is f or the MAS S to Epic 
  9134   "^DD",2,2, .1217,1,99 1,"%D",19, 0)
  9135   transmissi on only.
  9136   "^DD",2,2, .1217,1,99 1,"DT")
  9137   3170913
  9138   "^DD",2,2, .1217,3)
  9139   Enter the  date on wh ich the pa tient will  first be  found at t he tempora ry address  indicated .
  9140   "^DD",2,2, .1217,20,0 )
  9141   ^.3LA^1^1
  9142   "^DD",2,2, .1217,20,1 ,0)
  9143   TAD
  9144   "^DD",2,2, .1217,21,0 )
  9145   ^^5^5^2890 113^^^
  9146   "^DD",2,2, .1217,21,1 ,0)
  9147   If the WAN T TO ENTER  A TEMPORA RY ADDRESS  prompt is  answered  YES
  9148   "^DD",2,2, .1217,21,2 ,0)
  9149   enter the  date on wh ich the ap plicant wi ll commenc e being co ntacted
  9150   "^DD",2,2, .1217,21,3 ,0)
  9151   at the tem porary add ress indic ated, othe rwise noth ing may be
  9152   "^DD",2,2, .1217,21,4 ,0)
  9153   entered.   This field  may not b e deleted  as long as  the need  for a
  9154   "^DD",2,2, .1217,21,5 ,0)
  9155   temporary  address is  indicated .
  9156   "^DD",2,2, .1217,"DEL ",1,0)
  9157   S DFN=DA D  TADD^DGLO CK1 I '$D( X)
  9158   "^DD",2,2, .1217,"DT" )
  9159   3170913
  9160   "^DD",2,2, .1218,0)
  9161   TEMPORARY  ADDRESS EN D DATE^DX^ ^.121;8^S  %DT="E" D  ^%DT S X=Y  K:Y<1 X I  $D(X) S D FN=DA D TA D^DGLOCK I  $D(X),(X< $P(^DPT(DF N,.121),"^ ",7)) K X
  9162   "^DD",2,2, .1218,.1)
  9163   END DATE O F TEMP ADD RESS
  9164   "^DD",2,2, .1218,1,0)
  9165   ^.1
  9166   "^DD",2,2, .1218,1,99 1,0)
  9167   2^AVAFC121 8^MUMPS
  9168   "^DD",2,2, .1218,1,99 1,1)
  9169   I ($T(AVAF C^VAFCDD01 )'="") S V AFCF=".121 8;",VAFCEP IC=1 D AVA FC^VAFCDD0 1(DA)
  9170   "^DD",2,2, .1218,1,99 1,2)
  9171   I ($T(AVAF C^VAFCDD01 )'="") S V AFCF=".121 8;",VAFCEP IC=1 D AVA FC^VAFCDD0 1(DA)
  9172   "^DD",2,2, .1218,1,99 1,"%D",0)
  9173   ^^19^19^31 70913^
  9174   "^DD",2,2, .1218,1,99 1,"%D",1,0 )
  9175   This cross  reference  is used t o remember  that chan ges were m ade to the  
  9176   "^DD",2,2, .1218,1,99 1,"%D",2,0 )
  9177   PATIENT fi le (#2) ou tside of t he Registr ation proc ess.  Exec ution of t his 
  9178   "^DD",2,2, .1218,1,99 1,"%D",3,0 )
  9179   cross refe rence will  create an  entry in  the ADT/HL 7 PIVOT fi le (#391.7 1) 
  9180   "^DD",2,2, .1218,1,99 1,"%D",4,0 )
  9181   and mark i t as requi ring trans mission of  an HL7 AD T-A08 mess age.  
  9182   "^DD",2,2, .1218,1,99 1,"%D",5,0 )
  9183                                       
  9184   "^DD",2,2, .1218,1,99 1,"%D",6,0 )
  9185   The local  variable V AFCFLG wil l be set t o 1 if the  cross ref erence is  not 
  9186   "^DD",2,2, .1218,1,99 1,"%D",7,0 )
  9187   executed b ecause the  change is  being mad e from wit hin the Re gistration  
  9188   "^DD",2,2, .1218,1,99 1,"%D",8,0 )
  9189   process.
  9190   "^DD",2,2, .1218,1,99 1,"%D",9,0 )
  9191    
  9192   "^DD",2,2, .1218,1,99 1,"%D",10, 0)
  9193   Execution  of this cr oss refere nce can be  prevented  by settin g the loca
  9194   "^DD",2,2, .1218,1,99 1,"%D",11, 0)
  9195   variable V AFCA08 equ al to 1.  
  9196   "^DD",2,2, .1218,1,99 1,"%D",12, 0)
  9197                                        
  9198   "^DD",2,2, .1218,1,99 1,"%D",13, 0)
  9199   The local  variable V AFCF is us ed to iden tify the f ield edite d.  This d ata 
  9200   "^DD",2,2, .1218,1,99 1,"%D",14, 0)
  9201   is stored  in the FIE LD(S) EDIT ED (#2.1)  field in t he ADT/HL7  PIVOT fil
  9202   "^DD",2,2, .1218,1,99 1,"%D",15, 0)
  9203   (#391.71).
  9204   "^DD",2,2, .1218,1,99 1,"%D",16, 0)
  9205    
  9206   "^DD",2,2, .1218,1,99 1,"%D",17, 0)
  9207   The local  variable V AFCEPIC is  set to 1  to stop th e existing  output of  
  9208   "^DD",2,2, .1218,1,99 1,"%D",18, 0)
  9209   messages t o MPI when  the updat e to this  field is f or the MAS S to Epic 
  9210   "^DD",2,2, .1218,1,99 1,"%D",19, 0)
  9211   transmissi on only.
  9212   "^DD",2,2, .1218,1,99 1,"DT")
  9213   3170913
  9214   "^DD",2,2, .1218,3)
  9215   Enter the  date as of  which the  patient w ill no lon ger be at  the tempor ary addres s indicate d.
  9216   "^DD",2,2, .1218,20,0 )
  9217   ^.3LA^1^1
  9218   "^DD",2,2, .1218,20,1 ,0)
  9219   TAD
  9220   "^DD",2,2, .1218,21,0 )
  9221   ^^5^5^2861 007^^
  9222   "^DD",2,2, .1218,21,1 ,0)
  9223   If the WAN T TO ENTER  A TEMPORA RY ADDRESS  prompt is  answered  YES
  9224   "^DD",2,2, .1218,21,2 ,0)
  9225   enter the  date as of  which the  applicant  will no l onger be c ontacted
  9226   "^DD",2,2, .1218,21,3 ,0)
  9227   at that te mporary ad dress, oth erwise not hing may b e entered.   This
  9228   "^DD",2,2, .1218,21,4 ,0)
  9229   field may  not be del eted as lo ng as the  need for a  temporary
  9230   "^DD",2,2, .1218,21,5 ,0)
  9231   address is  indicated .
  9232   "^DD",2,2, .1218,"DEL ",1,0)
  9233   S DFN=DA D  TADD^DGLO CK1 I '$D( X)
  9234   "^DD",2,2, .1218,"DT" )
  9235   3170913
  9236   "^DD",2,2, .1223,0)
  9237   TEMPORARY  ADDRESS CO UNTRY^P779 .004'^HL(7 79.004,^.1 22;3^Q
  9238   "^DD",2,2, .1223,1,0)
  9239   ^.1
  9240   "^DD",2,2, .1223,1,99 1,0)
  9241   2^AVAFC122 3^MUMPS
  9242   "^DD",2,2, .1223,1,99 1,1)
  9243   I ($T(AVAF C^VAFCDD01 )'="") S V AFCF=".122 3;",VAFCEP IC=1 D AVA FC^VAFCDD0 1(DA)
  9244   "^DD",2,2, .1223,1,99 1,2)
  9245   I ($T(AVAF C^VAFCDD01 )'="") S V AFCF=".122 3;",VAFCEP IC=1 D AVA FC^VAFCDD0 1(DA)
  9246   "^DD",2,2, .1223,1,99 1,"%D",0)
  9247   ^^19^19^31 70913^
  9248   "^DD",2,2, .1223,1,99 1,"%D",1,0 )
  9249   This cross  reference  is used t o remember  that chan ges were m ade to the  
  9250   "^DD",2,2, .1223,1,99 1,"%D",2,0 )
  9251   PATIENT fi le (#2) ou tside of t he Registr ation proc ess.  Exec ution of t his 
  9252   "^DD",2,2, .1223,1,99 1,"%D",3,0 )
  9253   cross refe rence will  create an  entry in  the ADT/HL 7 PIVOT fi le (#391.7 1) 
  9254   "^DD",2,2, .1223,1,99 1,"%D",4,0 )
  9255   and mark i t as requi ring trans mission of  an HL7 AD T-A08 mess age.  
  9256   "^DD",2,2, .1223,1,99 1,"%D",5,0 )
  9257                                       
  9258   "^DD",2,2, .1223,1,99 1,"%D",6,0 )
  9259   The local  variable V AFCFLG wil l be set t o 1 if the  cross ref erence is  not 
  9260   "^DD",2,2, .1223,1,99 1,"%D",7,0 )
  9261   executed b ecause the  change is  being mad e from wit hin the Re gistration  
  9262   "^DD",2,2, .1223,1,99 1,"%D",8,0 )
  9263   process.
  9264   "^DD",2,2, .1223,1,99 1,"%D",9,0 )
  9265    
  9266   "^DD",2,2, .1223,1,99 1,"%D",10, 0)
  9267   Execution  of this cr oss refere nce can be  prevented  by settin g the loca
  9268   "^DD",2,2, .1223,1,99 1,"%D",11, 0)
  9269   variable V AFCA08 equ al to 1.  
  9270   "^DD",2,2, .1223,1,99 1,"%D",12, 0)
  9271                                        
  9272   "^DD",2,2, .1223,1,99 1,"%D",13, 0)
  9273   The local  variable V AFCF is us ed to iden tify the f ield edite d.  This d ata 
  9274   "^DD",2,2, .1223,1,99 1,"%D",14, 0)
  9275   is stored  in the FIE LD(S) EDIT ED (#2.1)  field in t he ADT/HL7  PIVOT fil
  9276   "^DD",2,2, .1223,1,99 1,"%D",15, 0)
  9277   (#391.71).
  9278   "^DD",2,2, .1223,1,99 1,"%D",16, 0)
  9279    
  9280   "^DD",2,2, .1223,1,99 1,"%D",17, 0)
  9281   The local  variable V AFCEPIC is  set to 1  to stop th e existing  output of  
  9282   "^DD",2,2, .1223,1,99 1,"%D",18, 0)
  9283   messages t o MPI when  the updat e to this  field is f or the MAS S to Epic 
  9284   "^DD",2,2, .1223,1,99 1,"%D",19, 0)
  9285   transmissi on only.
  9286   "^DD",2,2, .1223,1,99 1,"DT")
  9287   3170913
  9288   "^DD",2,2, .1223,21,0 )
  9289   ^^4^4^3060 131^
  9290   "^DD",2,2, .1223,21,1 ,0)
  9291   Enter the  country wh ere the pa tient's te mporary ad dress is l ocated.
  9292   "^DD",2,2, .1223,21,2 ,0)
  9293    
  9294   "^DD",2,2, .1223,21,3 ,0)
  9295   If enterin g an Army/ Air Force  Post Offic e (APO) or  a Fleet P ost Office  
  9296   "^DD",2,2, .1223,21,4 ,0)
  9297   (FPO) addr ess select  United St ates as th e country.
  9298   "^DD",2,2, .1223,"DT" )
  9299   3170913
  9300   "^DD",2,2, .133,0)
  9301   EMAIL ADDR ESS^F^^.13 ;3^K:$L(X) >50!($L(X) <3)!'(X?1. E1"@"1.E1" ."1.E) X
  9302   "^DD",2,2, .133,.1)
  9303   Email Addr ess
  9304   "^DD",2,2, .133,1,0)
  9305   ^.1
  9306   "^DD",2,2, .133,1,1,0 )
  9307   ^^TRIGGER^ 2^.136
  9308   "^DD",2,2, .133,1,1,1 )
  9309   K DIV S DI V=X,D0=DA, DIV(0)=D0  S Y(1)=$S( $D(^DPT(D0 ,.13)):^(. 13),1:"")  S X=$P(Y(1 ),U,6),X=X  S DIU=X K  Y S X=DIV  S X=$$NOW ^XLFDT() S  DIH=$G(^D PT(DIV(0), .13)),DIV= X S $P(^(. 13),U,6)=D IV,DIH=2,D IG=.136 D  ^DICR
  9310   "^DD",2,2, .133,1,1,2 )
  9311   K DIV S DI V=X,D0=DA, DIV(0)=D0  S Y(1)=$S( $D(^DPT(D0 ,.13)):^(. 13),1:"")  S X=$P(Y(1 ),U,6),X=X  S DIU=X K  Y S X=DIV  S X=$$NOW ^XLFDT() S  DIH=$G(^D PT(DIV(0), .13)),DIV= X S $P(^(. 13),U,6)=D IV,DIH=2,D IG=.136 D  ^DICR
  9312   "^DD",2,2, .133,1,1,3 )
  9313    DO NOT DE LETE
  9314   "^DD",2,2, .133,1,1," %D",0)
  9315   ^^2^2^3060 411^
  9316   "^DD",2,2, .133,1,1," %D",1,0)
  9317   This cross  reference  will upda te the EMA IL ADDRESS  CHANGE DT /TM field
  9318   "^DD",2,2, .133,1,1," %D",2,0)
  9319   with curre nt date an d time sta mp each ti me this fi eld is cha nged.
  9320   "^DD",2,2, .133,1,1," CREATE VAL UE")
  9321   S X=$$NOW^ XLFDT()
  9322   "^DD",2,2, .133,1,1," DELETE VAL UE")
  9323   S X=$$NOW^ XLFDT()
  9324   "^DD",2,2, .133,1,1," DT")
  9325   3050608
  9326   "^DD",2,2, .133,1,1," FIELD")
  9327   #.136
  9328   "^DD",2,2, .133,1,991 ,0)
  9329   2^AVAFCMX1 33^MUMPS
  9330   "^DD",2,2, .133,1,991 ,1)
  9331   I ($T(AVAF C^VAFCDD01 )'="") S V AFCF=".133 ;",VAFCEPI C=1 D AVAF C^VAFCDD01 (DA)
  9332   "^DD",2,2, .133,1,991 ,2)
  9333   I ($T(AVAF C^VAFCDD01 )'="") S V AFCF=".133 ;",VAFCEPI C=1 D AVAF C^VAFCDD01 (DA)
  9334   "^DD",2,2, .133,1,991 ,"%D",0)
  9335   ^^19^19^31 70913^
  9336   "^DD",2,2, .133,1,991 ,"%D",1,0)
  9337   This cross  reference  is used t o remember  that chan ges were m ade to the  
  9338   "^DD",2,2, .133,1,991 ,"%D",2,0)
  9339   PATIENT fi le (#2) ou tside of t he Registr ation proc ess.  Exec ution of t his 
  9340   "^DD",2,2, .133,1,991 ,"%D",3,0)
  9341   cross refe rence will  create an  entry in  the ADT/HL 7 PIVOT fi le (#391.7 1) 
  9342   "^DD",2,2, .133,1,991 ,"%D",4,0)
  9343   and mark i t as requi ring trans mission of  an HL7 AD T-A08 mess age.  
  9344   "^DD",2,2, .133,1,991 ,"%D",5,0)
  9345                                       
  9346   "^DD",2,2, .133,1,991 ,"%D",6,0)
  9347   The local  variable V AFCFLG wil l be set t o 1 if the  cross ref erence is  not 
  9348   "^DD",2,2, .133,1,991 ,"%D",7,0)
  9349   executed b ecause the  change is  being mad e from wit hin the Re gistration  
  9350   "^DD",2,2, .133,1,991 ,"%D",8,0)
  9351   process.
  9352   "^DD",2,2, .133,1,991 ,"%D",9,0)
  9353    
  9354   "^DD",2,2, .133,1,991 ,"%D",10,0 )
  9355   Execution  of this cr oss refere nce can be  prevented  by settin g the loca
  9356   "^DD",2,2, .133,1,991 ,"%D",11,0 )
  9357   variable V AFCA08 equ al to 1.  
  9358   "^DD",2,2, .133,1,991 ,"%D",12,0 )
  9359                                        
  9360   "^DD",2,2, .133,1,991 ,"%D",13,0 )
  9361   The local  variable V AFCF is us ed to iden tify the f ield edite d.  This d ata 
  9362   "^DD",2,2, .133,1,991 ,"%D",14,0 )
  9363   is stored  in the FIE LD(S) EDIT ED (#2.1)  field in t he ADT/HL7  PIVOT fil
  9364   "^DD",2,2, .133,1,991 ,"%D",15,0 )
  9365   (#391.71).
  9366   "^DD",2,2, .133,1,991 ,"%D",16,0 )
  9367    
  9368   "^DD",2,2, .133,1,991 ,"%D",17,0 )
  9369   The local  variable V AFCEPIC is  set to 1  to stop th e existing  output of  
  9370   "^DD",2,2, .133,1,991 ,"%D",18,0 )
  9371   messages t o MPI when  the updat e to this  field is f or the MAS S to Epic 
  9372   "^DD",2,2, .133,1,991 ,"%D",19,0 )
  9373   transmissi on only.
  9374   "^DD",2,2, .133,1,991 ,"DT")
  9375   3170913
  9376   "^DD",2,2, .133,3)
  9377   Enter the  applicant' s email ad dress [3-5 0 characte rs].  The  entry must  include a n '@'.
  9378   "^DD",2,2, .133,4)
  9379   D 133^DGMT DD5
  9380   "^DD",2,2, .133,"DT")
  9381   3170913
  9382   "^DD",2,2, .134,0)
  9383   PHONE NUMB ER [CELLUL AR]^FX^^.1 3;4^K:$L(X )>20!($L(X )<4) X I $ D(X) N CTR ,CHR,VAR S  VAR=X F C TR=1:1:20  S CHR=$E(V AR,CTR) K: ("12345678 90 -()."'[ CHR) X
  9384   "^DD",2,2, .134,.1)
  9385   Cell Phone
  9386   "^DD",2,2, .134,1,0)
  9387   ^.1
  9388   "^DD",2,2, .134,1,1,0 )
  9389   ^^TRIGGER^ 2^.139
  9390   "^DD",2,2, .134,1,1,1 )
  9391   K DIV S DI V=X,D0=DA, DIV(0)=D0  S Y(1)=$S( $D(^DPT(D0 ,.13)):^(. 13),1:"")  S X=$P(Y(1 ),U,9),X=X  S DIU=X K  Y S X=DIV  S X=$$NOW ^XLFDT() S  DIH=$G(^D PT(DIV(0), .13)),DIV= X S $P(^(. 13),U,9)=D IV,DIH=2,D IG=.139 D  ^DICR
  9392   "^DD",2,2, .134,1,1,2 )
  9393   K DIV S DI V=X,D0=DA, DIV(0)=D0  S Y(1)=$S( $D(^DPT(D0 ,.13)):^(. 13),1:"")  S X=$P(Y(1 ),U,9),X=X  S DIU=X K  Y S X=DIV  S X=$$NOW ^XLFDT() S  DIH=$G(^D PT(DIV(0), .13)),DIV= X S $P(^(. 13),U,9)=D IV,DIH=2,D IG=.139 D  ^DICR
  9394   "^DD",2,2, .134,1,1," %D",0)
  9395   ^^2^2^3060 411^
  9396   "^DD",2,2, .134,1,1," %D",1,0)
  9397   This cross  reference  will upda te the CEL LULAR NUMB ER CHANGE  DT/TM fiel d
  9398   "^DD",2,2, .134,1,1," %D",2,0)
  9399   with curre nt date an d time sta mp each ti me this fi eld is cha nged.
  9400   "^DD",2,2, .134,1,1," CREATE VAL UE")
  9401   S X=$$NOW^ XLFDT()
  9402   "^DD",2,2, .134,1,1," DELETE VAL UE")
  9403   S X=$$NOW^ XLFDT()
  9404   "^DD",2,2, .134,1,1," FIELD")
  9405   #.139
  9406   "^DD",2,2, .134,1,991 ,0)
  9407   2^AVAFCMX1 34^MUMPS
  9408   "^DD",2,2, .134,1,991 ,1)
  9409   I ($T(AVAF C^VAFCDD01 )'="") S V AFCF=".134 ;",VAFCEPI C=1 D AVAF C^VAFCDD01 (DA)
  9410   "^DD",2,2, .134,1,991 ,2)
  9411   I ($T(AVAF C^VAFCDD01 )'="") S V AFCF=".134 ;",VAFCEPI C=1 D AVAF C^VAFCDD01 (DA)
  9412   "^DD",2,2, .134,1,991 ,"%D",0)
  9413   ^^19^19^31 70913^
  9414   "^DD",2,2, .134,1,991 ,"%D",1,0)
  9415   This cross  reference  is used t o remember  that chan ges were m ade to the  
  9416   "^DD",2,2, .134,1,991 ,"%D",2,0)
  9417   PATIENT fi le (#2) ou tside of t he Registr ation proc ess.  Exec ution of t his 
  9418   "^DD",2,2, .134,1,991 ,"%D",3,0)
  9419   cross refe rence will  create an  entry in  the ADT/HL 7 PIVOT fi le (#391.7 1) 
  9420   "^DD",2,2, .134,1,991 ,"%D",4,0)
  9421   and mark i t as requi ring trans mission of  an HL7 AD T-A08 mess age.  
  9422   "^DD",2,2, .134,1,991 ,"%D",5,0)
  9423                                       
  9424   "^DD",2,2, .134,1,991 ,"%D",6,0)
  9425   The local  variable V AFCFLG wil l be set t o 1 if the  cross ref erence is  not 
  9426   "^DD",2,2, .134,1,991 ,"%D",7,0)
  9427   executed b ecause the  change is  being mad e from wit hin the Re gistration  
  9428   "^DD",2,2, .134,1,991 ,"%D",8,0)
  9429   process.
  9430   "^DD",2,2, .134,1,991 ,"%D",9,0)
  9431    
  9432   "^DD",2,2, .134,1,991 ,"%D",10,0 )
  9433   Execution  of this cr oss refere nce can be  prevented  by settin g the loca
  9434   "^DD",2,2, .134,1,991 ,"%D",11,0 )
  9435   variable V AFCA08 equ al to 1.  
  9436   "^DD",2,2, .134,1,991 ,"%D",12,0 )
  9437                                        
  9438   "^DD",2,2, .134,1,991 ,"%D",13,0 )
  9439   The local  variable V AFCF is us ed to iden tify the f ield edite d.  This d ata 
  9440   "^DD",2,2, .134,1,991 ,"%D",14,0 )
  9441   is stored  in the FIE LD(S) EDIT ED (#2.1)  field in t he ADT/HL7  PIVOT fil
  9442   "^DD",2,2, .134,1,991 ,"%D",15,0 )
  9443   (#391.71).
  9444   "^DD",2,2, .134,1,991 ,"%D",16,0 )
  9445    
  9446   "^DD",2,2, .134,1,991 ,"%D",17,0 )
  9447   The local  variable V AFCEPIC is  set to 1  to stop th e existing  output of  
  9448   "^DD",2,2, .134,1,991 ,"%D",18,0 )
  9449   messages t o MPI when  the updat e to this  field is f or the MAS S to Epic 
  9450   "^DD",2,2, .134,1,991 ,"%D",19,0 )
  9451   transmissi on only.
  9452   "^DD",2,2, .134,1,991 ,"DT")
  9453   3170913
  9454   "^DD",2,2, .134,3)
  9455   Answer mus t be 4-20  characters  in length , be numer ic with on ly spaces,  parenthes is, period s, and das hes for se parators.
  9456   "^DD",2,2, .134,21,0)
  9457   ^^2^2^3050 111^
  9458   "^DD",2,2, .134,21,1, 0)
  9459   Enter the  telephone  number [4- 20 charact ers] to th e applican t's
  9460   "^DD",2,2, .134,21,2, 0)
  9461   mobile pho ne.
  9462   "^DD",2,2, .134,"DT")
  9463   3170913
  9464   "^DD",2,2, .1411,0)
  9465   CONFIDENTI AL STREET  [LINE 1]^F X^^.141;1^ K:$L(X)>30 !($L(X)<2)  X I $D(X)  S DFN=DA  D CAD^DGLO CK3
  9466   "^DD",2,2, .1411,1,0)
  9467   ^.1
  9468   "^DD",2,2, .1411,1,1, 0)
  9469   2^AXR32^MU MPS
  9470   "^DD",2,2, .1411,1,1, 1)
  9471   Q
  9472   "^DD",2,2, .1411,1,1, 2)
  9473   S DGXRF=.1 411 D ^DGD DC Q
  9474   "^DD",2,2, .1411,1,1, "DT")
  9475   3030113
  9476   "^DD",2,2, .1411,1,99 1,0)
  9477   2^AVAFC141 1^MUMPS
  9478   "^DD",2,2, .1411,1,99 1,1)
  9479   I ($T(AVAF C^VAFCDD01 )'="") S V AFCF=".141 1;",VAFCEP IC=1 D AVA FC^VAFCDD0 1(DA)
  9480   "^DD",2,2, .1411,1,99 1,2)
  9481   I ($T(AVAF C^VAFCDD01 )'="") S V AFCF=".141 1;",VAFCEP IC=1 D AVA FC^VAFCDD0 1(DA)
  9482   "^DD",2,2, .1411,1,99 1,"%D",0)
  9483   ^^19^19^31 70913^
  9484   "^DD",2,2, .1411,1,99 1,"%D",1,0 )
  9485   This cross  reference  is used t o remember  that chan ges were m ade to the  
  9486   "^DD",2,2, .1411,1,99 1,"%D",2,0 )
  9487   PATIENT fi le (#2) ou tside of t he Registr ation proc ess.  Exec ution of t his 
  9488   "^DD",2,2, .1411,1,99 1,"%D",3,0 )
  9489   cross refe rence will  create an  entry in  the ADT/HL 7 PIVOT fi le (#391.7 1) 
  9490   "^DD",2,2, .1411,1,99 1,"%D",4,0 )
  9491   and mark i t as requi ring trans mission of  an HL7 AD T-A08 mess age.  
  9492   "^DD",2,2, .1411,1,99 1,"%D",5,0 )
  9493                                       
  9494   "^DD",2,2, .1411,1,99 1,"%D",6,0 )
  9495   The local  variable V AFCFLG wil l be set t o 1 if the  cross ref erence is  not 
  9496   "^DD",2,2, .1411,1,99 1,"%D",7,0 )
  9497   executed b ecause the  change is  being mad e from wit hin the Re gistration  
  9498   "^DD",2,2, .1411,1,99 1,"%D",8,0 )
  9499   process.
  9500   "^DD",2,2, .1411,1,99 1,"%D",9,0 )
  9501    
  9502   "^DD",2,2, .1411,1,99 1,"%D",10, 0)
  9503   Execution  of this cr oss refere nce can be  prevented  by settin g the loca
  9504   "^DD",2,2, .1411,1,99 1,"%D",11, 0)
  9505   variable V AFCA08 equ al to 1.  
  9506   "^DD",2,2, .1411,1,99 1,"%D",12, 0)
  9507                                        
  9508   "^DD",2,2, .1411,1,99 1,"%D",13, 0)
  9509   The local  variable V AFCF is us ed to iden tify the f ield edite d.  This d ata 
  9510   "^DD",2,2, .1411,1,99 1,"%D",14, 0)
  9511   is stored  in the FIE LD(S) EDIT ED (#2.1)  field in t he ADT/HL7  PIVOT fil
  9512   "^DD",2,2, .1411,1,99 1,"%D",15, 0)
  9513   (#391.71).
  9514   "^DD",2,2, .1411,1,99 1,"%D",16, 0)
  9515    
  9516   "^DD",2,2, .1411,1,99 1,"%D",17, 0)
  9517   The local  variable V AFCEPIC is  set to 1  to stop th e existing  output of  
  9518   "^DD",2,2, .1411,1,99 1,"%D",18, 0)
  9519   messages t o MPI when  the updat e to this  field is f or the MAS S to Epic 
  9520   "^DD",2,2, .1411,1,99 1,"%D",19, 0)
  9521   transmissi on only.
  9522   "^DD",2,2, .1411,1,99 1,"DT")
  9523   3170913
  9524   "^DD",2,2, .1411,3)
  9525   Enter the  first line  of the ap plicant's  confidenti al street  address [2 -30 charac ters].
  9526   "^DD",2,2, .1411,21,0 )
  9527   ^^4^4^3030 311^
  9528   "^DD",2,2, .1411,21,1 ,0)
  9529   If the 'Co nfidential  Address A ctive' pro mpt is ans wered YES,  the
  9530   "^DD",2,2, .1411,21,2 ,0)
  9531   user will  be prompte d for the  first line  of the co nfidential  street
  9532   "^DD",2,2, .1411,21,3 ,0)
  9533   address.   This field  cannot be  deleted a s long as  the need f or a
  9534   "^DD",2,2, .1411,21,4 ,0)
  9535   confidenti al address  is indica ted.
  9536   "^DD",2,2, .1411,"DEL ",1,0)
  9537   S DFN=DA D  CADD1^DGL OCK3 I '$D (X)
  9538   "^DD",2,2, .1411,"DT" )
  9539   3170913
  9540   "^DD",2,2, .14116,0)
  9541   CONFIDENTI AL ADDR CO UNTRY^P779 .004'^HL(7 79.004,^.1 41;16^Q
  9542   "^DD",2,2, .14116,1,0 )
  9543   ^.1
  9544   "^DD",2,2, .14116,1,9 91,0)
  9545   2^AVAFC141 16^MUMPS
  9546   "^DD",2,2, .14116,1,9 91,1)
  9547   I ($T(AVAF C^VAFCDD01 )'="") S V AFCF=".141 16;",VAFCE PIC=1 D AV AFC^VAFCDD 01(DA)
  9548   "^DD",2,2, .14116,1,9 91,2)
  9549   I ($T(AVAF C^VAFCDD01 )'="") S V AFCF=".141 16;",VAFCE PIC=1 D AV AFC^VAFCDD 01(DA)
  9550   "^DD",2,2, .14116,1,9 91,"%D",0)
  9551   ^^19^19^31 70913^
  9552   "^DD",2,2, .14116,1,9 91,"%D",1, 0)
  9553   This cross  reference  is used t o remember  that chan ges were m ade to the  
  9554   "^DD",2,2, .14116,1,9 91,"%D",2, 0)
  9555   PATIENT fi le (#2) ou tside of t he Registr ation proc ess.  Exec ution of t his 
  9556   "^DD",2,2, .14116,1,9 91,"%D",3, 0)
  9557   cross refe rence will  create an  entry in  the ADT/HL 7 PIVOT fi le (#391.7 1) 
  9558   "^DD",2,2, .14116,1,9 91,"%D",4, 0)
  9559   and mark i t as requi ring trans mission of  an HL7 AD T-A08 mess age.  
  9560   "^DD",2,2, .14116,1,9 91,"%D",5, 0)
  9561                                       
  9562   "^DD",2,2, .14116,1,9 91,"%D",6, 0)
  9563   The local  variable V AFCFLG wil l be set t o 1 if the  cross ref erence is  not 
  9564   "^DD",2,2, .14116,1,9 91,"%D",7, 0)
  9565   executed b ecause the  change is  being mad e from wit hin the Re gistration  
  9566   "^DD",2,2, .14116,1,9 91,"%D",8, 0)
  9567   process.
  9568   "^DD",2,2, .14116,1,9 91,"%D",9, 0)
  9569    
  9570   "^DD",2,2, .14116,1,9 91,"%D",10 ,0)
  9571   Execution  of this cr oss refere nce can be  prevented  by settin g the loca
  9572   "^DD",2,2, .14116,1,9 91,"%D",11 ,0)
  9573   variable V AFCA08 equ al to 1.  
  9574   "^DD",2,2, .14116,1,9 91,"%D",12 ,0)
  9575                                        
  9576   "^DD",2,2, .14116,1,9 91,"%D",13 ,0)
  9577   The local  variable V AFCF is us ed to iden tify the f ield edite d.  This d ata 
  9578   "^DD",2,2, .14116,1,9 91,"%D",14 ,0)
  9579   is stored  in the FIE LD(S) EDIT ED (#2.1)  field in t he ADT/HL7  PIVOT fil
  9580   "^DD",2,2, .14116,1,9 91,"%D",15 ,0)
  9581   (#391.71).
  9582   "^DD",2,2, .14116,1,9 91,"%D",16 ,0)
  9583    
  9584   "^DD",2,2, .14116,1,9 91,"%D",17 ,0)
  9585   The local  variable V AFCEPIC is  set to 1  to stop th e existing  output of  
  9586   "^DD",2,2, .14116,1,9 91,"%D",18 ,0)
  9587   messages t o MPI when  the updat e to this  field is f or the MAS S to Epic 
  9588   "^DD",2,2, .14116,1,9 91,"%D",19 ,0)
  9589   transmissi on only.
  9590   "^DD",2,2, .14116,1,9 91,"DT")
  9591   3170913
  9592   "^DD",2,2, .14116,3)
  9593   Enter the  country wh ere the pa tient's pe rmanent ad dress is l ocated.
  9594   "^DD",2,2, .14116,21, 0)
  9595   ^^4^4^3060 131^
  9596   "^DD",2,2, .14116,21, 1,0)
  9597   Enter the  country wh ere the pa tient's co nfidential  address i s located.
  9598   "^DD",2,2, .14116,21, 2,0)
  9599    
  9600   "^DD",2,2, .14116,21, 3,0)
  9601   If enterin g an Army/ Air Force  Post Offic e (APO) or  a Fleet P ost Office  
  9602   "^DD",2,2, .14116,21, 4,0)
  9603   (FPO) addr ess select  United St ates as th e country.
  9604   "^DD",2,2, .14116,"DT ")
  9605   3170913
  9606   "^DD",2,2, .1412,0)
  9607   CONFIDENTI AL STREET  [LINE 2]^F X^^.141;2^ K:$L(X)>30 !($L(X)<2)  X I $D(X)  S DFN=DA  D CAD^DGLO CK3
  9608   "^DD",2,2, .1412,1,0)
  9609   ^.1
  9610   "^DD",2,2, .1412,1,1, 0)
  9611   2^AXR33^MU MPS
  9612   "^DD",2,2, .1412,1,1, 1)
  9613   Q
  9614   "^DD",2,2, .1412,1,1, 2)
  9615   S DGXRF=.1 412 D ^DGD DC Q
  9616   "^DD",2,2, .1412,1,1, "DT")
  9617   3030113
  9618   "^DD",2,2, .1412,1,99 1,0)
  9619   2^AVAFC141 2^MUMPS
  9620   "^DD",2,2, .1412,1,99 1,1)
  9621   I ($T(AVAF C^VAFCDD01 )'="") S V AFCF=".141 2;",VAFCEP IC=1 D AVA FC^VAFCDD0 1(DA)
  9622   "^DD",2,2, .1412,1,99 1,2)
  9623   I ($T(AVAF C^VAFCDD01 )'="") S V AFCF=".141 2;",VAFCEP IC=1 D AVA FC^VAFCDD0 1(DA)
  9624   "^DD",2,2, .1412,1,99 1,"%D",0)
  9625   ^^19^19^31 70913^
  9626   "^DD",2,2, .1412,1,99 1,"%D",1,0 )
  9627   This cross  reference  is used t o remember  that chan ges were m ade to the  
  9628   "^DD",2,2, .1412,1,99 1,"%D",2,0 )
  9629   PATIENT fi le (#2) ou tside of t he Registr ation proc ess.  Exec ution of t his 
  9630   "^DD",2,2, .1412,1,99 1,"%D",3,0 )
  9631   cross refe rence will  create an  entry in  the ADT/HL 7 PIVOT fi le (#391.7 1) 
  9632   "^DD",2,2, .1412,1,99 1,"%D",4,0 )
  9633   and mark i t as requi ring trans mission of  an HL7 AD T-A08 mess age.  
  9634   "^DD",2,2, .1412,1,99 1,"%D",5,0 )
  9635                                       
  9636   "^DD",2,2, .1412,1,99 1,"%D",6,0 )
  9637   The local  variable V AFCFLG wil l be set t o 1 if the  cross ref erence is  not 
  9638   "^DD",2,2, .1412,1,99 1,"%D",7,0 )
  9639   executed b ecause the  change is  being mad e from wit hin the Re gistration  
  9640   "^DD",2,2, .1412,1,99 1,"%D",8,0 )
  9641   process.
  9642   "^DD",2,2, .1412,1,99 1,"%D",9,0 )
  9643    
  9644   "^DD",2,2, .1412,1,99 1,"%D",10, 0)
  9645   Execution  of this cr oss refere nce can be  prevented  by settin g the loca
  9646   "^DD",2,2, .1412,1,99 1,"%D",11, 0)
  9647   variable V AFCA08 equ al to 1.  
  9648   "^DD",2,2, .1412,1,99 1,"%D",12, 0)
  9649                                        
  9650   "^DD",2,2, .1412,1,99 1,"%D",13, 0)
  9651   The local  variable V AFCF is us ed to iden tify the f ield edite d.  This d ata 
  9652   "^DD",2,2, .1412,1,99 1,"%D",14, 0)
  9653   is stored  in the FIE LD(S) EDIT ED (#2.1)  field in t he ADT/HL7  PIVOT fil
  9654   "^DD",2,2, .1412,1,99 1,"%D",15, 0)
  9655   (#391.71).
  9656   "^DD",2,2, .1412,1,99 1,"%D",16, 0)
  9657    
  9658   "^DD",2,2, .1412,1,99 1,"%D",17, 0)
  9659   The local  variable V AFCEPIC is  set to 1  to stop th e existing  output of  
  9660   "^DD",2,2, .1412,1,99 1,"%D",18, 0)
  9661   messages t o MPI when  the updat e to this  field is f or the MAS S to Epic 
  9662   "^DD",2,2, .1412,1,99 1,"%D",19, 0)
  9663   transmissi on only.
  9664   "^DD",2,2, .1412,1,99 1,"DT")
  9665   3170913
  9666   "^DD",2,2, .1412,3)
  9667   If necessa ry, enter  the second  line of t his applic ant's conf idential a ddress [2- 30 charact ers].
  9668   "^DD",2,2, .1412,21,0 )
  9669   ^^4^4^3030 311^
  9670   "^DD",2,2, .1412,21,1 ,0)
  9671   If the 'Co nfidential  Address A ctive' pro mpt is ans wered YES,
  9672   "^DD",2,2, .1412,21,2 ,0)
  9673   the user w ill be pro mpted for  the second  line of t he confide ntial 
  9674   "^DD",2,2, .1412,21,3 ,0)
  9675   street add ress [2-30  character s].  The s econd line  of the st reet
  9676   "^DD",2,2, .1412,21,4 ,0)
  9677   address is  optional  and may be  left blan k.
  9678   "^DD",2,2, .1412,"DT" )
  9679   3170913
  9680   "^DD",2,2, .1413,0)
  9681   CONFIDENTI AL STREET  [LINE 3]^F X^^.141;3^ K:$L(X)>30 !($L(X)<2)  X I $D(X)  S DFN=DA  D CAD^DGLO CK3
  9682   "^DD",2,2, .1413,1,0)
  9683   ^.1
  9684   "^DD",2,2, .1413,1,99 1,0)
  9685   2^AVAFC141 3^MUMPS
  9686   "^DD",2,2, .1413,1,99 1,1)
  9687   I ($T(AVAF C^VAFCDD01 )'="") S V AFCF=".141 3;",VAFCEP IC=1 D AVA FC^VAFCDD0 1(DA)
  9688   "^DD",2,2, .1413,1,99 1,2)
  9689   I ($T(AVAF C^VAFCDD01 )'="") S V AFCF=".141 3;",VAFCEP IC=1 D AVA FC^VAFCDD0 1(DA)
  9690   "^DD",2,2, .1413,1,99 1,"%D",0)
  9691   ^^19^19^31 70913^
  9692   "^DD",2,2, .1413,1,99 1,"%D",1,0 )
  9693   This cross  reference  is used t o remember  that chan ges were m ade to the  
  9694   "^DD",2,2, .1413,1,99 1,"%D",2,0 )
  9695   PATIENT fi le (#2) ou tside of t he Registr ation proc ess.  Exec ution of t his 
  9696   "^DD",2,2, .1413,1,99 1,"%D",3,0 )
  9697   cross refe rence will  create an  entry in  the ADT/HL 7 PIVOT fi le (#391.7 1) 
  9698   "^DD",2,2, .1413,1,99 1,"%D",4,0 )
  9699   and mark i t as requi ring trans mission of  an HL7 AD T-A08 mess age.  
  9700   "^DD",2,2, .1413,1,99 1,"%D",5,0 )
  9701                                       
  9702   "^DD",2,2, .1413,1,99 1,"%D",6,0 )
  9703   The local  variable V AFCFLG wil l be set t o 1 if the  cross ref erence is  not 
  9704   "^DD",2,2, .1413,1,99 1,"%D",7,0 )
  9705   executed b ecause the  change is  being mad e from wit hin the Re gistration  
  9706   "^DD",2,2, .1413,1,99 1,"%D",8,0 )
  9707   process.
  9708   "^DD",2,2, .1413,1,99 1,"%D",9,0 )
  9709    
  9710   "^DD",2,2, .1413,1,99 1,"%D",10, 0)
  9711   Execution  of this cr oss refere nce can be  prevented  by settin g the loca
  9712   "^DD",2,2, .1413,1,99 1,"%D",11, 0)
  9713   variable V AFCA08 equ al to 1.  
  9714   "^DD",2,2, .1413,1,99 1,"%D",12, 0)
  9715                                        
  9716   "^DD",2,2, .1413,1,99 1,"%D",13, 0)
  9717   The local  variable V AFCF is us ed to iden tify the f ield edite d.  This d ata 
  9718   "^DD",2,2, .1413,1,99 1,"%D",14, 0)
  9719   is stored  in the FIE LD(S) EDIT ED (#2.1)  field in t he ADT/HL7  PIVOT fil
  9720   "^DD",2,2, .1413,1,99 1,"%D",15, 0)
  9721   (#391.71).
  9722   "^DD",2,2, .1413,1,99 1,"%D",16, 0)
  9723    
  9724   "^DD",2,2, .1413,1,99 1,"%D",17, 0)
  9725   The local  variable V AFCEPIC is  set to 1  to stop th e existing  output of  
  9726   "^DD",2,2, .1413,1,99 1,"%D",18, 0)
  9727   messages t o MPI when  the updat e to this  field is f or the MAS S to Epic 
  9728   "^DD",2,2, .1413,1,99 1,"%D",19, 0)
  9729   transmissi on only.
  9730   "^DD",2,2, .1413,1,99 1,"DT")
  9731   3170913
  9732   "^DD",2,2, .1413,3)
  9733   If necessa ry, enter  the third  line of th is applica nt's confi dential st reet addre ss [2-30 c haracters]
  9734   "^DD",2,2, .1413,21,0 )
  9735   ^^4^4^3030 312^
  9736   "^DD",2,2, .1413,21,1 ,0)
  9737   If the 'Co nfidential  Address A ctive' pro mpt is ans wered YES,
  9738   "^DD",2,2, .1413,21,2 ,0)
  9739   the user w ill be pro mpted for  the third  line of th e confiden tial         
  9740   "^DD",2,2, .1413,21,3 ,0)
  9741   street add ress.  The  third lin e of the s treet addr ess is opt ional
  9742   "^DD",2,2, .1413,21,4 ,0)
  9743   and may be  left blan k.
  9744   "^DD",2,2, .1413,"DT" )
  9745   3170913
  9746   "^DD",2,2, .1414,0)
  9747   CONFIDENTI AL ADDRESS  CITY^FX^^ .141;4^K:$ L(X)>30!($ L(X)<2) X  I $D(X) S  DFN=DA D C AD^DGLOCK3
  9748   "^DD",2,2, .1414,1,0)
  9749   ^.1
  9750   "^DD",2,2, .1414,1,99 1,0)
  9751   2^AVAFC141 4^MUMPS
  9752   "^DD",2,2, .1414,1,99 1,1)
  9753   I ($T(AVAF C^VAFCDD01 )'="") S V AFCF=".141 4;",VAFCEP IC=1 D AVA FC^VAFCDD0 1(DA)
  9754   "^DD",2,2, .1414,1,99 1,2)
  9755   I ($T(AVAF C^VAFCDD01 )'="") S V AFCF=".141 4;",VAFCEP IC=1 D AVA FC^VAFCDD0 1(DA)
  9756   "^DD",2,2, .1414,1,99 1,"%D",0)
  9757   ^^19^19^31 70913^
  9758   "^DD",2,2, .1414,1,99 1,"%D",1,0 )
  9759   This cross  reference  is used t o remember  that chan ges were m ade to the  
  9760   "^DD",2,2, .1414,1,99 1,"%D",2,0 )
  9761   PATIENT fi le (#2) ou tside of t he Registr ation proc ess.  Exec ution of t his 
  9762   "^DD",2,2, .1414,1,99 1,"%D",3,0 )
  9763   cross refe rence will  create an  entry in  the ADT/HL 7 PIVOT fi le (#391.7 1) 
  9764   "^DD",2,2, .1414,1,99 1,"%D",4,0 )
  9765   and mark i t as requi ring trans mission of  an HL7 AD T-A08 mess age.  
  9766   "^DD",2,2, .1414,1,99 1,"%D",5,0 )
  9767                                       
  9768   "^DD",2,2, .1414,1,99 1,"%D",6,0 )
  9769   The local  variable V AFCFLG wil l be set t o 1 if the  cross ref erence is  not 
  9770   "^DD",2,2, .1414,1,99 1,"%D",7,0 )
  9771   executed b ecause the  change is  being mad e from wit hin the Re gistration  
  9772   "^DD",2,2, .1414,1,99 1,"%D",8,0 )
  9773   process.
  9774   "^DD",2,2, .1414,1,99 1,"%D",9,0 )
  9775    
  9776   "^DD",2,2, .1414,1,99 1,"%D",10, 0)
  9777   Execution  of this cr oss refere nce can be  prevented  by settin g the loca
  9778   "^DD",2,2, .1414,1,99 1,"%D",11, 0)
  9779   variable V AFCA08 equ al to 1.  
  9780   "^DD",2,2, .1414,1,99 1,"%D",12, 0)
  9781                                        
  9782   "^DD",2,2, .1414,1,99 1,"%D",13, 0)
  9783   The local  variable V AFCF is us ed to iden tify the f ield edite d.  This d ata 
  9784   "^DD",2,2, .1414,1,99 1,"%D",14, 0)
  9785   is stored  in the FIE LD(S) EDIT ED (#2.1)  field in t he ADT/HL7  PIVOT fil
  9786   "^DD",2,2, .1414,1,99 1,"%D",15, 0)
  9787   (#391.71).
  9788   "^DD",2,2, .1414,1,99 1,"%D",16, 0)
  9789    
  9790   "^DD",2,2, .1414,1,99 1,"%D",17, 0)
  9791   The local  variable V AFCEPIC is  set to 1  to stop th e existing  output of  
  9792   "^DD",2,2, .1414,1,99 1,"%D",18, 0)
  9793   messages t o MPI when  the updat e to this  field is f or the MAS S to Epic 
  9794   "^DD",2,2, .1414,1,99 1,"%D",19, 0)
  9795   transmissi on only.
  9796   "^DD",2,2, .1414,1,99 1,"DT")
  9797   3170913
  9798   "^DD",2,2, .1414,3)
  9799   Enter the  city for t he applica nt's confi dential ad dress [2-3 0 characte rs].
  9800   "^DD",2,2, .1414,21,0 )
  9801   ^^4^4^3030 311^
  9802   "^DD",2,2, .1414,21,1 ,0)
  9803   If the 'Co nfidential  Address A ctive' pro mpt is ans wered YES,  enter
  9804   "^DD",2,2, .1414,21,2 ,0)
  9805   the confid ential add ress city  for this a pplicant [ 2-30 chara cters].  
  9806   "^DD",2,2, .1414,21,3 ,0)
  9807   This field  may not b e deleted  as long as  the need  for a conf idential
  9808   "^DD",2,2, .1414,21,4 ,0)
  9809   address is  indicated .
  9810   "^DD",2,2, .1414,"DEL ",1,0)
  9811   S DFN=DA D  CADD1^DGL OCK3 I '$D (X)
  9812   "^DD",2,2, .1414,"DT" )
  9813   3170913
  9814   "^DD",2,2, .1415,0)
  9815   CONFIDENTI AL ADDRESS  STATE^P5' X^DIC(5,^. 141;5^S DF N=DA D CAD ^DGLOCK3 Q
  9816   "^DD",2,2, .1415,1,0)
  9817   ^.1
  9818   "^DD",2,2, .1415,1,99 1,0)
  9819   2^AVAFC141 5^MUMPS
  9820   "^DD",2,2, .1415,1,99 1,1)
  9821   I ($T(AVAF C^VAFCDD01 )'="") S V AFCF=".141 5;",VAFCEP IC=1 D AVA FC^VAFCDD0 1(DA)
  9822   "^DD",2,2, .1415,1,99 1,2)
  9823   I ($T(AVAF C^VAFCDD01 )'="") S V AFCF=".141 5;",VAFCEP IC=1 D AVA FC^VAFCDD0 1(DA)
  9824   "^DD",2,2, .1415,1,99 1,"%D",0)
  9825   ^^19^19^31 70913^
  9826   "^DD",2,2, .1415,1,99 1,"%D",1,0 )
  9827   This cross  reference  is used t o remember  that chan ges were m ade to the  
  9828   "^DD",2,2, .1415,1,99 1,"%D",2,0 )
  9829   PATIENT fi le (#2) ou tside of t he Registr ation proc ess.  Exec ution of t his 
  9830   "^DD",2,2, .1415,1,99 1,"%D",3,0 )
  9831   cross refe rence will  create an  entry in  the ADT/HL 7 PIVOT fi le (#391.7 1) 
  9832   "^DD",2,2, .1415,1,99 1,"%D",4,0 )
  9833   and mark i t as requi ring trans mission of  an HL7 AD T-A08 mess age.  
  9834   "^DD",2,2, .1415,1,99 1,"%D",5,0 )
  9835                                       
  9836   "^DD",2,2, .1415,1,99 1,"%D",6,0 )
  9837   The local  variable V AFCFLG wil l be set t o 1 if the  cross ref erence is  not 
  9838   "^DD",2,2, .1415,1,99 1,"%D",7,0 )
  9839   executed b ecause the  change is  being mad e from wit hin the Re gistration  
  9840   "^DD",2,2, .1415,1,99 1,"%D",8,0 )
  9841   process.
  9842   "^DD",2,2, .1415,1,99 1,"%D",9,0 )
  9843    
  9844   "^DD",2,2, .1415,1,99 1,"%D",10, 0)
  9845   Execution  of this cr oss refere nce can be  prevented  by settin g the loca
  9846   "^DD",2,2, .1415,1,99 1,"%D",11, 0)
  9847   variable V AFCA08 equ al to 1.  
  9848   "^DD",2,2, .1415,1,99 1,"%D",12, 0)
  9849                                        
  9850   "^DD",2,2, .1415,1,99 1,"%D",13, 0)
  9851   The local  variable V AFCF is us ed to iden tify the f ield edite d.  This d ata 
  9852   "^DD",2,2, .1415,1,99 1,"%D",14, 0)
  9853   is stored  in the FIE LD(S) EDIT ED (#2.1)  field in t he ADT/HL7  PIVOT fil
  9854   "^DD",2,2, .1415,1,99 1,"%D",15, 0)
  9855   (#391.71).
  9856   "^DD",2,2, .1415,1,99 1,"%D",16, 0)
  9857    
  9858   "^DD",2,2, .1415,1,99 1,"%D",17, 0)
  9859   The local  variable V AFCEPIC is  set to 1  to stop th e existing  output of  
  9860   "^DD",2,2, .1415,1,99 1,"%D",18, 0)
  9861   messages t o MPI when  the updat e to this  field is f or the MAS S to Epic 
  9862   "^DD",2,2, .1415,1,99 1,"%D",19, 0)
  9863   transmissi on only.
  9864   "^DD",2,2, .1415,1,99 1,"DT")
  9865   3170913
  9866   "^DD",2,2, .1415,3)
  9867   Enter the  State for  the applic ant's conf idential a ddress.
  9868   "^DD",2,2, .1415,21,0 )
  9869   ^^4^4^3030 311^
  9870   "^DD",2,2, .1415,21,1 ,0)
  9871   If the 'Co nfidential  Address A ctive' pro mpt is ans wered YES,
  9872   "^DD",2,2, .1415,21,2 ,0)
  9873   the user w ill be ask ed to sele ct the con fidential  address st ate
  9874   "^DD",2,2, .1415,21,3 ,0)
  9875   from the a vailable l isting.  T his field  may not be  deleted a
  9876   "^DD",2,2, .1415,21,4 ,0)
  9877   long as th e need for  a confide ntial addr ess is ind icated.
  9878   "^DD",2,2, .1415,"DEL ",1,0)
  9879   S DFN=DA D  CADD1^DGL OCK3 I '$D (X)
  9880   "^DD",2,2, .1415,"DT" )
  9881   3170913
  9882   "^DD",2,2, .1416,0)
  9883   CONFIDENTI AL ADDRESS  ZIP CODE^ FXO^^.141; 6^K:$L(X)> 20!($L(X)< 5) X I $D( X) S DFN=D A D CAD^DG LOCK3 I $D (X) D ZIPI N^VAFADDR
  9884   "^DD",2,2, .1416,1,0)
  9885   ^.1
  9886   "^DD",2,2, .1416,1,99 1,0)
  9887   2^AVAFC141 6^MUMPS
  9888   "^DD",2,2, .1416,1,99 1,1)
  9889   I ($T(AVAF C^VAFCDD01 )'="") S V AFCF=".141 6;",VAFCEP IC=1 D AVA FC^VAFCDD0 1(DA)
  9890   "^DD",2,2, .1416,1,99 1,2)
  9891   I ($T(AVAF C^VAFCDD01 )'="") S V AFCF=".141 6;",VAFCEP IC=1 D AVA FC^VAFCDD0 1(DA)
  9892   "^DD",2,2, .1416,1,99 1,"%D",0)
  9893   ^^19^19^31 70913^
  9894   "^DD",2,2, .1416,1,99 1,"%D",1,0 )
  9895   This cross  reference  is used t o remember  that chan ges were m ade to the  
  9896   "^DD",2,2, .1416,1,99 1,"%D",2,0 )
  9897   PATIENT fi le (#2) ou tside of t he Registr ation proc ess.  Exec ution of t his 
  9898   "^DD",2,2, .1416,1,99 1,"%D",3,0 )
  9899   cross refe rence will  create an  entry in  the ADT/HL 7 PIVOT fi le (#391.7 1) 
  9900   "^DD",2,2, .1416,1,99 1,"%D",4,0 )
  9901   and mark i t as requi ring trans mission of  an HL7 AD T-A08 mess age.  
  9902   "^DD",2,2, .1416,1,99 1,"%D",5,0 )
  9903                                       
  9904   "^DD",2,2, .1416,1,99 1,"%D",6,0 )
  9905   The local  variable V AFCFLG wil l be set t o 1 if the  cross ref erence is  not 
  9906   "^DD",2,2, .1416,1,99 1,"%D",7,0 )
  9907   executed b ecause the  change is  being mad e from wit hin the Re gistration  
  9908   "^DD",2,2, .1416,1,99 1,"%D",8,0 )
  9909   process.
  9910   "^DD",2,2, .1416,1,99 1,"%D",9,0 )
  9911    
  9912   "^DD",2,2, .1416,1,99 1,"%D",10, 0)
  9913   Execution  of this cr oss refere nce can be  prevented  by settin g the loca
  9914   "^DD",2,2, .1416,1,99 1,"%D",11, 0)
  9915   variable V AFCA08 equ al to 1.  
  9916   "^DD",2,2, .1416,1,99 1,"%D",12, 0)
  9917                                        
  9918   "^DD",2,2, .1416,1,99 1,"%D",13, 0)
  9919   The local  variable V AFCF is us ed to iden tify the f ield edite d.  This d ata 
  9920   "^DD",2,2, .1416,1,99 1,"%D",14, 0)
  9921   is stored  in the FIE LD(S) EDIT ED (#2.1)  field in t he ADT/HL7  PIVOT fil
  9922   "^DD",2,2, .1416,1,99 1,"%D",15, 0)
  9923   (#391.71).
  9924   "^DD",2,2, .1416,1,99 1,"%D",16, 0)
  9925    
  9926   "^DD",2,2, .1416,1,99 1,"%D",17, 0)
  9927   The local  variable V AFCEPIC is  set to 1  to stop th e existing  output of  
  9928   "^DD",2,2, .1416,1,99 1,"%D",18, 0)
  9929   messages t o MPI when  the updat e to this  field is f or the MAS S to Epic 
  9930   "^DD",2,2, .1416,1,99 1,"%D",19, 0)
  9931   transmissi on only.
  9932   "^DD",2,2, .1416,1,99 1,"DT")
  9933   3170913
  9934   "^DD",2,2, .1416,2)
  9935   S Y(0)=Y D  ZIPOUT^VA FADDR
  9936   "^DD",2,2, .1416,2.1)
  9937   D ZIPOUT^V AFADDR
  9938   "^DD",2,2, .1416,3)
  9939   Answer wit h either t he 5 digit  or 9 digi t zip code .
  9940   "^DD",2,2, .1416,21,0 )
  9941   ^.001^4^4^ 3030314^^
  9942   "^DD",2,2, .1416,21,1 ,0)
  9943   If the 'Co nfidential  Address A ctive' pro mpt is ans wered YES,
  9944   "^DD",2,2, .1416,21,2 ,0)
  9945   the user w ill be ask ed to ente r the zip  code assig ned to the
  9946   "^DD",2,2, .1416,21,3 ,0)
  9947   city for t he confide ntial addr ess.  This  field may  not be de leted
  9948   "^DD",2,2, .1416,21,4 ,0)
  9949   as long as  the need  for a conf idential a ddress is  indicated.
  9950   "^DD",2,2, .1416,"DEL ",1,0)
  9951   S DFN=DA D  CADD1^DGL OCK3 I '$D (X)
  9952   "^DD",2,2, .1416,"DT" )
  9953   3170913
  9954   "^DD",2,2, .1417,0)
  9955   CONFIDENTI AL START D ATE^DX^^.1 41;7^S %DT ="EX",%DT( 0)=DT D ^% DT S X=Y K :Y<1 X K % DT(0) I $D (X) S DFN= DA D CAD^D GLOCK3
  9956   "^DD",2,2, .1417,1,0)
  9957   ^.1
  9958   "^DD",2,2, .1417,1,99 1,0)
  9959   2^AVAFC141 7^MUMPS
  9960   "^DD",2,2, .1417,1,99 1,1)
  9961   I ($T(AVAF C^VAFCDD01 )'="") S V AFCF=".141 7;",VAFCEP IC=1 D AVA FC^VAFCDD0 1(DA)
  9962   "^DD",2,2, .1417,1,99 1,2)
  9963   I ($T(AVAF C^VAFCDD01 )'="") S V AFCF=".141 7;",VAFCEP IC=1 D AVA FC^VAFCDD0 1(DA)
  9964   "^DD",2,2, .1417,1,99 1,"%D",0)
  9965   ^.101^19^1 9^3171020^ ^
  9966   "^DD",2,2, .1417,1,99 1,"%D",1,0 )
  9967   This cross  reference  is used t o remember  that chan ges were m ade to the  
  9968   "^DD",2,2, .1417,1,99 1,"%D",2,0 )
  9969   PATIENT fi le (#2) ou tside of t he Registr ation proc ess.  Exec ution of t his 
  9970   "^DD",2,2, .1417,1,99 1,"%D",3,0 )
  9971   cross refe rence will  create an  entry in  the ADT/HL 7 PIVOT fi le (#391.7 1) 
  9972   "^DD",2,2, .1417,1,99 1,"%D",4,0 )
  9973   and mark i t as requi ring trans mission of  an HL7 AD T-A08 mess age.  
  9974   "^DD",2,2, .1417,1,99 1,"%D",5,0 )
  9975                                       
  9976   "^DD",2,2, .1417,1,99 1,"%D",6,0 )
  9977   The local  variable V AFCFLG wil l be set t o 1 if the  cross ref erence is  not 
  9978   "^DD",2,2, .1417,1,99 1,"%D",7,0 )
  9979   executed b ecause the  change is  being mad e from wit hin the Re gistration  
  9980   "^DD",2,2, .1417,1,99 1,"%D",8,0 )
  9981   process.
  9982   "^DD",2,2, .1417,1,99 1,"%D",9,0 )
  9983    
  9984   "^DD",2,2, .1417,1,99 1,"%D",10, 0)
  9985   Execution  of this cr oss refere nce can be  prevented  by settin g the loca
  9986   "^DD",2,2, .1417,1,99 1,"%D",11, 0)
  9987   variable V AFCA08 equ al to 1.  
  9988   "^DD",2,2, .1417,1,99 1,"%D",12, 0)
  9989                                        
  9990   "^DD",2,2, .1417,1,99 1,"%D",13, 0)
  9991   The local  variable V AFCF is us ed to iden tify the f ield edite d.  This d ata 
  9992   "^DD",2,2, .1417,1,99 1,"%D",14, 0)
  9993   is stored  in the FIE LD(S) EDIT ED (#2.1)  field in t he ADT/HL7  PIVOT fil
  9994   "^DD",2,2, .1417,1,99 1,"%D",15, 0)
  9995   (#391.71).
  9996   "^DD",2,2, .1417,1,99 1,"%D",16, 0)
  9997    
  9998   "^DD",2,2, .1417,1,99 1,"%D",17, 0)
  9999   The local  variable V AFCEPIC is  set to 1  to stop th e existing  output of  
  10000   "^DD",2,2, .1417,1,99 1,"%D",18, 0)
  10001   messages t o MPI when  the updat e to this  field is f or the MAS S to Epic 
  10002   "^DD",2,2, .1417,1,99 1,"%D",19, 0)
  10003   transmissi on only.
  10004   "^DD",2,2, .1417,1,99 1,"DT")
  10005   3170913
  10006   "^DD",2,2, .1417,3)
  10007   Enter the  date to be gin contac ting the a pplicant a t the conf idential a ddress.  D ate cannot  be in the  past.
  10008   "^DD",2,2, .1417,21,0 )
  10009   ^^3^3^3060 829^
  10010   "^DD",2,2, .1417,21,1 ,0)
  10011   If the 'Co nfidential  Address A ctive' pro mpt is ans wered YES,  
  10012   "^DD",2,2, .1417,21,2 ,0)
  10013   enter the  date to be gin contac ting the a pplicant a t the
  10014   "^DD",2,2, .1417,21,3 ,0)
  10015   confidenti al address .
  10016   "^DD",2,2, .1417,23,0 )
  10017   ^^10^10^30 60829^
  10018   "^DD",2,2, .1417,23,1 ,0)
  10019   This field  contains  an input t ransform w hich does  a number o f things.   It 
  10020   "^DD",2,2, .1417,23,2 ,0)
  10021   validates  the date e ntered, do es not all ow a date  prior to t he current  
  10022   "^DD",2,2, .1417,23,3 ,0)
  10023   date, and  prevents c hanges to  this field  if the Co nfidential  Address i
  10024   "^DD",2,2, .1417,23,4 ,0)
  10025   flagged IN ACTIVE.
  10026   "^DD",2,2, .1417,23,5 ,0)
  10027    
  10028   "^DD",2,2, .1417,23,6 ,0)
  10029   Special no te: the in put transf orm sets % DT(0)=DT t o validate  the date 
  10030   "^DD",2,2, .1417,23,7 ,0)
  10031   entered.   Because ch anges to t his field  will updat e the CONF IDENTIAL
  10032   "^DD",2,2, .1417,23,8 ,0)
  10033   ADDRESS CH ANGE DT/TM  field, it  is necess ary to kil l %DT(0) a fter the
  10034   "^DD",2,2, .1417,23,9 ,0)
  10035   validation .  This va riable, if  valued, c an prevent  EVENT^IVM PLOG from
  10036   "^DD",2,2, .1417,23,1 0,0)
  10037   setting th e transmit  flag if o nly the St art and En d dates ar e changed.
  10038   "^DD",2,2, .1417,"DEL ",1,0)
  10039   S DFN=DA D  CADD1^DGL OCK3 I '$D (X)
  10040   "^DD",2,2, .1417,"DT" )
  10041   3170913
  10042   "^DD",2,2, .1418,0)
  10043   CONFIDENTI AL END DAT E^DX^^.141 ;8^S %DT=" EX" D ^%DT  S X=Y K:Y <1 X I $D( X) S DFN=D A D CAD^DG LOCK3 I $D (X),(X<$P( ^DPT(DFN,. 141),"^",7 )) K X
  10044   "^DD",2,2, .1418,1,0)
  10045   ^.1
  10046   "^DD",2,2, .1418,1,99 1,0)
  10047   2^AVAFC141 8^MUMPS
  10048   "^DD",2,2, .1418,1,99 1,1)
  10049   I ($T(AVAF C^VAFCDD01 )'="") S V AFCF=".141 8;",VAFCEP IC=1 D AVA FC^VAFCDD0 1(DA)
  10050   "^DD",2,2, .1418,1,99 1,2)
  10051   I ($T(AVAF C^VAFCDD01 )'="") S V AFCF=".141 8;",VAFCEP IC=1 D AVA FC^VAFCDD0 1(DA)
  10052   "^DD",2,2, .1418,1,99 1,"%D",0)
  10053   ^^19^19^31 70913^
  10054   "^DD",2,2, .1418,1,99 1,"%D",1,0 )
  10055   This cross  reference  is used t o remember  that chan ges were m ade to the  
  10056   "^DD",2,2, .1418,1,99 1,"%D",2,0 )
  10057   PATIENT fi le (#2) ou tside of t he Registr ation proc ess.  Exec ution of t his 
  10058   "^DD",2,2, .1418,1,99 1,"%D",3,0 )
  10059   cross refe rence will  create an  entry in  the ADT/HL 7 PIVOT fi le (#391.7 1) 
  10060   "^DD",2,2, .1418,1,99 1,"%D",4,0 )
  10061   and mark i t as requi ring trans mission of  an HL7 AD T-A08 mess age.  
  10062   "^DD",2,2, .1418,1,99 1,"%D",5,0 )
  10063                                       
  10064   "^DD",2,2, .1418,1,99 1,"%D",6,0 )
  10065   The local  variable V AFCFLG wil l be set t o 1 if the  cross ref erence is  not 
  10066   "^DD",2,2, .1418,1,99 1,"%D",7,0 )
  10067   executed b ecause the  change is  being mad e from wit hin the Re gistration  
  10068   "^DD",2,2, .1418,1,99 1,"%D",8,0 )
  10069   process.
  10070   "^DD",2,2, .1418,1,99 1,"%D",9,0 )
  10071    
  10072   "^DD",2,2, .1418,1,99 1,"%D",10, 0)
  10073   Execution  of this cr oss refere nce can be  prevented  by settin g the loca
  10074   "^DD",2,2, .1418,1,99 1,"%D",11, 0)
  10075   variable V AFCA08 equ al to 1.  
  10076   "^DD",2,2, .1418,1,99 1,"%D",12, 0)
  10077                                        
  10078   "^DD",2,2, .1418,1,99 1,"%D",13, 0)
  10079   The local  variable V AFCF is us ed to iden tify the f ield edite d.  This d ata 
  10080   "^DD",2,2, .1418,1,99 1,"%D",14, 0)
  10081   is stored  in the FIE LD(S) EDIT ED (#2.1)  field in t he ADT/HL7  PIVOT fil
  10082   "^DD",2,2, .1418,1,99 1,"%D",15, 0)
  10083   (#391.71).
  10084   "^DD",2,2, .1418,1,99 1,"%D",16, 0)
  10085    
  10086   "^DD",2,2, .1418,1,99 1,"%D",17, 0)
  10087   The local  variable V AFCEPIC is  set to 1  to stop th e existing  output of  
  10088   "^DD",2,2, .1418,1,99 1,"%D",18, 0)
  10089   messages t o MPI when  the updat e to this  field is f or the MAS S to Epic 
  10090   "^DD",2,2, .1418,1,99 1,"%D",19, 0)
  10091   transmissi on only.
  10092   "^DD",2,2, .1418,1,99 1,"DT")
  10093   3170913
  10094   "^DD",2,2, .1418,3)
  10095   Enter the  date the a pplicant w ill no lon ger be con tacted at  the confid ential add ress.  End  date must  be after  start date .
  10096   "^DD",2,2, .1418,21,0 )
  10097   ^.001^2^2^ 3030314^^
  10098   "^DD",2,2, .1418,21,1 ,0)
  10099   If the 'Co nfidential  Address A ctive' pro mpt is ans wered YES,  enter 
  10100   "^DD",2,2, .1418,21,2 ,0)
  10101   the date t he applica nt will no  longer be  contacted  at this a ddress. 
  10102   "^DD",2,2, .1418,"DEL ",1,0)
  10103   S DFN=DA D  CADD1^DGL OCK3 I '$D (X)
  10104   "^DD",2,2, .1418,"DT" )
  10105   3170913
  10106   "^DD",2,2, .331,0)
  10107   E-NAME^F^^ .33;1^K:$L (X)>35!($L (X)<3) X I  $D(X) S D G20NAME=X, (X,DG20NAM E)=$$FORMA T^XLFNAME7 (.DG20NAME ,3,35) K:' $L(X) X,DG 20NAME
  10108   "^DD",2,2, .331,.1)
  10109   EMERGENCY  CONTACT
  10110   "^DD",2,2, .331,1,0)
  10111   ^.1
  10112   "^DD",2,2, .331,1,1,0 )
  10113   2^AXR4^MUM PS
  10114   "^DD",2,2, .331,1,1,1 )
  10115   Q
  10116   "^DD",2,2, .331,1,1,2 )
  10117   S DGXRF=.3 31 D ^DGDD C Q
  10118   "^DD",2,2, .331,1,991 ,0)
  10119   2^AVAFC331 ^MUMPS
  10120   "^DD",2,2, .331,1,991 ,1)
  10121   I ($T(AVAF C^VAFCDD01 )'="") S V AFCF=".331 ;",VAFCEPI C=1 D AVAF C^VAFCDD01 (DA)
  10122   "^DD",2,2, .331,1,991 ,2)
  10123   I ($T(AVAF C^VAFCDD01 )'="") S V AFCF=".331 ;",VAFCEPI C=1 D AVAF C^VAFCDD01 (DA)
  10124   "^DD",2,2, .331,1,991 ,"%D",0)
  10125   ^.101^19^1 9^3180208^ ^^^
  10126   "^DD",2,2, .331,1,991 ,"%D",1,0)
  10127   This cross  reference  is used t o remember  that chan ges were m ade to the  
  10128   "^DD",2,2, .331,1,991 ,"%D",2,0)
  10129   PATIENT fi le (#2) ou tside of t he Registr ation proc ess.  Exec ution of t his 
  10130   "^DD",2,2, .331,1,991 ,"%D",3,0)
  10131   cross refe rence will  create an  entry in  the ADT/HL 7 PIVOT fi le (#391.7 1) 
  10132   "^DD",2,2, .331,1,991 ,"%D",4,0)
  10133   and mark i t as requi ring trans mission of  an HL7 AD T-A08 mess age.  
  10134   "^DD",2,2, .331,1,991 ,"%D",5,0)
  10135                                       
  10136   "^DD",2,2, .331,1,991 ,"%D",6,0)
  10137   The local  variable V AFCFLG wil l be set t o 1 if the  cross ref erence is  not 
  10138   "^DD",2,2, .331,1,991 ,"%D",7,0)
  10139   executed b ecause the  change is  being mad e from wit hin the Re gistration  
  10140   "^DD",2,2, .331,1,991 ,"%D",8,0)
  10141   process.
  10142   "^DD",2,2, .331,1,991 ,"%D",9,0)
  10143    
  10144   "^DD",2,2, .331,1,991 ,"%D",10,0 )
  10145   Execution  of this cr oss refere nce can be  prevented  by settin g the loca
  10146   "^DD",2,2, .331,1,991 ,"%D",11,0 )
  10147   variable V AFCA08 equ al to 1.  
  10148   "^DD",2,2, .331,1,991 ,"%D",12,0 )
  10149                                        
  10150   "^DD",2,2, .331,1,991 ,"%D",13,0 )
  10151   The local  variable V AFCF is us ed to iden tify the f ield edite d.  This d ata 
  10152   "^DD",2,2, .331,1,991 ,"%D",14,0 )
  10153   is stored  in the FIE LD(S) EDIT ED (#2.1)  field in t he ADT/HL7  PIVOT fil
  10154   "^DD",2,2, .331,1,991 ,"%D",15,0 )
  10155   (#391.71).
  10156   "^DD",2,2, .331,1,991 ,"%D",16,0 )
  10157    
  10158   "^DD",2,2, .331,1,991 ,"%D",17,0 )
  10159   The local  variable V AFCEPIC is  set to 1  to stop th e existing  output of  
  10160   "^DD",2,2, .331,1,991 ,"%D",18,0 )
  10161   messages t o MPI when  the updat e to this  field is f or the MAS S to Epic 
  10162   "^DD",2,2, .331,1,991 ,"%D",19,0 )
  10163   transmissi on only.
  10164   "^DD",2,2, .331,1,991 ,"DT")
  10165   3170929
  10166   "^DD",2,2, .331,3)
  10167   Enter name  in 'LAST, FIRST MIDD LE SUFFIX'  format, m ust be 3-3 5 characte rs in leng th.
  10168   "^DD",2,2, .331,20,0)
  10169   ^.3LA^1^1
  10170   "^DD",2,2, .331,20,1, 0)
  10171   EC1
  10172   "^DD",2,2, .331,21,0)
  10173   ^^4^4^2861 117^^^
  10174   "^DD",2,2, .331,21,1, 0)
  10175   Enter the  primary em ergency co ntact's na me in 'LAS T,FIRST MI DDLE SUFFI X' format.
  10176   "^DD",2,2, .331,21,2, 0)
  10177   This value  must be 3 -35 charac ters in le ngth and m ay contain  only uppe rcase
  10178   "^DD",2,2, .331,21,3, 0)
  10179   alpha char acters, sp aces, apos trophes, h yphens and  one comma .  All oth er
  10180   "^DD",2,2, .331,21,4, 0)
  10181   characters  and paren thetical t ext will b e removed.
  10182   "^DD",2,2, .331,"DT")
  10183   3170929
  10184   "^DD",2,2, .332,0)
  10185   E-RELATION SHIP TO PA TIENT^FX^^ .33;2^K:$L (X)>30!($L (X)<2) X I  $D(X) S D FN=DA D E1 ^DGLOCK2
  10186   "^DD",2,2, .332,.1)
  10187  
  10188   "^DD",2,2, .332,1,0)
  10189   ^.1
  10190   "^DD",2,2, .332,1,991 ,0)
  10191   2^AVAFC332 ^MUMPS
  10192   "^DD",2,2, .332,1,991 ,1)
  10193   I ($T(AVAF C^VAFCDD01 )'="") S V AFCF=".332 ;",VAFCEPI C=1 D AVAF C^VAFCDD01 (DA)
  10194   "^DD",2,2, .332,1,991 ,2)
  10195   I ($T(AVAF C^VAFCDD01 )'="") S V AFCF=".332 ;",VAFCEPI C=1 D AVAF C^VAFCDD01 (DA)
  10196   "^DD",2,2, .332,1,991 ,"%D",0)
  10197   ^.101^19^1 9^3170929^ ^
  10198   "^DD",2,2, .332,1,991 ,"%D",1,0)
  10199   This cross  reference  is used t o remember  that chan ges were m ade to the  
  10200   "^DD",2,2, .332,1,991 ,"%D",2,0)
  10201   PATIENT fi le (#2) ou tside of t he Registr ation proc ess.  Exec ution of t his 
  10202   "^DD",2,2, .332,1,991 ,"%D",3,0)
  10203   cross refe rence will  create an  entry in  the ADT/HL 7 PIVOT fi le (#391.7 1) 
  10204   "^DD",2,2, .332,1,991 ,"%D",4,0)
  10205   and mark i t as requi ring trans mission of  an HL7 AD T-A08 mess age.  
  10206   "^DD",2,2, .332,1,991 ,"%D",5,0)
  10207                                       
  10208   "^DD",2,2, .332,1,991 ,"%D",6,0)
  10209   The local  variable V AFCFLG wil l be set t o 1 if the  cross ref erence is  not 
  10210   "^DD",2,2, .332,1,991 ,"%D",7,0)
  10211   executed b ecause the  change is  being mad e from wit hin the Re gistration  
  10212   "^DD",2,2, .332,1,991 ,"%D",8,0)
  10213   process.
  10214   "^DD",2,2, .332,1,991 ,"%D",9,0)
  10215    
  10216   "^DD",2,2, .332,1,991 ,"%D",10,0 )
  10217   Execution  of this cr oss refere nce can be  prevented  by settin g the loca
  10218   "^DD",2,2, .332,1,991 ,"%D",11,0 )
  10219   variable V AFCA08 equ al to 1.  
  10220   "^DD",2,2, .332,1,991 ,"%D",12,0 )
  10221                                        
  10222   "^DD",2,2, .332,1,991 ,"%D",13,0 )
  10223   The local  variable V AFCF is us ed to iden tify the f ield edite d.  This d ata 
  10224   "^DD",2,2, .332,1,991 ,"%D",14,0 )
  10225   is stored  in the FIE LD(S) EDIT ED (#2.1)  field in t he ADT/HL7  PIVOT fil
  10226   "^DD",2,2, .332,1,991 ,"%D",15,0 )
  10227   (#391.71).
  10228   "^DD",2,2, .332,1,991 ,"%D",16,0 )
  10229    
  10230   "^DD",2,2, .332,1,991 ,"%D",17,0 )
  10231   The local  variable V AFCEPIC is  set to 1  to stop th e existing  output of  
  10232   "^DD",2,2, .332,1,991 ,"%D",18,0 )
  10233   messages t o MPI when  the updat e to this  field is f or the MAS S to Epic 
  10234   "^DD",2,2, .332,1,991 ,"%D",19,0 )
  10235   transmissi on only.
  10236   "^DD",2,2, .332,1,991 ,"DT")
  10237   3170929
  10238   "^DD",2,2, .332,3)
  10239   Enter the  relationsh ip of the  emergency  contact to  the patie nt [3-35 c haracters] .
  10240   "^DD",2,2, .332,20,0)
  10241   ^.3LA^1^1
  10242   "^DD",2,2, .332,20,1, 0)
  10243   EC1
  10244   "^DD",2,2, .332,21,0)
  10245   ^^4^4^2861 007^
  10246   "^DD",2,2, .332,21,1, 0)
  10247   If a prima ry emergen cy contact  is specif ied enter  the relati onship
  10248   "^DD",2,2, .332,21,2, 0)
  10249   of that pe rson to th e applican t [3-35 ch aracters],  otherwise  nothing
  10250   "^DD",2,2, .332,21,3, 0)
  10251   may be ent ered.  Thi s field ca nnot be de leted as l ong as a p rimary
  10252   "^DD",2,2, .332,21,4, 0)
  10253   emergency  contact is  on file.
  10254   "^DD",2,2, .332,"DEL" ,1,0)
  10255   S DFN=DA D  E1D^DGLOC K2 I '$D(X )
  10256   "^DD",2,2, .332,"DT")
  10257   3170929
  10258   "^DD",2,2, .333,0)
  10259   E-STREET A DDRESS [LI NE 1]^FX^^ .33;3^K:X[ """"!($A(X )=45) X I  $D(X) K:$L (X)>30!($L (X)<3) X I  $D(X) S D FN=DA D E1 ^DGLOCK2
  10260   "^DD",2,2, .333,.1)
  10261  
  10262   "^DD",2,2, .333,1,0)
  10263   ^.1
  10264   "^DD",2,2, .333,1,1,0 )
  10265   2^AXR24^MU MPS
  10266   "^DD",2,2, .333,1,1,1 )
  10267   Q
  10268   "^DD",2,2, .333,1,1,2 )
  10269   S DGXRF=.3 33 D ^DGDD C Q
  10270   "^DD",2,2, .333,1,991 ,0)
  10271   2^AVAFC333 ^MUMPS
  10272   "^DD",2,2, .333,1,991 ,1)
  10273   I ($T(AVAF C^VAFCDD01 )'="") S V AFCF=".333 ;",VAFCEPI C=1 D AVAF C^VAFCDD01 (DA)
  10274   "^DD",2,2, .333,1,991 ,2)
  10275   I ($T(AVAF C^VAFCDD01 )'="") S V AFCF=".333 ;",VAFCEPI C=1 D AVAF C^VAFCDD01 (DA)
  10276   "^DD",2,2, .333,1,991 ,"%D",0)
  10277   ^.101^19^1 9^3170929^ ^
  10278   "^DD",2,2, .333,1,991 ,"%D",1,0)
  10279   This cross  reference  is used t o remember  that chan ges were m ade to the  
  10280   "^DD",2,2, .333,1,991 ,"%D",2,0)
  10281   PATIENT fi le (#2) ou tside of t he Registr ation proc ess.  Exec ution of t his 
  10282   "^DD",2,2, .333,1,991 ,"%D",3,0)
  10283   cross refe rence will  create an  entry in  the ADT/HL 7 PIVOT fi le (#391.7 1) 
  10284   "^DD",2,2, .333,1,991 ,"%D",4,0)
  10285   and mark i t as requi ring trans mission of  an HL7 AD T-A08 mess age.  
  10286   "^DD",2,2, .333,1,991 ,"%D",5,0)
  10287                                       
  10288   "^DD",2,2, .333,1,991 ,"%D",6,0)
  10289   The local  variable V AFCFLG wil l be set t o 1 if the  cross ref erence is  not 
  10290   "^DD",2,2, .333,1,991 ,"%D",7,0)
  10291   executed b ecause the  change is  being mad e from wit hin the Re gistration  
  10292   "^DD",2,2, .333,1,991 ,"%D",8,0)
  10293   process.
  10294   "^DD",2,2, .333,1,991 ,"%D",9,0)
  10295    
  10296   "^DD",2,2, .333,1,991 ,"%D",10,0 )
  10297   Execution  of this cr oss refere nce can be  prevented  by settin g the loca
  10298   "^DD",2,2, .333,1,991 ,"%D",11,0 )
  10299   variable V AFCA08 equ al to 1.  
  10300   "^DD",2,2, .333,1,991 ,"%D",12,0 )
  10301                                        
  10302   "^DD",2,2, .333,1,991 ,"%D",13,0 )
  10303   The local  variable V AFCF is us ed to iden tify the f ield edite d.  This d ata 
  10304   "^DD",2,2, .333,1,991 ,"%D",14,0 )
  10305   is stored  in the FIE LD(S) EDIT ED (#2.1)  field in t he ADT/HL7  PIVOT fil
  10306   "^DD",2,2, .333,1,991 ,"%D",15,0 )
  10307   (#391.71).
  10308   "^DD",2,2, .333,1,991 ,"%D",16,0 )
  10309    
  10310   "^DD",2,2, .333,1,991 ,"%D",17,0 )
  10311   The local  variable V AFCEPIC is  set to 1  to stop th e existing  output of  
  10312   "^DD",2,2, .333,1,991 ,"%D",18,0 )
  10313   messages t o MPI when  the updat e to this  field is f or the MAS S to Epic 
  10314   "^DD",2,2, .333,1,991 ,"%D",19,0 )
  10315   transmissi on only.
  10316   "^DD",2,2, .333,1,991 ,"DT")
  10317   3170929
  10318   "^DD",2,2, .333,3)
  10319   Enter the  first line  of the em ergency co ntacts str eet addres s [3-30 ch aracters].
  10320   "^DD",2,2, .333,20,0)
  10321   ^.3LA^1^1
  10322   "^DD",2,2, .333,20,1, 0)
  10323   EC1
  10324   "^DD",2,2, .333,21,0)
  10325   ^^4^4^2861 117^^
  10326   "^DD",2,2, .333,21,1, 0)
  10327   If a prima ry emergen cy contact  is specif ied enter  the first  line
  10328   "^DD",2,2, .333,21,2, 0)
  10329   of that pe rson's str eet addres s [3-30 ch aracters],  otherwise
  10330   "^DD",2,2, .333,21,3, 0)
  10331   nothing ma y be enter ed.  This  field cann ot be dele ted as lon g as
  10332   "^DD",2,2, .333,21,4, 0)
  10333   a primary  emergency  contact is  on file.
  10334   "^DD",2,2, .333,"DEL" ,1,0)
  10335   S DFN=DA D  E1D^DGLOC K2 I '$D(X )
  10336   "^DD",2,2, .333,"DT")
  10337   3170929
  10338   "^DD",2,2, .334,0)
  10339   E-STREET A DDRESS [LI NE 2]^FX^^ .33;4^K:X[ """"!($A(X )=45) X I  $D(X) K:$L (X)>30!($L (X)<3) X I  $D(X) S D FN=DA D E1 ^DGLOCK2
  10340   "^DD",2,2, .334,.1)
  10341  
  10342   "^DD",2,2, .334,1,0)
  10343   ^.1
  10344   "^DD",2,2, .334,1,1,0 )
  10345   2^AXR25^MU MPS
  10346   "^DD",2,2, .334,1,1,1 )
  10347   Q
  10348   "^DD",2,2, .334,1,1,2 )
  10349   S DGXRF=.3 34 D ^DGDD C Q
  10350   "^DD",2,2, .334,1,991 ,0)
  10351   2^AVAFC334 ^MUMPS
  10352   "^DD",2,2, .334,1,991 ,1)
  10353   I ($T(AVAF C^VAFCDD01 )'="") S V AFCF=".334 ;",VAFCEPI C=1 D AVAF C^VAFCDD01 (DA)
  10354   "^DD",2,2, .334,1,991 ,2)
  10355   I ($T(AVAF C^VAFCDD01 )'="") S V AFCF=".334 ;",VAFCEPI C=1 D AVAF C^VAFCDD01 (DA)
  10356   "^DD",2,2, .334,1,991 ,"%D",0)
  10357   ^.101^19^1 9^3170929^ ^
  10358   "^DD",2,2, .334,1,991 ,"%D",1,0)
  10359   This cross  reference  is used t o remember  that chan ges were m ade to the  
  10360   "^DD",2,2, .334,1,991 ,"%D",2,0)
  10361   PATIENT fi le (#2) ou tside of t he Registr ation proc ess.  Exec ution of t his 
  10362   "^DD",2,2, .334,1,991 ,"%D",3,0)
  10363   cross refe rence will  create an  entry in  the ADT/HL 7 PIVOT fi le (#391.7 1) 
  10364   "^DD",2,2, .334,1,991 ,"%D",4,0)
  10365   and mark i t as requi ring trans mission of  an HL7 AD T-A08 mess age.  
  10366   "^DD",2,2, .334,1,991 ,"%D",5,0)
  10367                                       
  10368   "^DD",2,2, .334,1,991 ,"%D",6,0)
  10369   The local  variable V AFCFLG wil l be set t o 1 if the  cross ref erence is  not 
  10370   "^DD",2,2, .334,1,991 ,"%D",7,0)
  10371   executed b ecause the  change is  being mad e from wit hin the Re gistration  
  10372   "^DD",2,2, .334,1,991 ,"%D",8,0)
  10373   process.
  10374   "^DD",2,2, .334,1,991 ,"%D",9,0)
  10375    
  10376   "^DD",2,2, .334,1,991 ,"%D",10,0 )
  10377   Execution  of this cr oss refere nce can be  prevented  by settin g the loca
  10378   "^DD",2,2, .334,1,991 ,"%D",11,0 )
  10379   variable V AFCA08 equ al to 1.  
  10380   "^DD",2,2, .334,1,991 ,"%D",12,0 )
  10381                                        
  10382   "^DD",2,2, .334,1,991 ,"%D",13,0 )
  10383   The local  variable V AFCF is us ed to iden tify the f ield edite d.  This d ata 
  10384   "^DD",2,2, .334,1,991 ,"%D",14,0 )
  10385   is stored  in the FIE LD(S) EDIT ED (#2.1)  field in t he ADT/HL7  PIVOT fil
  10386   "^DD",2,2, .334,1,991 ,"%D",15,0 )
  10387   (#391.71).
  10388   "^DD",2,2, .334,1,991 ,"%D",16,0 )
  10389    
  10390   "^DD",2,2, .334,1,991 ,"%D",17,0 )
  10391   The local  variable V AFCEPIC is  set to 1  to stop th e existing  output of  
  10392   "^DD",2,2, .334,1,991 ,"%D",18,0 )
  10393   messages t o MPI when  the updat e to this  field is f or the MAS S to Epic 
  10394   "^DD",2,2, .334,1,991 ,"%D",19,0 )
  10395   transmissi on only.
  10396   "^DD",2,2, .334,1,991 ,"DT")
  10397   3170929
  10398   "^DD",2,2, .334,3)
  10399   Enter the  second lin e of the e mergency c ontacts st reet addre ss [3-30 c haracters] .
  10400   "^DD",2,2, .334,20,0)
  10401   ^.3LA^1^1
  10402   "^DD",2,2, .334,20,1, 0)
  10403   EC1
  10404   "^DD",2,2, .334,21,0)
  10405   ^^4^4^2861 117^^
  10406   "^DD",2,2, .334,21,1, 0)
  10407   If a prima ry emergen cy contact  is specif ied enter  the second  line
  10408   "^DD",2,2, .334,21,2, 0)
  10409   of that pe rson's str eet addres s [3-30 ch aracters],  if necess ary,
  10410   "^DD",2,2, .334,21,3, 0)
  10411   otherwise  nothing ma y be enter ed.  This  field cann ot be dele ted as
  10412   "^DD",2,2, .334,21,4, 0)
  10413   long as a  primary em ergency co ntact is o n file.
  10414   "^DD",2,2, .334,"DT")
  10415   3170929
  10416   "^DD",2,2, .335,0)
  10417   E-STREET A DDRESS [LI NE 3]^FX^^ .33;5^K:$L (X)>30!($L (X)<3) X I  $D(X) S D FN=DA D E1 ^DGLOCK2
  10418   "^DD",2,2, .335,.1)
  10419  
  10420   "^DD",2,2, .335,1,0)
  10421   ^.1
  10422   "^DD",2,2, .335,1,991 ,0)
  10423   2^AVAFC335 ^MUMPS
  10424   "^DD",2,2, .335,1,991 ,1)
  10425   I ($T(AVAF C^VAFCDD01 )'="") S V AFCF=".335 ;",VAFCEPI C=1 D AVAF C^VAFCDD01 (DA)
  10426   "^DD",2,2, .335,1,991 ,2)
  10427   I ($T(AVAF C^VAFCDD01 )'="") S V AFCF=".335 ;",VAFCEPI C=1 D AVAF C^VAFCDD01 (DA)
  10428   "^DD",2,2, .335,1,991 ,"%D",0)
  10429   ^.101^19^1 9^3170929^ ^
  10430   "^DD",2,2, .335,1,991 ,"%D",1,0)
  10431   his cross  reference  is used to  remember  that chang es were ma de to the 
  10432   "^DD",2,2, .335,1,991 ,"%D",2,0)
  10433   PATIENT fi le (#2) ou tside of t he Registr ation proc ess.  Exec ution of t his 
  10434   "^DD",2,2, .335,1,991 ,"%D",3,0)
  10435   cross refe rence will  create an  entry in  the ADT/HL 7 PIVOT fi le (#391.7 1) 
  10436   "^DD",2,2, .335,1,991 ,"%D",4,0)
  10437   and mark i t as requi ring trans mission of  an HL7 AD T-A08 mess age.  
  10438   "^DD",2,2, .335,1,991 ,"%D",5,0)
  10439                                       
  10440   "^DD",2,2, .335,1,991 ,"%D",6,0)
  10441   The local  variable V AFCFLG wil l be set t o 1 if the  cross ref erence is  not 
  10442   "^DD",2,2, .335,1,991 ,"%D",7,0)
  10443   executed b ecause the  change is  being mad e from wit hin the Re gistration  
  10444   "^DD",2,2, .335,1,991 ,"%D",8,0)
  10445   process.
  10446   "^DD",2,2, .335,1,991 ,"%D",9,0)
  10447    
  10448   "^DD",2,2, .335,1,991 ,"%D",10,0 )
  10449   Execution  of this cr oss refere nce can be  prevented  by settin g the loca
  10450   "^DD",2,2, .335,1,991 ,"%D",11,0 )
  10451   variable V AFCA08 equ al to 1.  
  10452   "^DD",2,2, .335,1,991 ,"%D",12,0 )
  10453                                        
  10454   "^DD",2,2, .335,1,991 ,"%D",13,0 )
  10455   The local  variable V AFCF is us ed to iden tify the f ield edite d.  This d ata 
  10456   "^DD",2,2, .335,1,991 ,"%D",14,0 )
  10457   is stored  in the FIE LD(S) EDIT ED (#2.1)  field in t he ADT/HL7  PIVOT fil
  10458   "^DD",2,2, .335,1,991 ,"%D",15,0 )
  10459   (#391.71).
  10460   "^DD",2,2, .335,1,991 ,"%D",16,0 )
  10461    
  10462   "^DD",2,2, .335,1,991 ,"%D",17,0 )
  10463   The local  variable V AFCEPIC is  set to 1  to stop th e existing  output of  
  10464   "^DD",2,2, .335,1,991 ,"%D",18,0 )
  10465   messages t o MPI when  the updat e to this  field is f or the MAS S to Epic 
  10466   "^DD",2,2, .335,1,991 ,"%D",19,0 )
  10467   transmissi on only.
  10468   "^DD",2,2, .335,1,991 ,"DT")
  10469   3170929
  10470   "^DD",2,2, .335,3)
  10471   Enter the  third line  of the em ergency co ntacts add ress [3-30  character s].
  10472   "^DD",2,2, .335,20,0)
  10473   ^.3LA^1^1
  10474   "^DD",2,2, .335,20,1, 0)
  10475   EC1
  10476   "^DD",2,2, .335,21,0)
  10477   ^^4^4^2861 117^^
  10478   "^DD",2,2, .335,21,1, 0)
  10479   If a prima ry emergen cy contact  is specif ied enter  the third  line
  10480   "^DD",2,2, .335,21,2, 0)
  10481   of that pe rson's str eet addres s [3-30 ch aracters],  if necess ary,
  10482   "^DD",2,2, .335,21,3, 0)
  10483   otherwise  nothing ma y be enter ed.  This  field cann ot be dele ted as
  10484   "^DD",2,2, .335,21,4, 0)
  10485   long as a  primary em ergency co ntact is o n file.
  10486   "^DD",2,2, .335,"DT")
  10487   3170929
  10488   "^DD",2,2, .336,0)
  10489   E-CITY^FX^ ^.33;6^K:$ L(X)>30!($ L(X)<3) X  I $D(X) S  DFN=DA D E 1^DGLOCK2
  10490   "^DD",2,2, .336,1,0)
  10491   ^.1
  10492   "^DD",2,2, .336,1,991 ,0)
  10493   2^AVAFC336 ^MUMPS
  10494   "^DD",2,2, .336,1,991 ,1)
  10495   I ($T(AVAF C^VAFCDD01 )'="") S V AFCF=".336 ;",VAFCEPI C=1 D AVAF C^VAFCDD01 (DA)
  10496   "^DD",2,2, .336,1,991 ,2)
  10497   I ($T(AVAF C^VAFCDD01 )'="") S V AFCF=".336 ;",VAFCEPI C=1 D AVAF C^VAFCDD01 (DA)
  10498   "^DD",2,2, .336,1,991 ,"%D",0)
  10499   ^.101^19^1 9^3170929^ ^
  10500   "^DD",2,2, .336,1,991 ,"%D",1,0)
  10501   This cross  reference  is used t o remember  that chan ges were m ade to the  
  10502   "^DD",2,2, .336,1,991 ,"%D",2,0)
  10503   PATIENT fi le (#2) ou tside of t he Registr ation proc ess.  Exec ution of t his 
  10504   "^DD",2,2, .336,1,991 ,"%D",3,0)
  10505   cross refe rence will  create an  entry in  the ADT/HL 7 PIVOT fi le (#391.7 1) 
  10506   "^DD",2,2, .336,1,991 ,"%D",4,0)
  10507   and mark i t as requi ring trans mission of  an HL7 AD T-A08 mess age.  
  10508   "^DD",2,2, .336,1,991 ,"%D",5,0)
  10509                                       
  10510   "^DD",2,2, .336,1,991 ,"%D",6,0)
  10511   The local  variable V AFCFLG wil l be set t o 1 if the  cross ref erence is  not 
  10512   "^DD",2,2, .336,1,991 ,"%D",7,0)
  10513   executed b ecause the  change is  being mad e from wit hin the Re gistration  
  10514   "^DD",2,2, .336,1,991 ,"%D",8,0)
  10515   process.
  10516   "^DD",2,2, .336,1,991 ,"%D",9,0)
  10517    
  10518   "^DD",2,2, .336,1,991 ,"%D",10,0 )
  10519   Execution  of this cr oss refere nce can be  prevented  by settin g the loca
  10520   "^DD",2,2, .336,1,991 ,"%D",11,0 )
  10521   variable V AFCA08 equ al to 1.  
  10522   "^DD",2,2, .336,1,991 ,"%D",12,0 )
  10523                                        
  10524   "^DD",2,2, .336,1,991 ,"%D",13,0 )
  10525   The local  variable V AFCF is us ed to iden tify the f ield edite d.  This d ata 
  10526   "^DD",2,2, .336,1,991 ,"%D",14,0 )
  10527   is stored  in the FIE LD(S) EDIT ED (#2.1)  field in t he ADT/HL7  PIVOT fil
  10528   "^DD",2,2, .336,1,991 ,"%D",15,0 )
  10529   (#391.71).
  10530   "^DD",2,2, .336,1,991 ,"%D",16,0 )
  10531    
  10532   "^DD",2,2, .336,1,991 ,"%D",17,0 )
  10533   The local  variable V AFCEPIC is  set to 1  to stop th e existing  output of  
  10534   "^DD",2,2, .336,1,991 ,"%D",18,0 )
  10535   messages t o MPI when  the updat e to this  field is f or the MAS S to Epic 
  10536   "^DD",2,2, .336,1,991 ,"%D",19,0 )
  10537   transmissi on only.
  10538   "^DD",2,2, .336,1,991 ,"DT")
  10539   3170929
  10540   "^DD",2,2, .336,3)
  10541   Enter the  city in wh ich the em ergency co ntact resi des [3-30  characters ].
  10542   "^DD",2,2, .336,20,0)
  10543   ^.3LA^1^1
  10544   "^DD",2,2, .336,20,1, 0)
  10545   EC1
  10546   "^DD",2,2, .336,21,0)
  10547   ^^4^4^2861 007^^
  10548   "^DD",2,2, .336,21,1, 0)
  10549   If a prima ry emergen cy contact  is specif ied enter  the city i n
  10550   "^DD",2,2, .336,21,2, 0)
  10551   which that  person re sides [3-3 0 characte rs], other wise nothi ng
  10552   "^DD",2,2, .336,21,3, 0)
  10553   may be ent ered.  Thi s field ca nnot be de leted as l ong as a
  10554   "^DD",2,2, .336,21,4, 0)
  10555   primary em ergency co ntact is o n file.
  10556   "^DD",2,2, .336,"DEL" ,1,0)
  10557   S DFN=DA D  E1D^DGLOC K2 I '$D(X )
  10558   "^DD",2,2, .336,"DT")
  10559   3170929
  10560   "^DD",2,2, .337,0)
  10561   E-STATE^P5 'X^DIC(5,^ .33;7^I $D (X) S DFN= DA D E1^DG LOCK2
  10562   "^DD",2,2, .337,1,0)
  10563   ^.1
  10564   "^DD",2,2, .337,1,991 ,0)
  10565   2^AVAFC337 ^MUMPS
  10566   "^DD",2,2, .337,1,991 ,1)
  10567   I ($T(AVAF C^VAFCDD01 )'="") S V AFCF=".337 ;",VAFCEPI C=1 D AVAF C^VAFCDD01 (DA)
  10568   "^DD",2,2, .337,1,991 ,2)
  10569   I ($T(AVAF C^VAFCDD01 )'="") S V AFCF=".337 ;",VAFCEPI C=1 D AVAF C^VAFCDD01 (DA)
  10570   "^DD",2,2, .337,1,991 ,"%D",0)
  10571   ^.101^19^1 9^3170929^ ^
  10572   "^DD",2,2, .337,1,991 ,"%D",1,0)
  10573   This cross  reference  is used t o remember  that chan ges were m ade to the  
  10574   "^DD",2,2, .337,1,991 ,"%D",2,0)
  10575   PATIENT fi le (#2) ou tside of t he Registr ation proc ess.  Exec ution of t his 
  10576   "^DD",2,2, .337,1,991 ,"%D",3,0)
  10577   cross refe rence will  create an  entry in  the ADT/HL 7 PIVOT fi le (#391.7 1) 
  10578   "^DD",2,2, .337,1,991 ,"%D",4,0)
  10579   and mark i t as requi ring trans mission of  an HL7 AD T-A08 mess age.  
  10580   "^DD",2,2, .337,1,991 ,"%D",5,0)
  10581                                       
  10582   "^DD",2,2, .337,1,991 ,"%D",6,0)
  10583   The local  variable V AFCFLG wil l be set t o 1 if the  cross ref erence is  not 
  10584   "^DD",2,2, .337,1,991 ,"%D",7,0)
  10585   executed b ecause the  change is  being mad e from wit hin the Re gistration  
  10586   "^DD",2,2, .337,1,991 ,"%D",8,0)
  10587   process.
  10588   "^DD",2,2, .337,1,991 ,"%D",9,0)
  10589    
  10590   "^DD",2,2, .337,1,991 ,"%D",10,0 )
  10591   Execution  of this cr oss refere nce can be  prevented  by settin g the loca
  10592   "^DD",2,2, .337,1,991 ,"%D",11,0 )
  10593   variable V AFCA08 equ al to 1.  
  10594   "^DD",2,2, .337,1,991 ,"%D",12,0 )
  10595                                        
  10596   "^DD",2,2, .337,1,991 ,"%D",13,0 )
  10597   The local  variable V AFCF is us ed to iden tify the f ield edite d.  This d ata 
  10598   "^DD",2,2, .337,1,991 ,"%D",14,0 )
  10599   is stored  in the FIE LD(S) EDIT ED (#2.1)  field in t he ADT/HL7  PIVOT fil
  10600   "^DD",2,2, .337,1,991 ,"%D",15,0 )
  10601   (#391.71).
  10602   "^DD",2,2, .337,1,991 ,"%D",16,0 )
  10603    
  10604   "^DD",2,2, .337,1,991 ,"%D",17,0 )
  10605   The local  variable V AFCEPIC is  set to 1  to stop th e existing  output of  
  10606   "^DD",2,2, .337,1,991 ,"%D",18,0 )
  10607   messages t o MPI when  the updat e to this  field is f or the MAS S to Epic 
  10608   "^DD",2,2, .337,1,991 ,"%D",19,0 )
  10609   transmissi on only.
  10610   "^DD",2,2, .337,1,991 ,"DT")
  10611   3170929
  10612   "^DD",2,2, .337,3)
  10613   Select fro m the list ing the st ate in whc ih the eme rgency con tact resid es.
  10614   "^DD",2,2, .337,20,0)
  10615   ^.3LA^1^1
  10616   "^DD",2,2, .337,20,1, 0)
  10617   EC1
  10618   "^DD",2,2, .337,21,0)
  10619   ^^4^4^2861 007^
  10620   "^DD",2,2, .337,21,1, 0)
  10621   If a prima ry emergen cy contact  is specif ied select  from the
  10622   "^DD",2,2, .337,21,2, 0)
  10623   available  listing th e state in  which tha t person r esides,
  10624   "^DD",2,2, .337,21,3, 0)
  10625   otherwise  nothing ma y be enter ed.  This  field cann ot be dele ted
  10626   "^DD",2,2, .337,21,4, 0)
  10627   as long as  a primary  emergency  contact i s on file.
  10628   "^DD",2,2, .337,"DEL" ,1,0)
  10629   S DFN=DA D  E1D^DGLOC K2 I '$D(X )
  10630   "^DD",2,2, .337,"DT")
  10631   3170929
  10632   "^DD",2,2, .338,0)
  10633   E-ZIP CODE ^FX^^.33;8 ^K:X[""""! ($A(X)=45)  X I $D(X)  K:$L(X)>5 !($L(X)<5) !'(X?5N) X  I $D(X) S  DFN=DA D  E1^DGLOCK2
  10634   "^DD",2,2, .338,.1)
  10635  
  10636   "^DD",2,2, .338,1,0)
  10637   ^.1
  10638   "^DD",2,2, .338,1,1,0 )
  10639   2^AEC1ZIP^ MUMPS
  10640   "^DD",2,2, .338,1,1,1 )
  10641   D SET^DGRE GDD1(DA,.2 201,.22,1, X)
  10642   "^DD",2,2, .338,1,1,2 )
  10643   D KILL^DGR EGDD1(DA,2 201,.22,1, X)
  10644   "^DD",2,2, .338,1,1," %D",0)
  10645   ^^2^2^2930 603^
  10646   "^DD",2,2, .338,1,1," %D",1,0)
  10647   This sets  the corres ponding zi p+4 field  to be equa l to 
  10648   "^DD",2,2, .338,1,1," %D",2,0)
  10649   this field 's value.
  10650   "^DD",2,2, .338,1,1," DT")
  10651   2930603
  10652   "^DD",2,2, .338,1,991 ,0)
  10653   2^AVAFC338 ^MUMPS
  10654   "^DD",2,2, .338,1,991 ,1)
  10655   I ($T(AVAF C^VAFCDD01 )'="") S V AFCF=".338 ;",VAFCEPI C=1 D AVAF C^VAFCDD01 (DA)
  10656   "^DD",2,2, .338,1,991 ,2)
  10657   I ($T(AVAF C^VAFCDD01 )'="") S V AFCF=".338 ;",VAFCEPI C=1 D AVAF C^VAFCDD01 (DA)
  10658   "^DD",2,2, .338,1,991 ,"%D",0)
  10659   ^.101^19^1 9^3170929^ ^
  10660   "^DD",2,2, .338,1,991 ,"%D",1,0)
  10661   This cross  reference  is used t o remember  that chan ges were m ade to the  
  10662   "^DD",2,2, .338,1,991 ,"%D",2,0)
  10663   PATIENT fi le (#2) ou tside of t he Registr ation proc ess.  Exec ution of t his 
  10664   "^DD",2,2, .338,1,991 ,"%D",3,0)
  10665   cross refe rence will  create an  entry in  the ADT/HL 7 PIVOT fi le (#391.7 1) 
  10666   "^DD",2,2, .338,1,991 ,"%D",4,0)
  10667   and mark i t as requi ring trans mission of  an HL7 AD T-A08 mess age.  
  10668   "^DD",2,2, .338,1,991 ,"%D",5,0)
  10669                                       
  10670   "^DD",2,2, .338,1,991 ,"%D",6,0)
  10671   The local  variable V AFCFLG wil l be set t o 1 if the  cross ref erence is  not 
  10672   "^DD",2,2, .338,1,991 ,"%D",7,0)
  10673   executed b ecause the  change is  being mad e from wit hin the Re gistration  
  10674   "^DD",2,2, .338,1,991 ,"%D",8,0)
  10675   process.
  10676   "^DD",2,2, .338,1,991 ,"%D",9,0)
  10677    
  10678   "^DD",2,2, .338,1,991 ,"%D",10,0 )
  10679   Execution  of this cr oss refere nce can be  prevented  by settin g the loca
  10680   "^DD",2,2, .338,1,991 ,"%D",11,0 )
  10681   variable V AFCA08 equ al to 1.  
  10682   "^DD",2,2, .338,1,991 ,"%D",12,0 )
  10683                                        
  10684   "^DD",2,2, .338,1,991 ,"%D",13,0 )
  10685   The local  variable V AFCF is us ed to iden tify the f ield edite d.  This d ata 
  10686   "^DD",2,2, .338,1,991 ,"%D",14,0 )
  10687   is stored  in the FIE LD(S) EDIT ED (#2.1)  field in t he ADT/HL7  PIVOT fil
  10688   "^DD",2,2, .338,1,991 ,"%D",15,0 )
  10689   (#391.71).
  10690   "^DD",2,2, .338,1,991 ,"%D",16,0 )
  10691    
  10692   "^DD",2,2, .338,1,991 ,"%D",17,0 )
  10693   The local  variable V AFCEPIC is  set to 1  to stop th e existing  output of  
  10694   "^DD",2,2, .338,1,991 ,"%D",18,0 )
  10695   messages t o MPI when  the updat e to this  field is f or the MAS S to Epic 
  10696   "^DD",2,2, .338,1,991 ,"%D",19,0 )
  10697   transmissi on only.
  10698   "^DD",2,2, .338,1,991 ,"DT")
  10699   3170929
  10700   "^DD",2,2, .338,3)
  10701   Enter the  zip code a s five num erics of t he emergen cy contact .
  10702   "^DD",2,2, .338,20,0)
  10703   ^.3LA^1^1
  10704   "^DD",2,2, .338,20,1, 0)
  10705   EC1
  10706   "^DD",2,2, .338,21,0)
  10707   ^^4^4^2930 603^^^^
  10708   "^DD",2,2, .338,21,1, 0)
  10709   If a prima ry emergen cy contact  is specif ied enter  the zip co de
  10710   "^DD",2,2, .338,21,2, 0)
  10711   for the ci ty in whic h s/he res ides [5 nu merics], o therwise
  10712   "^DD",2,2, .338,21,3, 0)
  10713   nothing ma y be enter ed.  This  field cann ot be dele ted as lon g as
  10714   "^DD",2,2, .338,21,4, 0)
  10715   a primary  emergency  contact is  on file.
  10716   "^DD",2,2, .338,"DEL" ,1,0)
  10717   S DFN=DA D  E1D^DGLOC K2 I '$D(X )
  10718   "^DD",2,2, .338,"DT")
  10719   3170929
  10720   "^DD",2,2, .339,0)
  10721   E-PHONE NU MBER^FX^^. 33;9^K:$L( X)>20!($L( X)<3) X I  $D(X) S DF N=DA D E1^ DGLOCK2
  10722   "^DD",2,2, .339,.1)
  10723  
  10724   "^DD",2,2, .339,1,0)
  10725   ^.1
  10726   "^DD",2,2, .339,1,991 ,0)
  10727   2^AVAFC339 ^MUMPS
  10728   "^DD",2,2, .339,1,991 ,1)
  10729   I ($T(AVAF C^VAFCDD01 )'="") S V AFCF=".339 ;",VAFCEPI C=1 D AVAF C^VAFCDD01 (DA)
  10730   "^DD",2,2, .339,1,991 ,2)
  10731   I ($T(AVAF C^VAFCDD01 )'="") S V AFCF=".339 ;",VAFCEPI C=1 D AVAF C^VAFCDD01 (DA)
  10732   "^DD",2,2, .339,1,991 ,"%D",0)
  10733   ^.101^19^1 9^3170929^ ^
  10734   "^DD",2,2, .339,1,991 ,"%D",1,0)
  10735   This cross  reference  is used t o remember  that chan ges were m ade to the  
  10736   "^DD",2,2, .339,1,991 ,"%D",2,0)
  10737   PATIENT fi le (#2) ou tside of t he Registr ation proc ess.  Exec ution of t his 
  10738   "^DD",2,2, .339,1,991 ,"%D",3,0)
  10739   cross refe rence will  create an  entry in  the ADT/HL 7 PIVOT fi le (#391.7 1) 
  10740   "^DD",2,2, .339,1,991 ,"%D",4,0)
  10741   and mark i t as requi ring trans mission of  an HL7 AD T-A08 mess age.  
  10742   "^DD",2,2, .339,1,991 ,"%D",5,0)
  10743                                       
  10744   "^DD",2,2, .339,1,991 ,"%D",6,0)
  10745   The local  variable V AFCFLG wil l be set t o 1 if the  cross ref erence is  not 
  10746   "^DD",2,2, .339,1,991 ,"%D",7,0)
  10747   executed b ecause the  change is  being mad e from wit hin the Re gistration  
  10748   "^DD",2,2, .339,1,991 ,"%D",8,0)
  10749   process.
  10750   "^DD",2,2, .339,1,991 ,"%D",9,0)
  10751    
  10752   "^DD",2,2, .339,1,991 ,"%D",10,0 )
  10753   Execution  of this cr oss refere nce can be  prevented  by settin g the loca
  10754   "^DD",2,2, .339,1,991 ,"%D",11,0 )
  10755   variable V AFCA08 equ al to 1.  
  10756   "^DD",2,2, .339,1,991 ,"%D",12,0 )
  10757                                        
  10758   "^DD",2,2, .339,1,991 ,"%D",13,0 )
  10759   The local  variable V AFCF is us ed to iden tify the f ield edite d.  This d ata 
  10760   "^DD",2,2, .339,1,991 ,"%D",14,0 )
  10761   is stored  in the FIE LD(S) EDIT ED (#2.1)  field in t he ADT/HL7  PIVOT fil
  10762   "^DD",2,2, .339,1,991 ,"%D",15,0 )
  10763   (#391.71).
  10764   "^DD",2,2, .339,1,991 ,"%D",16,0 )
  10765    
  10766   "^DD",2,2, .339,1,991 ,"%D",17,0 )
  10767   The local  variable V AFCEPIC is  set to 1  to stop th e existing  output of  
  10768   "^DD",2,2, .339,1,991 ,"%D",18,0 )
  10769   messages t o MPI when  the updat e to this  field is f or the MAS S to Epic 
  10770   "^DD",2,2, .339,1,991 ,"%D",19,0 )
  10771   transmissi on only.
  10772   "^DD",2,2, .339,1,991 ,"DT")
  10773   3170929
  10774   "^DD",2,2, .339,3)
  10775   Enter the  phone numb er of the  emergency  contact [3 -20 charac ters].
  10776   "^DD",2,2, .339,20,0)
  10777   ^.3LA^1^1
  10778   "^DD",2,2, .339,20,1, 0)
  10779   EC1
  10780   "^DD",2,2, .339,21,0)
  10781   ^^4^4^2861 007^
  10782   "^DD",2,2, .339,21,1, 0)
  10783   If a prima ry emergen cy contact  is specif ied enter  the teleph one
  10784   "^DD",2,2, .339,21,2, 0)
  10785   number [3- 20 charact ers] at wh ich that p erson may  be reached ,
  10786   "^DD",2,2, .339,21,3, 0)
  10787   otherwise  nothing ma y be enter ed.  This  field cann ot be dele ted
  10788   "^DD",2,2, .339,21,4, 0)
  10789   as long as  a primary  emergency  contact i s on file.
  10790   "^DD",2,2, .339,"DT")
  10791   3170929
  10792   "^DD",2,2, .361,0)
  10793   PRIMARY EL IGIBILITY  CODE^*P8'X a^DIC(8,^. 36;1^S DFN =DA D EV^D GLOCK I $D (X) D ECD^ DGLOCK1
  10794   "^DD",2,2, .361,.1)
  10795  
  10796   "^DD",2,2, .361,1,0)
  10797   ^.1
  10798   "^DD",2,2, .361,1,1,0 )
  10799   2^AG^MUMPS
  10800   "^DD",2,2, .361,1,1,1 )
  10801   S DFN=DA D  EN^DGMTR  K DGREQF
  10802   "^DD",2,2, .361,1,1,2 )
  10803   Q
  10804   "^DD",2,2, .361,1,1," DT")
  10805   2920720
  10806   "^DD",2,2, .361,1,2,0 )
  10807   ^^TRIGGER^ 2.0361^.01
  10808   "^DD",2,2, .361,1,2,1 )
  10809   K DIV S DI V=X,D0=DA, DIV(0)=D0  X ^DD(2,.3 61,1,2,89. 4) S Y(102 )=$S($D(^D PT(D0,"E", D1,0)):^(0 ),1:"") S  X=$S('$D(^ DIC(8,+$P( Y(102),U,1 ),0)):"",1 :$P(^(0),U ,1)) S D0= I(0,0) S D 1=I(1,0) S  DIU=X K Y  S X=DIV S  X=DIV,X=X  X ^DD(2,. 361,1,2,1. 4)
  10810   "^DD",2,2, .361,1,2,1 .4)
  10811   S DIH=$S($ D(^DPT(DIV (0),"E",DI V(1),0)):^ (0),1:""), DIV=X I $D (^(0)) S $ P(^(0),U,1 )=DIV,DIH= 2.0361,DIG =.01 D ^DI CR:$O(^DD( DIH,DIG,1, 0))>0
  10812   "^DD",2,2, .361,1,2,2 )
  10813   K DIV S DI V=X,D0=DA, DIV(0)=D0  X ^DD(2,.3 61,1,2,2.2 ) I DIV(1) >0 S DIK(0 )=DA,DIK=" ^DPT(DIV(0 ),""E"",", DA(1)=DIV( 0),DA=DIV( 1) D ^DIK  S DA=DIK(0 ) K DIK
  10814   "^DD",2,2, .361,1,2,2 .2)
  10815   X ^DD(2,.3 61,1,2,99. 3) S X=$S( '$D(^DIC(8 ,+$P(Y(102 ),U,1),0)) :"",1:$P(^ (0),U,1))  S D0=I(0,0 ) S D1=I(1 ,0) S DIU= X K Y
  10816   "^DD",2,2, .361,1,2,3 )
  10817   This trigg er stuffs  the ELIGIB ILITY CODE  into the  PATIENT'S  ELIGIBILIT IES multip le.
  10818   "^DD",2,2, .361,1,2,8 9.2)
  10819   S I(0,0)=$ S($D(D0):D 0,1:""),I( 1,0)=$S($D (D1):D1,1: ""),Y(2)=$ S($D(^DPT( D0,.36)):^ (.36),1:"" ) S X="`", Y(1)=X S X =$P(Y(2),U ,1),X=X S  Y=X,X=Y(1) ,X=X S X=X
  10820   "^DD",2,2, .361,1,2,8 9.3)
  10821   X ^DD(2,.3 61,1,2,89. 2) S X=X_Y ,X=X S X=X
  10822   "^DD",2,2, .361,1,2,8 9.4)
  10823   X ^DD(2,.3 61,1,2,89. 3) K DIC S  Y=-1,DIC= "^DPT(D0," "E"",",DIC (0)="NMFL" ,DIC("P")= "2.0361P", DIU(1)=$S( $D(DA(1)): DA(1),1:0) ,DA(1)=D0  D ^DIC:D0> 0 S (D,D1, DIV(1))=+Y ,DA(1)=DIU (1)
  10824   "^DD",2,2, .361,1,2,9 9.2)
  10825   S I(0,0)=$ S($D(D0):D 0,1:""),I( 1,0)=$S($D (D1):D1,1: ""),Y(2)=D IV S X="`" ,Y(1)=X S  X=$P(Y(2), U,1),X=X S  Y=X,X=Y(1 ),X=X S X= X
  10826   "^DD",2,2, .361,1,2,9 9.3)
  10827   X ^DD(2,.3 61,1,2,99. 2) S X=X_Y  K DIC S Y =-1,DIC="^ DPT(D0,""E "",",DIC(0 )="NMF" D  ^DIC:D0>0  S (D,D1,DI V(1))=+Y S  Y(102)=$S ($D(^DPT(D 0,"E",D1,0 )):^(0),1: "")
  10828   "^DD",2,2, .361,1,2," CREATE VAL UE")
  10829   INTERNAL(E LIGIBILITY  CODE)
  10830   "^DD",2,2, .361,1,2," DELETE VAL UE")
  10831   @
  10832   "^DD",2,2, .361,1,2," DIC")
  10833   LOOKUP
  10834   "^DD",2,2, .361,1,2," DIK")
  10835   DELETE
  10836   "^DD",2,2, .361,1,2," FIELD")
  10837   "`"_INTERN AL(ELIGIBI LITY CODE) :#361:#.01
  10838   "^DD",2,2, .361,1,3,0 )
  10839   2^AXR28^MU MPS
  10840   "^DD",2,2, .361,1,3,1 )
  10841   Q
  10842   "^DD",2,2, .361,1,3,2 )
  10843   I $S('$D(^ DIC(8,+X,0 )):0,$P(^( 0),"^",1)[ "DOM":0,'$ D(^DPT(DA, .36)):1,'$ D(^DIC(8,+ ^(.36),0)) :1,$P(^(0) ,"^",1)'[" DOM":1,1:0 ) S DGXRF= .361 D ^DG DDC Q
  10844   "^DD",2,2, .361,1,3," %D",0)
  10845   ^^8^8^2920 429^
  10846   "^DD",2,2, .361,1,3," %D",1,0)
  10847   When the e ligibility  code is c hanged, th is cross-r eference r emoves the
  10848   "^DD",2,2, .361,1,3," %D",2,0)
  10849   data in th e ELIGIBIL ITY STATUS  field.  T his only o ccurs if n either the
  10850   "^DD",2,2, .361,1,3," %D",3,0)
  10851   original e ligibility  code nor  the new el igibility  code (the  one being
  10852   "^DD",2,2, .361,1,3," %D",4,0)
  10853   entered) i s DOM. PAT IENT.  If  either is  DOM. PATIE NT, no upd ate occurs .
  10854   "^DD",2,2, .361,1,3," %D",5,0)
  10855    
  10856   "^DD",2,2, .361,1,3," %D",6,0)
  10857   Since the  DOM. PATIE NT eligibi lity is be ing inacti vated with  MAS 5.2,
  10858   "^DD",2,2, .361,1,3," %D",7,0)
  10859   the condit ional on t his cross- reference  will be re moved in a  future 
  10860   "^DD",2,2, .361,1,3," %D",8,0)
  10861   version of  MAS.
  10862   "^DD",2,2, .361,1,3," DT")
  10863   2920429
  10864   "^DD",2,2, .361,1,4,0 )
  10865   2^AEL^MUMP S
  10866   "^DD",2,2, .361,1,4,1 )
  10867   S ^DPT("AE L",DA,+X)= ""
  10868   "^DD",2,2, .361,1,4,2 )
  10869   K ^DPT("AE L",DA,+X)
  10870   "^DD",2,2, .361,1,5,0 )
  10871   2^AENR361^ MUMPS
  10872   "^DD",2,2, .361,1,5,1 )
  10873   D AUTOUPD^ DGENA2(DA)
  10874   "^DD",2,2, .361,1,5,2 )
  10875   D AUTOUPD^ DGENA2(DA)
  10876   "^DD",2,2, .361,1,5,3 )
  10877   DO NOT DEL ETE
  10878   "^DD",2,2, .361,1,5," %D",0)
  10879   ^^2^2^2970 715^^
  10880   "^DD",2,2, .361,1,5," %D",1,0)
  10881   This cross -reference  is used t o update t he patient 's current  Patient E nrollment 
  10882   "^DD",2,2, .361,1,5," %D",2,0)
  10883   record.
  10884   "^DD",2,2, .361,1,5," DT")
  10885   2970715
  10886   "^DD",2,2, .361,1,991 ,0)
  10887   2^AVAFC361 ^MUMPS
  10888   "^DD",2,2, .361,1,991 ,1)
  10889   I ($T(AVAF C^VAFCDD01 )'="") S V AFCF=".361 ;",VAFCEPI C=1 D AVAF C^VAFCDD01 (DA)
  10890   "^DD",2,2, .361,1,991 ,2)
  10891   I ($T(AVAF C^VAFCDD01 )'="") S V AFCF=".361 ;",VAFCEPI C=1 D AVAF C^VAFCDD01 (DA)
  10892   "^DD",2,2, .361,1,991 ,"%D",0)
  10893   ^^19^19^31 70913^
  10894   "^DD",2,2, .361,1,991 ,"%D",1,0)
  10895   This cross  reference  is used t o remember  that chan ges were m ade to the  
  10896   "^DD",2,2, .361,1,991 ,"%D",2,0)
  10897   PATIENT fi le (#2) ou tside of t he Registr ation proc ess.  Exec ution of t his 
  10898   "^DD",2,2, .361,1,991 ,"%D",3,0)
  10899   cross refe rence will  create an  entry in  the ADT/HL 7 PIVOT fi le (#391.7 1) 
  10900   "^DD",2,2, .361,1,991 ,"%D",4,0)
  10901   and mark i t as requi ring trans mission of  an HL7 AD T-A08 mess age.  
  10902   "^DD",2,2, .361,1,991 ,"%D",5,0)
  10903                                       
  10904   "^DD",2,2, .361,1,991 ,"%D",6,0)
  10905   The local  variable V AFCFLG wil l be set t o 1 if the  cross ref erence is  not 
  10906   "^DD",2,2, .361,1,991 ,"%D",7,0)
  10907   executed b ecause the  change is  being mad e from wit hin the Re gistration  
  10908   "^DD",2,2, .361,1,991 ,"%D",8,0)
  10909   process.
  10910   "^DD",2,2, .361,1,991 ,"%D",9,0)
  10911    
  10912   "^DD",2,2, .361,1,991 ,"%D",10,0 )
  10913   Execution  of this cr oss refere nce can be  prevented  by settin g the loca
  10914   "^DD",2,2, .361,1,991 ,"%D",11,0 )
  10915   variable V AFCA08 equ al to 1.  
  10916   "^DD",2,2, .361,1,991 ,"%D",12,0 )
  10917                                        
  10918   "^DD",2,2, .361,1,991 ,"%D",13,0 )
  10919   The local  variable V AFCF is us ed to iden tify the f ield edite d.  This d ata 
  10920   "^DD",2,2, .361,1,991 ,"%D",14,0 )
  10921   is stored  in the FIE LD(S) EDIT ED (#2.1)  field in t he ADT/HL7  PIVOT fil
  10922   "^DD",2,2, .361,1,991 ,"%D",15,0 )
  10923   (#391.71).
  10924   "^DD",2,2, .361,1,991 ,"%D",16,0 )
  10925    
  10926   "^DD",2,2, .361,1,991 ,"%D",17,0 )
  10927   The local  variable V AFCEPIC is  set to 1  to stop th e existing  output of  
  10928   "^DD",2,2, .361,1,991 ,"%D",18,0 )
  10929   messages t o MPI when  the updat e to this  field is f or the MAS S to Epic 
  10930   "^DD",2,2, .361,1,991 ,"%D",19,0 )
  10931   transmissi on only.
  10932   "^DD",2,2, .361,1,991 ,"DT")
  10933   3170913
  10934   "^DD",2,2, .361,3)
  10935   Select fro m the avai lable list  the eligi bility cod e which be st defines  this appl icant's pr imary enti tlement to  care.  Fo r more det ailed info rmation, e nter ??.
  10936   "^DD",2,2, .361,12)
  10937   Applicable  code base d on veter an or non- veteran st atus.
  10938   "^DD",2,2, .361,12.1)
  10939   S DFN=DA D  ECD^DGLOC K1
  10940   "^DD",2,2, .361,20,0)
  10941   ^.3LA^1^1
  10942   "^DD",2,2, .361,20,1, 0)
  10943   ECD
  10944   "^DD",2,2, .361,21,0)
  10945   ^.001^45^4 5^3060321^ ^^^
  10946   "^DD",2,2, .361,21,1, 0)
  10947   Select fro m the avai lable list ing the ap propriate  eligibilit y code for
  10948   "^DD",2,2, .361,21,2, 0)
  10949   this appli cant.  For  non-veter an applica nts a wide  variety o f choices
  10950   "^DD",2,2, .361,21,3, 0)
  10951   are availa ble.  For  veteran ap plicants t he choices  are scree ned [in th e
  10952   "^DD",2,2, .361,21,4, 0)
  10953   following  order] dep endent on  the respon ses to oth er prompts :
  10954   "^DD",2,2, .361,21,5, 0)
  10955      
  10956   "^DD",2,2, .361,21,6, 0)
  10957   1.  If the  SERVICE C ONNECTED p rompt (fie ld .301) i s answered  YES
  10958   "^DD",2,2, .361,21,7, 0)
  10959       only t he followi ng two cho ices are a vailable:
  10960   "^DD",2,2, .361,21,8, 0)
  10961       
  10962   "^DD",2,2, .361,21,9, 0)
  10963       a.  If  the SERVI CE CONNECT ED PERCENT AGE prompt  (field .3 02) entere d
  10964   "^DD",2,2, .361,21,10 ,0)
  10965           is  50% or gr eater 'SER VICE CONNE CTED 50% T O 100%' ca n be
  10966   "^DD",2,2, .361,21,11 ,0)
  10967           se lected.
  10968   "^DD",2,2, .361,21,12 ,0)
  10969      
  10970   "^DD",2,2, .361,21,13 ,0)
  10971       b.  Ot herwise, t he percent age is ass umed to be  less than  50% and
  10972   "^DD",2,2, .361,21,14 ,0)
  10973           on ly 'SC, LE SS THAN 50 %' may be  entered.
  10974   "^DD",2,2, .361,21,15 ,0)
  10975      
  10976   "^DD",2,2, .361,21,16 ,0)
  10977   2.  If the  response  to the WER E YOU A PR ISONER OF  WAR field  (# .525)
  10978   "^DD",2,2, .361,21,17 ,0)
  10979       is YES  and the v eteran is  not servic e connecte d, you mus t select 
  10980   "^DD",2,2, .361,21,18 ,0)
  10981       PRISON ER OF WAR  as the eli gibility c ode.
  10982   "^DD",2,2, .361,21,19 ,0)
  10983      
  10984   "^DD",2,2, .361,21,20 ,0)
  10985   3.  If the  response  to the CUR RENT PH IN DICATOR fi eld (#.531
  10986   "^DD",2,2, .361,21,21 ,0)
  10987       is YES  and the v eteran is  not servic e connecte d and is n ot a Priso ner
  10988   "^DD",2,2, .361,21,22 ,0)
  10989       of War , you must  select PU RPLE HEART  RECIPIENT  as the el igibility  code.
  10990   "^DD",2,2, .361,21,23 ,0)
  10991    
  10992   "^DD",2,2, .361,21,24 ,0)
  10993   4.  If the  veteran i s receivin g VA benef its, but d oes not me et the
  10994   "^DD",2,2, .361,21,25 ,0)
  10995       criter ia in item s 1 and 2  above, the n the foll owing choi ces may
  10996   "^DD",2,2, .361,21,26 ,0)
  10997       be pre sented for  selection :
  10998   "^DD",2,2, .361,21,27 ,0)
  10999    
  11000   "^DD",2,2, .361,21,28 ,0)
  11001       If REC EIVING A&A  BENEFITS  is answere d YES, the  eligibili ty code
  11002   "^DD",2,2, .361,21,29 ,0)
  11003       AID &  ATTENDANCE  may be se lected.
  11004   "^DD",2,2, .361,21,30 ,0)
  11005    
  11006   "^DD",2,2, .361,21,31 ,0)
  11007       If the  RECEIVING  HOUSEBOUN D BENEFITS  is answer ed YES ,th e eligibil ity
  11008   "^DD",2,2, .361,21,32 ,0)
  11009       code H OUSEBOUND  may be sel ected.
  11010   "^DD",2,2, .361,21,33 ,0)
  11011    
  11012   "^DD",2,2, .361,21,34 ,0)
  11013       If the  above two  prompts w ere answer ed NO, but  the RECEI VING A VA
  11014   "^DD",2,2, .361,21,35 ,0)
  11015       PENSIO N prompt w as answere d YES, onl y the NSC,  VA PENSIO N prompt
  11016   "^DD",2,2, .361,21,36 ,0)
  11017       may be  selected.
  11018   "^DD",2,2, .361,21,37 ,0)
  11019    
  11020   "^DD",2,2, .361,21,38 ,0)
  11021   5.  If non e of the a bove perta in to this  veteran,  then the N SC eligibi lity
  11022   "^DD",2,2, .361,21,39 ,0)
  11023       will b e availabl e for sele ction.
  11024   "^DD",2,2, .361,21,40 ,0)
  11025    
  11026   "^DD",2,2, .361,21,41 ,0)
  11027   **  Depend ent on the  birthdate  of the ap plicant, t he followi ng two
  11028   "^DD",2,2, .361,21,42 ,0)
  11029       eligib ility code s may be d isplayed a long with  those show n in items
  11030   "^DD",2,2, .361,21,43 ,0)
  11031       3 thro ugh 5 abov e:  WORLD  WAR I and  MEXICAN BO RDER WAR.   These wou ld
  11032   "^DD",2,2, .361,21,44 ,0)
  11033       displa y for vete rans not m eeting the  criteria  in items 1  and 2, bu t
  11034   "^DD",2,2, .361,21,45 ,0)
  11035       whose  date of bi rth is pri or to 1907 .
  11036   "^DD",2,2, .361,"AUDI T")
  11037   y
  11038   "^DD",2,2, .361,"DEL" ,1,0)
  11039   S DFN=DA D  EV^DGLOCK  I '$D(X)
  11040   "^DD",2,2, .361,"DT")
  11041   3170913
  11042   "^DD",2,2, .3611,0)
  11043   ELIGIBILIT Y STATUS^S X^P:PENDIN G VERIFICA TION;R:PEN DING RE-VE RIFICATION ;V:VERIFIE D;^.361;1^ D EK^DGLOC K Q:'$D(X)
  11044   "^DD",2,2, .3611,.1)
  11045   ELIG STATU S
  11046   "^DD",2,2, .3611,1,0)
  11047   ^.1
  11048   "^DD",2,2, .3611,1,1, 0)
  11049   ^^TRIGGER^ 2^.3616
  11050   "^DD",2,2, .3611,1,1, 1)
  11051   K DIV S DI V=X,D0=DA, DIV(0)=D0  S Y(1)=$S( $D(^DPT(D0 ,.361)):^( .361),1:"" ) S X=$P(Y (1),U,6),X =X S DIU=X  K Y X ^DD (2,.3611,1 ,1,1.1) X  ^DD(2,.361 1,1,1,1.4)
  11052   "^DD",2,2, .3611,1,1, 1.1)
  11053   S X=DIV S  X=$S(($D(D UZ)#2):DUZ ,1:"")
  11054   "^DD",2,2, .3611,1,1, 1.3)
  11055   K DIV S DI V=X,D0=DA, DIV(0)=D0  S Y(0)=X S  Y(1)=$C(5 9)_$S($D(^ DD(2,.3611 ,0)):$P(^( 0),U,3),1: "") S X=$P ($P(Y(1),$ C(59)_Y(0) _":",2),$C (59),1)="V ERIFIED"
  11056   "^DD",2,2, .3611,1,1, 1.4)
  11057   S DIH=$S($ D(^DPT(DIV (0),.361)) :^(.361),1 :""),DIV=X  X "F %=0: 0 Q:$L($P( DIH,U,5,99 ))  S DIH= DIH_U" S % =$P(DIH,U, 7,999),DIU =$P(DIH,U, 6),^(.361) =$P(DIH,U, 1,5)_U_DIV _$S(%]"":U _%,1:""),D IH=2,DIG=. 3616 D ^DI CR:$N(^DD( DIH,DIG,1, 0))>0
  11058   "^DD",2,2, .3611,1,1, 2)
  11059   Q
  11060   "^DD",2,2, .3611,1,1, 2.3)
  11061   K DIV S DI V=X,D0=DA, DIV(0)=D0  S Y(0)=X S  Y(2)=$C(5 9)_$S($D(^ DD(2,.3611 ,0)):$P(^( 0),U,3),1: ""),Y(1)=$ S($D(^DPT( D0,.361)): ^(.361),1: "") S X=$P ($P(Y(2),$ C(59)_$P(Y (1),U,1)_" :",2),$C(5 9),1)'="VE RIFIED"
  11062   "^DD",2,2, .3611,1,1, 2.4)
  11063   S DIH=$S($ D(^DPT(DIV (0),.361)) :^(.361),1 :""),DIV=X  X "F %=0: 0 Q:$L($P( DIH,U,5,99 ))  S DIH= DIH_U" S % =$P(DIH,U, 7,999),DIU =$P(DIH,U, 6),^(.361) =$P(DIH,U, 1,5)_U_DIV _$S(%]"":U _%,1:""),D IH=2,DIG=. 3616 D ^DI CR:$N(^DD( DIH,DIG,1, 0))>0
  11064   "^DD",2,2, .3611,1,1, "CREATE CO NDITION")
  11065   ELIG STATU S="VERIFIE D"
  11066   "^DD",2,2, .3611,1,1, "CREATE VA LUE")
  11067   S X=$S(($D (DUZ)#2):D UZ,1:"")
  11068   "^DD",2,2, .3611,1,1, "DELETE CO NDITION")
  11069   ELIG STATU S'="VERIFI ED"
  11070   "^DD",2,2, .3611,1,1, "DELETE VA LUE")
  11071   NO EFFECT
  11072   "^DD",2,2, .3611,1,1, "FIELD")
  11073   ELIGIBILIT Y STATUS E NTERED BY
  11074   "^DD",2,2, .3611,1,2, 0)
  11075   ^^TRIGGER^ 2^.3612
  11076   "^DD",2,2, .3611,1,2, 1)
  11077   K DIV S DI V=X,D0=DA, DIV(0)=D0  S Y(1)=$S( $D(^DPT(D0 ,.361)):^( .361),1:"" ) S X=$P(Y (1),U,2),X =X S DIU=X  K Y S X=D IV N %I,%H ,% D NOW^% DTC X ^DD( 2,.3611,1, 2,1.4)
  11078   "^DD",2,2, .3611,1,2, 1.4)
  11079   S DIH=$S($ D(^DPT(DIV (0),.361)) :^(.361),1 :""),DIV=X  S %=$P(DI H,U,3,999) ,DIU=$P(DI H,U,2),^(. 361)=$P(DI H,U,1,1)_U _DIV_$S(%] "":U_%,1:" "),DIH=2,D IG=.3612 D  ^DICR:$N( ^DD(DIH,DI G,1,0))>0
  11080   "^DD",2,2, .3611,1,2, 2)
  11081   Q
  11082   "^DD",2,2, .3611,1,2, "CREATE VA LUE")
  11083   TODAY
  11084   "^DD",2,2, .3611,1,2, "DELETE VA LUE")
  11085   NO EFFECT
  11086   "^DD",2,2, .3611,1,2, "FIELD")
  11087   ELIGIBILIT Y STATUS D ATE
  11088   "^DD",2,2, .3611,1,3, 0)
  11089   2^AENR3611 ^MUMPS
  11090   "^DD",2,2, .3611,1,3, 1)
  11091   D EVENT^IV MPLOG(DA)
  11092   "^DD",2,2, .3611,1,3, 2)
  11093   D EVENT^IV MPLOG(DA)
  11094   "^DD",2,2, .3611,1,3, 3)
  11095    DO NOT DE LETE
  11096   "^DD",2,2, .3611,1,3, "%D",0)
  11097   ^.101^2^2^ 3060918^^^ ^
  11098   "^DD",2,2, .3611,1,3, "%D",1,0)
  11099   This cross -reference  is used t o notify H EC of chan ges that m ay affect
  11100   "^DD",2,2, .3611,1,3, "%D",2,0)
  11101   enrollment .
  11102   "^DD",2,2, .3611,1,3, "DT")
  11103   3050606
  11104   "^DD",2,2, .3611,1,99 1,0)
  11105   2^AVAFC361 1^MUMPS
  11106   "^DD",2,2, .3611,1,99 1,1)
  11107   I ($T(AVAF C^VAFCDD01 )'="") S V AFCF=".361 1;",VAFCEP IC=1 D AVA FC^VAFCDD0 1(DA)
  11108   "^DD",2,2, .3611,1,99 1,2)
  11109   I ($T(AVAF C^VAFCDD01 )'="") S V AFCF=".361 1;",VAFCEP IC=1 D AVA FC^VAFCDD0 1(DA)
  11110   "^DD",2,2, .3611,1,99 1,"%D",0)
  11111   ^^19^19^31 70913^
  11112   "^DD",2,2, .3611,1,99 1,"%D",1,0 )
  11113   This cross  reference  is used t o remember  that chan ges were m ade to the  
  11114   "^DD",2,2, .3611,1,99 1,"%D",2,0 )
  11115   PATIENT fi le (#2) ou tside of t he Registr ation proc ess.  Exec ution of t his 
  11116   "^DD",2,2, .3611,1,99 1,"%D",3,0 )
  11117   cross refe rence will  create an  entry in  the ADT/HL 7 PIVOT fi le (#391.7 1) 
  11118   "^DD",2,2, .3611,1,99 1,"%D",4,0 )
  11119   and mark i t as requi ring trans mission of  an HL7 AD T-A08 mess age.  
  11120   "^DD",2,2, .3611,1,99 1,"%D",5,0 )
  11121                                       
  11122   "^DD",2,2, .3611,1,99 1,"%D",6,0 )
  11123   The local  variable V AFCFLG wil l be set t o 1 if the  cross ref erence is  not 
  11124   "^DD",2,2, .3611,1,99 1,"%D",7,0 )
  11125   executed b ecause the  change is  being mad e from wit hin the Re gistration  
  11126   "^DD",2,2, .3611,1,99 1,"%D",8,0 )
  11127   process.
  11128   "^DD",2,2, .3611,1,99 1,"%D",9,0 )
  11129    
  11130   "^DD",2,2, .3611,1,99 1,"%D",10, 0)
  11131   Execution  of this cr oss refere nce can be  prevented  by settin g the loca
  11132   "^DD",2,2, .3611,1,99 1,"%D",11, 0)
  11133   variable V AFCA08 equ al to 1.  
  11134   "^DD",2,2, .3611,1,99 1,"%D",12, 0)
  11135                                        
  11136   "^DD",2,2, .3611,1,99 1,"%D",13, 0)
  11137   The local  variable V AFCF is us ed to iden tify the f ield edite d.  This d ata 
  11138   "^DD",2,2, .3611,1,99 1,"%D",14, 0)
  11139   is stored  in the FIE LD(S) EDIT ED (#2.1)  field in t he ADT/HL7  PIVOT fil
  11140   "^DD",2,2, .3611,1,99 1,"%D",15, 0)
  11141   (#391.71).
  11142   "^DD",2,2, .3611,1,99 1,"%D",16, 0)
  11143    
  11144   "^DD",2,2, .3611,1,99 1,"%D",17, 0)
  11145   The local  variable V AFCEPIC is  set to 1  to stop th e existing  output of  
  11146   "^DD",2,2, .3611,1,99 1,"%D",18, 0)
  11147   messages t o MPI when  the updat e to this  field is f or the MAS S to Epic 
  11148   "^DD",2,2, .3611,1,99 1,"%D",19, 0)
  11149   transmissi on only.
  11150   "^DD",2,2, .3611,1,99 1,"DT")
  11151   3170913
  11152   "^DD",2,2, .3611,3)
  11153   Select the  status of  this pati ent's elig ibility.
  11154   "^DD",2,2, .3611,5,1, 0)
  11155   2^.361^3
  11156   "^DD",2,2, .3611,20,0 )
  11157   ^.3LA^1^1
  11158   "^DD",2,2, .3611,20,1 ,0)
  11159   ECD
  11160   "^DD",2,2, .3611,21,0 )
  11161   ^^3^3^2861 117^^
  11162   "^DD",2,2, .3611,21,1 ,0)
  11163   Select fro m the avai lable list ing the ap propriate  eligibilit y status
  11164   "^DD",2,2, .3611,21,2 ,0)
  11165   for this a pplicant.   Only user s who hold  the desig nated secu rity key
  11166   "^DD",2,2, .3611,21,3 ,0)
  11167   may enter/ edit this  field.
  11168   "^DD",2,2, .3611,"DEL ",1,0)
  11169   D EK^DGLOC K I '$D(X)
  11170   "^DD",2,2, .3611,"DT" )
  11171   3170913
  11172   "^DD",2,2, .5291,0)
  11173   COMBAT SER VICE INDIC ATED?^RSX^ Y:YES;N:NO ;^.52;11^S  DFN=DA D  SV^DGLOCK
  11174   "^DD",2,2, .5291,.1)
  11175   IN COMBAT  (Y/N)
  11176   "^DD",2,2, .5291,1,0)
  11177   ^.1
  11178   "^DD",2,2, .5291,1,1, 0)
  11179   ^^TRIGGER^ 2^.5292
  11180   "^DD",2,2, .5291,1,1, 1)
  11181   X ^DD(2,.5 291,1,1,1. 3) I X S X =DIV S Y(1 )=$S($D(^D PT(D0,.52) ):^(.52),1 :"") S X=$ S('$D(^DIC (22,+$P(Y( 1),U,12),0 )):"",1:$P (^(0),U,1) ) S DIU=X  K Y S X=DI V S X="" X  ^DD(2,.52 91,1,1,1.4 )
  11182   "^DD",2,2, .5291,1,1, 1.3)
  11183   K DIV S DI V=X,D0=DA, DIV(0)=D0  S Y(0)=X S  Y(1)=$C(5 9)_$S($D(^ DD(2,.5291 ,0)):$P(^( 0),U,3),1: "") S X=$P ($P(Y(1),$ C(59)_Y(0) _":",2),$C (59),1)="N O"
  11184   "^DD",2,2, .5291,1,1, 1.4)
  11185   S DIH=$S($ D(^DPT(DIV (0),.52)): ^(.52),1:" "),DIV=X X  "F %=0:0  Q:$L($P(DI H,U,11,99) )  S DIH=D IH_U" S %= $P(DIH,U,1 3,999),DIU =$P(DIH,U, 12),^(.52) =$P(DIH,U, 1,11)_U_DI V_$S(%]"": U_%,1:""), DIH=2,DIG= .5292 D ^D ICR
  11186   "^DD",2,2, .5291,1,1, 2)
  11187   Q
  11188   "^DD",2,2, .5291,1,1, 2.3)
  11189   K DIV S DI V=X,D0=DA, DIV(0)=D0  S Y(0)=X S  Y(2)=$C(5 9)_$S($D(^ DD(2,.5291 ,0)):$P(^( 0),U,3),1: ""),Y(1)=$ S($D(^DPT( D0,.52)):^ (.52),1:"" ) S X=$P($ P(Y(2),$C( 59)_$P(Y(1 ),U,11)_": ",2),$C(59 ),1)=""
  11190   "^DD",2,2, .5291,1,1, 2.4)
  11191   S DIH=$S($ D(^DPT(DIV (0),.52)): ^(.52),1:" "),DIV=X X  "F %=0:0  Q:$L($P(DI H,U,11,99) )  S DIH=D IH_U" S %= $P(DIH,U,1 3,999),DIU =$P(DIH,U, 12),^(.52) =$P(DIH,U, 1,11)_U_DI V_$S(%]"": U_%,1:""), DIH=2,DIG= .5292 D ^D ICR
  11192   "^DD",2,2, .5291,1,1, "CREATE CO NDITION")
  11193   IN COMBAT= "NO"
  11194   "^DD",2,2, .5291,1,1, "CREATE VA LUE")
  11195   @
  11196   "^DD",2,2, .5291,1,1, "DELETE CO NDITION")
  11197   IN COMBAT= ""
  11198   "^DD",2,2, .5291,1,1, "DELETE VA LUE")
  11199   NO EFFECT
  11200   "^DD",2,2, .5291,1,1, "FIELD")
  11201   COMBAT WHE RE
  11202   "^DD",2,2, .5291,1,2, 0)
  11203   ^^TRIGGER^ 2^.5293
  11204   "^DD",2,2, .5291,1,2, 1)
  11205   X ^DD(2,.5 291,1,2,1. 3) I X S X =DIV S Y(1 )=$S($D(^D PT(D0,.52) ):^(.52),1 :"") S X=$ P(Y(1),U,1 3) S DIU=X  K Y S X=D IV S X=""  X ^DD(2,.5 291,1,2,1. 4)
  11206   "^DD",2,2, .5291,1,2, 1.3)
  11207   K DIV S DI V=X,D0=DA, DIV(0)=D0  S Y(0)=X S  Y(1)=$C(5 9)_$S($D(^ DD(2,.5291 ,0)):$P(^( 0),U,3),1: "") S X=$P ($P(Y(1),$ C(59)_Y(0) _":",2),$C (59),1)="N O"
  11208   "^DD",2,2, .5291,1,2, 1.4)
  11209   S DIH=$S($ D(^DPT(DIV (0),.52)): ^(.52),1:" "),DIV=X X  "F %=0:0  Q:$L($P(DI H,U,12,99) )  S DIH=D IH_U" S %= $P(DIH,U,1 4,999),DIU =$P(DIH,U, 13),^(.52) =$P(DIH,U, 1,12)_U_DI V_$S(%]"": U_%,1:""), DIH=2,DIG= .5293 D ^D ICR
  11210   "^DD",2,2, .5291,1,2, 2)
  11211   Q
  11212   "^DD",2,2, .5291,1,2, 2.3)
  11213   K DIV S DI V=X,D0=DA, DIV(0)=D0  S Y(0)=X S  Y(2)=$C(5 9)_$S($D(^ DD(2,.5291 ,0)):$P(^( 0),U,3),1: ""),Y(1)=$ S($D(^DPT( D0,.52)):^ (.52),1:"" ) S X=$P($ P(Y(2),$C( 59)_$P(Y(1 ),U,11)_": ",2),$C(59 ),1)=""
  11214   "^DD",2,2, .5291,1,2, 2.4)
  11215   S DIH=$S($ D(^DPT(DIV (0),.52)): ^(.52),1:" "),DIV=X X  "F %=0:0  Q:$L($P(DI H,U,12,99) )  S DIH=D IH_U" S %= $P(DIH,U,1 4,999),DIU =$P(DIH,U, 13),^(.52) =$P(DIH,U, 1,12)_U_DI V_$S(%]"": U_%,1:""), DIH=2,DIG= .5293 D ^D ICR
  11216   "^DD",2,2, .5291,1,2, "CREATE CO NDITION")
  11217   IN COMBAT= "NO"
  11218   "^DD",2,2, .5291,1,2, "CREATE VA LUE")
  11219   @
  11220   "^DD",2,2, .5291,1,2, "DELETE CO NDITION")
  11221   IN COMBAT= ""
  11222   "^DD",2,2, .5291,1,2, "DELETE VA LUE")
  11223   NO EFFECT
  11224   "^DD",2,2, .5291,1,2, "FIELD")
  11225   COMBAT FRO
  11226   "^DD",2,2, .5291,1,3, 0)
  11227   ^^TRIGGER^ 2^.5294
  11228   "^DD",2,2, .5291,1,3, 1)
  11229   X ^DD(2,.5 291,1,3,1. 3) I X S X =DIV S Y(1 )=$S($D(^D PT(D0,.52) ):^(.52),1 :"") S X=$ P(Y(1),U,1 4) S DIU=X  K Y S X=D IV S X=""  X ^DD(2,.5 291,1,3,1. 4)
  11230   "^DD",2,2, .5291,1,3, 1.3)
  11231   K DIV S DI V=X,D0=DA, DIV(0)=D0  S Y(0)=X S  Y(1)=$C(5 9)_$S($D(^ DD(2,.5291 ,0)):$P(^( 0),U,3),1: "") S X=$P ($P(Y(1),$ C(59)_Y(0) _":",2),$C (59),1)="N O"
  11232   "^DD",2,2, .5291,1,3, 1.4)
  11233   S DIH=$S($ D(^DPT(DIV (0),.52)): ^(.52),1:" "),DIV=X X  "F %=0:0  Q:$L($P(DI H,U,13,99) )  S DIH=D IH_U" S %= $P(DIH,U,1 5,999),DIU =$P(DIH,U, 14),^(.52) =$P(DIH,U, 1,13)_U_DI V_$S(%]"": U_%,1:""), DIH=2,DIG= .5294 D ^D ICR
  11234   "^DD",2,2, .5291,1,3, 2)
  11235   Q
  11236   "^DD",2,2, .5291,1,3, 2.3)
  11237   K DIV S DI V=X,D0=DA, DIV(0)=D0  S Y(0)=X S  Y(2)=$C(5 9)_$S($D(^ DD(2,.5291 ,0)):$P(^( 0),U,3),1: ""),Y(1)=$ S($D(^DPT( D0,.52)):^ (.52),1:"" ) S X=$P($ P(Y(2),$C( 59)_$P(Y(1 ),U,11)_": ",2),$C(59 ),1)=""
  11238   "^DD",2,2, .5291,1,3, 2.4)
  11239   S DIH=$S($ D(^DPT(DIV (0),.52)): ^(.52),1:" "),DIV=X X  "F %=0:0  Q:$L($P(DI H,U,13,99) )  S DIH=D IH_U" S %= $P(DIH,U,1 5,999),DIU =$P(DIH,U, 14),^(.52) =$P(DIH,U, 1,13)_U_DI V_$S(%]"": U_%,1:""), DIH=2,DIG= .5294 D ^D ICR
  11240   "^DD",2,2, .5291,1,3, "CREATE CO NDITION")
  11241   IN COMBAT= "NO"
  11242   "^DD",2,2, .5291,1,3, "CREATE VA LUE")
  11243   @
  11244   "^DD",2,2, .5291,1,3, "DELETE CO NDITION")
  11245   IN COMBAT= ""
  11246   "^DD",2,2, .5291,1,3, "DELETE VA LUE")
  11247   NO EFFECT
  11248   "^DD",2,2, .5291,1,3, "FIELD")
  11249   COMBAT TO  DATE
  11250   "^DD",2,2, .5291,1,4, 0)
  11251   2^AENR5291 ^MUMPS
  11252   "^DD",2,2, .5291,1,4, 1)
  11253   D EVENT^IV MPLOG(DA)
  11254   "^DD",2,2, .5291,1,4, 2)
  11255   D EVENT^IV MPLOG(DA)
  11256   "^DD",2,2, .5291,1,4, "%D",0)
  11257   ^^2^2^3040 614^
  11258   "^DD",2,2, .5291,1,4, "%D",1,0)
  11259   This MUMPS  cross-ref erence is  used to no tify HEC o f changes  to the
  11260   "^DD",2,2, .5291,1,4, "%D",2,0)
  11261   COMBAT SER VICE INDIC ATED? fiel d.
  11262   "^DD",2,2, .5291,1,4, "DT")
  11263   3040614
  11264   "^DD",2,2, .5291,1,5, 0)
  11265   2^AI^MUMPS
  11266   "^DD",2,2, .5291,1,5, 1)
  11267   D CSI1010^ DGENDD(DA)
  11268   "^DD",2,2, .5291,1,5, 2)
  11269   Q
  11270   "^DD",2,2, .5291,1,5, "%D",0)
  11271   ^^4^4^3061 023^
  11272   "^DD",2,2, .5291,1,5, "%D",1,0)
  11273   This MUMPS  xref will  trigger a n update t o the COMB AT
  11274   "^DD",2,2, .5291,1,5, "%D",2,0)
  11275   INDICATED  ON 1010EZ  field (2/1 010.157),  so that wh en
  11276   "^DD",2,2, .5291,1,5, "%D",3,0)
  11277   COMBAT SER VICE INDIC ATED? is " NO," COMBA T INDICATE D
  11278   "^DD",2,2, .5291,1,5, "%D",4,0)
  11279   ON 1010EZ  is set to  "NO."
  11280   "^DD",2,2, .5291,1,5, "DT")
  11281   3061023
  11282   "^DD",2,2, .5291,1,99 1,0)
  11283   2^AVAFC529 1^MUMPS
  11284   "^DD",2,2, .5291,1,99 1,1)
  11285   I ($T(AVAF C^VAFCDD01 )'="") S V AFCF=".529 1;",VAFCEP IC=1 D AVA FC^VAFCDD0 1(DA)
  11286   "^DD",2,2, .5291,1,99 1,2)
  11287   I ($T(AVAF C^VAFCDD01 )'="") S V AFCF=".529 1;",VAFCEP IC=1 D AVA FC^VAFCDD0 1(DA)
  11288   "^DD",2,2, .5291,1,99 1,"%D",0)
  11289   ^.101^19^1 9^3171108^ ^
  11290   "^DD",2,2, .5291,1,99 1,"%D",1,0 )
  11291   This cross  reference  is used t o remember  that chan ges were m ade to the  
  11292   "^DD",2,2, .5291,1,99 1,"%D",2,0 )
  11293   PATIENT fi le (#2) ou tside of t he Registr ation proc ess.  Exec ution of t his 
  11294   "^DD",2,2, .5291,1,99 1,"%D",3,0 )
  11295   cross refe rence will  create an  entry in  the ADT/HL 7 PIVOT fi le (#391.7 1) 
  11296   "^DD",2,2, .5291,1,99 1,"%D",4,0 )
  11297   and mark i t as requi ring trans mission of  an HL7 AD T-A08 mess age.  
  11298   "^DD",2,2, .5291,1,99 1,"%D",5,0 )
  11299                                       
  11300   "^DD",2,2, .5291,1,99 1,"%D",6,0 )
  11301   The local  variable V AFCFLG wil l be set t o 1 if the  cross ref erence is  not 
  11302   "^DD",2,2, .5291,1,99 1,"%D",7,0 )
  11303   executed b ecause the  change is  being mad e from wit hin the Re gistration  
  11304   "^DD",2,2, .5291,1,99 1,"%D",8,0 )
  11305   process.
  11306   "^DD",2,2, .5291,1,99 1,"%D",9,0 )
  11307    
  11308   "^DD",2,2, .5291,1,99 1,"%D",10, 0)
  11309   Execution  of this cr oss refere nce can be  prevented  by settin g the loca
  11310   "^DD",2,2, .5291,1,99 1,"%D",11, 0)
  11311   variable V AFCA08 equ al to 1.  
  11312   "^DD",2,2, .5291,1,99 1,"%D",12, 0)
  11313                                        
  11314   "^DD",2,2, .5291,1,99 1,"%D",13, 0)
  11315   The local  variable V AFCF is us ed to iden tify the f ield edite d.  This d ata 
  11316   "^DD",2,2, .5291,1,99 1,"%D",14, 0)
  11317   is stored  in the FIE LD(S) EDIT ED (#2.1)  field in t he ADT/HL7  PIVOT fil
  11318   "^DD",2,2, .5291,1,99 1,"%D",15, 0)
  11319   (#391.71).
  11320   "^DD",2,2, .5291,1,99 1,"%D",16, 0)
  11321    
  11322   "^DD",2,2, .5291,1,99 1,"%D",17, 0)
  11323   The local  variable V AFCEPIC is  set to 1  to stop th e existing  output of  
  11324   "^DD",2,2, .5291,1,99 1,"%D",18, 0)
  11325   messages t o MPI when  the updat e to this  field is f or the MAS S to Epic 
  11326   "^DD",2,2, .5291,1,99 1,"%D",19, 0)
  11327   transmissi on only.
  11328   "^DD",2,2, .5291,1,99 1,"DT")
  11329   3171020
  11330   "^DD",2,2, .5291,3)
  11331   Did this p atient ser ve in comb at?
  11332   "^DD",2,2, .5291,20,0 )
  11333   ^.3LA^1^1
  11334   "^DD",2,2, .5291,20,1 ,0)
  11335   CS
  11336   "^DD",2,2, .5291,21,0 )
  11337   ^^4^4^2861 006^
  11338   "^DD",2,2, .5291,21,1 ,0)
  11339   For this v eteran app licant ent er 'Y' if  s/he serve d in a com bat
  11340   "^DD",2,2, .5291,21,2 ,0)
  11341   zone, or ' N' if not.   Once the  service r ecord is v erified on ly
  11342   "^DD",2,2, .5291,21,3 ,0)
  11343   users who  hold the d esignated  security k ey may ent er/edit th is
  11344   "^DD",2,2, .5291,21,4 ,0)
  11345   field.
  11346   "^DD",2,2, .5291,"DEL ",1,0)
  11347   S DFN=DA D  SV^DGLOCK  I '$D(X)
  11348   "^DD",2,2, .5291,"DT" )
  11349   3171020
  11350   "^DD",2,2, .5295,0)
  11351   COMBAT VET ERAN END D ATE^D^^.52 ;15^S %DT= "EX" D ^%D T S X=Y K: Y<1 X
  11352   "^DD",2,2, .5295,1,0)
  11353   ^.1
  11354   "^DD",2,2, .5295,1,1, 0)
  11355   2^AENR5295 ^MUMPS
  11356   "^DD",2,2, .5295,1,1, 1)
  11357   D EVENT^IV MPLOG(DA)
  11358   "^DD",2,2, .5295,1,1, 2)
  11359   D EVENT^IV MPLOG(DA)
  11360   "^DD",2,2, .5295,1,1, 3)
  11361   DO NOT DEL ETE
  11362   "^DD",2,2, .5295,1,1, "%D",0)
  11363   ^^2^2^3040 420^
  11364   "^DD",2,2, .5295,1,1, "%D",1,0)
  11365   This cross -reference  is used t o notify H EC of chan ges
  11366   "^DD",2,2, .5295,1,1, "%D",2,0)
  11367   to the COM BAT VETERA N END DATE  field.
  11368   "^DD",2,2, .5295,1,1, "DT")
  11369   3040420
  11370   "^DD",2,2, .5295,1,2, 0)
  11371   ^^TRIGGER^ 2^.5296
  11372   "^DD",2,2, .5295,1,2, 1)
  11373   K DIV S DI V=X,D0=DA, DIV(0)=D0  S Y(1)=$S( $D(^DPT(D0 ,.52)):^(. 52),1:"")  S X=$P(Y(1 ),U,16),X= X S DIU=X  K Y S X=DI V S X=DT S  DIH=$G(^D PT(DIV(0), .52)),DIV= X S $P(^(. 52),U,16)= DIV,DIH=2, DIG=.5296  D ^DICR
  11374   "^DD",2,2, .5295,1,2, 2)
  11375   K DIV S DI V=X,D0=DA, DIV(0)=D0  S Y(1)=$S( $D(^DPT(D0 ,.52)):^(. 52),1:"")  S X=$P(Y(1 ),U,16),X= X S DIU=X  K Y S X=DI V S X=DT S  DIH=$G(^D PT(DIV(0), .52)),DIV= X S $P(^(. 52),U,16)= DIV,DIH=2, DIG=.5296  D ^DICR
  11376   "^DD",2,2, .5295,1,2, "%D",0)
  11377   ^.101^2^2^ 3040628^^
  11378   "^DD",2,2, .5295,1,2, "%D",1,0)
  11379   This trigg er x-ref i s used to  update the  date stam p when the  CV 
  11380   "^DD",2,2, .5295,1,2, "%D",2,0)
  11381   Eligibilit y End date  is edited .
  11382   "^DD",2,2, .5295,1,2, "CREATE VA LUE")
  11383   S X=DT
  11384   "^DD",2,2, .5295,1,2, "DELETE VA LUE")
  11385   S X=DT
  11386   "^DD",2,2, .5295,1,2, "DT")
  11387   3040614
  11388   "^DD",2,2, .5295,1,2, "FIELD")
  11389   CV
  11390   "^DD",2,2, .5295,1,3, 0)
  11391   2^AENR5295 1^MUMPS
  11392   "^DD",2,2, .5295,1,3, 1)
  11393   D AUTOUPD^ DGENA2(DA)
  11394   "^DD",2,2, .5295,1,3, 2)
  11395   D AUTOUPD^ DGENA2(DA)
  11396   "^DD",2,2, .5295,1,3, 3)
  11397   DO NOT DEL ETE
  11398   "^DD",2,2, .5295,1,3, "%D",0)
  11399   ^^1^1^3040 708^
  11400   "^DD",2,2, .5295,1,3, "%D",1,0)
  11401   This cross -reference  is used t o update t he patient 's current  Patient E nrollment  record.  
  11402   "^DD",2,2, .5295,1,3, "DT")
  11403   3040708
  11404   "^DD",2,2, .5295,1,99 1,0)
  11405   2^AVAFC529 5^MUMPS
  11406   "^DD",2,2, .5295,1,99 1,1)
  11407   I ($T(AVAF C^VAFCDD01 )'="") S V AFCF=".529 5;",VAFCEP IC=1 D AVA FC^VAFCDD0 1(DA)
  11408   "^DD",2,2, .5295,1,99 1,2)
  11409   I ($T(AVAF C^VAFCDD01 )'="") S V AFCF=".529 5;",VAFCEP IC=1 D AVA FC^VAFCDD0 1(DA)
  11410   "^DD",2,2, .5295,1,99 1,"%D",0)
  11411   ^.101^19^1 9^3171108^ ^
  11412   "^DD",2,2, .5295,1,99 1,"%D",1,0 )
  11413   This cross  reference  is used t o remember  that chan ges were m ade to the  
  11414   "^DD",2,2, .5295,1,99 1,"%D",2,0 )
  11415   PATIENT fi le (#2) ou tside of t he Registr ation proc ess.  Exec ution of t his 
  11416   "^DD",2,2, .5295,1,99 1,"%D",3,0 )
  11417   cross refe rence will  create an  entry in  the ADT/HL 7 PIVOT fi le (#391.7 1) 
  11418   "^DD",2,2, .5295,1,99 1,"%D",4,0 )
  11419   and mark i t as requi ring trans mission of  an HL7 AD T-A08 mess age.  
  11420   "^DD",2,2, .5295,1,99 1,"%D",5,0 )
  11421                                       
  11422   "^DD",2,2, .5295,1,99 1,"%D",6,0 )
  11423   The local  variable V AFCFLG wil l be set t o 1 if the  cross ref erence is  not 
  11424   "^DD",2,2, .5295,1,99 1,"%D",7,0 )
  11425   executed b ecause the  change is  being mad e from wit hin the Re gistration  
  11426   "^DD",2,2, .5295,1,99 1,"%D",8,0 )
  11427   process.
  11428   "^DD",2,2, .5295,1,99 1,"%D",9,0 )
  11429    
  11430   "^DD",2,2, .5295,1,99 1,"%D",10, 0)
  11431   Execution  of this cr oss refere nce can be  prevented  by settin g the loca
  11432   "^DD",2,2, .5295,1,99 1,"%D",11, 0)
  11433   variable V AFCA08 equ al to 1.  
  11434   "^DD",2,2, .5295,1,99 1,"%D",12, 0)
  11435                                        
  11436   "^DD",2,2, .5295,1,99 1,"%D",13, 0)
  11437   The local  variable V AFCF is us ed to iden tify the f ield edite d.  This d ata 
  11438   "^DD",2,2, .5295,1,99 1,"%D",14, 0)
  11439   is stored  in the FIE LD(S) EDIT ED (#2.1)  field in t he ADT/HL7  PIVOT fil
  11440   "^DD",2,2, .5295,1,99 1,"%D",15, 0)
  11441   (#391.71).
  11442   "^DD",2,2, .5295,1,99 1,"%D",16, 0)
  11443    
  11444   "^DD",2,2, .5295,1,99 1,"%D",17, 0)
  11445   The local  variable V AFCEPIC is  set to 1  to stop th e existing  output of  
  11446   "^DD",2,2, .5295,1,99 1,"%D",18, 0)
  11447   messages t o MPI when  the updat e to this  field is f or the MAS S to Epic 
  11448   "^DD",2,2, .5295,1,99 1,"%D",19, 0)
  11449   transmissi on only.
  11450   "^DD",2,2, .5295,1,99 1,"DT")
  11451   3171020
  11452   "^DD",2,2, .5295,20,0 )
  11453   ^.3LA^1^1
  11454   "^DD",2,2, .5295,20,1 ,0)
  11455   CS
  11456   "^DD",2,2, .5295,21,0 )
  11457   ^.001^4^4^ 3040420^^^ ^
  11458   "^DD",2,2, .5295,21,1 ,0)
  11459   This field  represent s the last  day for c ombat vet  eligibilit y. This fi eld 
  11460   "^DD",2,2, .5295,21,2 ,0)
  11461   will only  be populat ed by cros s-referenc e when the  veteran's  combat ve
  11462   "^DD",2,2, .5295,21,3 ,0)
  11463   eligibilit y has been  determine d. This va lue will r emain afte r the comb at 
  11464   "^DD",2,2, .5295,21,4 ,0)
  11465   vet eligib ility peri od has exp ired.
  11466   "^DD",2,2, .5295,"AUD IT")
  11467  
  11468   "^DD",2,2, .5295,"AX" )
  11469  
  11470   "^DD",2,2, .5295,"DT" )
  11471   3171020
  11472   "^DD",2,2, 1,0)
  11473   ALIAS^2.01 ^^.01;0
  11474   "^DD",2,2, 1,3)
  11475   If this pa tient is k nown by an other name  enter tha t name.
  11476   "^DD",2,2, 1,20,0)
  11477   ^.3LA^1^1
  11478   "^DD",2,2, 1,20,1,0)
  11479   DEMOG
  11480   "^DD",2,2, 1,21,0)
  11481   ^^4^4^2911 214^^^^
  11482   "^DD",2,2, 1,21,1,0)
  11483   If this ap plicant is  known by  any name o ther than  that enter ed in
  11484   "^DD",2,2, 1,21,2,0)
  11485   the NAME f ield enter  that/thos e other na me(s) here .  Any ent ry
  11486   "^DD",2,2, 1,21,3,0)
  11487   to this fi eld will b e cross-re ferenced a nd the app licant may  be
  11488   "^DD",2,2, 1,21,4,0)
  11489   called up  using this  alias.
  11490   "^DD",2,2, 220,0)
  11491   DENTAL CLA SSIFICATIO N^P220.2'^ DIC(220.2, ^DENT;1^Q
  11492   "^DD",2,2, 220,1,0)
  11493   ^.1
  11494   "^DD",2,2, 220,1,991, 0)
  11495   2^AVAFC220 ^MUMPS
  11496   "^DD",2,2, 220,1,991, 1)
  11497   I ($T(AVAF C^VAFCDD01 )'="") S V AFCF="220; ",VAFCEPIC =1 D AVAFC ^VAFCDD01( DA)
  11498   "^DD",2,2, 220,1,991, 2)
  11499   I ($T(AVAF C^VAFCDD01 )'="") S V AFCF="220; ",VAFCEPIC =1 D AVAFC ^VAFCDD01( DA)
  11500   "^DD",2,2, 220,1,991, "%D",0)
  11501   ^^19^19^31 70915^
  11502   "^DD",2,2, 220,1,991, "%D",1,0)
  11503   This cross  reference  is used t o remember  that chan ges were m ade to the  
  11504   "^DD",2,2, 220,1,991, "%D",2,0)
  11505   PATIENT fi le (#2) ou tside of t he Registr ation proc ess.  Exec ution of t his 
  11506   "^DD",2,2, 220,1,991, "%D",3,0)
  11507   cross refe rence will  create an  entry in  the ADT/HL 7 PIVOT fi le (#391.7 1) 
  11508   "^DD",2,2, 220,1,991, "%D",4,0)
  11509   and mark i t as requi ring trans mission of  an HL7 AD T-A08 mess age.  
  11510   "^DD",2,2, 220,1,991, "%D",5,0)
  11511                                       
  11512   "^DD",2,2, 220,1,991, "%D",6,0)
  11513   The local  variable V AFCFLG wil l be set t o 1 if the  cross ref erence is  not 
  11514   "^DD",2,2, 220,1,991, "%D",7,0)
  11515   executed b ecause the  change is  being mad e from wit hin the Re gistration  
  11516   "^DD",2,2, 220,1,991, "%D",8,0)
  11517   process.
  11518   "^DD",2,2, 220,1,991, "%D",9,0)
  11519    
  11520   "^DD",2,2, 220,1,991, "%D",10,0)
  11521   Execution  of this cr oss refere nce can be  prevented  by settin g the loca
  11522   "^DD",2,2, 220,1,991, "%D",11,0)
  11523   variable V AFCA08 equ al to 1.  
  11524   "^DD",2,2, 220,1,991, "%D",12,0)
  11525                                        
  11526   "^DD",2,2, 220,1,991, "%D",13,0)
  11527   The local  variable V AFCF is us ed to iden tify the f ield edite d.  This d ata 
  11528   "^DD",2,2, 220,1,991, "%D",14,0)
  11529   is stored  in the FIE LD(S) EDIT ED (#2.1)  field in t he ADT/HL7  PIVOT fil
  11530   "^DD",2,2, 220,1,991, "%D",15,0)
  11531   (#391.71).
  11532   "^DD",2,2, 220,1,991, "%D",16,0)
  11533    
  11534   "^DD",2,2, 220,1,991, "%D",17,0)
  11535   The local  variable V AFCEPIC is  set to 1  to stop th e existing  output of  
  11536   "^DD",2,2, 220,1,991, "%D",18,0)
  11537   messages t o MPI when  the updat e to this  field is f or the MAS S to Epic 
  11538   "^DD",2,2, 220,1,991, "%D",19,0)
  11539   transmissi on only.
  11540   "^DD",2,2, 220,1,991, "DT")
  11541   3170915
  11542   "^DD",2,2, 220,21,0)
  11543   ^^1^1^2850 731^
  11544   "^DD",2,2, 220,21,1,0 )
  11545   For Dental  Package
  11546   "^DD",2,2, 220,"DT")
  11547   3170915
  11548   "^DD",2,2, 361,0)
  11549   PATIENT EL IGIBILITIE S^2.0361IP ^^E;0
  11550   "^DD",2,2, 361,3)
  11551   Choose fro m the avai lable list ing those  eligibilit ies to whi ch this pa tient migh t be entit led which  are not hi s primary  eligibilit y.
  11552   "^DD",2,2, 361,20,0)
  11553   ^.3LA^1^1
  11554   "^DD",2,2, 361,20,1,0 )
  11555   ECD
  11556   "^DD",2,2, 361,21,0)
  11557   ^^3^3^2911 214^
  11558   "^DD",2,2, 361,21,1,0 )
  11559   This multi ple contai ns all eli gibilities  under whi ch this pa tient can
  11560   "^DD",2,2, 361,21,2,0 )
  11561   receive ca re.  This  includes h is primary  eligibili ty and all  other
  11562   "^DD",2,2, 361,21,3,0 )
  11563   eligibilit ies he may  have.
  11564   "^DD",2,2, 1010.159,0 )
  11565   APPOINTMEN T REQUEST  ON 1010EZ^ S^0:NO;1:Y ES;^1010.1 5;9^Q
  11566   "^DD",2,2, 1010.159,. 1)
  11567   Do you wan t an appt.  with a VA  doctor/pr ovider as  soon as av ailable? 
  11568   "^DD",2,2, 1010.159,1 ,0)
  11569   ^.1
  11570   "^DD",2,2, 1010.159,1 ,1,0)
  11571   2^AENR1010 159^MUMPS
  11572   "^DD",2,2, 1010.159,1 ,1,1)
  11573   D EVENT^IV MPLOG(DA)
  11574   "^DD",2,2, 1010.159,1 ,1,2)
  11575   D EVENT^IV MPLOG(DA)
  11576   "^DD",2,2, 1010.159,1 ,1,3)
  11577    DO NOT DE LETE
  11578   "^DD",2,2, 1010.159,1 ,1,"%D",0)
  11579   ^.101^2^2^ 3050627^^^ ^
  11580   "^DD",2,2, 1010.159,1 ,1,"%D",1, 0)
  11581   This cross -reference  is used t o notify H EC of chan ges that m ay affect
  11582   "^DD",2,2, 1010.159,1 ,1,"%D",2, 0)
  11583   enrollment .
  11584   "^DD",2,2, 1010.159,1 ,1,"DT")
  11585   3050627
  11586   "^DD",2,2, 1010.159,1 ,2,0)
  11587   2^AMX^MUMP S
  11588   "^DD",2,2, 1010.159,1 ,2,1)
  11589   D TRNLMSG^ ORMXTR
  11590   "^DD",2,2, 1010.159,1 ,2,2)
  11591   Q
  11592   "^DD",2,2, 1010.159,1 ,2,"%D",0)
  11593   ^.101^1^1^ 3180126^^^
  11594   "^DD",2,2, 1010.159,1 ,2,"%D",1, 0)
  11595   This sends  a MASS HL 7 message  to EPic wh en the fie ld changes .
  11596   "^DD",2,2, 1010.159,1 ,2,"DT")
  11597   3171113
  11598   "^DD",2,2, 1010.159,3 )
  11599   Enter 'Y'  if the vet eran appli cant has r equested a n appointm ent with a  VA doctor /provider.
  11600   "^DD",2,2, 1010.159,4 )
  11601  
  11602   "^DD",2,2, 1010.159,2 1,0)
  11603   ^.001^7^7^ 3050225^^^ ^
  11604   "^DD",2,2, 1010.159,2 1,1,0)
  11605   Enter a 'Y ' if the v eteran app licant has  requested  an appoin tment with  a
  11606   "^DD",2,2, 1010.159,2 1,2,0)
  11607   VA doctor  or provide r and want s to be se en as soon  as one be comes
  11608   "^DD",2,2, 1010.159,2 1,3,0)
  11609   available.   Enter a  'N' if the  veteran a pplicant h as not req uested an
  11610   "^DD",2,2, 1010.159,2 1,4,0)
  11611   appointmen t.
  11612   "^DD",2,2, 1010.159,2 1,5,0)
  11613    
  11614   "^DD",2,2, 1010.159,2 1,6,0)
  11615   This quest ion may ON LY be ente red ONCE f or the vet eran.  The  answer to
  11616   "^DD",2,2, 1010.159,2 1,7,0)
  11617   this quest ion CANNOT  be change d after th e initial  entry.
  11618   "^DD",2,2, 1010.159,2 3,0)
  11619   ^.001^2^2^ 3050225^^^ ^
  11620   "^DD",2,2, 1010.159,2 3,1,0)
  11621   This field  reflects  the a requ est indica ted on the  patient's  initial 
  11622   "^DD",2,2, 1010.159,2 3,2,0)
  11623   1010EZ.
  11624   "^DD",2,2, 1010.159," DT")
  11625   3171113
  11626   "^DD",2,2, 1010.161,0 )
  11627   APPOINTMEN T REQUEST  STATUS^S^C :CANCELLED ;E:EWL;F:F ILLED;I:IN  PROCESS/V ETERAN CON TACTED;^10 10.16;1^Q
  11628   "^DD",2,2, 1010.161,1 ,0)
  11629   ^.1
  11630   "^DD",2,2, 1010.161,1 ,1,0)
  11631   ^^TRIGGER^ 2^1010.162
  11632   "^DD",2,2, 1010.161,1 ,1,1)
  11633   K DIV S DI V=X,D0=DA, DIV(0)=D0  S Y(1)=$S( $D(^DPT(D0 ,1010.16)) :^(1010.16 ),1:"") S  X=$P(Y(1), U,2),X=X S  DIU=X K Y  S X=DIV N  %I,%H,% D  NOW^%DTC  S X=% X ^D D(2,1010.1 61,1,1,1.4 )
  11634   "^DD",2,2, 1010.161,1 ,1,1.4)
  11635   S DIH=$G(^ DPT(DIV(0) ,1010.16)) ,DIV=X S $ P(^(1010.1 6),U,2)=DI V,DIH=2,DI G=1010.162  D ^DICR
  11636   "^DD",2,2, 1010.161,1 ,1,2)
  11637   K DIV S DI V=X,D0=DA, DIV(0)=D0  S Y(1)=$S( $D(^DPT(D0 ,1010.16)) :^(1010.16 ),1:"") S  X=$P(Y(1), U,2),X=X S  DIU=X K Y  S X="" S  DIH=$G(^DP T(DIV(0),1 010.16)),D IV=X S $P( ^(1010.16) ,U,2)=DIV, DIH=2,DIG= 1010.162 D  ^DICR
  11638   "^DD",2,2, 1010.161,1 ,1,"CREATE  VALUE")
  11639   NOW
  11640   "^DD",2,2, 1010.161,1 ,1,"DELETE  VALUE")
  11641   @
  11642   "^DD",2,2, 1010.161,1 ,1,"FIELD" )
  11643   DATE STATU S LA
  11644   "^DD",2,2, 1010.161,1 ,2,0)
  11645   2^AY^MUMPS
  11646   "^DD",2,2, 1010.161,1 ,2,1)
  11647   Q
  11648   "^DD",2,2, 1010.161,1 ,2,2)
  11649   D TRNLMSG^ ORMXTR(1)
  11650   "^DD",2,2, 1010.161,1 ,2,"DT")
  11651   3180208
  11652   "^DD",2,2, 1010.161,3 )
  11653   Enter stat us of appo intment re quest.
  11654   "^DD",2,2, 1010.161,2 1,0)
  11655   ^^3^3^3080 317^
  11656   "^DD",2,2, 1010.161,2 1,1,0)
  11657   This field  is the st atus of th e veteran' s new appo intment re quested.
  11658   "^DD",2,2, 1010.161,2 1,2,0)
  11659   This field  is entere d by the u ser throug h the new  enrollee a ppointment
  11660   "^DD",2,2, 1010.161,2 1,3,0)
  11661   request op tion.
  11662   "^DD",2,2, 1010.161," DT")
  11663   3180208
  11664   "^DD",2,2. 01,0)
  11665   ALIAS SUB- FIELD^NL^1 00.03^3
  11666   "^DD",2,2. 01,0,"NM", "ALIAS")
  11667  
  11668   "^DD",2,2. 01,.01,0)
  11669   ALIAS^MFa^ ^0;1^K:$L( X)>30!($L( X)<3) X I  $D(X) S DG 20NAME=X,( X,DG20NAME )=$$FORMAT ^XLFNAME7( .DG20NAME, 3,30) K:'$ L(X) X,DG2 0NAME
  11670   "^DD",2,2. 01,.01,1,0 )
  11671   ^.1
  11672   "^DD",2,2. 01,.01,1,1 ,0)
  11673   2^B^MNEMON IC
  11674   "^DD",2,2. 01,.01,1,1 ,1)
  11675   S:'$D(^DPT ("B",$E(X, 1,30),DA(1 ),DA)) ^(D A)=1
  11676   "^DD",2,2. 01,.01,1,1 ,2)
  11677   I $D(^DPT( "B",$E(X,1 ,30),DA(1) ,DA)),^(DA ) K ^(DA)
  11678   "^DD",2,2. 01,.01,1,9 91,0)
  11679   2^AVAFC201 01^MUMPS
  11680   "^DD",2,2. 01,.01,1,9 91,1)
  11681   I ($T(AVAF C^VAFCDD01 )'="") S V AFCF="2.01 ,.01;",DGM XEPIC=1 D  AVAFC^VAFC DD01(DA)
  11682   "^DD",2,2. 01,.01,1,9 91,2)
  11683   I ($T(AVAF C^VAFCDD01 )'="") S V AFCF="2.01 ,.01;",DGM XEPIC=1 D  AVAFC^VAFC DD01(DA)
  11684   "^DD",2,2. 01,.01,1,9 91,"%D",0)
  11685   ^.101^19^1 9^3180125^ ^^^
  11686   "^DD",2,2. 01,.01,1,9 91,"%D",1, 0)
  11687   This cross  reference  is used t o remember  that chan ges were m ade to the  
  11688   "^DD",2,2. 01,.01,1,9 91,"%D",2, 0)
  11689   PATIENT fi le (#2) ou tside of t he Registr ation proc ess.  Exec ution of t his 
  11690   "^DD",2,2. 01,.01,1,9 91,"%D",3, 0)
  11691   cross refe rence will  create an  entry in  the ADT/HL 7 PIVOT fi le (#391.7 1) 
  11692   "^DD",2,2. 01,.01,1,9 91,"%D",4, 0)
  11693   and mark i t as requi ring trans mission of  an HL7 AD T-A08 mess age.  
  11694   "^DD",2,2. 01,.01,1,9 91,"%D",5, 0)
  11695                                       
  11696   "^DD",2,2. 01,.01,1,9 91,"%D",6, 0)
  11697   The local  variable V AFCFLG wil l be set t o 1 if the  cross ref erence is  not 
  11698   "^DD",2,2. 01,.01,1,9 91,"%D",7, 0)
  11699   executed b ecause the  change is  being mad e from wit hin the Re gistration  
  11700   "^DD",2,2. 01,.01,1,9 91,"%D",8, 0)
  11701   process.
  11702   "^DD",2,2. 01,.01,1,9 91,"%D",9, 0)
  11703    
  11704   "^DD",2,2. 01,.01,1,9 91,"%D",10 ,0)
  11705   Execution  of this cr oss refere nce can be  prevented  by settin g the loca
  11706   "^DD",2,2. 01,.01,1,9 91,"%D",11 ,0)
  11707   variable V AFCA08 equ al to 1.  
  11708   "^DD",2,2. 01,.01,1,9 91,"%D",12 ,0)
  11709                                        
  11710   "^DD",2,2. 01,.01,1,9 91,"%D",13 ,0)
  11711   The local  variable V AFCF is us ed to iden tify the f ield edite d.  This d ata 
  11712   "^DD",2,2. 01,.01,1,9 91,"%D",14 ,0)
  11713   is stored  in the FIE LD(S) EDIT ED (#2.1)  field in t he ADT/HL7  PIVOT fil
  11714   "^DD",2,2. 01,.01,1,9 91,"%D",15 ,0)
  11715   (#391.71).
  11716   "^DD",2,2. 01,.01,1,9 91,"%D",16 ,0)
  11717    
  11718   "^DD",2,2. 01,.01,1,9 91,"%D",17 ,0)
  11719   The local  variable D GMXEPIC is  set to 1  to stop th e existing  output of  
  11720   "^DD",2,2. 01,.01,1,9 91,"%D",18 ,0)
  11721   messages t o MPI when  the updat e to this  field is f or the MAS S to Epic 
  11722   "^DD",2,2. 01,.01,1,9 91,"%D",19 ,0)
  11723   transmissi on only.
  11724   "^DD",2,2. 01,.01,1,9 91,"DT")
  11725   3170913
  11726   "^DD",2,2. 01,.01,3)
  11727   Enter name  in 'LAST, FIRST MIDD LE SUFFIX'  format, m ust be 3-3 0 characte rs in leng th.
  11728   "^DD",2,2. 01,.01,21, 0)
  11729   ^^4^4^2861 007^
  11730   "^DD",2,2. 01,.01,21, 1,0)
  11731   Enter the  alias name  in 'LAST, FIRST MIDD LE SUFFIX'  format.
  11732   "^DD",2,2. 01,.01,21, 2,0)
  11733   This value  must be 3 -30 charac ters in le ngth and m ay contain  only uppe rcase
  11734   "^DD",2,2. 01,.01,21, 3,0)
  11735   alpha char acters, sp aces, apos trophes, h yphens and  one comma .  All oth er
  11736   "^DD",2,2. 01,.01,21, 4,0)
  11737   characters  and paren thetical t ext will b e removed.
  11738   "^DD",2,2. 01,.01,"AU DIT")
  11739   y
  11740   "^DD",2,2. 01,.01,"DT ")
  11741   3170913
  11742   "^DD",2,2. 0361,0)
  11743   PATIENT EL IGIBILITIE S SUB-FIEL D^^.04^3
  11744   "^DD",2,2. 0361,0,"NM ","PATIENT  ELIGIBILI TIES")
  11745  
  11746   "^DD",2,2. 0361,.01,0 )
  11747   ELIGIBILIT Y^M*P8'X^D IC(8,^0;1^ S DIC("S") ="I '$P(^( 0),U,7),$S ($P(^(0),U ,8):1,'$D( ^DPT(D0,.3 6)):0,1:Y= +^(.36)),$ $ELGCHK^DG RPTU(D0)"  D ^DIC K D IC S DIC=D IE,X=+Y K: Y<0 X I $D (X) S DINU M=X
  11748   "^DD",2,2. 0361,.01,1 ,0)
  11749   ^.1^^-1
  11750   "^DD",2,2. 0361,.01,1 ,1,0)
  11751   2.0361^B
  11752   "^DD",2,2. 0361,.01,1 ,1,1)
  11753   S ^DPT(DA( 1),"E","B" ,$E(X,1,30 ),DA)=""
  11754   "^DD",2,2. 0361,.01,1 ,1,2)
  11755   K ^DPT(DA( 1),"E","B" ,$E(X,1,30 ),DA)
  11756   "^DD",2,2. 0361,.01,1 ,2,0)
  11757   2^AEL1^MUM PS
  11758   "^DD",2,2. 0361,.01,1 ,2,1)
  11759   S ^DPT("AE L",DA(1),+ X)=""
  11760   "^DD",2,2. 0361,.01,1 ,2,2)
  11761   K ^DPT("AE L",DA(1),+ X)
  11762   "^DD",2,2. 0361,.01,1 ,3,0)
  11763   ^^TRIGGER^ 2.0361^.03
  11764   "^DD",2,2. 0361,.01,1 ,3,1)
  11765   D E31^VADP T62
  11766   "^DD",2,2. 0361,.01,1 ,3,1.1)
  11767   S X=DIV S  X="" I $D( ^DIC(8,DA, 0)),$D(^DI C(8.2,+$P( ^(0),U,10) ,"LONG"))  X ^("LONG" )
  11768   "^DD",2,2. 0361,.01,1 ,3,1.4)
  11769   S DIH=$S($ D(^DPT(DIV (0),"E",DI V(1),0)):^ (0),1:""), DIV=X S $P (^(0),U,3) =DIV,DIH=2 .0361,DIG= .03 D ^DIC R:$N(^DD(D IH,DIG,1,0 ))>0
  11770   "^DD",2,2. 0361,.01,1 ,3,2)
  11771   D E32^VADP T62
  11772   "^DD",2,2. 0361,.01,1 ,3,2.4)
  11773   S DIH=$S($ D(^DPT(DIV (0),"E",DI V(1),0)):^ (0),1:""), DIV=X S $P (^(0),U,3) =DIV,DIH=2 .0361,DIG= .03 D ^DIC R:$N(^DD(D IH,DIG,1,0 ))>0
  11774   "^DD",2,2. 0361,.01,1 ,3,"CREATE  VALUE")
  11775   S X="" I $ D(^DIC(8,D A,0)),$D(^ DIC(8.2,+$ P(^(0),U,1 0),"LONG") ) X ^("LON G")
  11776   "^DD",2,2. 0361,.01,1 ,3,"DELETE  VALUE")
  11777   @
  11778   "^DD",2,2. 0361,.01,1 ,3,"FIELD" )
  11779   LONG ID
  11780   "^DD",2,2. 0361,.01,1 ,4,0)
  11781   2^AO^MUMPS
  11782   "^DD",2,2. 0361,.01,1 ,4,1)
  11783   S DFN=DA(1 ) D EN^DGM TR K DGREQ F
  11784   "^DD",2,2. 0361,.01,1 ,4,2)
  11785   S DFN=DA(1 ) D EN^DGM TR K DGREQ F
  11786   "^DD",2,2. 0361,.01,1 ,4,"%D",0)
  11787   ^^2^2^2970 923^^^^
  11788   "^DD",2,2. 0361,.01,1 ,4,"%D",1, 0)
  11789   This cross -reference  is used t o determin e whether  or not a m eans test  or
  11790   "^DD",2,2. 0361,.01,1 ,4,"%D",2, 0)
  11791   co-pay tes t is requi red.
  11792   "^DD",2,2. 0361,.01,1 ,4,"DT")
  11793   2970923
  11794   "^DD",2,2. 0361,.01,1 ,5,0)
  11795   2^AENR01^M UMPS
  11796   "^DD",2,2. 0361,.01,1 ,5,1)
  11797   D AUTOUPD^ DGENA2(DA( 1))
  11798   "^DD",2,2. 0361,.01,1 ,5,2)
  11799   D AUTOUPD^ DGENA2(DA( 1))
  11800   "^DD",2,2. 0361,.01,1 ,5,3)
  11801   DO NOT DEL ETE
  11802   "^DD",2,2. 0361,.01,1 ,5,"%D",0)
  11803   ^^7^7^2970 820^^^^
  11804   "^DD",2,2. 0361,.01,1 ,5,"%D",1, 0)
  11805   This cross -reference  is used t o update t he patient 's current  Patient E nrollment 
  11806   "^DD",2,2. 0361,.01,1 ,5,"%D",2, 0)
  11807   record.
  11808   "^DD",2,2. 0361,.01,1 ,5,"%D",3, 0)
  11809    
  11810   "^DD",2,2. 0361,.01,1 ,5,"%D",4, 0)
  11811   When delet ing an eli gibility,  at the poi nt the kil l logic of  this x-re f
  11812   "^DD",2,2. 0361,.01,1 ,5,"%D",5, 0)
  11813   is execute d the data  still exi sts in the  global.   To determi ne whether  an
  11814   "^DD",2,2. 0361,.01,1 ,5,"%D",6, 0)
  11815   eligibilit y still ex ists the " B" x-ref i s checked  - if not t here, the
  11816   "^DD",2,2. 0361,.01,1 ,5,"%D",7, 0)
  11817   eligibilit y is ignor ed.
  11818   "^DD",2,2. 0361,.01,1 ,5,"DT")
  11819   2970715
  11820   "^DD",2,2. 0361,.01,3 )
  11821   Select oth er eligibi lities to  which this  patient m ay be enti tled.
  11822   "^DD",2,2. 0361,.01,5 ,1,0)
  11823   2^.361^2
  11824   "^DD",2,2. 0361,.01,1 2)
  11825   Select oth er eligibi lities for  the patie nt. The pr imary may  be selecte d but it m ust alread y exist.
  11826   "^DD",2,2. 0361,.01,1 2.1)
  11827   S DIC("S") ="I '$P(^( 0),U,7),$S ($P(^(0),U ,8):1,'$D( ^DPT(D0,.3 6)):0,1:Y= +^(.36)),$ $ELGCHK^DG RPTU(D0)"
  11828   "^DD",2,2. 0361,.01,2 1,0)
  11829   ^^3^3^2911 214^^^^
  11830   "^DD",2,2. 0361,.01,2 1,1,0)
  11831   Enter all  eligibilit ies under  which this  patient m ay receive  care.  Th e
  11832   "^DD",2,2. 0361,.01,2 1,2,0)
  11833   patients p rimary eli gibility a s well as  all other  eligibilit ies he is
  11834   "^DD",2,2. 0361,.01,2 1,3,0)
  11835   entitled t o is store d in this  multiple.
  11836   "^DD",2,2. 0361,.01,2 3,0)
  11837   ^^9^9^2911 214^^^^
  11838   "^DD",2,2. 0361,.01,2 3,1,0)
  11839   Unlike pre vious vers ions of th e PATIENT  file, in t his
  11840   "^DD",2,2. 0361,.01,2 3,2,0)
  11841   version AL L the pati ent's elig ibilities  are stored  in this
  11842   "^DD",2,2. 0361,.01,2 3,3,0)
  11843   multiple.
  11844   "^DD",2,2. 0361,.01,2 3,4,0)
  11845    
  11846   "^DD",2,2. 0361,.01,2 3,5,0)
  11847   When the u ser enters /edits tha t patient' s PRIMARY  ELIGIBILIT Y CODE, th at
  11848   "^DD",2,2. 0361,.01,2 3,6,0)
  11849   code is au tomaticall y stored i n the mult iple as we ll as in
  11850   "^DD",2,2. 0361,.01,2 3,7,0)
  11851   the PRIMAR Y ELIGIBIL ITY CODE f ield.
  11852   "^DD",2,2. 0361,.01,2 3,8,0)
  11853    
  11854   "^DD",2,2. 0361,.01,2 3,9,0)
  11855   This chang e was nece ssary to a ccomodate  the VA/DOD  sharing
  11856   "^DD",2,2. 0361,.01," DEL",1,0)
  11857   S DFN=DA(1 ) D EV^DGL OCK I '$D( X)!(+$G(^D PT(DA(1),. 36))=DA) W :$D(X) !?5 ,"Deleting  primary e ligibility  is not al lowed"
  11858   "^DD",2,2. 0361,.01," DT")
  11859   3180205
  11860   "^DD",26.1 4,26.14,.0 3,0)
  11861   ACTION^RSI ^1:NEW ASS IGNMENT;2: CONTINUE;3 :INACTIVAT E;4:REACTI VATE;5:ENT ERED IN ER ROR;^0;3^Q
  11862   "^DD",26.1 4,26.14,.0 3,1,0)
  11863   ^.1
  11864   "^DD",26.1 4,26.14,.0 3,1,1,0)
  11865   26.14^AC^M UMPS
  11866   "^DD",26.1 4,26.14,.0 3,1,1,1)
  11867   D TRIGPRFH ^DGMXORU(D A)
  11868   "^DD",26.1 4,26.14,.0 3,1,1,2)
  11869   D TRIGPRFH ^DGMXORU(D A)
  11870   "^DD",26.1 4,26.14,.0 3,1,1,"%D" ,0)
  11871   ^.101^3^3^ 3171204^^^ ^
  11872   "^DD",26.1 4,26.14,.0 3,1,1,"%D" ,1,0)
  11873   This cross -reference  sends an  HL7 messag e from the  MASS syst em to Epic  
  11874   "^DD",26.1 4,26.14,.0 3,1,1,"%D" ,2,0)
  11875   Cadence so ftware whe n audit in formation  is updated  resulting  from a 
  11876   "^DD",26.1 4,26.14,.0 3,1,1,"%D" ,3,0)
  11877   patient re cord flag  update to  file #26.1 3 (PRF ASS IGNMENT).
  11878   "^DD",26.1 4,26.14,.0 3,1,1,"DT" )
  11879   3171130
  11880   "^DD",26.1 4,26.14,.0 3,3)
  11881   Enter the  action ass ociated wi th the ass ignment hi story.
  11882   "^DD",26.1 4,26.14,.0 3,21,0)
  11883   ^^3^3^3040 318^
  11884   "^DD",26.1 4,26.14,.0 3,21,1,0)
  11885   This field  contains  the event  that occur red to cre ate this P RF ASSIGNM ENT
  11886   "^DD",26.1 4,26.14,.0 3,21,2,0)
  11887   HISTORY re cord.  Sam ple events  are NEW A SSIGNMENT,  CONTINUE,  INACTIVAT E, 
  11888   "^DD",26.1 4,26.14,.0 3,21,3,0)
  11889   REACTIVATE  and ENTER ED IN ERRO R.
  11890   "^DD",26.1 4,26.14,.0 3,"DT")
  11891   3171206
  11892   "^DD",27.1 1,27.11,.0 2,0)
  11893   PATIENT^RP 2'I^DPT(^0 ;2^Q
  11894   "^DD",27.1 1,27.11,.0 2,1,0)
  11895   ^.1
  11896   "^DD",27.1 1,27.11,.0 2,1,1,0)
  11897   27.11^C
  11898   "^DD",27.1 1,27.11,.0 2,1,1,1)
  11899   S ^DGEN(27 .11,"C",$E (X,1,30),D A)=""
  11900   "^DD",27.1 1,27.11,.0 2,1,1,2)
  11901   K ^DGEN(27 .11,"C",$E (X,1,30),D A)
  11902   "^DD",27.1 1,27.11,.0 2,1,1,"%D" ,0)
  11903   ^^1^1^2970 612^
  11904   "^DD",27.1 1,27.11,.0 2,1,1,"%D" ,1,0)
  11905   This cross -reference  allows lo ok-up by p atient.
  11906   "^DD",27.1 1,27.11,.0 2,1,1,"DT" )
  11907   2970612
  11908   "^DD",27.1 1,27.11,.0 2,3)
  11909   Enter the  patient to  enroll.
  11910   "^DD",27.1 1,27.11,.0 2,21,0)
  11911   ^^1^1^2970 519^^
  11912   "^DD",27.1 1,27.11,.0 2,21,1,0)
  11913   The patien t associat ed with th e enrollme nt.
  11914   "^DD",27.1 1,27.11,.0 2,"DT")
  11915   3180202
  11916   "^DD",27.1 1,27.11,.0 4,0)
  11917   ENROLLMENT  STATUS^RP 27.15'IX^D GEN(27.15, ^0;4^Q
  11918   "^DD",27.1 1,27.11,.0 4,1,0)
  11919   ^.1
  11920   "^DD",27.1 1,27.11,.0 4,1,1,0)
  11921   27.11^AENR C^MUMPS
  11922   "^DD",27.1 1,27.11,.0 4,1,1,1)
  11923   D SET2^DGE NDD(DA,X)
  11924   "^DD",27.1 1,27.11,.0 4,1,1,2)
  11925   D KILL2^DG ENDD(DA,X)
  11926   "^DD",27.1 1,27.11,.0 4,1,1,3)
  11927   DO NOT DEL ETE
  11928   "^DD",27.1 1,27.11,.0 4,1,1,"%D" ,0)
  11929   ^.101^7^7^ 3180202^^^ ^
  11930   "^DD",27.1 1,27.11,.0 4,1,1,"%D" ,1,0)
  11931   This index  sorts the  patients  by their c urrent enr ollment st atus.
  11932   "^DD",27.1 1,27.11,.0 4,1,1,"%D" ,2,0)
  11933   The CURREN T ENROLLME NT field o f the PATI ENT file a lso trigge rs this
  11934   "^DD",27.1 1,27.11,.0 4,1,1,"%D" ,3,0)
  11935   cross-refe rence.
  11936   "^DD",27.1 1,27.11,.0 4,1,1,"%D" ,4,0)
  11937  
  11938   "^DD",27.1 1,27.11,.0 4,1,1,"%D" ,5,0)
  11939   The format  of the in dex is:
  11940   "^DD",27.1 1,27.11,.0 4,1,1,"%D" ,6,0)
  11941  
  11942   "^DD",27.1 1,27.11,.0 4,1,1,"%D" ,7,0)
  11943   ^DPT("AENR C",<curren t enrollme nt status> ,<DFN>)=""
  11944   "^DD",27.1 1,27.11,.0 4,1,1,"DT" )
  11945   2970619
  11946   "^DD",27.1 1,27.11,.0 4,1,2,0)
  11947   27.11^AC^M UMPS
  11948   "^DD",27.1 1,27.11,.0 4,1,2,1)
  11949   D SETREM^D GENDD(DA,X )
  11950   "^DD",27.1 1,27.11,.0 4,1,2,2)
  11951   D SETREM^D GENDD(DA,X )
  11952   "^DD",27.1 1,27.11,.0 4,1,2,"%D" ,0)
  11953   ^.101^6^6^ 3030226^^
  11954   "^DD",27.1 1,27.11,.0 4,1,2,"%D" ,1,0)
  11955   This cross -reference  calls an  API that w ill update  the Remar ks field # .091
  11956   "^DD",27.1 1,27.11,.0 4,1,2,"%D" ,2,0)
  11957   of the Pat ient file  #2 dependi ng on the  value of t he enrollm ent status .
  11958   "^DD",27.1 1,27.11,.0 4,1,2,"%D" ,3,0)
  11959   If the enr ollment st atus conta ins the wo rd REJECTE D, then th e Remarks
  11960   "^DD",27.1 1,27.11,.0 4,1,2,"%D" ,4,0)
  11961   field will  be update d with the  message * *REJECTED* *.  If the  enrollmen t
  11962   "^DD",27.1 1,27.11,.0 4,1,2,"%D" ,5,0)
  11963   status is  not a Reje cted statu s then the  message * *REJECTED* * will be
  11964   "^DD",27.1 1,27.11,.0 4,1,2,"%D" ,6,0)
  11965   removed fr om the Rem arks field .
  11966   "^DD",27.1 1,27.11,.0 4,1,2,"DT" )
  11967   3030225
  11968   "^DD",27.1 1,27.11,.0 4,1,3,0)
  11969   27.11^AENR 04^MUMPS
  11970   "^DD",27.1 1,27.11,.0 4,1,3,1)
  11971   D E2711^DG RTRIG(DA)
  11972   "^DD",27.1 1,27.11,.0 4,1,3,2)
  11973   D E2711^DG RTRIG(DA)
  11974   "^DD",27.1 1,27.11,.0 4,1,3,3)
  11975    DO NOT DE LETE
  11976   "^DD",27.1 1,27.11,.0 4,1,3,"%D" ,0)
  11977   ^.101^2^2^ 3050913^^^ ^
  11978   "^DD",27.1 1,27.11,.0 4,1,3,"%D" ,1,0)
  11979   This cross -reference  is used t o notify H EC of chan ges that m ay affect
  11980   "^DD",27.1 1,27.11,.0 4,1,3,"%D" ,2,0)
  11981   enrollment .
  11982   "^DD",27.1 1,27.11,.0 4,1,3,"DT" )
  11983   3050913
  11984   "^DD",27.1 1,27.11,.0 4,3)
  11985   Enter the  status of  the applic ation for  enrollment .
  11986   "^DD",27.1 1,27.11,.0 4,21,0)
  11987   ^^1^1^2990 507^^^^
  11988   "^DD",27.1 1,27.11,.0 4,21,1,0)
  11989   The status  of an app lication f or enrollm ent.
  11990   "^DD",27.1 1,27.11,.0 4,"DT")
  11991   3180202
  11992   "^DD",38.1 ,38.1,2,0)
  11993   SECURITY L EVEL^RSX^0 :NON-SENSI TIVE;1:SEN SITIVE;^0; 2^Q
  11994   "^DD",38.1 ,38.1,2,1, 0)
  11995   ^.1
  11996   "^DD",38.1 ,38.1,2,1, 1,0)
  11997   38.1^ABUL^ MUMPS
  11998   "^DD",38.1 ,38.1,2,1, 1,1)
  11999   Q
  12000   "^DD",38.1 ,38.1,2,1, 1,2)
  12001   I +X,'+$P( ^DGSL(38.1 ,DA,0),U,2 ) D BULTIN ^DGSEC1
  12002   "^DD",38.1 ,38.1,2,1, 2,0)
  12003   38.1^ANS^M UMPS
  12004   "^DD",38.1 ,38.1,2,1, 2,1)
  12005   I '+$P(^DG SL(38.1,DA ,0),U,2) S  ^DGSL(38. 1,"ANS",DA )=""
  12006   "^DD",38.1 ,38.1,2,1, 2,2)
  12007   K ^DGSL(38 .1,"ANS",D A)
  12008   "^DD",38.1 ,38.1,2,1, 3,0)
  12009   38.1^AE^MU MPS
  12010   "^DD",38.1 ,38.1,2,1, 3,1)
  12011   D TRIGSEN^ DGMXORU(DA ,X)
  12012   "^DD",38.1 ,38.1,2,1, 3,2)
  12013   D TRIGSEN^ DGMXORU(DA ,X)
  12014   "^DD",38.1 ,38.1,2,1, 3,"%D",0)
  12015   ^.101^2^2^ 3171204^^^ ^
  12016   "^DD",38.1 ,38.1,2,1, 3,"%D",1,0 )
  12017   This cross -reference  sends an  HL7 messag e from Vis tA to MASS  Epic when  a 
  12018   "^DD",38.1 ,38.1,2,1, 3,"%D",2,0 )
  12019   patient is  entered o r deleted  in this fi le.
  12020   "^DD",38.1 ,38.1,2,1, 3,"DT")
  12021   3171204
  12022   "^DD",38.1 ,38.1,2,3)
  12023   Is this pa tient reco rd conside red SENSIT IVE?
  12024   "^DD",38.1 ,38.1,2,21 ,0)
  12025   ^^2^2^2911 222^
  12026   "^DD",38.1 ,38.1,2,21 ,1,0)
  12027   This field  contains  a 1 if the  patient r ecord is p resently l isted as
  12028   "^DD",38.1 ,38.1,2,21 ,2,0)
  12029   sensitive  or a 0 if  the patien t's record  is not cu rrently se nsitive.
  12030   "^DD",38.1 ,38.1,2,"D T")
  12031   3171204
  12032   "^DD",41.4 1,41.41,1, 0)
  12033   DATE CHANG ED^RD^^0;2 ^S %DT="ET X" D ^%DT  S X=Y K:Y< 1 X
  12034   "^DD",41.4 1,41.41,1, 1,0)
  12035   ^.1
  12036   "^DD",41.4 1,41.41,1, 1,1,0)
  12037   41.41^ADC1 ^MUMPS
  12038   "^DD",41.4 1,41.41,1, 1,1,1)
  12039   N DG2 S DG 2=$P($G(^D GS(41.41,D A,0)),"^")  I DG2 S ^ DGS(41.41, "ADC",DG2, X,DA)=""
  12040   "^DD",41.4 1,41.41,1, 1,1,2)
  12041   N DG2 S DG 2=$P($G(^D GS(41.41,D A,0)),"^")  I DG2 K ^ DGS(41.41, "ADC",DG2, X,DA)
  12042   "^DD",41.4 1,41.41,1, 1,1,"%D",0 )
  12043   ^^1^1^2961 216^^
  12044   "^DD",41.4 1,41.41,1, 1,1,"%D",1 ,0)
  12045   Cross-refe rence by p atient and  date
  12046   "^DD",41.4 1,41.41,1, 1,1,"DT")
  12047   2961216
  12048   "^DD",41.4 1,41.41,1, 1,2,0)
  12049   41.41^AC^M UMPS
  12050   "^DD",41.4 1,41.41,1, 1,2,1)
  12051   D TRIGVER^ DGMXORU(DA )
  12052   "^DD",41.4 1,41.41,1, 1,2,2)
  12053   Q
  12054   "^DD",41.4 1,41.41,1, 1,2,"%D",0 )
  12055   ^.101^2^2^ 3171204^^
  12056   "^DD",41.4 1,41.41,1, 1,2,"%D",1 ,0)
  12057   This cross -reference  sends an  HL7 messag e from Vis tA to MASS  Epic when  a 
  12058   "^DD",41.4 1,41.41,1, 1,2,"%D",2 ,0)
  12059   verificati on date is  entered f or a patie nt.
  12060   "^DD",41.4 1,41.41,1, 1,2,"DT")
  12061   3171101
  12062   "^DD",41.4 1,41.41,1, 3)
  12063   Enter date  and time  registrati on data wa s changed.
  12064   "^DD",41.4 1,41.41,1, 21,0)
  12065   ^^5^5^2970 212^^^
  12066   "^DD",41.4 1,41.41,1, 21,1,0)
  12067   This is th e date and  time the  patient fi le registr ation info rmation wa s
  12068   "^DD",41.4 1,41.41,1, 21,2,0)
  12069   changed as  a result  of the pre -registrat ion proces s.  After  editing a
  12070   "^DD",41.4 1,41.41,1, 21,3,0)
  12071   patients d emographic  data, the  user will  be asked  if they wa nt to
  12072   "^DD",41.4 1,41.41,1, 21,4,0)
  12073   Date/Stamp  the pre-r egistratio n.  If the y answer ' Yes', this  field wil l be
  12074   "^DD",41.4 1,41.41,1, 21,5,0)
  12075   completed.   If they  answer 'No ', no entr y will be  made in th is file.
  12076   "^DD",41.4 1,41.41,1, "DT")
  12077   3171101
  12078   "^DD",391. 71,391.71, .11,0)
  12079   ENTRY WAS  CREATED BY  MASS EPIC ^S^0:NO;1: YES;^0;11^ Q
  12080   "^DD",391. 71,391.71, .11,3)
  12081   Enter 'Yes ' if this  entry was  created by  the MASS  Epic appli cation
  12082   "^DD",391. 71,391.71, .11,21,0)
  12083   ^.001^2^2^ 3180103^^
  12084   "^DD",391. 71,391.71, .11,21,1,0 )
  12085   This field  is a flag  to determ ine whethe r an HL7 m essage sho uld only b
  12086   "^DD",391. 71,391.71, .11,21,2,0 )
  12087   sent to Ep ic, not MV I.
  12088   "^DD",391. 71,391.71, .11,"DT")
  12089   3180104
  12090   $END KID D G*5.3*948