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
