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

BGP4GRA.m

Go to the documentation of this file.
  1. BGP4GRA ; IHS/CMI/LAB - BGP Gui Area Reports 5/2/2005 8:38:59 PM ;
  1. ;;14.1;IHS CLINICAL REPORTING;;MAY 29, 2014;Build 114
  1. ;
  1. ;
  1. ;
  1. ;area GPRA reports
  1. Q
  1. ;
  1. DEBUG(RETVAL,BGPSTR) ;run the debugger
  1. D DEBUG^%Serenji("AONM^BGP4GRA(.RETVAL,.BGPSTR)")
  1. Q
  1. ;
  1. AGP(RETVAL,BGPSTR) ;-- queue National GPRA Report
  1. S X="MERR^BGP4GU",@^%ZOSF("TRAP") ; m error trap
  1. N BGPI,BGPJ,BGPDATA,BGPDA,P,BGPERR,BGPAF,BGPYN,BGPOT,BGPOPT,BGPRT,BGPFN,A,R,BGPLOG
  1. I $G(BGPSTR)="" D CATSTR^BGPGR(.BGPSTR,.BGPSTR)
  1. S P="|",A="*",R="~"
  1. S BGPI=0
  1. S BGPERR=""
  1. S BGPAF=$P(BGPSTR,P)
  1. S BGPOT=$P(BGPSTR,P,2)
  1. S BGPFN=$P(BGPSTR,P,3)
  1. S BGPOPT="CRS 14 AREA NATIONAL GPRA REPORT"
  1. S BGPRT=$P(BGPSTR,P,4)
  1. S BGPLSTI=$P(BGPSTR,P,5)
  1. S BGPFN=$P(BGPSTR,P,7)
  1. S BGPLOG=$P(BGPSTR,P,8)
  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)="T02500DATA"_$C(30)
  1. D EP^BGP4GAGP(.BGPERR,DUZ,DUZ(2),BGPOPT,BGPAF,.BGPLIST,BGPOT,BGPFN,BGPRT,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. AELD(RETVAL,BGPSTR) ;-- area elder care report
  1. S X="MERR^BGP4GU",@^%ZOSF("TRAP") ; m error trap
  1. N BGPI,BGPJ,BGPDATA,BGPDA,P,BGPERR,BGPCT,BGPYN,BGPOT,BGPOPT,BGPRT
  1. N BGPQTR,BGPRE,BGPBAS,BGPBEN,BGPFAC,A,R,BGPFN,BGPLOG
  1. I $G(BGPSTR)="" D CATSTR^BGPGR(.BGPSTR,.BGPSTR)
  1. S P="|",A="*",R="~"
  1. S BGPI=0
  1. S BGPERR=""
  1. S BGPQTR=$P(BGPSTR,P)
  1. S BGPRT=$P(BGPSTR,P,2)
  1. S BGPRE=$P(BGPSTR,P,3)
  1. S BGPPER=$P(BGPSTR,P,4)
  1. S BGPBAS=$P(BGPSTR,P,5)
  1. S BGPBEN=$P(BGPSTR,P,6)
  1. S BGPOT=$P(BGPSTR,P,7)
  1. S BGPLSTI=$P(BGPSTR,P,8)
  1. S BGPFN=$P(BGPSTR,P,11)
  1. S BGPLOG=$P(BGPSTR,P,12)
  1. S BGPOPT="CRS 14 AREA ELDER CARE REPORT"
  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^BGP4GAEL(.BGPERR,DUZ,DUZ(2),BGPOPT,BGPRT,.BGPLIST,BGPQTR,BGPPER,BGPBAS,BGPBEN,BGPOT,BGPRE,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. AHED(RETVAL,BGPSTR) ;-- area hedis report
  1. S X="MERR^BGP4GU",@^%ZOSF("TRAP") ; m error trap
  1. N BGPI,BGPJ,BGPDATA,BGPDA,P,BGPERR,BGPCT,BGPYN,BGPOT,BGPOPT,BGPRT
  1. N BGPQTR,BGPRE,BGPBAS,BGPBEN,BGPFAC,BGPFN
  1. I $G(BGPSTR)="" D CATSTR^BGPGR(.BGPSTR,.BGPSTR)
  1. S P="|",A="*",R="~"
  1. S BGPI=0
  1. S BGPERR=""
  1. S BGPQTR=$P(BGPSTR,P)
  1. S BGPRT=$P(BGPSTR,P,2)
  1. S BGPRE=$P(BGPSTR,P,3)
  1. S BGPPER=$P(BGPSTR,P,4)
  1. S BGPBAS=$P(BGPSTR,P,5)
  1. S BGPBEN=$P(BGPSTR,P,6)
  1. S BGPOT=$P(BGPSTR,P,7)
  1. S BGPLSTI=$P(BGPSTR,P,8)
  1. S BGPFN=$P(BGPSTR,P,11)
  1. S BGPOPT="CRS 14 AREA HEDIS REPORT"
  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^BGP4GAHE(.BGPERR,DUZ,DUZ(2),BGPOPT,BGPRT,.BGPLIST,BGPQTR,BGPPER,BGPBAS,BGPBEN,BGPOT,BGPRE,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. APER(RETVAL,BGPSTR) ;-- area performance report
  1. S X="MERR^BGP4GU",@^%ZOSF("TRAP") ; m error trap
  1. N BGPI,BGPJ,BGPDATA,BGPDA,P,BGPERR,BGPCT,BGPYN,BGPOT,BGPOPT,BGPRT
  1. N BGPQTR,BGPRE,BGPBAS,BGPBEN,BGPFAC,A,R,BGPFN,BGPLOG
  1. I $G(BGPSTR)="" D CATSTR^BGPGR(.BGPSTR,.BGPSTR)
  1. S P="|",A="*",R="~"
  1. S BGPI=0
  1. S BGPERR=""
  1. S BGPQTR=$P(BGPSTR,P)
  1. S BGPRT=$P(BGPSTR,P,2)
  1. S BGPRE=$P(BGPSTR,P,3)
  1. S BGPPER=$P(BGPSTR,P,4)
  1. S BGPBAS=$P(BGPSTR,P,5)
  1. S BGPBEN=$P(BGPSTR,P,6)
  1. S BGPOT=$P(BGPSTR,P,7)
  1. S BGPLSTI=$P(BGPSTR,P,8)
  1. S BGPFN=$P(BGPSTR,P,11)
  1. S BGPLOG=$P(BGPSTR,P,12)
  1. S BGPOPT="CRS 14 AREA GPRA PERFORMANCE REPORT"
  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^BGP4GAPU(.BGPERR,DUZ,DUZ(2),BGPOPT,BGPRT,.BGPLIST,BGPQTR,BGPPER,BGPBAS,BGPBEN,BGPOT,BGPRE,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. CHW(RETVAL,BGPSTR) ;-- queue National GPRA Report
  1. S X="MERR^BGP4GU",@^%ZOSF("TRAP") ; m error trap
  1. N BGPI,BGPJ,BGPDATA,BGPDA,P,BGPERR,BGPAF,BGPYN,BGPOT,BGPMSG,BGPOPT,BGPRT,BGPFN,A,R,BGPOM,BGPFN
  1. I $G(BGPSTR)="" D CATSTR^BGPGR(.BGPSTR,.BGPSTR)
  1. S P="|",A="*",R="~"
  1. S BGPI=0
  1. S BGPERR=""
  1. S BGPAF=$P(BGPSTR,P)
  1. S BGPOPT="CRS 14 AREA HEIGHT AND WEIGHT DATA FILE"
  1. S BGPRT=$P(BGPSTR,P,4)
  1. S BGPLSTI=$P(BGPSTR,P,5)
  1. S BGPOM=$P(BGPSTR,P,6)
  1. S BGPFN=$P(BGPSTR,P,7)
  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^BGP4GACW(.BGPERR,DUZ,DUZ(2),BGPOPT,BGPAF,.BGPLIST,BGPRT,BGPOM,BGPFN)
  1. S BGPMSG=$P(BGPERR,U,2)
  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. APED(RETVAL,BGPSTR) ;-- area elder care report
  1. S X="MERR^BGP4GU",@^%ZOSF("TRAP") ; m error trap
  1. N BGPI,BGPJ,BGPDATA,BGPDA,P,BGPERR,BGPCT,BGPYN,BGPOT,BGPOPT,BGPRT,BGPFN
  1. N BGPQTR,BGPRE,BGPBAS,BGPBEN,BGPFAC,A,R,BGPBG,BGPLOG
  1. I $G(BGPSTR)="" D CATSTR^BGPGR(.BGPSTR,.BGPSTR)
  1. S P="|",A="*",R="~"
  1. S BGPI=0
  1. S BGPERR=""
  1. S BGPQTR=$P(BGPSTR,P)
  1. S BGPRT=$P(BGPSTR,P,2)
  1. S BGPRE=$P(BGPSTR,P,3)
  1. S BGPPER=$P(BGPSTR,P,4)
  1. S BGPBAS=$P(BGPSTR,P,5)
  1. S BGPBEN=$P(BGPSTR,P,6)
  1. S BGPOT=$P(BGPSTR,P,7)
  1. S BGPLSTI=$P(BGPSTR,P,8)
  1. S BGPBG=$P(BGPSTR,P,10)
  1. S BGPFN=$P(BGPSTR,P,11)
  1. S BGPLOG=$P(BGPSTR,P,12)
  1. S BGPOPT="CRS 14 AREA PATIENT EDUCATION REPORT"
  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^BGP4GAPE(.BGPERR,DUZ,DUZ(2),BGPOPT,BGPRT,.BGPLIST,BGPQTR,BGPPER,BGPBAS,BGPBEN,BGPOT,BGPRE,BGPFN,BGPBG,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. AONM(RETVAL,BGPSTR) ;-- area other national measures
  1. S X="MERR^BGP4GU",@^%ZOSF("TRAP") ; m error trap
  1. N BGPI,BGPJ,BGPDATA,BGPDA,P,BGPERR,BGPCT,BGPYN,BGPOT,BGPOPT,BGPRT,BGPFN
  1. N BGPQTR,BGPRE,BGPBAS,BGPBEN,BGPFAC,A,R,BGPHC,BGPLOG
  1. I $G(BGPSTR)="" D CATSTR^BGPGR(.BGPSTR,.BGPSTR)
  1. S P="|",A="*",R="~"
  1. S BGPI=0
  1. S BGPERR=""
  1. S BGPQTR=$P(BGPSTR,P)
  1. S BGPRT=$P(BGPSTR,P,2)
  1. S BGPRE=$P(BGPSTR,P,3)
  1. S BGPPER=$P(BGPSTR,P,4)
  1. S BGPBAS=$P(BGPSTR,P,5)
  1. S BGPBEN=$P(BGPSTR,P,6)
  1. S BGPOT=$P(BGPSTR,P,7)
  1. S BGPLSTI=$P(BGPSTR,P,8)
  1. S BGPHC=$P(BGPSTR,P,9)
  1. S BGPFN=$P(BGPSTR,P,11)
  1. S BGPLOG=$P(BGPSTR,P,12)
  1. S BGPOPT="CRS 14 AREA OTHER NATIONAL MEASURES REPORT"
  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^BGP4GAON(.BGPERR,DUZ,DUZ(2),BGPOPT,BGPRT,.BGPLIST,BGPQTR,BGPPER,BGPBAS,BGPBEN,BGPOT,BGPRE,BGPHC,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. ONM(RETVAL,BGPSTR) ;-- queue Other National Measures Report
  1. S X="MERR^BGP4GU",@^%ZOSF("TRAP") ; m error trap
  1. N BGPI,BGPJ,BGPDATA,BGPDA,P,BGPERR,BGPCT,BGPYN,BGPOT,BGPOPT,BGPRT,BGPIND,BGPLIST
  1. N BGPQTR,BGPRE,BGPBAS,BGPBEN,BGPINDI,R,BGPHC,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 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 BGPHC=$P(BGPSTR,P,10)
  1. S BGPFN=$P(BGPSTR,P,11)
  1. S BGPLOG=$P(BGPSTR,P,12)
  1. S BGPOPT="CRS 14 OTHER NATIONAL MEASURES REPORT"
  1. K ^BGPTMP($J)
  1. S RETVAL="^BGPTMP("_$J_")"
  1. S ^BGPTMP($J,BGPI)="T00250DATA"_$C(30)
  1. D EP^BGP4GDON(.BGPERR,DUZ,DUZ(2),BGPOPT,BGPCT,BGPQTR,BGPRE,BGPBAS,BGPBEN,BGPYN,BGPOT,BGPRT,BGPMFITI,BGPHC,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. ONML(RETVAL,BGPSTR) ;-- queue other national measures patient lists
  1. S X="MERR^BGP4GU",@^%ZOSF("TRAP") ; m error trap
  1. N BGPI,BGPJ,BGPDATA,BGPDA,P,BGPERR,BGPCT,BGPDT,BGPOT,BGPOPT,BGPRT,BGPPIEN,BGPPRV,BGPQTR,BGPLST,R,BGPIND,BGPINDL
  1. N BGPBLDT,BGPBEN,BGPFN,BGPLOG
  1. S P="|",R="~"
  1. S BGPI=0
  1. S BGPERR=""
  1. I $G(BGPSTR)="" D CATSTR^BGP4GR(.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 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 14 OTHER NATIONAL MEASURES PAT 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=11:1 D Q:$P(BGPSTR,P,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($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($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^BGP4GNPL(.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. AGP9(RETVAL,BGPSTR) ;-- queue National GPRA Report
  1. S X="MERR^BGP4GU",@^%ZOSF("TRAP") ; m error trap
  1. N BGPI,BGPJ,BGPDATA,BGPDA,P,BGPERR,BGPAF,BGPYN,BGPOT,BGPOPT,BGPRT,BGPFN,A,R,BGPFLN
  1. I $G(BGPSTR)="" D CATSTR^BGPGR(.BGPSTR,.BGPSTR)
  1. S P="|",A="*",R="~"
  1. S BGPI=0
  1. S BGPERR=""
  1. S BGPAF=$P(BGPSTR,P)
  1. S BGPOT=$P(BGPSTR,P,2)
  1. S BGPFN=$P(BGPSTR,P,3)
  1. S BGPOPT="CRS 14 AREA GPRA REPORT FOR 10"
  1. S BGPRT=$P(BGPSTR,P,4)
  1. S BGPLSTI=$P(BGPSTR,P,5)
  1. S BGPFLN=$P(BGPSTR,P,7)
  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)="T02500DATA"_$C(30)
  1. D EP^BGP4GAG9(.BGPERR,DUZ,DUZ(2),BGPOPT,BGPAF,.BGPLIST,BGPOT,BGPFN,BGPRT,BGPFLN)
  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. AGP10(RETVAL,BGPSTR) ;-- queue National GPRA Report
  1. S X="MERR^BGP4GU",@^%ZOSF("TRAP") ; m error trap
  1. N BGPI,BGPJ,BGPDATA,BGPDA,P,BGPERR,BGPAF,BGPYN,BGPOT,BGPOPT,BGPRT,BGPFN,A,R,BGPFLN
  1. I $G(BGPSTR)="" D CATSTR^BGPGR(.BGPSTR,.BGPSTR)
  1. S P="|",A="*",R="~"
  1. S BGPI=0
  1. S BGPERR=""
  1. S BGPAF=$P(BGPSTR,P)
  1. S BGPOT=$P(BGPSTR,P,2)
  1. S BGPFN=$P(BGPSTR,P,3)
  1. S BGPOPT="CRS 14 AREA GPRA REPORT FOR 10"
  1. S BGPRT=$P(BGPSTR,P,4)
  1. S BGPLSTI=$P(BGPSTR,P,5)
  1. S BGPFLN=$P(BGPSTR,P,7)
  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)="T02500DATA"_$C(30)
  1. D EP^BGP4GAG9(.BGPERR,DUZ,DUZ(2),BGPOPT,BGPAF,.BGPLIST,BGPOT,BGPFN,BGPRT,BGPFLN)
  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. AGPSUM(RETVAL,BGPSTR) ;-- queue National GPRA Report
  1. S X="MERR^BGP4GU",@^%ZOSF("TRAP") ; m error trap
  1. N BGPI,BGPJ,BGPDATA,BGPDA,P,BGPERR,BGPAF,BGPYN,BGPOT,BGPOPT,BGPRT,BGPFN,A,R,BGPSUMON
  1. I $G(BGPSTR)="" D CATSTR^BGPGR(.BGPSTR,.BGPSTR)
  1. S P="|",A="*",R="~"
  1. S BGPI=0
  1. S BGPERR=""
  1. S BGPAF=$P(BGPSTR,P)
  1. S BGPOT=$P(BGPSTR,P,2)
  1. S BGPOPT="CRS 14 AREA NTL GPRA SUM"
  1. S BGPRT=$P(BGPSTR,P,4)
  1. S BGPLSTI=$P(BGPSTR,P,5)
  1. S BGPFN=$P(BGPSTR,P,7)
  1. S BGPSUMON=1
  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^BGP4GAGS(.BGPERR,DUZ,DUZ(2),BGPOPT,BGPAF,.BGPLIST,BGPOT,BGPRT,BGPSUMON,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. ;