AMHBHRP1.m

AMHBHRP1 ; IHS/CMI/LAB - behavioral health display for GUI ;

 ;;4.0;IHS BEHAVIORAL HEALTH;;MAY 14, 2010

 ;

 ;

 ;

TEST ;

 D TPREV(.RETVAL,"01/01/1900","12/31/2005","A","")

 Q

TPREV(AMHARRAY,AMHBD,AMHED,AMHOA,AMHTHER) ;EP - AMHBH RPT TP NEED REVIEWED

TPREV1 S JOB=$J,AMHGUI=1,XWBWRAP=1

 S ZTIO="",ZTQUEUED=1

 S AMHARRAY="^XTMP(""AMHRPT"","_$J_")"

 I $G(AMHBD)="" S ^XTMP("AMHRPT",JOB,.5)=2,^XTMP("AMHRPT",JOB,1)="Invalid beginning date passed" D KILL Q

 D DT^DILF("X",AMHBD,.AMHBD)

 I $G(AMHBD)=-1 S ^XTMP("AMHRPT",JOB,.5)=2,^XTMP("AMHRPT",JOB,1)="Invalid beginning date passed" D KILL Q

 I $G(AMHED)="" S ^XTMP("AMHRPT",JOB,.5)=2,^XTMP("AMHRPT",JOB,1)="Invalid ending date passed" D KILL Q

 D DT^DILF("X",AMHED,.AMHED)

 I $G(AMHED)=-1 S ^XTMP("AMHRPT",JOB,.5)=2,^XTMP("AMHRPT",JOB,1)="Invalid ending date passed" D KILL Q

 I $G(AMHOA)="" S ^XTMP("AMHRPT",JOB,.5)=2,^XTMP("AMHRPT",JOB,1)="All or One variable not passed" D KILL Q

 I "OA"'[AMHOA S ^XTMP("AMHRPT",JOB,.5)=2,^XTMP("AMHRPT",JOB,1)="All or One variable not passed as O or A" D KILL Q

 S AMHOA=AMHOA

 I AMHOA="O",$G(AMHTHER)="" S ^XTMP("AMHRPT",JOB,.5)=2,^XTMP("AMHRPT",JOB,1)="One provider parameter set, provider not defined" D KILL Q

 I AMHOA="O",'$D(^VA(200,AMHTHER,0)) S ^XTMP("AMHRPT",JOB,.5)=2,^XTMP("AMHRPT",JOB,1)="Provider IEN passed is not valid" D KILL Q

 S AMHTHER=$G(AMHTHER)

 K ^XTMP("AMHRPT",JOB)

 S ^XTMP("AMHRPTRUN",JOB)=""

 D ^XBKSET

 D PROC^AMHLETR1

 ;S ZTRTN="TSK^AMHBHRP1",ZTIO="",ZTDESC="AMH TP REV REPORT",ZTSAVE("AMH*")="",ZTSAVE("JOB")="",ZTDTH=$H D ^%ZTLOAD

 ;F I=1:1:120 Q:$G(^XTMP("AMHRPTRUN",$J))="DONE"  H 1

 ;D KILL

 ;Q

 ;

TSK ;

 D ^XBKSET

 S ^XTMP("AMHRPTRUN",JOB)="START"

 D GUIR^XBLM("PRINT^AMHLETR1","^XTMP(""AMHRPT"",JOB)")

 S ^XTMP("AMHRPT",JOB,.5)=$O(^XTMP("AMHRPT",JOB,""),-1)+1

 S ^XTMP("AMHRPTRUN",JOB)="DONE"

 D KILL

 Q

 ;

KILL ;

 K AMHOA,AMHBT,AMHTOT

 K AMHCTR,AMHGUI,AMHSF,DIC,JOB,X,Y,ZTDESC,ZTDTH,ZTIO,ZTRTN,ZTSAVE

 D XIT^AMHLETR1

 Q

AMHBHRP1  ; IHS/CMI/LAB - behavioral health display for GUI ;

 +1       ;;4.0;IHS BEHAVIORAL HEALTH;;MAY 14, 2010

 +2       ;

 +3       ;

 +4       ;

TEST      ;

 +1        DO TPREV(.RETVAL,"01/01/1900","12/31/2005","A","")

 +2        QUIT 

TPREV(AMHARRAY,AMHBD,AMHED,AMHOA,AMHTHER) ;EP - AMHBH RPT TP NEED REVIEWED

TPREV1     SET JOB=$JOB

           SET AMHGUI=1

           SET XWBWRAP=1

 +1        SET ZTIO=""

           SET ZTQUEUED=1

 +2        SET AMHARRAY="^XTMP(""AMHRPT"","_$JOB_")"

 +3        IF $GET(AMHBD)=""

               SET ^XTMP("AMHRPT",JOB,.5)=2

               SET ^XTMP("AMHRPT",JOB,1)="Invalid beginning date passed"

               DO KILL

               QUIT 

 +4        DO DT^DILF("X",AMHBD,.AMHBD)

 +5        IF $GET(AMHBD)=-1

               SET ^XTMP("AMHRPT",JOB,.5)=2

               SET ^XTMP("AMHRPT",JOB,1)="Invalid beginning date passed"

               DO KILL

               QUIT 

 +6        IF $GET(AMHED)=""

               SET ^XTMP("AMHRPT",JOB,.5)=2

               SET ^XTMP("AMHRPT",JOB,1)="Invalid ending date passed"

               DO KILL

               QUIT 

 +7        DO DT^DILF("X",AMHED,.AMHED)

 +8        IF $GET(AMHED)=-1

               SET ^XTMP("AMHRPT",JOB,.5)=2

               SET ^XTMP("AMHRPT",JOB,1)="Invalid ending date passed"

               DO KILL

               QUIT 

 +9        IF $GET(AMHOA)=""

               SET ^XTMP("AMHRPT",JOB,.5)=2

               SET ^XTMP("AMHRPT",JOB,1)="All or One variable not passed"

               DO KILL

               QUIT 

 +10       IF "OA"'[AMHOA

               SET ^XTMP("AMHRPT",JOB,.5)=2

               SET ^XTMP("AMHRPT",JOB,1)="All or One variable not passed as O or A"

               DO KILL

               QUIT 

 +11       SET AMHOA=AMHOA

 +12       IF AMHOA="O"

               IF $GET(AMHTHER)=""

                   SET ^XTMP("AMHRPT",JOB,.5)=2

                   SET ^XTMP("AMHRPT",JOB,1)="One provider parameter set, provider not defined"

                   DO KILL

                   QUIT 

 +13       IF AMHOA="O"

               IF '$DATA(^VA(200,AMHTHER,0))

                   SET ^XTMP("AMHRPT",JOB,.5)=2

                   SET ^XTMP("AMHRPT",JOB,1)="Provider IEN passed is not valid"

                   DO KILL

                   QUIT 

 +14       SET AMHTHER=$GET(AMHTHER)

 +15       KILL ^XTMP("AMHRPT",JOB)

 +16       SET ^XTMP("AMHRPTRUN",JOB)=""

 +17       DO ^XBKSET

 +18       DO PROC^AMHLETR1

 +19      ;S ZTRTN="TSK^AMHBHRP1",ZTIO="",ZTDESC="AMH TP REV REPORT",ZTSAVE("AMH*")="",ZTSAVE("JOB")="",ZTDTH=$H D ^%ZTLOAD

 +20      ;F I=1:1:120 Q:$G(^XTMP("AMHRPTRUN",$J))="DONE"  H 1

 +21      ;D KILL

 +22      ;Q

 +23      ;

TSK       ;

 +1        DO ^XBKSET

 +2        SET ^XTMP("AMHRPTRUN",JOB)="START"

 +3        DO GUIR^XBLM("PRINT^AMHLETR1","^XTMP(""AMHRPT"",JOB)")

 +4        SET ^XTMP("AMHRPT",JOB,.5)=$ORDER(^XTMP("AMHRPT",JOB,""),-1)+1

 +5        SET ^XTMP("AMHRPTRUN",JOB)="DONE"

 +6        DO KILL

 +7        QUIT 

 +8       ;

KILL      ;

 +1        KILL AMHOA,AMHBT,AMHTOT

 +2        KILL AMHCTR,AMHGUI,AMHSF,DIC,JOB,X,Y,ZTDESC,ZTDTH,ZTIO,ZTRTN,ZTSAVE

 +3        DO XIT^AMHLETR1

 +4        QUIT