Summary Table

Categories	Total Count
PII	0
URL	0
DNS	0
EKL	0
IP	0
PORT	0
VsID	0
CF	0
AI	0
VPD	0
PL	0
Other	0

File Content

$END TXT
$KID DG*5.3*983
**INSTALL NAME**
DG*5.3*983
"BLD",10924,0)
DG*5.3*983^REGISTRATION^0^3190709^y
"BLD",10924,1,0)
^^2^2^3190627^^
"BLD",10924,1,1,0)
Please see the DG*5.3*983 patch description for detailed information
"BLD",10924,1,2,0)
regarding this patch.
"BLD",10924,4,0)
^9.64PA^25.11^1
"BLD",10924,4,25.11,0)
25.11
"BLD",10924,4,25.11,2,0)
^9.641^25.11^1
"BLD",10924,4,25.11,2,25.11,0)
HEALTH BENEFIT PLAN (File-top level)
"BLD",10924,4,25.11,2,25.11,1,0)
^9.6411^.06^1
"BLD",10924,4,25.11,2,25.11,1,.06,0)
INACTIVE
"BLD",10924,4,25.11,222)
y^n^p^^^^n^^n
"BLD",10924,4,25.11,224)

"BLD",10924,4,"APDD",25.11,25.11)

"BLD",10924,4,"APDD",25.11,25.11,.06)

"BLD",10924,4,"B",25.11,25.11)

"BLD",10924,6.3)
7
"BLD",10924,"ABPKG")
n
"BLD",10924,"INID")
^y
"BLD",10924,"INIT")
POST^DG53983P
"BLD",10924,"KRN",0)
^9.67PA^779.2^20
"BLD",10924,"KRN",.4,0)
.4
"BLD",10924,"KRN",.4,"NM",0)
^9.68A^^
"BLD",10924,"KRN",.401,0)
.401
"BLD",10924,"KRN",.402,0)
.402
"BLD",10924,"KRN",.402,"NM",0)
^9.68A^^0
"BLD",10924,"KRN",.403,0)
.403
"BLD",10924,"KRN",.5,0)
.5
"BLD",10924,"KRN",.84,0)
.84
"BLD",10924,"KRN",3.6,0)
3.6
"BLD",10924,"KRN",3.8,0)
3.8
"BLD",10924,"KRN",9.2,0)
9.2
"BLD",10924,"KRN",9.8,0)
9.8
"BLD",10924,"KRN",9.8,"NM",0)
^9.68A^1^1
"BLD",10924,"KRN",9.8,"NM",1,0)
DGR114^^0^B5999846
"BLD",10924,"KRN",9.8,"NM","B","DGR114",1)

"BLD",10924,"KRN",19,0)
19
"BLD",10924,"KRN",19,"NM",0)
^9.68A^^
"BLD",10924,"KRN",19.1,0)
19.1
"BLD",10924,"KRN",101,0)
101
"BLD",10924,"KRN",101,"NM",0)
^9.68A^^0
"BLD",10924,"KRN",409.61,0)
409.61
"BLD",10924,"KRN",409.61,"NM",0)
^9.68A^^0
"BLD",10924,"KRN",771,0)
771
"BLD",10924,"KRN",779.2,0)
779.2
"BLD",10924,"KRN",870,0)
870
"BLD",10924,"KRN",8989.51,0)
8989.51
"BLD",10924,"KRN",8989.52,0)
8989.52
"BLD",10924,"KRN",8994,0)
8994
"BLD",10924,"KRN","B",.4,.4)

"BLD",10924,"KRN","B",.401,.401)

"BLD",10924,"KRN","B",.402,.402)

"BLD",10924,"KRN","B",.403,.403)

"BLD",10924,"KRN","B",.5,.5)

"BLD",10924,"KRN","B",.84,.84)

"BLD",10924,"KRN","B",3.6,3.6)

"BLD",10924,"KRN","B",3.8,3.8)

"BLD",10924,"KRN","B",9.2,9.2)

"BLD",10924,"KRN","B",9.8,9.8)

"BLD",10924,"KRN","B",19,19)

"BLD",10924,"KRN","B",19.1,19.1)

"BLD",10924,"KRN","B",101,101)

"BLD",10924,"KRN","B",409.61,409.61)

"BLD",10924,"KRN","B",771,771)

"BLD",10924,"KRN","B",779.2,779.2)

"BLD",10924,"KRN","B",870,870)

"BLD",10924,"KRN","B",8989.51,8989.51)

"BLD",10924,"KRN","B",8989.52,8989.52)

"BLD",10924,"KRN","B",8994,8994)

"BLD",10924,"QUES",0)
^9.62^^
"BLD",10924,"REQB",0)
^9.611^4^2
"BLD",10924,"REQB",3,0)
DG*5.3*976^1
"BLD",10924,"REQB",4,0)
DG*5.3*871^1
"BLD",10924,"REQB","B","DG*5.3*871",4)

"BLD",10924,"REQB","B","DG*5.3*976",3)

"FIA",25.11)
HEALTH BENEFIT PLAN
"FIA",25.11,0)
^DGHBP(25.11,
"FIA",25.11,0,0)
25.11I
"FIA",25.11,0,1)
y^n^p^^^^n^^n
"FIA",25.11,0,10)

"FIA",25.11,0,11)

"FIA",25.11,0,"RLRO")

"FIA",25.11,0,"VR")
5.3^DG
"FIA",25.11,25.11)
1
"FIA",25.11,25.11,.06)

"INIT")
POST^DG53983P
"MBREQ")
0
"PKG",47,-1)
1^1
"PKG",47,0)
REGISTRATION^DG^PATIENT REGISTRATION, ADMISSION, DISCHARGE, EMBOSSER
"PKG",47,20,0)
^9.402P^^
"PKG",47,22,0)
^9.49I^1^1
"PKG",47,22,1,0)
5.3^2930813^2960613
"PKG",47,22,1,"PAH",1,0)
983^3190709
"PKG",47,22,1,"PAH",1,1,0)
^^2^2^3190709
"PKG",47,22,1,"PAH",1,1,1,0)
Please see the DG*5.3*983 patch description for detailed information
"PKG",47,22,1,"PAH",1,1,2,0)
regarding this patch.
"QUES","XPF1",0)
Y
"QUES","XPF1","??")
^D REP^XPDH
"QUES","XPF1","A")
Shall I write over your |FLAG| File
"QUES","XPF1","B")
YES
"QUES","XPF1","M")
D XPF1^XPDIQ
"QUES","XPF2",0)
Y
"QUES","XPF2","??")
^D DTA^XPDH
"QUES","XPF2","A")
Want my data |FLAG| yours
"QUES","XPF2","B")
YES
"QUES","XPF2","M")
D XPF2^XPDIQ
"QUES","XPI1",0)
YO
"QUES","XPI1","??")
^D INHIBIT^XPDH
"QUES","XPI1","A")
Want KIDS to INHIBIT LOGONs during the install
"QUES","XPI1","B")
NO
"QUES","XPI1","M")
D XPI1^XPDIQ
"QUES","XPM1",0)
PO^VA(200,:EM
"QUES","XPM1","??")
^D MG^XPDH
"QUES","XPM1","A")
Enter the Coordinator for Mail Group '|FLAG|'
"QUES","XPM1","B")

"QUES","XPM1","M")
D XPM1^XPDIQ
"QUES","XPO1",0)
Y
"QUES","XPO1","??")
^D MENU^XPDH
"QUES","XPO1","A")
Want KIDS to Rebuild Menu Trees Upon Completion of Install
"QUES","XPO1","B")
NO
"QUES","XPO1","M")
D XPO1^XPDIQ
"QUES","XPZ1",0)
Y
"QUES","XPZ1","??")
^D OPT^XPDH
"QUES","XPZ1","A")
Want to DISABLE Scheduled Options, Menu Options, and Protocols
"QUES","XPZ1","B")
NO
"QUES","XPZ1","M")
D XPZ1^XPDIQ
"QUES","XPZ2",0)
Y
"QUES","XPZ2","??")
^D RTN^XPDH
"QUES","XPZ2","A")
Want to MOVE routines to other CPUs
"QUES","XPZ2","B")
NO
"QUES","XPZ2","M")
D XPZ2^XPDIQ
"RTN")
2
"RTN","DG53983P")
0^^B33357891^n/a
"RTN","DG53983P",1,0)
DG53983P ;ALB/KUM - DG*5.3*983 POST INSTALL TO UPDATE HEALTH BENEFIT PLANS ;05/10/19 9:18pm
"RTN","DG53983P",2,0)
;;5.3;Registration;**983**;Aug 13, 1993;Build 7
"RTN","DG53983P",3,0)
;
"RTN","DG53983P",4,0)
; Integration Agreements:
"RTN","DG53983P",5,0)
; 10141 : BMES^XPDUTL
"RTN","DG53983P",6,0)
; : MES^XPDUTL
"RTN","DG53983P",7,0)
; 10018 : UPDATE^DIE
"RTN","DG53983P",8,0)
Q
"RTN","DG53983P",9,0)
POST ; Entry point for post-install
"RTN","DG53983P",10,0)
;
"RTN","DG53983P",11,0)
L +^DGHBP(25.11,0):10 I '$T D BMES^XPDUTL(" Health Benefit Plan (#25.11) File is locked by another user. Please log YOUR IT Services ticket.") Q
"RTN","DG53983P",12,0)
D BMES^XPDUTL(" NAME (#.01) field conversion from lower to upper case in Health Benefit ")
"RTN","DG53983P",13,0)
D MES^XPDUTL(" Plan (#25.11) file is started.")
"RTN","DG53983P",14,0)
D UPDPLN
"RTN","DG53983P",15,0)
D BMES^XPDUTL(" NAME (#.01) field conversion from lower to upper case in Health Benefit ")
"RTN","DG53983P",16,0)
D MES^XPDUTL(" Plan (#25.11) file is completed.")
"RTN","DG53983P",17,0)
D FIXPLN
"RTN","DG53983P",18,0)
D INACTPLN ;INACTIVATE PLANS
"RTN","DG53983P",19,0)
D BMES^XPDUTL(" Updating INACTIVE (#.06) field to Yes in Health Benefit Plan (#25.11) file ")
"RTN","DG53983P",20,0)
D MES^XPDUTL(" for five plans is completed.")
"RTN","DG53983P",21,0)
L -^DGHBP(25.11,0)
"RTN","DG53983P",22,0)
Q
"RTN","DG53983P",23,0)
;
"RTN","DG53983P",24,0)
UPDPLN ; Update existing plan names to upper case
"RTN","DG53983P",25,0)
;
"RTN","DG53983P",26,0)
N DGPLAN,DGIEN,DGFIELDS,DGERR
"RTN","DG53983P",27,0)
S DGPLAN=""
"RTN","DG53983P",28,0)
S DGERR=""
"RTN","DG53983P",29,0)
F S DGPLAN=$O(^DGHBP(25.11,"B",DGPLAN)) Q:DGPLAN="" D
"RTN","DG53983P",30,0)
. S DGFIELDS("NAME")=DGPLAN
"RTN","DG53983P",31,0)
. D UPDPLN1(.DGFIELDS,.DGERR)
"RTN","DG53983P",32,0)
. I DGERR'="" D
"RTN","DG53983P",33,0)
. . D BMES^XPDUTL(" *** An Error occurred during converting ")
"RTN","DG53983P",34,0)
. . D MES^XPDUTL(" "_DGPLAN_" to Uppercase:")
"RTN","DG53983P",35,0)
. . D MES^XPDUTL(" *** "_DGERR_" ***")
"RTN","DG53983P",36,0)
. . D MES^XPDUTL(" Please log YOUR IT Services ticket.")
"RTN","DG53983P",37,0)
Q
"RTN","DG53983P",38,0)
;
"RTN","DG53983P",39,0)
UPDPLN1(DGFIELDS,DGERR) ; Update entries in the HEALTH BENEFIT PLAN File (25.11)
"RTN","DG53983P",40,0)
;
"RTN","DG53983P",41,0)
; Input: DGFIELDS - Array of Field Values
"RTN","DG53983P",42,0)
;
"RTN","DG53983P",43,0)
; Output: DGERR - Error Text
"RTN","DG53983P",44,0)
;
"RTN","DG53983P",45,0)
N DGIEN,DGNAME,DGFDA
"RTN","DG53983P",46,0)
K DGERR
"RTN","DG53983P",47,0)
S DGERR=""
"RTN","DG53983P",48,0)
S DGNAME=$G(DGFIELDS("NAME"))
"RTN","DG53983P",49,0)
I DGNAME="" S DGERR="Missing Health Benefit Plan Name" Q
"RTN","DG53983P",50,0)
S DGIEN=""
"RTN","DG53983P",51,0)
S DGIEN=$O(^DGHBP(25.11,"B",DGNAME,0))
"RTN","DG53983P",52,0)
I 'DGIEN S DGERR="IEN is not found" Q
"RTN","DG53983P",53,0)
S DGIEN=DGIEN_","
"RTN","DG53983P",54,0)
S DGFDA(25.11,DGIEN,.01)=$TR(DGNAME,"abcdefghijklmnopqrstuvwxyz","ABCDEFGHIJKLMNOPQRSTUVWXYZ")
"RTN","DG53983P",55,0)
D UPDATE^DIE("E","DGFDA","","DGERR")
"RTN","DG53983P",56,0)
I $D(DGERR("DIERR")) S DGERR=$G(DGERR("DIERR",1,"TEXT",1)) Q
"RTN","DG53983P",57,0)
Q
"RTN","DG53983P",58,0)
;
"RTN","DG53983P",59,0)
FIXPLN ;Fix Long description of Health Benefit Plan - Veteran Plan - CCP Hardship Determination
"RTN","DG53983P",60,0)
;
"RTN","DG53983P",61,0)
N DGIEN,DGNAME,DGLD,DGFIELDS,DGPFMS1,DGERR
"RTN","DG53983P",62,0)
S DGNAME="VETERAN PLAN - CCP HARDSHIP DETERMINATION"
"RTN","DG53983P",63,0)
S DGIEN=""
"RTN","DG53983P",64,0)
S DGERR=""
"RTN","DG53983P",65,0)
S DGIEN=$O(^DGHBP(25.11,"B",DGNAME,0))
"RTN","DG53983P",66,0)
I 'DGIEN D BMES^XPDUTL(" "_DGIEN_" entry is not found to fix Long Description field. ") Q
"RTN","DG53983P",67,0)
S DGFIELDS("LD",1)="The Veteran must be enrolled in the VA health care system. The Veteran who may"
"RTN","DG53983P",68,0)
S DGFIELDS("LD",2)="meet new MISSION Act access standards (wait time and drive time) may still face"
"RTN","DG53983P",69,0)
S DGFIELDS("LD",3)="an unusual or excessive burden in accessing care at the VA based on:"
"RTN","DG53983P",70,0)
S DGFIELDS("LD",4)=". Geographical challenges"
"RTN","DG53983P",71,0)
S DGFIELDS("LD",5)=". Environmental factors such as:"
"RTN","DG53983P",72,0)
S DGFIELDS("LD",6)="o Roads that are not accessible to the general public, such as a road through a military base or restricted area"
"RTN","DG53983P",73,0)
S DGFIELDS("LD",7)="o Traffic, or"
"RTN","DG53983P",74,0)
S DGFIELDS("LD",8)="o Hazardous weather conditions"
"RTN","DG53983P",75,0)
S DGFIELDS("LD",9)=". A medical condition that impacts the ability to travel"
"RTN","DG53983P",76,0)
S DGFIELDS("LD",10)=". Meets MISSION Act access standard, but, must travel by air, boat, or ferry"
"RTN","DG53983P",77,0)
S DGFIELDS("LD",11)="And"
"RTN","DG53983P",78,0)
S DGFIELDS("LD",12)=". Veteran has received a ""COMMUNITY CARE-HARDSHIP DETERMINATION"" consult and"
"RTN","DG53983P",79,0)
S DGFIELDS("LD",13)=" the consult has not expired then the Veteran will be eligible for Hardship."
"RTN","DG53983P",80,0)
M DGLD=DGFIELDS("LD")
"RTN","DG53983P",81,0)
D WP^DIE(25.11,DGIEN_",",.04,"","DGLD","DGPFMS1") ; LONG DESCRIPTION
"RTN","DG53983P",82,0)
I $D(DGPFMS1) S DGERR=$G(DGPFMS1("DIERR",1,"TEXT",1))
"RTN","DG53983P",83,0)
I DGERR'="" D
"RTN","DG53983P",84,0)
. D BMES^XPDUTL(" *** An Error occurred during updating long description of ")
"RTN","DG53983P",85,0)
. D MES^XPDUTL(" VETERAN PLAN - CCP HARDSHIP DETERMINATION:")
"RTN","DG53983P",86,0)
. D MES^XPDUTL(" *** "_DGERR_" ***")
"RTN","DG53983P",87,0)
. D MES^XPDUTL(" Please log YOUR IT Services ticket.")
"RTN","DG53983P",88,0)
I DGERR="" D
"RTN","DG53983P",89,0)
. D BMES^XPDUTL(" LONG DESCRIPTION (#.04) field of plan VETERAN PLAN - CCP HARDSHIP ")
"RTN","DG53983P",90,0)
. D MES^XPDUTL(" DETERMINATION is updated.")
"RTN","DG53983P",91,0)
Q
"RTN","DG53983P",92,0)
;
"RTN","DG53983P",93,0)
INACTPLN ; INACTIVATE PLANS
"RTN","DG53983P",94,0)
N DGIEN,DGNAME,DA,DIE,DR,DGNAME1,DGNAME2,DGNAME3,DGNAME4,DGNAME5,DGDATA,DG5
"RTN","DG53983P",95,0)
S DG5="N"
"RTN","DG53983P",96,0)
S DGNAME1="VETERAN PLAN - VC UNUSUAL OR EXCESSIVE BURDEN"
"RTN","DG53983P",97,0)
S DGNAME2="VETERAN PLAN - VETERANS CHOICE AIR, BOAT, OR FERRY"
"RTN","DG53983P",98,0)
S DGNAME3="VETERAN PLAN - VETERANS CHOICE BASIC"
"RTN","DG53983P",99,0)
S DGNAME4="VETERAN PLAN - VETERANS CHOICE MILEAGE"
"RTN","DG53983P",100,0)
S DGNAME5="VETERAN PLAN - VETERANS CHOICE WAIT-TIME"
"RTN","DG53983P",101,0)
S DGNAME="" F S DGNAME=$O(^DGHBP(25.11,"B",DGNAME)) Q:DGNAME="" D
"RTN","DG53983P",102,0)
.I $G(DGNAME)=DGNAME1!($G(DGNAME)=DGNAME2)!($G(DGNAME)=DGNAME3)!($G(DGNAME)=DGNAME4)!($G(DGNAME)=DGNAME5) D
"RTN","DG53983P",103,0)
..S DGIEN="" F S DGIEN=$O(^DGHBP(25.11,"B",DGNAME,DGIEN)) Q:DGIEN="" D
"RTN","DG53983P",104,0)
...S DGDATA(.06)="Y"
"RTN","DG53983P",105,0)
...I $$UPD^DGENDBS(25.11,.DGIEN,.DGDATA,.DGERR)
"RTN","DG53983P",106,0)
...I DGERR="" D
"RTN","DG53983P",107,0)
.... I DGNAME=DGNAME5 Q:DG5="Y"
"RTN","DG53983P",108,0)
.... I DGNAME=DGNAME5 S DG5="Y"
"RTN","DG53983P",109,0)
.... D BMES^XPDUTL(" INACTIVE (#.06) field is updated to Yes in Health Benefit Plan (#25.11) file")
"RTN","DG53983P",110,0)
.... D MES^XPDUTL(" for Plan: "_DGNAME)
"RTN","DG53983P",111,0)
...I DGERR'="" D
"RTN","DG53983P",112,0)
.... D BMES^XPDUTL(" *** An Error occurred during inactivating plan ")
"RTN","DG53983P",113,0)
.... D MES^XPDUTL(" "_DGNAME_":")
"RTN","DG53983P",114,0)
.... D MES^XPDUTL(" *** "_DGERR_" ***")
"RTN","DG53983P",115,0)
.... D MES^XPDUTL(" Please log YOUR IT Services ticket.")
"RTN","DG53983P",116,0)
Q
"RTN","DGR114")
0^1^B5999846^B5179815
"RTN","DGR114",1,0)
DGR114 ;ALB/TGH,KUM - Health Benefit Plan View Detail - List Manager Screen ;7/8/19 10:56am
"RTN","DGR114",2,0)
;;5.3;Registration;**871,983**;Aug 13, 1993;Build 7
"RTN","DGR114",3,0)
;
"RTN","DGR114",4,0)
EN(DFN) ;Main entry point to invoke the DGEN HBP DETAIL list
"RTN","DGR114",5,0)
; Input -- DFN Patient IEN
"RTN","DGR114",6,0)
;
"RTN","DGR114",7,0)
D WAIT^DICD
"RTN","DGR114",8,0)
D EN^VALM("DGEN HBP DETAIL")
"RTN","DGR114",9,0)
Q
"RTN","DGR114",10,0)
;
"RTN","DGR114",11,0)
HDR ;Header code
"RTN","DGR114",12,0)
N X
"RTN","DGR114",13,0)
D PID^VADPT
"RTN","DGR114",14,0)
S VALMHDR(1)=$E("Patient: "_$P($G(^DPT(DFN,0)),U),1,30)
"RTN","DGR114",15,0)
S VALMHDR(1)=VALMHDR(1)_" ("_VA("BID")_")"
"RTN","DGR114",16,0)
S X="PATIENT TYPE UNKNOWN"
"RTN","DGR114",17,0)
I $D(^DPT(DFN,"TYPE")),$D(^DG(391,+^("TYPE"),0)) S X=$P(^(0),U,1)
"RTN","DGR114",18,0)
S VALMHDR(1)=$$SETSTR^VALM1(X,VALMHDR(1),60,80)
"RTN","DGR114",19,0)
Q
"RTN","DGR114",20,0)
;
"RTN","DGR114",21,0)
INIT ;Build patient HBP current screen
"RTN","DGR114",22,0)
D CLEAN^VALM10
"RTN","DGR114",23,0)
D CLEAR^VALM1
"RTN","DGR114",24,0)
D GETPLAN
"RTN","DGR114",25,0)
Q
"RTN","DGR114",26,0)
;
"RTN","DGR114",27,0)
GETPLAN ;Load Plans from HBP array into TMP(VALMAR global for display
"RTN","DGR114",28,0)
N DGPLAN,Z,DGHBIEN
"RTN","DGR114",29,0)
D GETPLAN^DGHBPUTL
"RTN","DGR114",30,0)
S DGPLAN="",VALMCNT=0
"RTN","DGR114",31,0)
F S DGPLAN=$O(HBP("PLAN",DGPLAN)) Q:DGPLAN="" D
"RTN","DGR114",32,0)
.;DG*5.3*983 - KUM - Filter out Inactive Plans
"RTN","DGR114",33,0)
. S DGHBIEN=$O(^DGHBP(25.11,"B",DGPLAN,0)) Q:DGHBIEN="" D
"RTN","DGR114",34,0)
. I $P($G(^DGHBP(25.11,DGHBIEN,0)),"^",4)="Y" Q
"RTN","DGR114",35,0)
.;
"RTN","DGR114",36,0)
. S VALMCNT=VALMCNT+1
"RTN","DGR114",37,0)
. S Z="["_VALMCNT_"]"_" "_DGPLAN
"RTN","DGR114",38,0)
. D SET^VALM10(VALMCNT,Z,VALMCNT)
"RTN","DGR114",39,0)
Q
"RTN","DGR114",40,0)
;
"RTN","DGR114",41,0)
HELP ;Help code
"RTN","DGR114",42,0)
S X="?" D DISP^XQORM1 W !!
"RTN","DGR114",43,0)
Q
"RTN","DGR114",44,0)
;
"RTN","DGR114",45,0)
ACTION ; Get users entered data and process entry to add HBP
"RTN","DGR114",46,0)
N I,VALMY,VALMNOD
"RTN","DGR114",47,0)
D FULL^VALM1
"RTN","DGR114",48,0)
S VALMNOD="3^4450^Select HBP^1-36"
"RTN","DGR114",49,0)
D EN^VALM2(VALMNOD,"S")
"RTN","DGR114",50,0)
S I=""
"RTN","DGR114",51,0)
F S I=$O(VALMY(I)) Q:I="" D
"RTN","DGR114",52,0)
. S ACT=$O(@VALMAR@("IDX",I,""))
"RTN","DGR114",53,0)
. S DGNAME=$P(@VALMAR@(ACT,0)," ",3,99)
"RTN","DGR114",54,0)
. S DGACT=HBP("PLAN",DGNAME)
"RTN","DGR114",55,0)
. D ACT(DGACT)
"RTN","DGR114",56,0)
Q
"RTN","DGR114",57,0)
;
"RTN","DGR114",58,0)
ACT(DGACT) ; Entry point for menu action selection
"RTN","DGR114",59,0)
; INPUT: DGACT = Plan number to be assigned
"RTN","DGR114",60,0)
I $G(DGACT)="" Q
"RTN","DGR114",61,0)
; Gather data and send to print in EXPND
"RTN","DGR114",62,0)
D GETDETL^DGHBPUTL(DGACT)
"RTN","DGR114",63,0)
Q
"RTN","DGR114",64,0)
;
"RTN","DGR114",65,0)
EXIT ;Exit code
"RTN","DGR114",66,0)
D CLEAN^VALM10
"RTN","DGR114",67,0)
D CLEAR^VALM1
"RTN","DGR114",68,0)
Q
"RTN","DGR114",69,0)
;
"RTN","DGR114",70,0)
PEXIT ; MENU protocol exit code
"RTN","DGR114",71,0)
S VALMSG="+ Next Screen - Prev Screen ?? More Actions"
"RTN","DGR114",72,0)
Q
"RTN","DGR114",73,0)
;
"RTN","DGR114",74,0)
EXPND ; -- expand code
"RTN","DGR114",75,0)
N CNT,LST,ACT,DGNAME,DGACT
"RTN","DGR114",76,0)
D ACTION
"RTN","DGR114",77,0)
S VALMBCK="R" ; CCR 13613 - fix
"RTN","DGR114",78,0)
I $G(DGACT)="" Q
"RTN","DGR114",79,0)
S LST=$P(HBP("DETAIL",0),"^",4)
"RTN","DGR114",80,0)
I LST="" W !,"No detail description is available for this Health Benefit Plan"
"RTN","DGR114",81,0)
F CNT=1:1:LST W !,HBP("DETAIL",DGACT,CNT)
"RTN","DGR114",82,0)
S VALMBCK="R"
"RTN","DGR114",83,0)
D PAUSE^VALM1
"RTN","DGR114",84,0)
Q
"RTN","DGR114",85,0)
;
"VER")
8.0^22.2
"^DD",25.11,25.11,.06,0)
INACTIVE^S^Y:YES;N:NO;^0;4^Q
"^DD",25.11,25.11,.06,3)
Enter YES or NO to set benefit plan inactive status.
"^DD",25.11,25.11,.06,21,0)
^^1^1^3190528^
"^DD",25.11,25.11,.06,21,1,0)
Determine if Health Benefit Plan is inactive.
"^DD",25.11,25.11,.06,"DT")
3190528
"BLD",10924,6)
3^
$END KID DG*5.3*983