- AMHRBV ; IHS/CMI/LAB - print billable visits ;
- ;;4.0;IHS BEHAVIORAL HEALTH;;MAY 14, 2010
- START ;
- I '$G(DUZ(2)) W $C(7),$C(7),!!,"SITE NOT SET IN DUZ(2) - NOTIFY SITE MANAGER!!",! Q
- W:$D(IOF) @IOF
- W !!,"This Option prints who are a list of Potentially Billable Visits for all ",!,"patients registered at the Facility that you select who have been seen",!,"by Mental Health and Social Services.",!
- W "The user will select which third party coverage type that they are interested",!,"in seeing billable visits for."
- W !,"This report displays visits during a period when this patient had third",!,"party coverage, but does not consider the diagnostic category which may be",!,"excluded by some types of coverage.",!
- D DBHUSR^AMHUTIL
- F ;
- S DIC("A")="Run the report for Patients registered at which Facility: ",DIC="^AUTTLOC(",DIC(0)="AEMQ" D ^DIC K DIC,DA G:Y<0 EOJ
- S AMHSU=+Y
- SD ;
- W !
- S Y=DT X ^DD("DD") S AMHDTP=Y
- S %DT("A")="Starting Visit Date for Billable Visits: ",%DT="AEPX" W ! D ^%DT
- I Y=-1 G F
- S AMHSD=Y X ^DD("DD") S AMHSDY=Y
- ED S %DT("A")="Ending Visit Date for Billable Visits: " W ! D ^%DT K %DT
- I Y=-1 G SD
- S AMHED=Y X ^DD("DD") S AMHEDY=Y
- I AMHED<AMHSD W !!,"Ending Date cannot be before Starting Date! Please reenter.",! G SD
- ;
- CT ;
- S DIR(0)="SO^1:Commissioned Officers/Dependents;2:Medicare Part A;3:Medicare Part B;4:Medicaid;5:Private Insurance;6:Non-Indians",DIR("A")="Select Third Party Coverage" D ^DIR K DIR
- G:$D(DIRUT) SD
- S AMHPROC=Y,AMHNAR=Y(0)
- ZIS ;
- S DIR(0)="S^P:PRINT Output;B:BROWSE Output on Screen",DIR("A")="Do you wish to ",DIR("B")="P" K DA D ^DIR K DIR
- I $D(DIRUT) G EOJ
- I $G(Y)="B" D BROWSE,EOJ Q
- S XBRP="^AMHRBV1",XBRC="^AMHRBV2",XBRX="EOJ^AMHRBV",XBNS="AMH"
- D ^XBDBQUE
- D EOJ
- Q
- BROWSE ;
- S XBRP="VIEWR^XBLM(""^AMHRBV1"")"
- S XBNS="AMH",XBRC="^AMHRBV2",XBRX="EOJ^AMHRBV",XBIOP=0 D ^XBDBQUE
- Q
- EOJ ;ENTRY POINT
- K POP,ZTSK,ZTQUEUED,DFN,%DT,%,X,Y,DIRUT,DTOUT,J,K,%XX,%YY,DDBN,DDBX,HS,IX,C,IO("Q"),DIR,DIRUT,DIC,DA,DR,DIQ,H,M,S,TS,ABHN
- K AMHSD,AMHSDY,AMHED,AMHEDY,AMHPROC,AMHNAR,AMH,AMHSU,AMHLENG,AMHDTP,AMHCAT,AMHMDFN,AMHGOT,AMHBT,AMHNAMEP,AMHJOB,AMHMIN
- K AMHS,AMHCOAR,AMHCOPN,AMHVDFN,AMHVN0,AMHCOP,AMHPN,AMHVAL,AMHTRI,AMHTRIC
- K AMHCHMP,AMH80E,AMH80D,AMHPG,AMHEOJ,AMHX,AMHVDFN,AMHVREC,AMHDATE,AMH1,AMH2,AMHAP,AMHDISC,AMHY,AMHSKIP,AMHMN,AMHMDOB,AMHMEDN,DOB,AMHHRN,AMHVAL
- K AMHNDFN,AMHREC,AMHNREC,AMHACT,AMHINI,AMHRDFN
- Q
- AMHRBV ; IHS/CMI/LAB - print billable visits ;
- +1 ;;4.0;IHS BEHAVIORAL HEALTH;;MAY 14, 2010
- START ;
- +1 IF '$GET(DUZ(2))
- WRITE $CHAR(7),$CHAR(7),!!,"SITE NOT SET IN DUZ(2) - NOTIFY SITE MANAGER!!",!
- QUIT
- +2 IF $DATA(IOF)
- WRITE @IOF
- +3 WRITE !!,"This Option prints who are a list of Potentially Billable Visits for all ",!,"patients registered at the Facility that you select who have been seen",!,"by Mental Health and Social Services.",!
- +4 WRITE "The user will select which third party coverage type that they are interested",!,"in seeing billable visits for."
- +5 WRITE !,"This report displays visits during a period when this patient had third",!,"party coverage, but does not consider the diagnostic category which may be",!,"excluded by some types of coverage.",!
- +6 DO DBHUSR^AMHUTIL
- F ;
- +1 SET DIC("A")="Run the report for Patients registered at which Facility: "
- SET DIC="^AUTTLOC("
- SET DIC(0)="AEMQ"
- DO ^DIC
- KILL DIC,DA
- IF Y<0
- GOTO EOJ
- +2 SET AMHSU=+Y
- SD ;
- +1 WRITE !
- +2 SET Y=DT
- XECUTE ^DD("DD")
- SET AMHDTP=Y
- +3 SET %DT("A")="Starting Visit Date for Billable Visits: "
- SET %DT="AEPX"
- WRITE !
- DO ^%DT
- +4 IF Y=-1
- GOTO F
- +5 SET AMHSD=Y
- XECUTE ^DD("DD")
- SET AMHSDY=Y
- ED SET %DT("A")="Ending Visit Date for Billable Visits: "
- WRITE !
- DO ^%DT
- KILL %DT
- +1 IF Y=-1
- GOTO SD
- +2 SET AMHED=Y
- XECUTE ^DD("DD")
- SET AMHEDY=Y
- +3 IF AMHED<AMHSD
- WRITE !!,"Ending Date cannot be before Starting Date! Please reenter.",!
- GOTO SD
- +4 ;
- CT ;
- +1 SET DIR(0)="SO^1:Commissioned Officers/Dependents;2:Medicare Part A;3:Medicare Part B;4:Medicaid;5:Private Insurance;6:Non-Indians"
- SET DIR("A")="Select Third Party Coverage"
- DO ^DIR
- KILL DIR
- +2 IF $DATA(DIRUT)
- GOTO SD
- +3 SET AMHPROC=Y
- SET AMHNAR=Y(0)
- ZIS ;
- +1 SET DIR(0)="S^P:PRINT Output;B:BROWSE Output on Screen"
- SET DIR("A")="Do you wish to "
- SET DIR("B")="P"
- KILL DA
- DO ^DIR
- KILL DIR
- +2 IF $DATA(DIRUT)
- GOTO EOJ
- +3 IF $GET(Y)="B"
- DO BROWSE
- DO EOJ
- QUIT
- +4 SET XBRP="^AMHRBV1"
- SET XBRC="^AMHRBV2"
- SET XBRX="EOJ^AMHRBV"
- SET XBNS="AMH"
- +5 DO ^XBDBQUE
- +6 DO EOJ
- +7 QUIT
- BROWSE ;
- +1 SET XBRP="VIEWR^XBLM(""^AMHRBV1"")"
- +2 SET XBNS="AMH"
- SET XBRC="^AMHRBV2"
- SET XBRX="EOJ^AMHRBV"
- SET XBIOP=0
- DO ^XBDBQUE
- +3 QUIT
- EOJ ;ENTRY POINT
- +1 KILL POP,ZTSK,ZTQUEUED,DFN,%DT,%,X,Y,DIRUT,DTOUT,J,K,%XX,%YY,DDBN,DDBX,HS,IX,C,IO("Q"),DIR,DIRUT,DIC,DA,DR,DIQ,H,M,S,TS,ABHN
- +2 KILL AMHSD,AMHSDY,AMHED,AMHEDY,AMHPROC,AMHNAR,AMH,AMHSU,AMHLENG,AMHDTP,AMHCAT,AMHMDFN,AMHGOT,AMHBT,AMHNAMEP,AMHJOB,AMHMIN
- +3 KILL AMHS,AMHCOAR,AMHCOPN,AMHVDFN,AMHVN0,AMHCOP,AMHPN,AMHVAL,AMHTRI,AMHTRIC
- +4 KILL AMHCHMP,AMH80E,AMH80D,AMHPG,AMHEOJ,AMHX,AMHVDFN,AMHVREC,AMHDATE,AMH1,AMH2,AMHAP,AMHDISC,AMHY,AMHSKIP,AMHMN,AMHMDOB,AMHMEDN,DOB,AMHHRN,AMHVAL
- +5 KILL AMHNDFN,AMHREC,AMHNREC,AMHACT,AMHINI,AMHRDFN
- +6 QUIT