BCHRPTI.m

BCHRPTI ; IHS/CMI/LAB - REPORT INFORMATION FOR USERS ; 

 ;;2.0;IHS RPMS CHR SYSTEM;;OCT 23, 2012;Build 27

 ;

BDRL ;EP - detailed or brief record listing

 D BDRL^BCHRPTI1

 Q

 ;

GENR ;

 D GENR^BCHRPTI1

 Q

 ;

 ;

INFORM3 ;EP; inform user for top ten reports

 I '$D(BCHRRPT) W !,$C(7),$C(7),"REPORT TYPE MISSING!!  NOTIFY PROGRAMMER",! Q

 D GETINFO Q:$D(BCHQUIT)

 W:$D(IOF) @IOF

 W !,"Frequency of ",BCHINF," Report.",!

 W !,"This report will generate a list of the top N ",BCHINF,!,"for visits that you select.",!

 Q

 ;

INFORM2 ;EP ; inform user on age/sex record reports

 W:$D(IOF) @IOF

 W !,"CHR Patient Visits by Age and Sex",!

 W !,"This report will tally the number of patients, who have had an encounter, ",!,"by age and sex.  You will choose the item you wish to tally.  For example, ",!,"you can tally problems treated , or activities by age and sex.",!

 W "You will also be able to define the age groups to be used.",!

 S BCHX="G;PRB;PRBC;PRBD;L;T;A;AC;C" D MENU

 W !?5,"<The item you pick will display down the left column of the report,",!," Age groups will be across the top.>",!

 S DIR(0)="N^1:"_$L(BCHX,";")_":0",DIR("A")="Choose an item to tally by age and sex" D ^DIR K DIR S:$D(DUOUT) DIRUT=1

 I $D(DIRUT) S BCHQUIT="" Q

 S BCHRRPT=$P(BCHX,";",Y)

 D GETINFO

 Q

 ;

INFORM ; EP ; information for activity record counts

 W:$D(IOF) @IOF

 W !,"***** ACTIVITY RECORD COUNTS*****",!

 W !,"This report will generate a count of activity records the item and",!,"date range that you specify.",!

 W "You will be given the opportunity to select which records will be",!,"included in the tabulation.  For example, you can choose to tally activity time",!,"by Problem Code for only those activities that took place in the HOME."

 S BCHX="P;G;D;PRB;PRBC;L;A;C" D MENU

 S DIR(0)="N^1:"_$L(BCHX,";")_":0",DIR("A")="Choose an item for calculating activity time and record counts" D ^DIR K DIR S:$D(DUOUT) DIRUT=1

 I $D(DIRUT) S BCHQUIT="" Q

 S BCHRRPT=$P(BCHX,";",Y)

 D GETINFO

 Q

 ;

 ;

MENU ;display menu to choose item

 W !

 Q:'$D(BCHX)

 F X=1:1:$L(BCHX,";") S Y=$P(BCHX,";",X) S Z=$T(@(Y)) W !?5,X,").  ",$P(Z,";;",3)

 Q

GETINFO ;ENTRY POINT

 I $T(@(BCHRRPT))="" W !!,$C(7),$C(7),"REPORT INFORMATION MISSING!! NOTIFY PROGRAMMER!",!! S BCHQUIT="" Q

 S BCHINFO=$T(@(BCHRRPT)),BCHSORT=$P(BCHINFO,";;",2),BCHRPROC=$P(BCHINFO,";;",4),BCHINF=$P(BCHINFO,";;",3),BCHTITL=$P(BCHINFO,";;",5),BCHHD1=$P(BCHINFO,";;",6),BCHHD2=$P(BCHINFO,";;",7)

 Q

 ;

P ;;BCHPROV;;CHR;;PROV;;COMMUNITY HEALTH REPRESENTATIVE;;CHR;;PROVIDER CODE

G ;;BCHPROG;;Program;;PROG;;CHR PROGRAM;;CHR PROGRAM;;PROGRAM CODE

D ;;BCHDATE;;Date of Encounter;;DATE;;DATE OF VISIT;;DATE OF VISIT;;DAY OF WEEK

PRB ;;BCHPROB;;POV/Problem (Problem Code);;PROB;;PRIMARY PROBLEM (CODE);;PROB CODE NARRATIVE;;PROBLEM CODE

PRBC ;;BCHPROB;;Problem/POV (Problem Category);;PROBCAT;;PROBLEM CATEGORY;;CATEGORY NARRATIVE;;CATEGORY CODE

L ;;BCHVLOC;;Activity Location;;LOS;;ACTIVITY LOCATION;;ACTIVITY LOCATION;;LOCATION CODE

A ;;BCHACT;;Activity Code;;ACT;;ACTIVITY CODE;;ACTIVITY TYPE;;ACTIVITY CODE

C ;;BCHCOMM;;Patient Community of Residence;;COMM;;COMMUNITY OF RESIDENCE;;COMMUNITY OF RESIDENCE;;STCTYCOM CODE

 Q

BCHRPTI   ; IHS/CMI/LAB - REPORT INFORMATION FOR USERS ; 

 +1       ;;2.0;IHS RPMS CHR SYSTEM;;OCT 23, 2012;Build 27

 +2       ;

BDRL      ;EP - detailed or brief record listing

 +1        DO BDRL^BCHRPTI1

 +2        QUIT 

 +3       ;

GENR      ;

 +1        DO GENR^BCHRPTI1

 +2        QUIT 

 +3       ;

 +4       ;

INFORM3   ;EP; inform user for top ten reports

 +1        IF '$DATA(BCHRRPT)

               WRITE !,$CHAR(7),$CHAR(7),"REPORT TYPE MISSING!!  NOTIFY PROGRAMMER",!

               QUIT 

 +2        DO GETINFO

           IF $DATA(BCHQUIT)

               QUIT 

 +3        IF $DATA(IOF)

               WRITE @IOF

 +4        WRITE !,"Frequency of ",BCHINF," Report.",!

 +5        WRITE !,"This report will generate a list of the top N ",BCHINF,!,"for visits that you select.",!

 +6        QUIT 

 +7       ;

INFORM2   ;EP ; inform user on age/sex record reports

 +1        IF $DATA(IOF)

               WRITE @IOF

 +2        WRITE !,"CHR Patient Visits by Age and Sex",!

 +3        WRITE !,"This report will tally the number of patients, who have had an encounter, ",!,"by age and sex.  You will choose the item you wish to tally.  For example, ",!,"you can tally problems treated , or activities by age and sex.",!

 +4        WRITE "You will also be able to define the age groups to be used.",!

 +5        SET BCHX="G;PRB;PRBC;PRBD;L;T;A;AC;C"

           DO MENU

 +6        WRITE !?5,"<The item you pick will display down the left column of the report,",!," Age groups will be across the top.>",!

 +7        SET DIR(0)="N^1:"_$LENGTH(BCHX,";")_":0"

           SET DIR("A")="Choose an item to tally by age and sex"

           DO ^DIR

           KILL DIR

           IF $DATA(DUOUT)

               SET DIRUT=1

 +8        IF $DATA(DIRUT)

               SET BCHQUIT=""

               QUIT 

 +9        SET BCHRRPT=$PIECE(BCHX,";",Y)

 +10       DO GETINFO

 +11       QUIT 

 +12      ;

INFORM    ; EP ; information for activity record counts

 +1        IF $DATA(IOF)

               WRITE @IOF

 +2        WRITE !,"***** ACTIVITY RECORD COUNTS*****",!

 +3        WRITE !,"This report will generate a count of activity records the item and",!,"date range that you specify.",!

 +4        WRITE "You will be given the opportunity to select which records will be",!,"included in the tabulation.  For example, you can choose to tally activity time",!,"by Problem Code for only those activities that took place in the HOME."

 +5        SET BCHX="P;G;D;PRB;PRBC;L;A;C"

           DO MENU

 +6        SET DIR(0)="N^1:"_$LENGTH(BCHX,";")_":0"

           SET DIR("A")="Choose an item for calculating activity time and record counts"

           DO ^DIR

           KILL DIR

           IF $DATA(DUOUT)

               SET DIRUT=1

 +7        IF $DATA(DIRUT)

               SET BCHQUIT=""

               QUIT 

 +8        SET BCHRRPT=$PIECE(BCHX,";",Y)

 +9        DO GETINFO

 +10       QUIT 

 +11      ;

 +12      ;

MENU      ;display menu to choose item

 +1        WRITE !

 +2        IF '$DATA(BCHX)

               QUIT 

 +3        FOR X=1:1:$LENGTH(BCHX,";")

               SET Y=$PIECE(BCHX,";",X)

               SET Z=$TEXT(@(Y))

               WRITE !?5,X,").  ",$PIECE(Z,";;",3)

 +4        QUIT 

GETINFO   ;ENTRY POINT

 +1        IF $TEXT(@(BCHRRPT))=""

               WRITE !!,$CHAR(7),$CHAR(7),"REPORT INFORMATION MISSING!! NOTIFY PROGRAMMER!",!!

               SET BCHQUIT=""

               QUIT 

 +2        SET BCHINFO=$TEXT(@(BCHRRPT))

           SET BCHSORT=$PIECE(BCHINFO,";;",2)

           SET BCHRPROC=$PIECE(BCHINFO,";;",4)

           SET BCHINF=$PIECE(BCHINFO,";;",3)

           SET BCHTITL=$PIECE(BCHINFO,";;",5)

           SET BCHHD1=$PIECE(BCHINFO,";;",6)

           SET BCHHD2=$PIECE(BCHINFO,";;",7)

 +3        QUIT 

 +4       ;

P         ;;BCHPROV;;CHR;;PROV;;COMMUNITY HEALTH REPRESENTATIVE;;CHR;;PROVIDER CODE

G         ;;BCHPROG;;Program;;PROG;;CHR PROGRAM;;CHR PROGRAM;;PROGRAM CODE

D         ;;BCHDATE;;Date of Encounter;;DATE;;DATE OF VISIT;;DATE OF VISIT;;DAY OF WEEK

PRB       ;;BCHPROB;;POV/Problem (Problem Code);;PROB;;PRIMARY PROBLEM (CODE);;PROB CODE NARRATIVE;;PROBLEM CODE

PRBC      ;;BCHPROB;;Problem/POV (Problem Category);;PROBCAT;;PROBLEM CATEGORY;;CATEGORY NARRATIVE;;CATEGORY CODE

L         ;;BCHVLOC;;Activity Location;;LOS;;ACTIVITY LOCATION;;ACTIVITY LOCATION;;LOCATION CODE

A         ;;BCHACT;;Activity Code;;ACT;;ACTIVITY CODE;;ACTIVITY TYPE;;ACTIVITY CODE

C         ;;BCHCOMM;;Patient Community of Residence;;COMM;;COMMUNITY OF RESIDENCE;;COMMUNITY OF RESIDENCE;;STCTYCOM CODE

 +1        QUIT