BDGH04.m

BDGH04 ; IHS/ANMC/LJF - INTRO TEXT FOR CENSUS REPORTS ;

 ;;5.3;PIMS;;APR 26, 2002

 ;

 Q

 ;

AID1 ;EP; intro text for census data by ward

 NEW BDGX

 S BDGX(1)="Use this option to view numbers of admissions, transfers"

 S BDGX(2)="and discharges for a particular ward within a date range."

 S BDGX(3)="The report also includes a calculation of ward activity;"

 S BDGX(4)="a benchmark based on number of movements against the"

 S BDGX(5)="number of patients remaining."

 D DISPLAY(5)

 Q

 ;

AID2 ;EP; intro text for census data by ward and service

 NEW BDGX

 S BDGX(1)="Use this option to view activity for a service within a"

 S BDGX(2)="ward for a date range.  You will also be asked to choose"

 S BDGX(3)="between adult or pediatric movements for that service."

 D DISPLAY(3)

 Q

 ;

AID3 ;EP; intro text for census data by service

 NEW BDGX

 S BDGX(1)="Use this option to view service changes in your facility"

 S BDGX(2)="for a date range.  You must choose between adult or"

 S BDGX(3)="pediatric movements.  These are the same numbers that are"

 S BDGX(4)="reported on the summary-style A&D Sheet."

 D DISPLAY(4)

 Q

 ;

AID4 ;EP; intro text for list ward census movements

 NEW BDGX

 S BDGX(1)="Use this option to list each patient movement within a"

 S BDGX(2)="given time frame.  This report is used by unit nursing"

 S BDGX(3)="staff to check their manual census records against the"

 S BDGX(4)="data recorded in ADT.  A summary page is printed if all"

 S BDGX(5)="wards are chosen to print."

 D DISPLAY(5)

 Q

 ;

M202 ;EP; intro text for M202

 NEW BDGX

 S BDGX(1)="Use this option to print the HSA-202-1 form for reporting"

 S BDGX(2)="inpatient services at your facility for a specific month."

 S BDGX(3)="Unlike most ADT reports, this report is designed to print"

 S BDGX(4)="only on paper so it is not available in list manager mode."

 D DISPLAY(4)

 Q

 ;

Y202 ;EP; intro text for M202 for date range

 NEW BDGX

 S BDGX(1)="Use this option to print a report in the HSA-202-1 format"

 S BDGX(2)="BUT for a range of months. This can be used to view your"

 S BDGX(3)="facility's inpatient services over time.  Like the M202,"

 S BDGX(4)="this report is designed to print on paper."

 D DISPLAY(4)

 Q

 ;

DISPLAY(N) ; -- display array with N lines

 S BDGX(1,"F")="!!!?5"

 F I=2:1:N S BDGX(I,"F")="!?5"

 S BDGX(N+1,"F")="!!"

 D EN^DDIOL(.BDGX)

 D VAR^BDGVAR      ;makes all options able to run independently

 Q

BDGH04    ; IHS/ANMC/LJF - INTRO TEXT FOR CENSUS REPORTS ;

 +1       ;;5.3;PIMS;;APR 26, 2002

 +2       ;

 +3        QUIT 

 +4       ;

AID1      ;EP; intro text for census data by ward

 +1        NEW BDGX

 +2        SET BDGX(1)="Use this option to view numbers of admissions, transfers"

 +3        SET BDGX(2)="and discharges for a particular ward within a date range."

 +4        SET BDGX(3)="The report also includes a calculation of ward activity;"

 +5        SET BDGX(4)="a benchmark based on number of movements against the"

 +6        SET BDGX(5)="number of patients remaining."

 +7        DO DISPLAY(5)

 +8        QUIT 

 +9       ;

AID2      ;EP; intro text for census data by ward and service

 +1        NEW BDGX

 +2        SET BDGX(1)="Use this option to view activity for a service within a"

 +3        SET BDGX(2)="ward for a date range.  You will also be asked to choose"

 +4        SET BDGX(3)="between adult or pediatric movements for that service."

 +5        DO DISPLAY(3)

 +6        QUIT 

 +7       ;

AID3      ;EP; intro text for census data by service

 +1        NEW BDGX

 +2        SET BDGX(1)="Use this option to view service changes in your facility"

 +3        SET BDGX(2)="for a date range.  You must choose between adult or"

 +4        SET BDGX(3)="pediatric movements.  These are the same numbers that are"

 +5        SET BDGX(4)="reported on the summary-style A&D Sheet."

 +6        DO DISPLAY(4)

 +7        QUIT 

 +8       ;

AID4      ;EP; intro text for list ward census movements

 +1        NEW BDGX

 +2        SET BDGX(1)="Use this option to list each patient movement within a"

 +3        SET BDGX(2)="given time frame.  This report is used by unit nursing"

 +4        SET BDGX(3)="staff to check their manual census records against the"

 +5        SET BDGX(4)="data recorded in ADT.  A summary page is printed if all"

 +6        SET BDGX(5)="wards are chosen to print."

 +7        DO DISPLAY(5)

 +8        QUIT 

 +9       ;

M202      ;EP; intro text for M202

 +1        NEW BDGX

 +2        SET BDGX(1)="Use this option to print the HSA-202-1 form for reporting"

 +3        SET BDGX(2)="inpatient services at your facility for a specific month."

 +4        SET BDGX(3)="Unlike most ADT reports, this report is designed to print"

 +5        SET BDGX(4)="only on paper so it is not available in list manager mode."

 +6        DO DISPLAY(4)

 +7        QUIT 

 +8       ;

Y202      ;EP; intro text for M202 for date range

 +1        NEW BDGX

 +2        SET BDGX(1)="Use this option to print a report in the HSA-202-1 format"

 +3        SET BDGX(2)="BUT for a range of months. This can be used to view your"

 +4        SET BDGX(3)="facility's inpatient services over time.  Like the M202,"

 +5        SET BDGX(4)="this report is designed to print on paper."

 +6        DO DISPLAY(4)

 +7        QUIT 

 +8       ;

DISPLAY(N) ; -- display array with N lines

 +1        SET BDGX(1,"F")="!!!?5"

 +2        FOR I=2:1:N

               SET BDGX(I,"F")="!?5"

 +3        SET BDGX(N+1,"F")="!!"

 +4        DO EN^DDIOL(.BDGX)

 +5       ;makes all options able to run independently

           DO VAR^BDGVAR

 +6        QUIT