Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: AMHRP3P

AMHRP3P.m

Go to the documentation of this file. 
  1. AMHRP3P ; IHS/CMI/LAB - = print all visit report ;
  1.  ;;4.0;IHS BEHAVIORAL HEALTH;;MAY 14, 2010
  1. START ;
  1.  D NOW^%DTC S Y=X D DD^%DT S AMHDT=Y
  1.  S Y=AMHBD D DD^%DT S AMHBDD=Y S Y=AMHED D DD^%DT S AMHEDD=Y
  1.  S (AMHATOT,AMHACTOT,AMHSTOT,AMHFTOT,AMHPTOT,AMHPG)=0 D HEAD
  1.  K AMHQUIT
  1. AREA ;
  1.  S AMHAREA="" F  S AMHAREA=$O(^XTMP("AMHRP3",AMHJOB,AMHBTH,"RECORDS",AMHAREA)) Q:AMHAREA=""!($D(AMHQUIT))  D
  1.  .S (AMHATOT("R"),AMHATOT("AT"),AMHATOT("P"),AMHATOT("NS"))=0
  1.  .I $Y>(IOSL-4) D HEAD Q:$D(AMHQUIT)
  1.  .W !,"AREA:  ",$P(^AUTTAREA(AMHAREA,0),U)
  1.  .D SU
  1.  .Q:$D(AMHQUIT)
  1.  .I $Y>(IOSL-5) D HEAD Q:$D(AMHQUIT)
  1.  .W !?43,"=======",?53,"=======",?62,"=======",?72,"=======",!
  1.  .W "AREA TOTAL:",?43,$J(AMHATOT("R"),7),?53,$J((AMHATOT("AT")/60),7,1),?62,$J(AMHATOT("P"),7),?72,$J(AMHATOT("NS"),7),!
  1. DONE ;
  1.  D DONE^AMHLEIN,^AMHEKL
  1.  K ^XTMP("AMHRP3",AMHJOB,AMHBTH)
  1.  Q
  1. SU ;
  1.  S AMHSU="" F  S AMHSU=$O(^XTMP("AMHRP3",AMHJOB,AMHBTH,"RECORDS",AMHAREA,AMHSU)) Q:AMHSU=""!($D(AMHQUIT))  D
  1.  .S (AMHSTOT("R"),AMHSTOT("AT"),AMHSTOT("P"),AMHSTOT("NS"))=0
  1.  .I $Y>(IOSL-4) D HEAD Q:$D(AMHQUIT)
  1.  .W !?3,"SERVICE UNIT:  ",$P(^AUTTSU(AMHSU,0),U)
  1.  .D LOC
  1.  .Q:$D(AMHQUIT)
  1.  .I $Y>(IOSL-5) D HEAD Q:$D(AMHQUIT)
  1.  .W !?43,"=======",?53,"=======",?62,"=======",?72,"=======",!
  1.  .W ?5,"SU TOTAL:",?43,$J(AMHSTOT("R"),7),?53,$J((AMHSTOT("AT")/60),7,1),?62,$J(AMHSTOT("P"),7),?72,$J(AMHSTOT("NS"),7),!
  1.  Q
  1. LOC ;
  1.  S AMHLOC="" F  S AMHLOC=$O(^XTMP("AMHRP3",AMHJOB,AMHBTH,"RECORDS",AMHAREA,AMHSU,AMHLOC)) Q:AMHLOC=""!($D(AMHQUIT))  D
  1.  .S (AMHLTOT("R"),AMHLTOT("AT"),AMHLTOT("P"),AMHLTOT("NS"))=0
  1.  .I $Y>(IOSL-4) D HEAD Q:$D(AMHQUIT)
  1.  .W !?5,"FACILITY:  ",$P(^DIC(4,AMHLOC,0),U)
  1.  .D PROV
  1.  .Q:$D(AMHQUIT)
  1.  .I $Y>(IOSL-5) D HEAD Q:$D(AMHQUIT)
  1.  .W !?43,"=======",?53,"=======",?62,"=======",?72,"=======",!
  1.  .W ?5,"FACILITY TOTAL:",?43,$J(AMHLTOT("R"),7),?53,$J((AMHLTOT("AT")/60),7,1),?62,$J(AMHLTOT("P"),7),?72,$J(AMHLTOT("NS"),7),!
  1.  Q
  1. PROV ;
  1.  S AMHPROV="" F  S AMHPROV=$O(^XTMP("AMHRP3",AMHJOB,AMHBTH,"RECORDS",AMHAREA,AMHSU,AMHLOC,AMHPROV)) Q:AMHPROV=""!($D(AMHQUIT))  D
  1.  .S (AMHPTOT("R"),AMHPTOT("AT"),AMHPTOT("P"),AMHPTOT("NS"))=0
  1.  .I $Y>(IOSL-4) D HEAD Q:$D(AMHQUIT)
  1.  .W !?7,"PROVIDER:  ",AMHPROV
  1.  .D ACT
  1.  .Q:$D(AMHQUIT)
  1.  .I $Y>(IOSL-5) D HEAD Q:$D(AMHQUIT)
  1.  .W !?43,"=======",?53,"=======",?62,"=======",?72,"=======",!
  1.  .W ?7,"PROVIDER TOTAL:",?43,$J(AMHPTOT("R"),7),?53,$J((AMHPTOT("AT")/60),7,1),?62,$J(AMHPTOT("P"),7),?72,$J(AMHPTOT("NS"),7),!
  1.  Q
  1. ACT ;
  1.  S AMHACT="" F  S AMHACT=$O(^XTMP("AMHRP3",AMHJOB,AMHBTH,"RECORDS",AMHAREA,AMHSU,AMHLOC,AMHPROV,AMHACT)) Q:AMHACT=""!($D(AMHQUIT))  D
  1.  .S (AMHACTOT("R"),AMHACTOT("AT"),AMHACTOT("P"),AMHACTOT("NS"))=0
  1.  .I $Y>(IOSL-4) D HEAD Q:$D(AMHQUIT)
  1.  .W !?9,"ACTIVITY:  ",$E(AMHACT,1,25)
  1.  .D PROB
  1.  .Q:$D(AMHQUIT)
  1.  .I $Y>(IOSL-5) D HEAD Q:$D(AMHQUIT)
  1.  .W !?43,"=======",?53,"=======",?62,"=======",?72,"=======",!
  1.  .W ?9,"ACTIVITY TOTAL:",?43,$J(AMHACTOT("R"),7),?53,$J((AMHACTOT("AT")/60),7,1),?62,$J(AMHACTOT("P"),7),?72,$J(AMHACTOT("NS"),7),!
  1.  Q
  1. PROB ;
  1.  S AMHPROB="" F  S AMHPROB=$O(^XTMP("AMHRP3",AMHJOB,AMHBTH,"RECORDS",AMHAREA,AMHSU,AMHLOC,AMHPROV,AMHACT,AMHPROB)) Q:AMHPROB=""!($D(AMHQUIT))  D
  1.  .I $Y>(IOSL-4) D HEAD Q:$D(AMHQUIT)
  1.  .S AMHREC=$P(^XTMP("AMHRP3",AMHJOB,AMHBT,"RECORDS",AMHAREA,AMHSU,AMHLOC,AMHPROV,AMHACT,AMHPROB),U),AMHAT=$P(^(AMHPROB),U,2),AMHPAT=$P(^(AMHPROB),U,3),AMHNS=$P(^(AMHPROB),U,4)
  1.  .W !?13,$E(AMHPROB,1,30),?43,$J(AMHREC,7),?53,$J((AMHAT/60),7,1),?62,$J(AMHPAT,7),?72,$J(AMHNS,7)
  1.  .S AMHATOT("R")=AMHATOT("R")+AMHREC,AMHSTOT("R")=AMHSTOT("R")+AMHREC,AMHLTOT("R")=AMHLTOT("R")+AMHREC,AMHPTOT("R")=AMHPTOT("R")+AMHREC,AMHACTOT("R")=AMHACTOT("R")+AMHREC
  1.  .S AMHATOT("AT")=AMHATOT("AT")+AMHAT,AMHSTOT("AT")=AMHSTOT("AT")+AMHAT,AMHLTOT("AT")=AMHLTOT("AT")+AMHAT,AMHPTOT("AT")=AMHPTOT("AT")+AMHAT,AMHACTOT("AT")=AMHACTOT("AT")+AMHAT
  1.  .S AMHATOT("P")=AMHATOT("P")+AMHPAT,AMHSTOT("P")=AMHSTOT("P")+AMHPAT,AMHLTOT("P")=AMHLTOT("P")+AMHPAT,AMHPTOT("P")=AMHPTOT("P")+AMHPAT,AMHACTOT("P")=AMHACTOT("P")+AMHPAT
  1.  .S AMHATOT("NS")=AMHATOT("NS")+AMHNS,AMHSTOT("NS")=AMHSTOT("NS")+AMHNS,AMHLTOT("NS")=AMHLTOT("NS")+AMHNS,AMHPTOT("NS")=AMHPTOT("NS")+AMHNS,AMHACTOT("NS")=AMHACTOT("NS")+AMHNS
  1.  Q
  1.  I $E(IOST)="C",IO=IO(0) W ! S DIR(0)="EO" D ^DIR K DIR I Y=0!(Y="^")!($D(DTOUT)) S AMHQUIT="" Q
  1. HEAD1 ;
  1.  W:$D(IOF) @IOF S AMHPG=AMHPG+1
  1.  W !?13,"********** CONFIDENTIAL PATIENT INFORMATION **********"
  1.  W !,$P(^VA(200,DUZ,0),U,2),?58,AMHDT,?62,"Page ",AMHPG,!
  1.  W ?23,"ACTIVITY REPORT BY PRIMARY PURPOSE",!
  1.  W ?10,"ACTIVITY REPORT FOR ",$S(AMHPROG="S":"SOCIAL SERVICES",AMHPROG="M":"MENTAL HEALTH",AMHPROG="C":"CHEMICAL DEPENDENCY or A/SA",1:"ALL PROGRAMS (MH,SS,CD,OTHER)")," PROGRAM",!
  1.  W ?17,"RECORD DATES:  ",AMHBDD," TO ",AMHEDD,!
  1.  W "# PATS is the total number of unique, identified patients when",!,"a patient name was entered on the record.  # served is a tally of the ",!,"number served data value.",!
  1.  W !?43,"# RECS",?53,"ACT TIME",?62,"# PATS",?72,"# SERVED",!,?54,"(hrs)"
  1.  W !,$TR($J(" ",80)," ","-")
  1.  Q