AMHBAN.m

AMHBAN ; IHS/CMI/LAB - Banner for BH ; 18 Sep 2017  11:53 AM

 ;;4.0;IHS BEHAVIORAL HEALTH;**1,2,3,4,5,6,7,8,9,10**;JUN 02, 2010;Build 15

 ;

EP ;

V ; GET VERSION

 ;S AMH("VERSION")="",AMH("VERSION")=$O(^DIC(9.4,"C","AMH",AMH("VERSION"))),AMH("VERSION")=^DIC(9.4,AMH("VERSION"),"VERSION")

 S AMH("VERSION")="4.0 (patch 10)"

 I $G(AMHTEXT)="" S AMHTEXT="TEXT",AMHLINE=3 G PRINT

 S AMHTEXT="TEXT"_AMHTEXT

 F AMHJ=1:1 S AMHX=$T(@AMHTEXT+AMHJ),AMHX=$P(AMHX,";;",2) Q:AMHX="QUIT"!(AMHX="")  S AMHLINE=AMHJ

PRINT W:$D(IOF) @IOF

 F AMHJ=1:1:AMHLINE S AMHX=$T(@AMHTEXT+AMHJ),AMHX=$P(AMHX,";;",2) W !?80-$L(AMHX)\2,AMHX K AMHX

 W !?80-(8+$L(AMH("VERSION")))/2,"Version ",AMH("VERSION")

SITE G XIT:'$D(DUZ(2)) G:'DUZ(2) XIT S AMH("SITE")=$P(^DIC(4,DUZ(2),0),"^") W !!?80-$L(AMH("SITE"))\2,AMH("SITE")

XIT ;

 K DIC,DA,X,Y,%Y,%,AMHJ,AMHX,AMHTEXT,AMHLINE

 Q

 ;

RPTS ;EP CALLED FROM ENTRY ACTION OF REPORTS MENU OPTION

 W !!?32,"**SPECIAL NOTE**",!!

 W ?15,"**Q-Man and PCC MGT Reports operate off PCC Files**",!

 W ?10,"**Therefore, reflecting only those BH visits passed to PCC**",!

 Q

TEXT ;mental health / social services banner

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

 ;;**       IHS Behavioral Health System       **

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

 ;;QUIT

TEXTR ;reports menu

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

 ;;**       IHS Behavioral Health System       **

 ;;**                  Reports                 **

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

 ;;QUIT

TEXTX ;export utility

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

 ;;**       IHS Behavioral Health System       **

 ;;**              Export Utility              **

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

 ;;QUIT

TEXTG ;data entry more menu

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

 ;;**       IHS Behavioral Health System       **

 ;;**     Data Entry Menu Display Options      **

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

 ;;QUIT

TEXTE ;data entry menu

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

 ;;**       IHS Behavioral Health System       **

 ;;**             Data Entry Menu              **

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

 ;;QUIT

TEXTI ;data entry menu

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

 ;;**       IHS Behavioral Health System       **

 ;;**             IPV/DV Reports               **

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

 ;;QUIT

TEXTC ;activity contact counts

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

 ;;**       IHS Behavioral Health System       **

 ;;**         Activity Workload Reports        **

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

 ;;QUIT

TEXTP ;program activity time

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

 ;;**       IHS Behavioral Health System       **

 ;;**             Patient Listings             **

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

 ;;QUIT

TEXTA ;age and sex reports

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

 ;;**       IHS Behavioral Health System       **

 ;;**         Problem Specific Reports         **

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

 ;;QUIT

TEXTT ;tables menu

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

 ;;**       IHS Behavioral Health System       **

 ;;**         Print BH Standard Tables         **

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

 ;;QUIT

TEXTB ;encounter/contact reports

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

 ;;**       IHS Behavioral Health System       **

 ;;**         Encounter/Record Reports         **

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

 ;;QUIT

TEXTM ;manager utilities

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

 ;;**       IHS Behavioral Health System       **

 ;;**            Manager Utilities             **

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

 ;;QUIT

TEXTF ;freq menu

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

 ;;**       IHS Behavioral Health System       **

 ;;**       Frequency (Top Ten) Reports        **

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

 ;;QUIT

TEXTD ;patient treatment plan menu

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

 ;;**       IHS Behavioral Health System       **

 ;;**          Patient Treatment Plans         **

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

 ;;QUIT

TEXTH ;data entry menu

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

 ;;**       IHS Behavioral Health System       **

 ;;**         Alcohol Screening Reports        **

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

 ;;QUIT

TEXTJ ;data entry menu

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

 ;;**       IHS Behavioral Health System       **

 ;;**       Depression Screening Reports       **

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

 ;;QUIT

TEXTK ;data entry menu

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

 ;;**       IHS Behavioral Health System       **

 ;;**             Screening Reports            **

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

 ;;QUIT

TEXTL ;data entry menu

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

 ;;**       IHS Behavioral Health System       **

 ;;**              Suicide Reports             **

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

 ;;QUIT

TEXTS ;data entry menu

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

 ;;**       IHS Behavioral Health System       **

 ;;**      Suicide Risk Assessment Reports     **

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

 ;;QUIT

COPYINFO ;EP called from option

 W !!,"*Reprinted with permission from the Diagnostic and Statistical Manual"

 W !,"of Mental Disorders, Fifth Edition. (TM) Copyright 2013 American Psychiatric"

 W !,"Association.  All Rights Reserved. "

 W !!,"Unless authorized in writing by the APA, no part may be reproduced or "

 W !,"used in a manner inconsistent with the APA's copyright. This prohibition"

 W !,"applies to unauthorized uses or reproductions in any form. "

 W !!,"The American Psychiatric Association is not affiliated with and is not "

 W !,"endorsing this product.",!!

 K DIR

 S DIR(0)="E",DIR("A")="Press Enter to Continue" D ^DIR

 K DIR

 Q

AMHBAN    ; IHS/CMI/LAB - Banner for BH ; 18 Sep 2017  11:53 AM

 +1       ;;4.0;IHS BEHAVIORAL HEALTH;**1,2,3,4,5,6,7,8,9,10**;JUN 02, 2010;Build 15

 +2       ;

EP        ;

V         ; GET VERSION

 +1       ;S AMH("VERSION")="",AMH("VERSION")=$O(^DIC(9.4,"C","AMH",AMH("VERSION"))),AMH("VERSION")=^DIC(9.4,AMH("VERSION"),"VERSION")

 +2        SET AMH("VERSION")="4.0 (patch 10)"

 +3        IF $GET(AMHTEXT)=""

               SET AMHTEXT="TEXT"

               SET AMHLINE=3

               GOTO PRINT

 +4        SET AMHTEXT="TEXT"_AMHTEXT

 +5        FOR AMHJ=1:1

               SET AMHX=$TEXT(@AMHTEXT+AMHJ)

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

               IF AMHX="QUIT"!(AMHX="")

                   QUIT 

               SET AMHLINE=AMHJ

PRINT      IF $DATA(IOF)

               WRITE @IOF

 +1        FOR AMHJ=1:1:AMHLINE

               SET AMHX=$TEXT(@AMHTEXT+AMHJ)

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

               WRITE !?80-$LENGTH(AMHX)\2,AMHX

               KILL AMHX

 +2        WRITE !?80-(8+$LENGTH(AMH("VERSION")))/2,"Version ",AMH("VERSION")

SITE       IF '$DATA(DUZ(2))

               GOTO XIT

           IF 'DUZ(2)

               GOTO XIT

           SET AMH("SITE")=$PIECE(^DIC(4,DUZ(2),0),"^")

           WRITE !!?80-$LENGTH(AMH("SITE"))\2,AMH("SITE")

XIT       ;

 +1        KILL DIC,DA,X,Y,%Y,%,AMHJ,AMHX,AMHTEXT,AMHLINE

 +2        QUIT 

 +3       ;

RPTS      ;EP CALLED FROM ENTRY ACTION OF REPORTS MENU OPTION

 +1        WRITE !!?32,"**SPECIAL NOTE**",!!

 +2        WRITE ?15,"**Q-Man and PCC MGT Reports operate off PCC Files**",!

 +3        WRITE ?10,"**Therefore, reflecting only those BH visits passed to PCC**",!

 +4        QUIT 

TEXT      ;mental health / social services banner

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

 +2       ;;**       IHS Behavioral Health System       **

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

 +4       ;;QUIT

TEXTR     ;reports menu

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

 +2       ;;**       IHS Behavioral Health System       **

 +3       ;;**                  Reports                 **

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

 +5       ;;QUIT

TEXTX     ;export utility

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

 +2       ;;**       IHS Behavioral Health System       **

 +3       ;;**              Export Utility              **

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

 +5       ;;QUIT

TEXTG     ;data entry more menu

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

 +2       ;;**       IHS Behavioral Health System       **

 +3       ;;**     Data Entry Menu Display Options      **

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

 +5       ;;QUIT

TEXTE     ;data entry menu

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

 +2       ;;**       IHS Behavioral Health System       **

 +3       ;;**             Data Entry Menu              **

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

 +5       ;;QUIT

TEXTI     ;data entry menu

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

 +2       ;;**       IHS Behavioral Health System       **

 +3       ;;**             IPV/DV Reports               **

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

 +5       ;;QUIT

TEXTC     ;activity contact counts

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

 +2       ;;**       IHS Behavioral Health System       **

 +3       ;;**         Activity Workload Reports        **

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

 +5       ;;QUIT

TEXTP     ;program activity time

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

 +2       ;;**       IHS Behavioral Health System       **

 +3       ;;**             Patient Listings             **

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

 +5       ;;QUIT

TEXTA     ;age and sex reports

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

 +2       ;;**       IHS Behavioral Health System       **

 +3       ;;**         Problem Specific Reports         **

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

 +5       ;;QUIT

TEXTT     ;tables menu

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

 +2       ;;**       IHS Behavioral Health System       **

 +3       ;;**         Print BH Standard Tables         **

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

 +5       ;;QUIT

TEXTB     ;encounter/contact reports

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

 +2       ;;**       IHS Behavioral Health System       **

 +3       ;;**         Encounter/Record Reports         **

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

 +5       ;;QUIT

TEXTM     ;manager utilities

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

 +2       ;;**       IHS Behavioral Health System       **

 +3       ;;**            Manager Utilities             **

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

 +5       ;;QUIT

TEXTF     ;freq menu

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

 +2       ;;**       IHS Behavioral Health System       **

 +3       ;;**       Frequency (Top Ten) Reports        **

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

 +5       ;;QUIT

TEXTD     ;patient treatment plan menu

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

 +2       ;;**       IHS Behavioral Health System       **

 +3       ;;**          Patient Treatment Plans         **

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

 +5       ;;QUIT

TEXTH     ;data entry menu

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

 +2       ;;**       IHS Behavioral Health System       **

 +3       ;;**         Alcohol Screening Reports        **

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

 +5       ;;QUIT

TEXTJ     ;data entry menu

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

 +2       ;;**       IHS Behavioral Health System       **

 +3       ;;**       Depression Screening Reports       **

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

 +5       ;;QUIT

TEXTK     ;data entry menu

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

 +2       ;;**       IHS Behavioral Health System       **

 +3       ;;**             Screening Reports            **

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

 +5       ;;QUIT

TEXTL     ;data entry menu

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

 +2       ;;**       IHS Behavioral Health System       **

 +3       ;;**              Suicide Reports             **

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

 +5       ;;QUIT

TEXTS     ;data entry menu

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

 +2       ;;**       IHS Behavioral Health System       **

 +3       ;;**      Suicide Risk Assessment Reports     **

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

 +5       ;;QUIT

COPYINFO  ;EP called from option

 +1        WRITE !!,"*Reprinted with permission from the Diagnostic and Statistical Manual"

 +2        WRITE !,"of Mental Disorders, Fifth Edition. (TM) Copyright 2013 American Psychiatric"

 +3        WRITE !,"Association.  All Rights Reserved. "

 +4        WRITE !!,"Unless authorized in writing by the APA, no part may be reproduced or "

 +5        WRITE !,"used in a manner inconsistent with the APA's copyright. This prohibition"

 +6        WRITE !,"applies to unauthorized uses or reproductions in any form. "

 +7        WRITE !!,"The American Psychiatric Association is not affiliated with and is not "

 +8        WRITE !,"endorsing this product.",!!

 +9        KILL DIR

 +10       SET DIR(0)="E"

           SET DIR("A")="Press Enter to Continue"

           DO ^DIR

 +11       KILL DIR

 +12       QUIT