DGENA ;ALB/CJM,ISA/KWP,Zoltan,LBD,CKN,EG,ERC,TDM,JLS,HM,KUM - Enrollment API - Retrieve Data ;11/16/19 3:34PM
;;5.3;Registration;**121,122,147,232,314,564,672,659,653,688,841,909,940,972,952,993**;Aug 13, 1993;Build 92
;Per VHA Directive 2004-038, this routine should not be modified.
;
FINDCUR(DFN) ;
;Description: Used to find a patient's current enrollment.
;Input :
; DFN - Patient IEN
;Output:
; Function Value - returns the internal entry number of the patient's
; current enrollment if there is one, NULL otherwise. Checks that
; current enrollment actually belongs to the patient.
;
Q:'$G(DFN) ""
;
N CUR
S CUR=$P($G(^DPT(DFN,"ENR")),"^")
I CUR,$P($G(^DGEN(27.11,CUR,0)),"^",2)'=DFN S CUR=""
Q CUR
;
FINDPRI(DGENRIEN) ;
;Description: Used to obtain a patient's enrollment record that was
; prior to the enrollment identified by DGENRIEN.
;Input :
; DGENRIEN - this is the internal entry number of a PATIENT ENROLLMENT
; record
;Output:
; Function Value - returns the internal entry number of the prior
; enrollment for the patient if there is one, NULL otherwise.
;
Q:'$G(DGENRIEN) ""
Q $P($G(^DGEN(27.11,DGENRIEN,0)),"^",9)
;
ENROLLED(DFN) ;
;Description: Returns whether the patient is currently enrolled.
;Input:
; DFN - Patient IEN
;Output:
; Function Value - returns 1 if the patient is currently enrolled with
; a status of VERIFIED, 0 otherwise
;
N STATUS
S STATUS=$$STATUS($G(DFN))
I (STATUS=2) Q 1
Q 0
;
STATUS(DFN) ;
;Description: Returns ENROLLMENT STATUS from the patient's current
; enrollment.
;Input:
; DFN - Patient IEN
;Output:
; Function Value - If the patient has a current ENROLLMENT STATUS this
; function will return its value, otherwise it returns NULL.
N DGENRIEN
S DGENRIEN=$$FINDCUR($G(DFN))
Q:'DGENRIEN ""
Q $P($G(^DGEN(27.11,DGENRIEN,0)),"^",4)
;
PRIORITY(DFN) ;
;Description: Returns ENROLLMENT PRIORITY from the patient's current
; enrollment.
;Input:
; DFN - Patient IEN
;Output:
; Function Value - If the patient has a current ENROLLMENT PRIORITY
; this function will return its value, otherwise it returns NULL.
N DGENRIEN
S DGENRIEN=$$FINDCUR($G(DFN))
Q:'DGENRIEN ""
Q $P($G(^DGEN(27.11,DGENRIEN,0)),"^",7)
;
SOURCE(DFN) ;
;Description: Returns SOURCE OF ENROLLMENT from the patient's current
; enrollment.
;Input:
; DFN - Patient IEN
;Output:
; Function Value - If the patient has a current ENROLLMENT
; this function will return the SOURCE OF ENROLLMENT, otherwise
; it returns NULL.
;
N DGENRIEN
S DGENRIEN=$$FINDCUR($G(DFN))
Q:'DGENRIEN ""
Q $P($G(^DGEN(27.11,DGENRIEN,0)),"^",3)
;
GET(DGENRIEN,DGENR) ;
;Description: Used to obtain a record from the Patient Enrollment file
; into the local DGENR array.
;Input :
; DGENRIEN - this is the internal entry number of a PATIENT ENROLLMENT record
;Output:
; Function Value - returns 1 on success, 0 on failure.
; DGENR - this is the name of a local array, it should be passed by
; reference. If the function is successful this array will
; contain the enrollment.
;
; subscript field name
; "APP" Enrollment Application Date
; "DATE" Enrollment Date
; "END" Enrollment End Date
; "DFN" Patient IEN
; "SOURCE" Enrollment Source
; "STATUS" Enrollment Status
; "REASON" Reason Canceled/Declined
; "REMARKS" Canceled/Declined Remarks
; "FACREC" Facility Received
; "PRIORITY" Enrollment Priority
; "SUBGRP" Enrollment Sub-Group
; "RCODE" Reason for Closed Application ;;DJE DG*5.3*940 - Closed Application
; "EFFDATE" Effective Date
; "PRIORREC" Prior Enrollment Record
; "PTAPPLIED" Patient applied for enrollment
; "REGCREA" Registration only reason
; "REGDATE" Registration only date
; "REGSRC" Registration only source
; "ELIG","CODE" Primary Eligibility Code
; "ELIG","CODE",<code ien> Eligibility Codes
; "ELIG","SC" Service Connected
; "ELIG","SCPER" Service Connected Percentage
; "ELIG","POW" POW Status Indicated
; "ELIG","A&A" Receiving A&A Benefits
; "ELIG","HB" Receiving Housebound Benefits
; "ELIG","VAPEN" Receiving a VA Pension
; "ELIG","VACKAMT" Total Annual VA Check Amount
; "ELIG","DISRET" Military Disability Retirement
; "ELIG","DISLOD" Discharged Due to Disability
; "ELIG","MEDICAID" Medicaid
; "ELIG","AO" Exposed to Agent Orange
; "ELIG","AOEXPLOC" Agent Orange Exposure Location
; "ELIG","IR" Radiation Exposure Indicated
; "ELIG","RADEXPM" Radiation Exposure Method
; "ELIG","EC" SW Asia Cond - was Env Con, DG*5.3*688
; "ELIG","MTSTA" Means Test Status
; "ELIG","VCD" Veteran Catastrophically Disabled?
; "ELIG","PH" Purple Heart Indicated?
; "ELIG","UNEMPLOY" Unemployable
; "ELIG","CVELEDT" Combat Veteran End Date
; "ELIG","SHAD" SHAD Indicated
; "ELIG","MOH" Medal of Honor Indicated
; "ELIG","MOHAWRDDATE" Medal of Honor Award Date DG*5.3*972
; "ELIG","MOHSTATDATE" Medal of Honor Status Date DG*5.3*972
; "ELIG","MOHEXEMPDATE" Medal of Honor Copayment Exemption Date DG*5.3*972
; "ELIG","CLE" Camp Lejeune Indicated? DG*5.3*909
; "ELIG","CLEDT" Camp Lejeune Date DG*5.3*909
; "ELIG","CLEST" Camp Lejeune Change Site DG*5.3*909
; "ELIG","CLESOR" Camp Lejeune Source DG*5.3*909
; "ELIG","OTHTYPE" Expanded MH care type
; "DATETIME" Date/Time Entered
; "USER" Entered By
;
N SUB,NODE
I '$G(DGENRIEN) Q 0
I '$D(^DGEN(27.11,DGENRIEN,0)) Q 0
K DGENR
S DGENR=""
S NODE=$G(^DGEN(27.11,DGENRIEN,0))
S DGENR("APP")=$P(NODE,"^")
S DGENR("DATE")=$P(NODE,"^",10)
S DGENR("END")=$P(NODE,"^",11)
S DGENR("DFN")=$P(NODE,"^",2)
S DGENR("SOURCE")=$P(NODE,"^",3)
S DGENR("STATUS")=$P(NODE,"^",4)
S DGENR("REASON")=$P(NODE,"^",5)
S DGENR("FACREC")=$P(NODE,"^",6)
S DGENR("PRIORITY")=$P(NODE,"^",7)
S DGENR("EFFDATE")=$P(NODE,"^",8)
S DGENR("PRIORREC")=$P(NODE,"^",9)
;Phase II Get enrollment sub-grp (SRS 6.4)
S DGENR("SUBGRP")=$P(NODE,"^",12)
S DGENR("RCODE")=$P(NODE,"^",13) ;DJE field added with DG*5.3*940 - Closed Application - RM#867186
; DG*5.3*993 KUM - Add PT Applied for Enrollment field and other Registration Only fields
S DGENR("PTAPPLIED")=$P(NODE,"^",14)
S DGENR("REGREA")=$P(NODE,"^",15)
S DGENR("REGSRC")=$P(NODE,"^",17)
S DGENR("REGDATE")=$P(NODE,"^",16)
S NODE=$G(^DGEN(27.11,DGENRIEN,"R"))
S DGENR("REMARKS")=$P(NODE,"^")
S NODE=$G(^DGEN(27.11,DGENRIEN,"E"))
S DGENR("ELIG","CODE")=$P(NODE,"^")
S DGENR("ELIG","SC")=$P(NODE,"^",2)
S DGENR("ELIG","SCPER")=$P(NODE,"^",3)
S DGENR("ELIG","POW")=$P(NODE,"^",4)
S DGENR("ELIG","A&A")=$P(NODE,"^",5)
S DGENR("ELIG","HB")=$P(NODE,"^",6)
S DGENR("ELIG","VAPEN")=$P(NODE,"^",7)
S DGENR("ELIG","VACKAMT")=$P(NODE,"^",8)
S DGENR("ELIG","DISRET")=$P(NODE,"^",9)
S DGENR("ELIG","DISLOD")=$P(NODE,"^",20) ;added with DG*5.3*672
S DGENR("ELIG","MEDICAID")=$P(NODE,"^",10)
S DGENR("ELIG","AO")=$P(NODE,"^",11)
S DGENR("ELIG","AOEXPLOC")=$P(NODE,"^",22) ;added with DG*5.3*688
S DGENR("ELIG","IR")=$P(NODE,"^",12)
S DGENR("ELIG","EC")=$P(NODE,"^",13)
S DGENR("ELIG","MTSTA")=$P(NODE,"^",14)
S DGENR("ELIG","VCD")=$P(NODE,"^",15)
S DGENR("ELIG","PH")=$P(NODE,"^",16)
S DGENR("ELIG","UNEMPLOY")=$P(NODE,"^",17)
S DGENR("ELIG","CVELEDT")=$P(NODE,"^",18)
S DGENR("ELIG","SHAD")=$P(NODE,"^",19)
S DGENR("ELIG","RADEXPM")=$P(NODE,"^",21)
S DGENR("ELIG","MOH")=$P(NODE,"^",23)
S DGENR("ELIG","CLE")=$P(NODE,"^",24) ;added with DG*5.3*909
S DGENR("ELIG","CLEDT")=$P(NODE,"^",25) ;added with DG*5.3*909
S DGENR("ELIG","CLEST")=$P(NODE,"^",26) ;added with DG*5.3*909
S DGENR("ELIG","CLESOR")=$P(NODE,"^",27) ;added with DG*5.3*909
S DGENR("ELIG","MOHAWRDDATE")=$P(NODE,"^",28) ;added with DG*5.3*972 HM
S DGENR("ELIG","MOHSTATDATE")=$P(NODE,"^",29) ;added with DG*5.3*972 HM
S DGENR("ELIG","MOHEXEMPDATE")=$P(NODE,"^",30) ;added with DG*5.3*972 HM
S DGENR("ELIG","OTHTYPE")=$P(NODE,"^",31) ; DG*5.3*952
;S DGENCDZZ=1 ; for CD Testing (disabled).
S NODE=$G(^DGEN(27.11,DGENRIEN,"U"))
S DGENR("DATETIME")=$P(NODE,"^")
S DGENR("USER")=$P(NODE,"^",2)
Q 1
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDGENA 8127 printed Dec 13, 2024@02:42:15 Page 2
DGENA ;ALB/CJM,ISA/KWP,Zoltan,LBD,CKN,EG,ERC,TDM,JLS,HM,KUM - Enrollment API - Retrieve Data ;11/16/19 3:34PM
+1 ;;5.3;Registration;**121,122,147,232,314,564,672,659,653,688,841,909,940,972,952,993**;Aug 13, 1993;Build 92
+2 ;Per VHA Directive 2004-038, this routine should not be modified.
+3 ;
FINDCUR(DFN) ;
+1 ;Description: Used to find a patient's current enrollment.
+2 ;Input :
+3 ; DFN - Patient IEN
+4 ;Output:
+5 ; Function Value - returns the internal entry number of the patient's
+6 ; current enrollment if there is one, NULL otherwise. Checks that
+7 ; current enrollment actually belongs to the patient.
+8 ;
+9 if '$GET(DFN)
QUIT ""
+10 ;
+11 NEW CUR
+12 SET CUR=$PIECE($GET(^DPT(DFN,"ENR")),"^")
+13 IF CUR
IF $PIECE($GET(^DGEN(27.11,CUR,0)),"^",2)'=DFN
SET CUR=""
+14 QUIT CUR
+15 ;
FINDPRI(DGENRIEN) ;
+1 ;Description: Used to obtain a patient's enrollment record that was
+2 ; prior to the enrollment identified by DGENRIEN.
+3 ;Input :
+4 ; DGENRIEN - this is the internal entry number of a PATIENT ENROLLMENT
+5 ; record
+6 ;Output:
+7 ; Function Value - returns the internal entry number of the prior
+8 ; enrollment for the patient if there is one, NULL otherwise.
+9 ;
+10 if '$GET(DGENRIEN)
QUIT ""
+11 QUIT $PIECE($GET(^DGEN(27.11,DGENRIEN,0)),"^",9)
+12 ;
ENROLLED(DFN) ;
+1 ;Description: Returns whether the patient is currently enrolled.
+2 ;Input:
+3 ; DFN - Patient IEN
+4 ;Output:
+5 ; Function Value - returns 1 if the patient is currently enrolled with
+6 ; a status of VERIFIED, 0 otherwise
+7 ;
+8 NEW STATUS
+9 SET STATUS=$$STATUS($GET(DFN))
+10 IF (STATUS=2)
QUIT 1
+11 QUIT 0
+12 ;
STATUS(DFN) ;
+1 ;Description: Returns ENROLLMENT STATUS from the patient's current
+2 ; enrollment.
+3 ;Input:
+4 ; DFN - Patient IEN
+5 ;Output:
+6 ; Function Value - If the patient has a current ENROLLMENT STATUS this
+7 ; function will return its value, otherwise it returns NULL.
+8 NEW DGENRIEN
+9 SET DGENRIEN=$$FINDCUR($GET(DFN))
+10 if 'DGENRIEN
QUIT ""
+11 QUIT $PIECE($GET(^DGEN(27.11,DGENRIEN,0)),"^",4)
+12 ;
PRIORITY(DFN) ;
+1 ;Description: Returns ENROLLMENT PRIORITY from the patient's current
+2 ; enrollment.
+3 ;Input:
+4 ; DFN - Patient IEN
+5 ;Output:
+6 ; Function Value - If the patient has a current ENROLLMENT PRIORITY
+7 ; this function will return its value, otherwise it returns NULL.
+8 NEW DGENRIEN
+9 SET DGENRIEN=$$FINDCUR($GET(DFN))
+10 if 'DGENRIEN
QUIT ""
+11 QUIT $PIECE($GET(^DGEN(27.11,DGENRIEN,0)),"^",7)
+12 ;
SOURCE(DFN) ;
+1 ;Description: Returns SOURCE OF ENROLLMENT from the patient's current
+2 ; enrollment.
+3 ;Input:
+4 ; DFN - Patient IEN
+5 ;Output:
+6 ; Function Value - If the patient has a current ENROLLMENT
+7 ; this function will return the SOURCE OF ENROLLMENT, otherwise
+8 ; it returns NULL.
+9 ;
+10 NEW DGENRIEN
+11 SET DGENRIEN=$$FINDCUR($GET(DFN))
+12 if 'DGENRIEN
QUIT ""
+13 QUIT $PIECE($GET(^DGEN(27.11,DGENRIEN,0)),"^",3)
+14 ;
GET(DGENRIEN,DGENR) ;
+1 ;Description: Used to obtain a record from the Patient Enrollment file
+2 ; into the local DGENR array.
+3 ;Input :
+4 ; DGENRIEN - this is the internal entry number of a PATIENT ENROLLMENT record
+5 ;Output:
+6 ; Function Value - returns 1 on success, 0 on failure.
+7 ; DGENR - this is the name of a local array, it should be passed by
+8 ; reference. If the function is successful this array will
+9 ; contain the enrollment.
+10 ;
+11 ; subscript field name
+12 ; "APP" Enrollment Application Date
+13 ; "DATE" Enrollment Date
+14 ; "END" Enrollment End Date
+15 ; "DFN" Patient IEN
+16 ; "SOURCE" Enrollment Source
+17 ; "STATUS" Enrollment Status
+18 ; "REASON" Reason Canceled/Declined
+19 ; "REMARKS" Canceled/Declined Remarks
+20 ; "FACREC" Facility Received
+21 ; "PRIORITY" Enrollment Priority
+22 ; "SUBGRP" Enrollment Sub-Group
+23 ; "RCODE" Reason for Closed Application ;;DJE DG*5.3*940 - Closed Application
+24 ; "EFFDATE" Effective Date
+25 ; "PRIORREC" Prior Enrollment Record
+26 ; "PTAPPLIED" Patient applied for enrollment
+27 ; "REGCREA" Registration only reason
+28 ; "REGDATE" Registration only date
+29 ; "REGSRC" Registration only source
+30 ; "ELIG","CODE" Primary Eligibility Code
+31 ; "ELIG","CODE",<code ien> Eligibility Codes
+32 ; "ELIG","SC" Service Connected
+33 ; "ELIG","SCPER" Service Connected Percentage
+34 ; "ELIG","POW" POW Status Indicated
+35 ; "ELIG","A&A" Receiving A&A Benefits
+36 ; "ELIG","HB" Receiving Housebound Benefits
+37 ; "ELIG","VAPEN" Receiving a VA Pension
+38 ; "ELIG","VACKAMT" Total Annual VA Check Amount
+39 ; "ELIG","DISRET" Military Disability Retirement
+40 ; "ELIG","DISLOD" Discharged Due to Disability
+41 ; "ELIG","MEDICAID" Medicaid
+42 ; "ELIG","AO" Exposed to Agent Orange
+43 ; "ELIG","AOEXPLOC" Agent Orange Exposure Location
+44 ; "ELIG","IR" Radiation Exposure Indicated
+45 ; "ELIG","RADEXPM" Radiation Exposure Method
+46 ; "ELIG","EC" SW Asia Cond - was Env Con, DG*5.3*688
+47 ; "ELIG","MTSTA" Means Test Status
+48 ; "ELIG","VCD" Veteran Catastrophically Disabled?
+49 ; "ELIG","PH" Purple Heart Indicated?
+50 ; "ELIG","UNEMPLOY" Unemployable
+51 ; "ELIG","CVELEDT" Combat Veteran End Date
+52 ; "ELIG","SHAD" SHAD Indicated
+53 ; "ELIG","MOH" Medal of Honor Indicated
+54 ; "ELIG","MOHAWRDDATE" Medal of Honor Award Date DG*5.3*972
+55 ; "ELIG","MOHSTATDATE" Medal of Honor Status Date DG*5.3*972
+56 ; "ELIG","MOHEXEMPDATE" Medal of Honor Copayment Exemption Date DG*5.3*972
+57 ; "ELIG","CLE" Camp Lejeune Indicated? DG*5.3*909
+58 ; "ELIG","CLEDT" Camp Lejeune Date DG*5.3*909
+59 ; "ELIG","CLEST" Camp Lejeune Change Site DG*5.3*909
+60 ; "ELIG","CLESOR" Camp Lejeune Source DG*5.3*909
+61 ; "ELIG","OTHTYPE" Expanded MH care type
+62 ; "DATETIME" Date/Time Entered
+63 ; "USER" Entered By
+64 ;
+65 NEW SUB,NODE
+66 IF '$GET(DGENRIEN)
QUIT 0
+67 IF '$DATA(^DGEN(27.11,DGENRIEN,0))
QUIT 0
+68 KILL DGENR
+69 SET DGENR=""
+70 SET NODE=$GET(^DGEN(27.11,DGENRIEN,0))
+71 SET DGENR("APP")=$PIECE(NODE,"^")
+72 SET DGENR("DATE")=$PIECE(NODE,"^",10)
+73 SET DGENR("END")=$PIECE(NODE,"^",11)
+74 SET DGENR("DFN")=$PIECE(NODE,"^",2)
+75 SET DGENR("SOURCE")=$PIECE(NODE,"^",3)
+76 SET DGENR("STATUS")=$PIECE(NODE,"^",4)
+77 SET DGENR("REASON")=$PIECE(NODE,"^",5)
+78 SET DGENR("FACREC")=$PIECE(NODE,"^",6)
+79 SET DGENR("PRIORITY")=$PIECE(NODE,"^",7)
+80 SET DGENR("EFFDATE")=$PIECE(NODE,"^",8)
+81 SET DGENR("PRIORREC")=$PIECE(NODE,"^",9)
+82 ;Phase II Get enrollment sub-grp (SRS 6.4)
+83 SET DGENR("SUBGRP")=$PIECE(NODE,"^",12)
+84 ;DJE field added with DG*5.3*940 - Closed Application - RM#867186
SET DGENR("RCODE")=$PIECE(NODE,"^",13)
+85 ; DG*5.3*993 KUM - Add PT Applied for Enrollment field and other Registration Only fields
+86 SET DGENR("PTAPPLIED")=$PIECE(NODE,"^",14)
+87 SET DGENR("REGREA")=$PIECE(NODE,"^",15)
+88 SET DGENR("REGSRC")=$PIECE(NODE,"^",17)
+89 SET DGENR("REGDATE")=$PIECE(NODE,"^",16)
+90 SET NODE=$GET(^DGEN(27.11,DGENRIEN,"R"))
+91 SET DGENR("REMARKS")=$PIECE(NODE,"^")
+92 SET NODE=$GET(^DGEN(27.11,DGENRIEN,"E"))
+93 SET DGENR("ELIG","CODE")=$PIECE(NODE,"^")
+94 SET DGENR("ELIG","SC")=$PIECE(NODE,"^",2)
+95 SET DGENR("ELIG","SCPER")=$PIECE(NODE,"^",3)
+96 SET DGENR("ELIG","POW")=$PIECE(NODE,"^",4)
+97 SET DGENR("ELIG","A&A")=$PIECE(NODE,"^",5)
+98 SET DGENR("ELIG","HB")=$PIECE(NODE,"^",6)
+99 SET DGENR("ELIG","VAPEN")=$PIECE(NODE,"^",7)
+100 SET DGENR("ELIG","VACKAMT")=$PIECE(NODE,"^",8)
+101 SET DGENR("ELIG","DISRET")=$PIECE(NODE,"^",9)
+102 ;added with DG*5.3*672
SET DGENR("ELIG","DISLOD")=$PIECE(NODE,"^",20)
+103 SET DGENR("ELIG","MEDICAID")=$PIECE(NODE,"^",10)
+104 SET DGENR("ELIG","AO")=$PIECE(NODE,"^",11)
+105 ;added with DG*5.3*688
SET DGENR("ELIG","AOEXPLOC")=$PIECE(NODE,"^",22)
+106 SET DGENR("ELIG","IR")=$PIECE(NODE,"^",12)
+107 SET DGENR("ELIG","EC")=$PIECE(NODE,"^",13)
+108 SET DGENR("ELIG","MTSTA")=$PIECE(NODE,"^",14)
+109 SET DGENR("ELIG","VCD")=$PIECE(NODE,"^",15)
+110 SET DGENR("ELIG","PH")=$PIECE(NODE,"^",16)
+111 SET DGENR("ELIG","UNEMPLOY")=$PIECE(NODE,"^",17)
+112 SET DGENR("ELIG","CVELEDT")=$PIECE(NODE,"^",18)
+113 SET DGENR("ELIG","SHAD")=$PIECE(NODE,"^",19)
+114 SET DGENR("ELIG","RADEXPM")=$PIECE(NODE,"^",21)
+115 SET DGENR("ELIG","MOH")=$PIECE(NODE,"^",23)
+116 ;added with DG*5.3*909
SET DGENR("ELIG","CLE")=$PIECE(NODE,"^",24)
+117 ;added with DG*5.3*909
SET DGENR("ELIG","CLEDT")=$PIECE(NODE,"^",25)
+118 ;added with DG*5.3*909
SET DGENR("ELIG","CLEST")=$PIECE(NODE,"^",26)
+119 ;added with DG*5.3*909
SET DGENR("ELIG","CLESOR")=$PIECE(NODE,"^",27)
+120 ;added with DG*5.3*972 HM
SET DGENR("ELIG","MOHAWRDDATE")=$PIECE(NODE,"^",28)
+121 ;added with DG*5.3*972 HM
SET DGENR("ELIG","MOHSTATDATE")=$PIECE(NODE,"^",29)
+122 ;added with DG*5.3*972 HM
SET DGENR("ELIG","MOHEXEMPDATE")=$PIECE(NODE,"^",30)
+123 ; DG*5.3*952
SET DGENR("ELIG","OTHTYPE")=$PIECE(NODE,"^",31)
+124 ;S DGENCDZZ=1 ; for CD Testing (disabled).
+125 SET NODE=$GET(^DGEN(27.11,DGENRIEN,"U"))
+126 SET DGENR("DATETIME")=$PIECE(NODE,"^")
+127 SET DGENR("USER")=$PIECE(NODE,"^",2)
+128 QUIT 1
+129 ;
