BGP7BAN.m

BGP7BAN ; IHS/CMI/LAB - BANNER FOR CRS 14 13 Aug 2010 11:31 AM 01 Mar 2017 2:30 PM 16 May 2016 2:28 PM ; 

 ;;17.1;IHS CLINICAL REPORTING;;MAY 10, 2017;Build 29

 ;

 ;

BANNER ;EP

V ; GET VERSION

 NEW BGPV,BGPL,BGPJ,BGPX

 S BGPV="17.1"  ;V71. CHANGE

 I $G(BGPTEXT)="" S BGPTEXT="TEXT",BGPL=3 G PRINT

 S BGPTEXT="TEXT"_BGPTEXT

 F BGPJ=1:1 S BGPX=$T(@BGPTEXT+BGPJ),BGPX=$P(BGPX,";;",2) Q:BGPX="QUIT"!(BGPX="")  S BGPL=BGPJ

PRINT W:$D(IOF) @IOF

 F BGPJ=1:1:BGPL S BGPX=$T(@BGPTEXT+BGPJ),BGPX=$P(BGPX,";;",2) W !,$$CTR(BGPX,80)

 W !,$$CTR("Version "_BGPV,80)

SITE W !!,$$CTR($$LOC,80)

 K BGPTEXT

 Q

RPTVER() ;EP

 Q "CRS 2017, Version 17.1"  ;V17.1

TEXT ;

 ;;****************************************************

 ;;**    IHS/RPMS CLINICAL REPORTING SYSTEM (CRS)    **

 ;;****************************************************

 ;;QUIT

 ;

TEXTN ;

 ;;*********************************

 ;;**      IHS/RPMS CRS 2017      **

 ;;**    National GPRA Reports    **

 ;;*********************************

 ;;QUIT

 ;

TEXTL ;

 ;;******************************************************

 ;;**                IHS/RPMS CRS 2017                 **

 ;;**   Reports for Local Use: IHS Clinical Measures   **

 ;;******************************************************

 ;;QUIT

 ;

TEXTO ;

 ;;*********************************

 ;;**      IHS/RPMS CRS 2017      **

 ;;**    Other National Reports   **

 ;;*********************************

 ;;QUIT

 ;

TEXT6 ;

 ;;*********************************

 ;;**      IHS/RPMS CRS 2017      **

 ;;**  Clinical Reporting System  **

 ;;*********************************

 ;;QUIT

 ;

TEXTA ;;

 ;;***************************

 ;;**   IHS/RPMS CRS 2017   **

 ;;**   Report Automation   **

 ;;***************************

 ;;QUIT

 ;

TEXTR ;

 ;;**************************

 ;;**   IHS/RPMS CRS 2017  **

 ;;**     Reports Menu     **

 ;;**************************

 ;;QUIT

TEXTX ;;

 ;;***************************

 ;;**   IHS/RPMS CRS 2017   **

 ;;**  Area Office Options  **

 ;;***************************

 ;;QUIT

 ;

TEXTS ;;

 ;;**************************

 ;;**   IHS/RPMS CRS 2017  **

 ;;**       Setup Menu     **

 ;;**************************

 ;;QUIT

 ;

TEXTT ;;

 ;;***************************

 ;;**   IHS/RPMS CRS 2017   **

 ;;**  Taxonomy Setup Menu  **

 ;;***************************

 ;;QUIT

 ;

TEXTZ ;;

 ;;***************************

 ;;**   IHS/RPMS CRS 2017   **

 ;;**  Taxonomy Check Menu  **

 ;;***************************

 ;;QUIT

 ;

TEXTU ;;

 ;;*****************************

 ;;**    IHS/RPMS CRS 2017    **

 ;;**  Taxonomy Reports Menu  **

 ;;*****************************

 ;;QUIT

 ;;

TEXTG ;;

 ;;*********************************

 ;;**      IHS/RPMS CRS 2017      **

 ;;**  Lab Taxonomy Reports Menu  **

 ;;*********************************

 ;;QUIT

 ;;

TEXTP ;;

 ;;**************************************

 ;;**        IHS/RPMS CRS 2017         **

 ;;**  Patient Education Reports Menu  **

 ;;**************************************

 ;;QUIT

TEXTM ;;

 ;;****************************************

 ;;**          IHS/RPMS CRS 2017         **

 ;;**  Medication Taxonomy Reports Menu  **

 ;;****************************************

 ;;QUIT

TEXTMU ;

 ;;***********************************

 ;;**       IHS/RPMS CRS 2017       **

 ;;**  Meaningful Use Reports Menu  **

 ;;***********************************

 ;;QUIT

 ;;

CTR(X,Y) ;EP - Center X in a field Y wide.

 Q $J("",$S($D(Y):Y,1:IOM)-$L(X)\2)_X

 ;----------

USR() ;EP - Return name of current user from ^VA(200.

 Q $S($G(DUZ):$S($D(^VA(200,DUZ,0)):$P(^(0),U),1:"UNKNOWN"),1:"DUZ UNDEFINED OR 0")

 ;----------

LOC() ;EP - Return location name from file 4 based on DUZ(2).

 Q $S($G(DUZ(2)):$S($D(^DIC(4,DUZ(2),0)):$P(^(0),U),1:"UNKNOWN"),1:"DUZ(2) UNDEFINED OR 0")

 ;----------

XTMP(N,D) ;EP - set xtmp 0 node

 Q:$G(N)=""

 S ^XTMP(N,0)=$$FMADD^XLFDT(DT,14)_"^"_DT_"^"_$G(D)

 Q

BGP7BAN   ; IHS/CMI/LAB - BANNER FOR CRS 14 13 Aug 2010 11:31 AM 01 Mar 2017 2:30 PM 16 May 2016 2:28 PM ; 

 +1       ;;17.1;IHS CLINICAL REPORTING;;MAY 10, 2017;Build 29

 +2       ;

 +3       ;

BANNER    ;EP

V         ; GET VERSION

 +1        NEW BGPV,BGPL,BGPJ,BGPX

 +2       ;V71. CHANGE

           SET BGPV="17.1"

 +3        IF $GET(BGPTEXT)=""

               SET BGPTEXT="TEXT"

               SET BGPL=3

               GOTO PRINT

 +4        SET BGPTEXT="TEXT"_BGPTEXT

 +5        FOR BGPJ=1:1

               SET BGPX=$TEXT(@BGPTEXT+BGPJ)

               SET BGPX=$PIECE(BGPX,";;",2)

               IF BGPX="QUIT"!(BGPX="")

                   QUIT 

               SET BGPL=BGPJ

PRINT      IF $DATA(IOF)

               WRITE @IOF

 +1        FOR BGPJ=1:1:BGPL

               SET BGPX=$TEXT(@BGPTEXT+BGPJ)

               SET BGPX=$PIECE(BGPX,";;",2)

               WRITE !,$$CTR(BGPX,80)

 +2        WRITE !,$$CTR("Version "_BGPV,80)

SITE       WRITE !!,$$CTR($$LOC,80)

 +1        KILL BGPTEXT

 +2        QUIT 

RPTVER()  ;EP

 +1       ;V17.1

           QUIT "CRS 2017, Version 17.1"

TEXT      ;

 +1       ;;****************************************************

 +2       ;;**    IHS/RPMS CLINICAL REPORTING SYSTEM (CRS)    **

 +3       ;;****************************************************

 +4       ;;QUIT

 +5       ;

TEXTN     ;

 +1       ;;*********************************

 +2       ;;**      IHS/RPMS CRS 2017      **

 +3       ;;**    National GPRA Reports    **

 +4       ;;*********************************

 +5       ;;QUIT

 +6       ;

TEXTL     ;

 +1       ;;******************************************************

 +2       ;;**                IHS/RPMS CRS 2017                 **

 +3       ;;**   Reports for Local Use: IHS Clinical Measures   **

 +4       ;;******************************************************

 +5       ;;QUIT

 +6       ;

TEXTO     ;

 +1       ;;*********************************

 +2       ;;**      IHS/RPMS CRS 2017      **

 +3       ;;**    Other National Reports   **

 +4       ;;*********************************

 +5       ;;QUIT

 +6       ;

TEXT6     ;

 +1       ;;*********************************

 +2       ;;**      IHS/RPMS CRS 2017      **

 +3       ;;**  Clinical Reporting System  **

 +4       ;;*********************************

 +5       ;;QUIT

 +6       ;

TEXTA     ;;

 +1       ;;***************************

 +2       ;;**   IHS/RPMS CRS 2017   **

 +3       ;;**   Report Automation   **

 +4       ;;***************************

 +5       ;;QUIT

 +6       ;

TEXTR     ;

 +1       ;;**************************

 +2       ;;**   IHS/RPMS CRS 2017  **

 +3       ;;**     Reports Menu     **

 +4       ;;**************************

 +5       ;;QUIT

TEXTX     ;;

 +1       ;;***************************

 +2       ;;**   IHS/RPMS CRS 2017   **

 +3       ;;**  Area Office Options  **

 +4       ;;***************************

 +5       ;;QUIT

 +6       ;

TEXTS     ;;

 +1       ;;**************************

 +2       ;;**   IHS/RPMS CRS 2017  **

 +3       ;;**       Setup Menu     **

 +4       ;;**************************

 +5       ;;QUIT

 +6       ;

TEXTT     ;;

 +1       ;;***************************

 +2       ;;**   IHS/RPMS CRS 2017   **

 +3       ;;**  Taxonomy Setup Menu  **

 +4       ;;***************************

 +5       ;;QUIT

 +6       ;

TEXTZ     ;;

 +1       ;;***************************

 +2       ;;**   IHS/RPMS CRS 2017   **

 +3       ;;**  Taxonomy Check Menu  **

 +4       ;;***************************

 +5       ;;QUIT

 +6       ;

TEXTU     ;;

 +1       ;;*****************************

 +2       ;;**    IHS/RPMS CRS 2017    **

 +3       ;;**  Taxonomy Reports Menu  **

 +4       ;;*****************************

 +5       ;;QUIT

 +6       ;;

TEXTG     ;;

 +1       ;;*********************************

 +2       ;;**      IHS/RPMS CRS 2017      **

 +3       ;;**  Lab Taxonomy Reports Menu  **

 +4       ;;*********************************

 +5       ;;QUIT

 +6       ;;

TEXTP     ;;

 +1       ;;**************************************

 +2       ;;**        IHS/RPMS CRS 2017         **

 +3       ;;**  Patient Education Reports Menu  **

 +4       ;;**************************************

 +5       ;;QUIT

TEXTM     ;;

 +1       ;;****************************************

 +2       ;;**          IHS/RPMS CRS 2017         **

 +3       ;;**  Medication Taxonomy Reports Menu  **

 +4       ;;****************************************

 +5       ;;QUIT

TEXTMU    ;

 +1       ;;***********************************

 +2       ;;**       IHS/RPMS CRS 2017       **

 +3       ;;**  Meaningful Use Reports Menu  **

 +4       ;;***********************************

 +5       ;;QUIT

 +6       ;;

CTR(X,Y)  ;EP - Center X in a field Y wide.

 +1        QUIT $JUSTIFY("",$SELECT($DATA(Y):Y,1:IOM)-$LENGTH(X)\2)_X

 +2       ;----------

USR()     ;EP - Return name of current user from ^VA(200.

 +1        QUIT $SELECT($GET(DUZ):$SELECT($DATA(^VA(200,DUZ,0)):$PIECE(^(0),U),1:"UNKNOWN"),1:"DUZ UNDEFINED OR 0")

 +2       ;----------

LOC()     ;EP - Return location name from file 4 based on DUZ(2).

 +1        QUIT $SELECT($GET(DUZ(2)):$SELECT($DATA(^DIC(4,DUZ(2),0)):$PIECE(^(0),U),1:"UNKNOWN"),1:"DUZ(2) UNDEFINED OR 0")

 +2       ;----------

XTMP(N,D) ;EP - set xtmp 0 node

 +1        IF $GET(N)=""

               QUIT 

 +2        SET ^XTMP(N,0)=$$FMADD^XLFDT(DT,14)_"^"_DT_"^"_$GET(D)

 +3        QUIT