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

BGP5GR2.m

Go to the documentation of this file.
  1. BGP5GR2 ; IHS/CMI/LAB - BGPG Visual CRS Reports 12/30/2004 12:29:35 PM 27 Apr 2010 10:30 PM ;
  1. ;;15.1;IHS CLINICAL REPORTING;;MAY 06, 2015;Build 143
  1. ;
  1. ;
  1. CATSTR(BGPSRET,STR) ;EP
  1. N BGPDA
  1. S BGPSRET=""
  1. S BGPDA=0 F S BGPDA=$O(STR(BGPDA)) Q:'BGPDA D
  1. . S BGPSRET=BGPSRET_$G(STR(BGPDA))
  1. Q
  1. ;
  1. XP(RETVAL,BGPSTR) ;EP
  1. S X="MERR^BGP5GU",@^%ZOSF("TRAP")
  1. N BGPI,BGPJ,BGPDATA,BGPDA,P,BGPERR,BGPCT,BGPEX,BGPLD,BGPRT
  1. ;BGPCT = COMMUNITY TAXONOMY IEN OR NAME
  1. ;BGPEX = EXPORT 1 or 0
  1. ;BGPLD = local files 1 or 0
  1. ;BGPRT = time to run report
  1. ;
  1. W !,BOMB
  1. S P="|",R="~"
  1. S BGPI=0
  1. S BGPERR=""
  1. S BGPCT=$P($P(BGPSTR,P),R)
  1. I $P(BGPCT,R)'?.N S BGPCT=$O(^ATXAX("B",BGPCT,0))
  1. ;S BGPCT=$O(^ATXAX("B",BGPCT,0))
  1. S BGPEX=$P(BGPSTR,P,2)
  1. S BGPLD=$P(BGPSTR,P,3)
  1. S BGPOPT="CR 11 COMPREHENSIVE NATIONAL EXPORT"
  1. S BGPMFITI=$P(BGPSTR,P,4) ;added for mfi v6.1
  1. S BGPRT=$P(BGPSTR,P,5)
  1. K ^BGPTMP($J)
  1. S RETVAL="^BGPTMP("_$J_")"
  1. S ^BGPTMP($J,BGPI)="T00250DATA"_$C(30)
  1. D EP^BGP5GNXP(.BGPERR,DUZ,DUZ(2),BGPOPT,BGPCT,BGPEX,BGPLD,BGPMFITI,BGPRT)
  1. S BGPI=BGPI+1
  1. S ^BGPTMP($J,BGPI)=+$G(BGPERR)_$C(30)
  1. S ^BGPTMP($J,BGPI+1)=$C(31)
  1. D EN^XBVK("BGP")
  1. Q
  1. ;
  1. PED(RETVAL,BGPSTR) ;EP
  1. S X="MERR^BGP5GU",@^%ZOSF("TRAP") ; m error trap
  1. N BGPI,BGPJ,BGPDATA,BGPDA,P,BGPERR,BGPCT,BGPOT,BGPOPT,BGPRT,P,R,A,BGPFN,BGPRBG
  1. N BGPTP,BGPQTR,BGPRDT,BGPRE,BGPBAS,BGPPATT,BGPLIST,BGPPRV,BGPPROV,BGPEXP,BGPIND,BGPLOG
  1. S P="|",R="~",A="*"
  1. I $G(BGPSTR)="" D CATSTR(.BGPSTR,.BGPSTR)
  1. S BGPI=0
  1. S BGPERR=""
  1. S BGPCT=$P($P(BGPSTR,P),R)
  1. I $P(BGPCT,R)'?.N S BGPCT=$O(^ATXAX("B",BGPCT,0))
  1. S BGPTP=$P(BGPSTR,P,2)
  1. S BGPQTR=$P(BGPSTR,P,3)
  1. S BGPRDT=$P(BGPSTR,P,4)
  1. S BGPRBG=$P(BGPSTR,P,5)
  1. S BGPOPT="CRS 15 PATIENT EDUCATION REPORT"
  1. S BGPBAS=$P(BGPSTR,P,6)
  1. S BGPPATT=$P(BGPSTR,P,7)
  1. S BGPLIST=$P(BGPSTR,P,8)
  1. S BGPPRV=$P($P(BGPSTR,P,9),R)
  1. S BGPPROV=$P($P(BGPSTR,P,9),R,2)
  1. S BGPEXP=$P(BGPSTR,P,10)
  1. S BGPOT=$P(BGPSTR,P,11)
  1. S BGPINDI=$P(BGPSTR,P,13)
  1. S BGPLSTI=$P(BGPSTR,P,12)
  1. S BGPMFITI=$P(BGPSTR,P,14)
  1. S BGPRE=$P(BGPSTR,P,15)
  1. S BGPFN=$P(BGPSTR,P,16)
  1. S BGPLOG=$P(BGPSTR,P,17)
  1. N I
  1. F I=2:1 D Q:$P(BGPLSTI,A,I)=""
  1. . Q:$P(BGPLSTI,A,I)=""
  1. . N BGPL
  1. . S BGPL=$P($P(BGPLSTI,A,I),R)
  1. . S BGPLIST(BGPL)=""
  1. N J
  1. F J=2:1 D Q:$P(BGPINDI,A,J)=""
  1. . Q:$P(BGPINDI,A,J)=""
  1. . N BGPL
  1. . S BGPL=$P($P(BGPINDI,A,J),R)
  1. . S BGPIND(BGPL)=""
  1. K ^BGPTMP($J)
  1. S RETVAL="^BGPTMP("_$J_")"
  1. S ^BGPTMP($J,BGPI)="T00250DATA"_$C(30)
  1. D EP^BGP5GPED(.BGPERR,DUZ,DUZ(2),BGPOPT,BGPCT,BGPTP,.BGPIND,BGPQTR,BGPRE,BGPBAS,BGPPATT,BGPLIST,.BGPLIST,BGPPRV,BGPPROV,BGPEXP,BGPOT,BGPRDT,BGPMFITI,BGPFN,"",BGPRBG,BGPLOG)
  1. S BGPI=BGPI+1
  1. S ^BGPTMP($J,BGPI)=$G(BGPERR)_$C(30)
  1. S ^BGPTMP($J,BGPI+1)=$C(31)
  1. D EN^XBVK("BGP")
  1. Q
  1. ;
  1. PEDPP(RETVAL,BGPSTR) ;EP
  1. S X="MERR^BGP5GU",@^%ZOSF("TRAP") ; m error trap
  1. N BGPI,BGPJ,BGPDATA,BGPDA,P,BGPERR,BGPST,BGPOT,BGPOPT,BGPRT,P,R,A,BGPFN,BGPSTMP,BGPRBG
  1. N BGPTP,BGPQTR,BGPRDT,BGPRE,BGPBAS,BGPPATT,BGPLIST,BGPPRV,BGPPROV,BGPEXP,BGPIND,BGPLOG
  1. S P="|",R="~",A="*"
  1. I $G(BGPSTR)="" D CATSTR(.BGPSTR,.BGPSTR)
  1. S BGPI=0
  1. S BGPERR=""
  1. S BGPST=$P($P(BGPSTR,P),R)
  1. I $P(BGPST,R)'?.N S BGPST=$O(^DIBT("B",BGPST,0))
  1. S BGPTP=$P(BGPSTR,P,2)
  1. S BGPQTR=$P(BGPSTR,P,3)
  1. S BGPRDT=$P(BGPSTR,P,4)
  1. S BGPRBG=$P(BGPSTR,P,5)
  1. S BGPOPT="CRS 15 PATIENT EDUCATION REPORT"
  1. S BGPBAS=$P(BGPSTR,P,6)
  1. S BGPPATT=$P(BGPSTR,P,7)
  1. S BGPLIST=$P(BGPSTR,P,8)
  1. S BGPPRV=$P($P(BGPSTR,P,9),R)
  1. S BGPPROV=$P($P(BGPSTR,P,9),R,2)
  1. S BGPEXP=$P(BGPSTR,P,10)
  1. S BGPOT=$P(BGPSTR,P,11)
  1. S BGPINDI=$P(BGPSTR,P,13)
  1. S BGPLSTI=$P(BGPSTR,P,12)
  1. S BGPMFITI=$P(BGPSTR,P,14)
  1. S BGPRE=$P(BGPSTR,P,15)
  1. S BGPFN=$P(BGPSTR,P,16)
  1. S BGPLOG=$P(BGPSTR,P,17)
  1. N I
  1. F I=2:1 D Q:$P(BGPLSTI,A,I)=""
  1. . Q:$P(BGPLSTI,A,I)=""
  1. . N BGPL
  1. . S BGPL=$P($P(BGPLSTI,A,I),R)
  1. . S BGPLIST(BGPL)=""
  1. N J
  1. F J=2:1 D Q:$P(BGPINDI,A,J)=""
  1. . Q:$P(BGPINDI,A,J)=""
  1. . N BGPL
  1. . S BGPL=$P($P(BGPINDI,A,J),R)
  1. . S BGPIND(BGPL)=""
  1. K ^BGPTMP($J)
  1. S RETVAL="^BGPTMP("_$J_")"
  1. S ^BGPTMP($J,BGPI)="T00250DATA"_$C(30)
  1. D EP^BGP5GPED(.BGPERR,DUZ,DUZ(2),BGPOPT,"",BGPTP,.BGPIND,BGPQTR,BGPRE,BGPBAS,BGPPATT,BGPLIST,.BGPLIST,BGPPRV,BGPPROV,BGPEXP,BGPOT,BGPRDT,BGPMFITI,BGPFN,BGPST,BGPRBG,BGPLOG)
  1. S BGPI=BGPI+1
  1. S ^BGPTMP($J,BGPI)=$G(BGPERR)_$C(30)
  1. S ^BGPTMP($J,BGPI+1)=$C(31)
  1. D EN^XBVK("BGP")
  1. Q
  1. ;
  1. LHW(RETVAL,BGPSTR) ;EP
  1. S X="MERR^BGP5GU",@^%ZOSF("TRAP")
  1. N BGPI,BGPJ,BGPDATA,BGPDA,P,BGPERR,BGPCT,BGPEX,BGPLD,BGPRT,BGPMFITI,BGPOM,BGPOT,BGPFN
  1. ;BGPCT = COMMUNITY TAXONOMY IEN OR NAME
  1. ;BGPEX = EXPORT 1 or 0
  1. ;BGPLD = local files 1 or 0
  1. ;BGPRT = time to run report
  1. ;
  1. S P="|",R="~"
  1. S BGPI=0
  1. S BGPERR=""
  1. S BGPCT=$P($P(BGPSTR,P),R)
  1. I $P(BGPCT,R)'?.N S BGPCT=$O(^ATXAX("B",BGPCT,0))
  1. ;S BGPCT=$O(^ATXAX("B",BGPCT,0))
  1. S BGPOM=$P(BGPSTR,P,3)
  1. S BGPOPT="CRS 15 LOCAL HT/WT"
  1. S BGPMFITI=$P(BGPSTR,P,2) ;added for mfi v6.1
  1. S BGPRT=$P(BGPSTR,P,5)
  1. S BGPOT=$P(BGPSTR,P,4)
  1. S BGPFN=$P(BGPSTR,P,6)
  1. K ^BGPTMP($J)
  1. S RETVAL="^BGPTMP("_$J_")"
  1. S ^BGPTMP($J,BGPI)="T00250DATA"_$C(30)
  1. D EP^BGP5GLHW(.BGPERR,DUZ,DUZ(2),BGPOPT,BGPCT,BGPMFITI,BGPOM,BGPOT,BGPRT,BGPFN)
  1. S BGPI=BGPI+1
  1. S ^BGPTMP($J,BGPI)=$G(BGPERR)_$C(30)
  1. S ^BGPTMP($J,BGPI+1)=$C(31)
  1. D EN^XBVK("BGP")
  1. Q
  1. ;
  1. CMP(RETVAL,BGPSTR) ;EP
  1. S X="MERR^BGP5GU",@^%ZOSF("TRAP")
  1. N BGPI,BGPJ,BGPDATA,BGPDA,P,BGPERR,BGPCT,BGPQTR,BGPRDT,BGPRE,BGPLIST,BGPPRV,BGPPROV,BGPOT,BGPOPT,BGPRT,R
  1. N BGPBEN,BGPBLDT,BGPFN,BGPLOG
  1. S P="|",R="~"
  1. S BGPI=0
  1. S BGPERR=""
  1. S BGPCT=$P($P(BGPSTR,P),R)
  1. I $P(BGPCT,R)'?.N S BGPCT=$O(^ATXAX("B",BGPCT,0))
  1. S BGPQTR=$P(BGPSTR,P,2)
  1. S BGPRDT=$P(BGPSTR,P,3)
  1. S BGPRE=$P(BGPSTR,P,4)
  1. S BGPOPT="CRS 15 NATIONAL GPRA COMPREHENSIVE PATIENT LIST"
  1. S BGPLIST=$P(BGPSTR,P,5)
  1. S BGPPRV=$P($P(BGPSTR,P,6),R)
  1. S BGPPROV=$P($P(BGPSTR,P,6),R,2)
  1. S BGPOT=$P(BGPSTR,P,7)
  1. S BGPMFITI=$P(BGPSTR,P,8)
  1. S BGPBLDT=$P(BGPSTR,P,9)
  1. S BGPBEN=$P(BGPSTR,P,10)
  1. S BGPFN=$P(BGPSTR,P,11)
  1. S BGPLOG=$P(BGPSTR,P,12)
  1. K ^BGPTMP($J)
  1. S RETVAL="^BGPTMP("_$J_")"
  1. S ^BGPTMP($J,BGPI)="T00250DATA"_$C(30)
  1. D EP^BGP5GCMP(.BGPERR,DUZ,DUZ(2),BGPOPT,BGPLIST,BGPPRV,BGPPROV,BGPQTR,BGPRE,BGPCT,BGPOT,BGPRDT,BGPMFITI,BGPBLDT,BGPBEN,BGPFN,BGPLOG)
  1. S BGPI=BGPI+1
  1. S ^BGPTMP($J,BGPI)=+$G(BGPERR)_$C(30)
  1. S ^BGPTMP($J,BGPI+1)=$C(31)
  1. D EN^XBVK("BGP")
  1. Q
  1. ;
  1. DASH(RETVAL,BGPSTR) ;-- dashboard report
  1. S X="MERR^BGP5GU",@^%ZOSF("TRAP")
  1. N BGPI,BGPJ,BGPDATA,BGPDA,P,BGPERR,BGPCT,BGPYN,BGPOT,BGPOPT,BGPRT,R,BGPOM,BGPFN,BGPYR,BGPPRV
  1. S P="|",R="~"
  1. S BGPI=0
  1. S BGPERR=""
  1. S BGPCT=$P($P(BGPSTR,P),R)
  1. I $P(BGPCT,R)'?.N S BGPCT=$O(^ATXAX("B",BGPCT,0))
  1. S BGPYN=$P(BGPSTR,P,2)
  1. S BGPOT=$P(BGPSTR,P,3)
  1. S BGPOPT=$P(BGPSTR,P,4)
  1. S BGPOPT="CRS 15 NATIONAL GPRA DASHBOARD REPORT"
  1. S BGPRT=$P(BGPSTR,P,5)
  1. S BGPMFITI=$P(BGPSTR,P,6)
  1. S BGPYWCHW=0 ;$P(BGPSTR,P,7) LAB/V13
  1. S BGPOM=$P(BGPSTR,P,8)
  1. S BGPFN=$P(BGPSTR,P,9)
  1. S BGPYR=$P(BGPSTR,P,10)
  1. S BGPPRV=$P(BGPSTR,P,11)
  1. K ^BGPTMP($J)
  1. S RETVAL="^BGPTMP("_$J_")"
  1. S ^BGPTMP($J,BGPI)="T00250DATA"_$C(30)
  1. D EP^BGP5GDSH(.BGPERR,DUZ,DUZ(2),BGPOPT,BGPCT,BGPOT,BGPRT,BGPMFITI,BGPFN,BGPYR,BGPPRV)
  1. S BGPI=BGPI+1
  1. S ^BGPTMP($J,BGPI)=$G(BGPERR)_$C(30)
  1. S ^BGPTMP($J,BGPI+1)=$C(31)
  1. D EN^XBVK("BGP")
  1. Q
  1. ;