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

BGP7GR.m

Go to the documentation of this file.
  1. BGP7GR ; IHS/CMI/LAB - BGPG Visual CRS Reports ;
  1. ;;17.1;IHS CLINICAL REPORTING;;MAY 10, 2017;Build 29
  1. ;
  1. NTL(RETVAL,BGPSTR) ;-- queue ngr
  1. S X="MERR^BGP7GU",@^%ZOSF("TRAP")
  1. N BGPI,BGPJ,BGPDATA,BGPDA,P,BGPERR,BGPCT,BGPYN,BGPOT,BGPOPT,BGPRT,R,BGPOM,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 BGPYN=$P(BGPSTR,P,2)
  1. S BGPOT=$P(BGPSTR,P,3)
  1. S BGPOPT=$P(BGPSTR,P,4)
  1. S BGPOPT="CRS 17 NATIONAL GPRA REPORT"
  1. S BGPRT=$P(BGPSTR,P,5)
  1. S BGPMFITI=$P(BGPSTR,P,6)
  1. S BGPYWCHW=0 ;$P(BGPSTR,P,7)
  1. S BGPOM=$P(BGPSTR,P,8)
  1. S BGPFN=$P(BGPSTR,P,9)
  1. S BGPLOG=$P(BGPSTR,P,10)
  1. K ^BGPTMP($J)
  1. S RETVAL="^BGPTMP("_$J_")"
  1. S ^BGPTMP($J,BGPI)="T00250DATA"_$C(30)
  1. D EP^BGP7GNTL(.BGPERR,DUZ,DUZ(2),BGPOPT,BGPCT,BGPYN,BGPOT,BGPRT,BGPMFITI,BGPYWCHW,BGPOM,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. NPL(RETVAL,BGPSTR) ;--queue nat lists
  1. S X="MERR^BGP7GU",@^%ZOSF("TRAP")
  1. N BGPI,BGPJ,BGPDATA,BGPDA,P,BGPERR,BGPCT,BGPDT,BGPOT,BGPOPT,BGPRT,BGPPIEN,BGPPRV,BGPQTR,BGPLST,R,BGPIND,BGPINDL,BGPFN,BGPLOG
  1. N BGPBLDT,BGPBEN
  1. S P="|",R="~"
  1. S BGPI=0
  1. S BGPERR=""
  1. I $G(BGPSTR)="" D CATSTR(.BGPSTR,.BGPSTR)
  1. S BGPCT=$P($P(BGPSTR,P),R)
  1. I $P(BGPCT,R)'?.N S BGPCT=$O(^ATXAX("B",BGPCT,0))
  1. S BGPDT=$P(BGPSTR,P,2)
  1. S BGPPIEN=$P($P(BGPSTR,P,3),R)
  1. S BGPPRV=$P($P(BGPSTR,P,3),R,2)
  1. S BGPOPT="CRS 17 NATIONAL PATIENT LISTS"
  1. S BGPOT=$P(BGPSTR,P,4)
  1. S BGPRT=$P(BGPSTR,P,5)
  1. S BGPQTR=$P(BGPSTR,P,6)
  1. S BGPLST=$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. N I
  1. F I=13:1 D Q:$P(BGPSTR,P,I)=""
  1. . Q:$P(BGPSTR,P,I)=""
  1. . N BGPNSTR
  1. . S BGPNSTR=$P(BGPSTR,P,I)
  1. . S BGPINDI=$P(BGPNSTR,R)
  1. . I $G(BGPINDI)["*" S BGPINDI=$P(BGPINDI,"*")
  1. . S BGPIND(BGPINDI)=""
  1. . N J
  1. . F J=2:1 D Q:$P(BGPNSTR,R,J)=""
  1. .. Q:$P(BGPNSTR,R,J)=""
  1. .. N BGPSIND
  1. .. S BGPSIND=$P(BGPNSTR,R,J)
  1. .. I $G(BGPSIND)["*" S BGPSIND=$P(BGPSIND,"*")
  1. .. S BGPINDL(BGPINDI,BGPSIND)=""
  1. K ^BGPTMP($J)
  1. S RETVAL="^BGPTMP("_$J_")"
  1. S ^BGPTMP($J,BGPI)="T00250DATA"_$C(30)
  1. D EP^BGP7GNPL(.BGPERR,DUZ,DUZ(2),BGPOPT,BGPCT,.BGPIND,.BGPINDL,BGPQTR,BGPDT,BGPLST,BGPPIEN,BGPPRV,BGPOT,BGPRT,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. NPLS(RETVAL,BGPSTR) ;-- queue npl search template
  1. S X="MERR^BGP7GU",@^%ZOSF("TRAP")
  1. N BGPI,BGPJ,BGPDATA,BGPDA,P,B,BGPERR,BGPCT,BGPDT,BGPOT,BGPOPT,BGPRT,BGPPIEN,BGPPRV,BGPQTR,BGPLST,R,BGPIND,BGPINDL,BGPSTMP,BGPFN
  1. N BGPBEN,BGPBASE,BGPSRCH
  1. S P="|",R="~",B="\"
  1. S BGPI=0
  1. S BGPERR=""
  1. I $G(BGPSTR)="" D CATSTR(.BGPSTR,.BGPSTR)
  1. S BGPCT=$P($P(BGPSTR,P),R)
  1. I $P(BGPCT,R)'?.N S BGPCT=$O(^ATXAX("B",BGPCT,0))
  1. S BGPDT=$P(BGPSTR,P,2)
  1. S BGPPIEN=$P($P(BGPSTR,P,3),R)
  1. S BGPPRV=$P($P(BGPSTR,P,3),R,2)
  1. S BGPOPT="CRS 17 NATIONAL PATIENT LIST SEARCH TEMPLATE"
  1. S BGPOT=$P(BGPSTR,P,4)
  1. S BGPRT=$P(BGPSTR,P,5)
  1. S BGPQTR=$P(BGPSTR,P,6)
  1. S BGPLST=$P(BGPSTR,P,7)
  1. S BGPMFITI=$P(BGPSTR,P,8)
  1. S BGPBASE=$P(BGPSTR,P,9)
  1. S BGPBEN=$P(BGPSTR,P,10)
  1. S BGPFN=$P(BGPSTR,P,11)
  1. S BGPSTMP=$P(BGPSTR,B,2)
  1. S BGPSRCH=$P($P(BGPSTR,P,13),"&",2,9999)
  1. N I
  1. F I=13:1 D Q:$P(BGPSTR,P,I)=""
  1. . Q:$P(BGPSTR,P,I)=""
  1. . N BGPNSTR
  1. . S BGPNSTR=$P(BGPSTR,P,I)
  1. . S BGPINDI=$P(BGPNSTR,R)
  1. . I $G(BGPINDI)["*" S BGPINDI=$P(BGPINDI,"*")
  1. . S BGPIND(BGPINDI)=""
  1. . N J
  1. . F J=2:1 D Q:$P(BGPNSTR,R,J)=""
  1. .. Q:$P(BGPNSTR,R,J)=""
  1. .. Q:$P(BGPNSTR,R,J)["\"
  1. .. N BGPSIND
  1. .. S BGPSIND=$P(BGPNSTR,R,J)
  1. .. I $G(BGPSIND)["&" S BGPSIND=$P(BGPSIND,"&")
  1. .. Q:'$G(BGPSIND)
  1. .. I $G(BGPSIND)["*" S BGPSIND=$P(BGPSIND,"*")
  1. .. I $G(BGPSRCH)]"" S BGPSTMP=$P(BGPSRCH,"&",(J-1)) ;ihs/cmi/maw 3/30/2014 for new GUI v11.1
  1. .. S BGPINDL(BGPINDI,BGPSIND)=""
  1. .. S BGPINDL(BGPINDI,BGPSIND,"TEMP")=$G(BGPSTMP)
  1. K ^BGPTMP($J)
  1. S RETVAL="^BGPTMP("_$J_")"
  1. S ^BGPTMP($J,BGPI)="T00250DATA"_$C(30)
  1. D EP^BGP7GNST(.BGPERR,DUZ,DUZ(2),BGPOPT,BGPCT,.BGPIND,.BGPINDL,BGPQTR,BGPDT,BGPLST,BGPPIEN,BGPPRV,BGPOT,BGPRT,BGPMFITI,BGPBASE,BGPBEN,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. COM(RETVAL,BGPSTR) ;sel measures by comm
  1. S X="MERR^BGP7GU",@^%ZOSF("TRAP")
  1. N BGPI,BGPJ,BGPDATA,BGPDA,P,BGPERR,BGPCT,BGPOT,BGPOPT,BGPRT,P,R,A
  1. N BGPTP,BGPQTR,BGPRDT,BGPRE,BGPBAS,BGPPATT,BGPLIST,BGPPRV,BGPPROV,BGPIND,BGPINDI,BGPLSTI,BGPLOG
  1. N BGPCOMM
  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 BGPRE=$P(BGPSTR,P,5)
  1. S BGPOPT="CRS 17 COM - SELECTED MEASURES 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 BGPOT=$P(BGPSTR,P,10)
  1. S BGPFN=$P(BGPSTR,P,14)
  1. S BGPINDI=$P(BGPSTR,P,12)
  1. S BGPMFITI=$P(BGPSTR,P,13)
  1. S BGPLSTI=$P(BGPSTR,P,11)
  1. S BGPLOG=$P(BGPSTR,P,15)
  1. S BGPCOMM=$P(BGPSTR,P,16)
  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^BGP7GCOM(.BGPERR,DUZ,DUZ(2),BGPOPT,BGPCT,BGPTP,.BGPIND,BGPQTR,BGPRE,BGPBAS,BGPPATT,BGPLIST,.BGPLIST,BGPPRV,BGPPROV,BGPOT,BGPRDT,BGPMFITI,BGPFN,BGPLOG,BGPCOMM)
  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. PP(RETVAL,BGPSTR) ;-- queue NGR
  1. S X="MERR^BGP7GU",@^%ZOSF("TRAP")
  1. N BGPI,BGPJ,BGPDATA,BGPDA,P,BGPERR,BGPSEAT,BGPOT,BGPOPT,BGPRT,P,R,A,BGPFN,BGPLOG
  1. N BGPTP,BGPQTR,BGPRDT,BGPRE,BGPBAS,BGPPATT,BGPLIST,BGPPRV,BGPPROV,BGPSEAT,BGPIND,BGPINDG,BGPINDI,BGPLSTI
  1. S P="|",R="~",A="*"
  1. I $G(BGPSTR)="" D CATSTR(.BGPSTR,.BGPSTR)
  1. S BGPI=0
  1. S BGPERR=""
  1. S BGPTP=$P(BGPSTR,P,2)
  1. S BGPQTR=$P(BGPSTR,P,3)
  1. S BGPRDT=$P(BGPSTR,P,4)
  1. S BGPRE=$P(BGPSTR,P,5)
  1. S BGPOPT="CRS 17 PATIENT PANEL SELECTED MEASURES REPORT"
  1. S BGPBAS=$P(BGPSTR,P,6)
  1. S BGPSEAT=$P($P(BGPSTR,P,7),R)
  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 BGPOT=$P(BGPSTR,P,10)
  1. S BGPINDI=$P(BGPSTR,P,12)
  1. S BGPLSTI=$P(BGPSTR,P,11)
  1. S BGPFN=$P(BGPSTR,P,13)
  1. S BGPLOG=$P(BGPSTR,P,14)
  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^BGP7GPP(.BGPERR,DUZ,DUZ(2),BGPOPT,BGPTP,.BGPIND,BGPQTR,BGPRE,BGPBAS,BGPSEAT,BGPLIST,.BGPLIST,BGPPRV,BGPPROV,BGPOT,BGPRDT,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. ALL(RETVAL,BGPSTR) ;--selected with all comms
  1. S X="MERR^BGP7GU",@^%ZOSF("TRAP")
  1. N BGPI,BGPJ,BGPDATA,BGPDA,P,BGPERR,BGPCT,BGPOT,BGPOPT,BGPRT,P,R,A,BGPLOG
  1. N BGPTP,BGPQTR,BGPRDT,BGPRE,BGPBAS,BGPPATT,BGPLIST,BGPPRV,BGPPROV,BGPIND,BGPINDG,BGPLSTI,BGPINDI,BGPFN
  1. S P="|",R="~",A="*"
  1. I $G(BGPSTR)="" D CATSTR(.BGPSTR,.BGPSTR)
  1. S BGPI=0
  1. S BGPERR=""
  1. S BGPTP=$P(BGPSTR,P,2)
  1. S BGPQTR=$P(BGPSTR,P,3)
  1. S BGPRDT=$P(BGPSTR,P,4)
  1. S BGPRE=$P(BGPSTR,P,5)
  1. S BGPOPT="CRS 17 ALL PATIENT SELECTED MEASURES 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 BGPOT=$P(BGPSTR,P,10)
  1. S BGPINDI=$P(BGPSTR,P,12)
  1. S BGPLSTI=$P(BGPSTR,P,11)
  1. S BGPMFITI=$P(BGPSTR,P,13)
  1. S BGPFN=$P(BGPSTR,P,14)
  1. S BGPLOG=$P(BGPSTR,P,15)
  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^BGP7GALL(.BGPERR,DUZ,DUZ(2),BGPOPT,BGPTP,.BGPIND,BGPQTR,BGPRE,BGPBAS,BGPPATT,BGPLIST,.BGPLIST,BGPPRV,BGPPROV,BGPOT,BGPRDT,BGPMFITI,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. CMS(RETVAL,BGPSTR) ;
  1. S X="MERR^BGP7GU",@^%ZOSF("TRAP")
  1. N BGPI,BGPJ,BGPDATA,BGPDA,P,BGPERR,BGPCT,BGPDT,BGPOT,BGPOPT,BGPRT,BGPPIEN,BGPPRV,BGPQTR,BGPLST,R,BGPIND,BGPBEN,BGPEXPL
  1. N BGPEDT,BGPBDT,BGPFN
  1. S P="|",R="~"
  1. S BGPI=0
  1. S BGPERR=""
  1. I $G(BGPSTR)="" D CATSTR(.BGPSTR,.BGPSTR)
  1. S BGPCT=$P(BGPSTR,P)
  1. I $P(BGPCT,R)'?.N S BGPCT=$O(^DIC(4,"B",BGPCT,0))
  1. I $P(BGPCT,R)?.N S BGPCT=$P(BGPCT,R)
  1. S BGPDT=$P(BGPSTR,P,2)
  1. S BGPBDT=$P(BGPSTR,P,3)
  1. S BGPEDT=$P(BGPSTR,P,4)
  1. S BGPOPT="CRS 17 CMS PERFORMANCE REPORT"
  1. S BGPRT=$P(BGPSTR,P,7)
  1. S BGPQTR=$P(BGPSTR,P,5)
  1. S BGPBEN=$P(BGPSTR,P,6)
  1. S BGPEXPL=$P(BGPSTR,P,8)
  1. S BGPFN=$P(BGPSTR,P,9)
  1. N I
  1. F I=11:1 D Q:$P(BGPSTR,P,I)=""
  1. . Q:$P(BGPSTR,P,I)=""
  1. . N BGPNSTR
  1. . S BGPNSTR=$P(BGPSTR,P,I)
  1. . S BGPINDI=$P(BGPNSTR,R)
  1. . S BGPIND(BGPINDI)=""
  1. . N J
  1. . F J=2:1 D Q:$P(BGPNSTR,R,J)=""
  1. .. Q:$P(BGPNSTR,R,J)=""
  1. .. N BGPSIND
  1. .. S BGPSIND=$P(BGPNSTR,R,J)
  1. .. S BGPINDL(BGPINDI,BGPSIND)=""
  1. K ^BGPTMP($J)
  1. S RETVAL="^BGPTMP("_$J_")"
  1. S ^BGPTMP($J,BGPI)="T00250DATA"_$C(30)
  1. D EP^BGP7GCMS(.BGPERR,DUZ,DUZ(2),BGPOPT,BGPCT,.BGPIND,.BGPINDL,BGPQTR,BGPDT,BGPRT,BGPBDT,BGPEDT,BGPBEN,BGPEXPL,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. GPU(RETVAL,BGPSTR) ;-- queue ngr
  1. S X="MERR^BGP7GU",@^%ZOSF("TRAP")
  1. N BGPI,BGPJ,BGPDATA,BGPDA,P,BGPERR,BGPCT,BGPYN,BGPOT,BGPOPT,BGPRT,BGPIND,BGPLIST
  1. N BGPQTR,BGPRE,BGPBAS,BGPBEN,BGPINDI,R,BGPFN,BGPYNPAN,BGPPAN,BGPFP,BGPDESP,BGPLOG
  1. N BGPCOMM
  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 BGPQTR=$P(BGPSTR,P,3)
  1. S BGPRT=$P(BGPSTR,P,4)
  1. S BGPRE=$P(BGPSTR,P,5)
  1. S BGPBAS=$P(BGPSTR,P,6)
  1. S BGPBEN=$P(BGPSTR,P,7)
  1. S BGPOT=$P(BGPSTR,P,8)
  1. S BGPMFITI=$P(BGPSTR,P,9)
  1. S BGPFN=$P(BGPSTR,P,10)
  1. S BGPYNPAN=$P(BGPSTR,P,11)
  1. S BGPPAN=$P(BGPSTR,P,12)
  1. S BGPFP=$P(BGPSTR,P,13)
  1. S BGPDESP=$P(BGPSTR,P,14)
  1. S BGPLOG=$P(BGPSTR,P,15)
  1. S BGPCOMM=$P(BGPSTR,P,16)
  1. S BGPOPT="CRS 17 GPU GPRA PERFORMANCE REPORT"
  1. K ^BGPTMP($J)
  1. S RETVAL="^BGPTMP("_$J_")"
  1. S ^BGPTMP($J,BGPI)="T00250DATA"_$C(30)
  1. D EP^BGP7GGPU(.BGPERR,DUZ,DUZ(2),BGPOPT,BGPCT,BGPQTR,BGPRE,BGPBAS,BGPBEN,BGPYN,BGPOT,BGPRT,BGPMFITI,BGPFN,BGPYNPAN,BGPPAN,BGPFP,BGPDESP,BGPLOG,BGPCOMM)
  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. HED(RETVAL,BGPSTR) ;-- HEDIS Report
  1. S X="MERR^BGP7GU",@^%ZOSF("TRAP")
  1. N BGPI,BGPJ,BGPDATA,BGPDA,P,BGPERR,BGPCT,BGPOT,BGPOPT,BGPRT,P,R,A
  1. N BGPTP,BGPQTR,BGPRDT,BGPRE,BGPBAS,BGPPATT,BGPLIST,BGPPRV,BGPPROV,BGPYN,BGPIND,BGPLIST,BGPFN
  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 BGPYN=$P(BGPSTR,P,2)
  1. S BGPQTR=$P(BGPSTR,P,3)
  1. S BGPRDT=$P(BGPSTR,P,4)
  1. S BGPRE=$P(BGPSTR,P,5)
  1. S BGPOPT="CRS 17 HEDIS 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 BGPOT=$P(BGPSTR,P,10)
  1. S BGPLSTI=$P(BGPSTR,P,11)
  1. S BGPMFITI=$P(BGPSTR,P,12)
  1. S BGPFN=$P(BGPSTR,P,13)
  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. K ^BGPTMP($J)
  1. S RETVAL="^BGPTMP("_$J_")"
  1. S ^BGPTMP($J,BGPI)="T00250DATA"_$C(30)
  1. D EP^BGP7GHED(.BGPERR,DUZ,DUZ(2),BGPOPT,BGPCT,BGPQTR,BGPRE,BGPBAS,BGPPATT,BGPYN,BGPLIST,.BGPLIST,BGPPRV,BGPPROV,BGPOT,BGPRDT,BGPMFITI,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. LST(RETVAL,BGPSTR) ;-- list files
  1. S X="MERR^BGP7GU",@^%ZOSF("TRAP")
  1. N BGPI,BGPJ,BGPDATA,BGPDA,P,BGPERR,BGPCT,BGPYN,BGPOT,BGPOPT,BGPRT,R,BGPFN
  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 BGPRT=$P(BGPSTR,P,5)
  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^BGP7GNPL(.BGPERR,DUZ,DUZ(2),BGPOPT,BGPCT,BGPYN,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. NPLST(RETVAL,BGPSTR) ;-- list files
  1. S X="MERR^BGP7GU",@^%ZOSF("TRAP")
  1. N BGPI,BGPJ,BGPDATA,BGPDA,P,BGPERR,BGPCT,BGPYN,BGPOT,BGPOPT,BGPRT,R,BGPFN
  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 BGPRT=$P(BGPSTR,P,5)
  1. S BGPMFITI=$P(BGPSTR,P,6)
  1. S BGPFN=$P(BGPSTR,P,7)
  1. K ^BGPTMP($J)
  1. S RETVAL="^BGPTMP("_$J_")"
  1. S ^BGPTMP($J,BGPI)="T00250DATA"_$C(30)
  1. D EP^BGP7GNST(.BGPERR,DUZ,DUZ(2),BGPOPT,BGPCT,BGPYN,BGPOT,BGPRT,BGPMFITI,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. ELD(RETVAL,BGPSTR) ;
  1. G ELD^BGP7GR1
  1. ONTL(RETVAL,BGPSTR) ;
  1. S X="MERR^BGP7GU",@^%ZOSF("TRAP")
  1. N P,BGPI,BGPDA,BGPRIEN,BGPNOD
  1. S P="|"
  1. S BGPRIEN=$P(BGPSTR,P)
  1. S BGPNOD=11
  1. I $P($G(^BGPGUIG(BGPRIEN,0)),U,7)="X" S BGPNOD=12
  1. S RETVAL="^BGPTMP("_$J_")"
  1. S BGPI=0
  1. S ^BGPTMP($J,BGPI)="T00250DATA"_$C(30)
  1. S BGPDA=0 F S BGPDA=$O(^BGPGUIG(BGPRIEN,BGPNOD,BGPDA)) Q:'BGPDA D
  1. . S BGPI=BGPI+1
  1. . S ^BGPTMP($J,BGPI)=$G(^BGPGUIG(BGPRIEN,BGPNOD,BGPDA,0))_$C(30)
  1. S ^BGPTMP($J,BGPI+1)=$C(31)_$G(X)
  1. D EN^XBVK("BGP")
  1. Q
  1. ;
  1. DNTL(RETVAL,BGPSTR) ;
  1. S X="MERR^BGP7GU",@^%ZOSF("TRAP")
  1. N P,BGPI,BGPDA,BGPRIEN
  1. S P="|"
  1. S BGPRIEN=$P(BGPSTR,P)
  1. S RETVAL="^BGPTMP("_$J_")"
  1. S BGPI=0
  1. S ^BGPTMP($J,BGPI)="T00250DATA"_$C(30)
  1. S BGPDA=0 F S BGPDA=$O(^BGPGUIG(BGPRIEN,12,BGPDA)) Q:'BGPDA D
  1. . S BGPI=BGPI+1
  1. . S ^BGPTMP($J,BGPI)=$TR($G(^BGPGUIG(BGPRIEN,12,BGPDA,0)),"^","~")_$C(30)
  1. S ^BGPTMP($J,BGPI+1)=$C(31)_$G(BGPERR)
  1. D EN^XBVK("BGP")
  1. Q
  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. ;