Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: DGR113

DGR113.m

Go to the documentation of this file.
  1. DGR113 ;ALB/TGH,HM,KUM,BDB,ARF - Health Benefit Plan View History - List Manager Screen ;5/21/19 10:56am
  1. ;;5.3;Registration;**871,987,1006,1014**;Aug 13, 1993;Build 42
  1. ;
  1. EN(DFN) ;Main entry point to invoke the DGEN HBP VIEW list
  1. ; Input -- DFN Patient IEN
  1. ;
  1. D WAIT^DICD
  1. D EN^VALM("DGEN HBP VIEW")
  1. Q
  1. ;
  1. HDR ;Header code
  1. N X
  1. D LISTHDR^DGRPU(1) ;DG*5.3*1014 - ARF - sets patient data in the 1st and 2nd entries in VALMHDR array
  1. ;D PID^VADPT ;DG*5.3*1014 begin comment previous code
  1. ;S VALMHDR(1)=$E("Patient: "_$P($G(^DPT(DFN,0)),U),1,30)
  1. ;S VALMHDR(1)=VALMHDR(1)_" ("_VA("BID")_")"
  1. ;S X="PATIENT TYPE UNKNOWN"
  1. ;I $D(^DPT(DFN,"TYPE")),$D(^DG(391,+^("TYPE"),0)) S X=$P(^(0),U,1)
  1. ;S VALMHDR(1)=$$SETSTR^VALM1(X,VALMHDR(1),60,80) ;DG*5.3*1014 end comment previous code
  1. Q
  1. ;
  1. INIT ;Build patient HBP View History screen
  1. N DGPLAN
  1. D CLEAN^VALM10
  1. D CLEAR^VALM1
  1. D GETPLAN
  1. Q
  1. ;
  1. GETPLAN ;Load History from HBP array into TMP(VALMAR global for display
  1. N DTTIME,CNT,LINEVAR
  1. S VALMCNT=0
  1. S LINEVAR="HISTORY"
  1. D GETHBP^DGHBPUTL
  1. ; Go thru History and set individual values into Global for display
  1. S CNT=0
  1. F S CNT=$O(HBP("HIS",CNT)) Q:CNT="" D
  1. . S DTTIME=""
  1. . F S DTTIME=$O(HBP("HIS",CNT,DTTIME)) Q:DTTIME="" D
  1. . . N DATA,Y
  1. . . S DATA=HBP("HIS",CNT,DTTIME)
  1. . . S Y=DTTIME X ^DD("DD")
  1. . . S VALMCNT=VALMCNT+1
  1. . . S LINEVAR=$$SETFLD^VALM1("["_VALMCNT_"]",LINEVAR,"NO") ; DG*5.3*987 KUM
  1. . . S LINEVAR=$$SETFLD^VALM1($S($P(DATA,"^",5)="A":" ASSIGN",1:" UNASSIGN"),LINEVAR,"ACTION") ; DG*5.3*987 HM
  1. . . S LINEVAR=$$SETFLD^VALM1(Y,LINEVAR,"DATE/TIME") ; DG*5.3*1006 BDB - Time to be displayed along with the date
  1. . . ; DG*5.3*987 KUM
  1. . . S LINEVAR=$$SETSTR^VALM1($P(DATA,"^",1),LINEVAR,37,139) ;DG*5.3*1006 BDB - Plan name begins at location 37
  1. . . D SET^VALM10(VALMCNT,LINEVAR,VALMCNT)
  1. Q
  1. ;
  1. HELP ;Help code
  1. S X="?" D DISP^XQORM1 W !!
  1. Q
  1. ;
  1. EXIT ;Exit code
  1. D CLEAN^VALM10
  1. D CLEAR^VALM1
  1. Q
  1. ;
  1. ACTION ; Get users entered data and process entry to add HBP
  1. ; DG*5.3*987 - KUM
  1. N I,VALMY,VALMNOD
  1. D FULL^VALM1
  1. S VALMNOD="3^4450^Select HBP^1-36"
  1. D EN^VALM2(VALMNOD,"S")
  1. S I=""
  1. F S I=$O(VALMY(I)) Q:I="" D
  1. . S ACT=$O(@VALMAR@("IDX",I,""))
  1. . S DGNAME=@VALMAR@(ACT,0)
  1. . ; DG*5.3*966 - Plan name is at position 37
  1. . S DGACT=$$FIND1^DIC(25.11,,"XQ",$$TRIM^XLFSTR($E(DGNAME,37,999)))
  1. . D ACT(DGACT)
  1. Q
  1. ;
  1. ACT(DGACT) ; Entry point for menu action selection
  1. ; INPUT: DGACT = Plan number to be assigned
  1. I $G(DGACT)="" Q
  1. ; Gather data and send to print in EXPND
  1. D GETDETL^DGHBPUTL(DGACT)
  1. Q
  1. ;
  1. EXPND ; -- expand code
  1. ; DG*5.3*987 - KUM - For Expand Functionality
  1. N CNT,LST,ACT,DGNAME,DGACT
  1. D ACTION
  1. S VALMBCK="R"
  1. I $G(DGACT)="" Q
  1. D FULL^VALM1
  1. D EN^DGR1131(DFN,DGNAME,.HBP)
  1. S VALMBCK="R"
  1. Q
  1. ;
  1. PEXIT ; MENU protocol exit code
  1. S VALMSG="+ Next Screen - Prev Screen ?? More Actions"
  1. Q
  1. ;