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

DGOTHMG1.m

Go to the documentation of this file.
  1. DGOTHMG1 ;SHRPE/YMG - OTH Management actions ;04/30/19
  1. ;;5.3;Registration;**952**;Aug 13, 1993;Build 160
  1. ;;Per VA Directive 6402, this routine should not be modified.
  1. ;
  1. Q
  1. ;
  1. SP ; select patient
  1. ;
  1. ; DGDFN, DGIEN33, and DSPMODE are defined in ^DGOTHMGT
  1. ;
  1. N DIC,DTOUT,DUOUT,X,Y
  1. D FULL^VALM1
  1. S VALMBCK="R"
  1. S DIC="^DGOTH(33,",DIC(0)="AEQZV",DIC("A")="Select OTH Eligibility Patient: "
  1. ;screen out all that are not active or not OTH-90
  1. S DIC("S")="I $P(^(0),U,2)=1,$$GET1^DIQ(2,$P(^(0),U)_"","",.5501,""I"")=""OTH-90"""
  1. D ^DIC K DIC
  1. I +Y>0 D
  1. .S DGIEN33=+Y,DGDFN=+Y(0)
  1. .D BLD^DGOTHMGT(DSPMODE) ; rebuild list
  1. .D BLDHDR^DGOTHMGT(DSPMODE) ; rebuild header
  1. .Q
  1. Q
  1. ;
  1. PI ; patient inquiry
  1. ;
  1. ; DGDFN and DGIEN33 are defined in ^DGOTHMGT
  1. ;
  1. D FULL^VALM1
  1. D CLEAR^VALM1
  1. S VALMBCK="R"
  1. D PATDISP^DGOTHINQ
  1. D ASKCONT^DGOTHMG2
  1. Q
  1. ;
  1. VD ; view denied requests
  1. ;
  1. ; DGSVDDF and DSPMODE are defined in ^DGOTHMGT
  1. ;
  1. S VALMBCK="R"
  1. S DSPMODE=1
  1. ; change caption
  1. K VALMDDF M VALMDDF=DGSVDDF("D") D CHGCAP^VALM("LINE","Line") ; use CHGCAP^VALM to reload VALMDDF array
  1. D BLD^DGOTHMGT(DSPMODE) ; rebuild list
  1. D BLDHDR^DGOTHMGT(DSPMODE) ; rebuild header
  1. Q
  1. ;
  1. VA ; view approved requests
  1. ;
  1. ; DGSVDDF and DSPMODE are defined in ^DGOTHMGT
  1. ;
  1. S VALMBCK="R"
  1. S DSPMODE=0
  1. ; change caption
  1. K VALMDDF M VALMDDF=DGSVDDF("A") D CHGCAP^VALM("LINE","Line") ; use CHGCAP^VALM to reload VALMDDF array
  1. D BLD^DGOTHMGT(DSPMODE) ; rebuild list
  1. D BLDHDR^DGOTHMGT(DSPMODE) ; rebuild header
  1. Q
  1. ;
  1. SD ; show request details
  1. ;
  1. ; DGIEN33 and DSPMODE are defined in ^DGOTHMGT
  1. ;
  1. N DATASTR,DENIEN,DGIEN365,DGIEN90,SEL,Z
  1. D FULL^VALM1
  1. S VALMBCK="R"
  1. D EN^VALM2($G(XQORNOD(0)),"S")
  1. S SEL=$O(VALMY("")) I 'SEL Q
  1. I DSPMODE D
  1. .; denied request
  1. .S DENIEN=$G(@VALMAR@("IDX",SEL,SEL))
  1. .S DATASTR=$$GETDEN^DGOTHUT1(DGIEN33,DENIEN) I +DATASTR<0 W !!,"Error: ",$P(DATASTR,U,2) Q
  1. .W !!,$$CJ^XLFSTR("Denied authorization request details",80)
  1. .W !,$$CJ^XLFSTR("------------------------------------",80)
  1. .W !," Request #: ",$P(DATASTR,U)
  1. .W !,"Date request submitted: ",$$FMTE^XLFDT($P(DATASTR,U,2))
  1. .W !," Authorization comment: ",$P(DATASTR,U,3)
  1. .W !," Request entered on: ",$$FMTE^XLFDT($P(DATASTR,U,5))
  1. .W !," Request entered by: ",$P(DATASTR,U,4)
  1. .;W !," Facility: ",$$NAME^XUAF4($P(DATASTR,U,6))
  1. .W !," Facility: ",$P(DATASTR,U,6)
  1. .W !
  1. .Q
  1. I 'DSPMODE D
  1. .; approved request
  1. .S Z=$G(@VALMAR@("IDX",SEL,SEL)),DGIEN365=$P(Z,U),DGIEN90=$P(Z,U,2)
  1. .S DATASTR=$$GETAUTH^DGOTHUT1(DGIEN33,DGIEN365,DGIEN90) I +DATASTR<0 W !!,"Error: ",$P(DATASTR,U,2) Q
  1. .I $P(DATASTR,U,2)=1 D
  1. ..W !!,$$CJ^XLFSTR("Period details",80)
  1. ..W !,$$CJ^XLFSTR("--------------",80)
  1. ..Q
  1. .I $P(DATASTR,U,2)'=1 D
  1. ..W !!,$$CJ^XLFSTR("Approved authorization request details",80)
  1. ..W !,$$CJ^XLFSTR("--------------------------------------",80)
  1. ..Q
  1. .W !," 365 day period number: ",$P(DATASTR,U)
  1. .W !," 90 day period number: ",$P(DATASTR,U,2)
  1. .W !," Start date: ",$$FMTE^XLFDT($P(DATASTR,U,3))
  1. .I $P(DATASTR,U,2)'=1 D
  1. ..W !," Date request submitted: ",$$FMTE^XLFDT($P(DATASTR,U,4))
  1. ..W !," Authorized by: ",$P(DATASTR,U,8)
  1. ..W !,"Authorization received date: ",$$FMTE^XLFDT($P(DATASTR,U,5))
  1. ..Q
  1. .W !," Entered / edited on: ",$$FMTE^XLFDT($P(DATASTR,U,7))
  1. .W !," Entered / edited by: ",$P(DATASTR,U,6)
  1. .;W !," Facility: ",$$NAME^XUAF4($P(DATASTR,U,9))
  1. .W !," Facility: ",$P(DATASTR,U,9)
  1. .Q
  1. D ASKCONT^DGOTHMG2
  1. Q
  1. ;
  1. PR ; show pending request
  1. ;
  1. ; DGDFN is defined in ^DGOTHMGT
  1. ;
  1. N DATASTR
  1. D FULL^VALM1
  1. S VALMBCK="R"
  1. S DATASTR=$$GETPEND^DGOTHUT1(DGDFN)
  1. I +DATASTR'>0 W !!,"Error: ",$P(DATASTR,U,2)
  1. I +DATASTR>0 D
  1. .W !!,$$CJ^XLFSTR("Pending authorization request details",80)
  1. .W !,$$CJ^XLFSTR("-------------------------------------",80)
  1. .W !,"Date request submitted: ",$$FMTE^XLFDT($P(DATASTR,U,2))
  1. .W !," Request entered on: ",$$FMTE^XLFDT($P(DATASTR,U,4))
  1. .W !," Request entered by: ",$P(DATASTR,U,3)
  1. .;W !," Facility: ",$$NAME^XUAF4($P(DATASTR,U,5))
  1. .W !," Facility: ",$P(DATASTR,U,5)
  1. .Q
  1. D ASKCONT^DGOTHMG2
  1. Q
  1. ;
  1. CHKKEY(DGKEY) ; check if current user has a given security key
  1. ;
  1. ; DGKEY - name of the security key to check
  1. ;
  1. ; assumes that DUZ is defined
  1. ;
  1. ; returns 1 if user has the key in question, 0 otherwise
  1. ;
  1. N RES
  1. D OWNSKEY^XUSRB(.RES,DGKEY)
  1. Q RES(0)