BCHRPTI1.m

BCHRPTI1 ; IHS/CMI/LAB - cont. of amhrpti ; 

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

 ;

 ;

BDRL ;EP - CALLED FROM BCHRPTI

 W:$D(IOF) @IOF

 W !?9,"********************* CHR Record List **********************"

 W !!,"This report will produce either a detailed or a brief listing of CHR records.",!!,"These records will be for the date range specified by the user.  Records can"

 W !,"be printed based on selected data items."

 W !!

 Q

 ;

GENR ;EP - CALLED FROM BCHRPTI

 NEW X

 W:$D(IOF) @IOF

 S X="RECORD/ENCOUNTER GENERAL RETRIEVAL"

 W ?((80-$L(X))/2),X

 W !!!,"This report will produce a listing of records in a date range selected by the",!,"user.  The records printed can be selected based on any combination of items.",!,"The user will select these criteria.  The items printed on the report",!

 W "are also selected by the user.",!!,"Be sure to have a printer available that has 132-column print capability.",!!

 Q

BCHRPTI1  ; IHS/CMI/LAB - cont. of amhrpti ; 

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

 +2       ;

 +3       ;

BDRL      ;EP - CALLED FROM BCHRPTI

 +1        IF $DATA(IOF)

               WRITE @IOF

 +2        WRITE !?9,"********************* CHR Record List **********************"

 +3        WRITE !!,"This report will produce either a detailed or a brief listing of CHR records.",!!,"These records will be for the date range specified by the user.  Records can"

 +4        WRITE !,"be printed based on selected data items."

 +5        WRITE !!

 +6        QUIT 

 +7       ;

GENR      ;EP - CALLED FROM BCHRPTI

 +1        NEW X

 +2        IF $DATA(IOF)

               WRITE @IOF

 +3        SET X="RECORD/ENCOUNTER GENERAL RETRIEVAL"

 +4        WRITE ?((80-$LENGTH(X))/2),X

 +5        WRITE !!!,"This report will produce a listing of records in a date range selected by the",!,"user.  The records printed can be selected based on any combination of items.",!,"The user will select these criteria.  The items printed on the report

",!

 +6        WRITE "are also selected by the user.",!!,"Be sure to have a printer available that has 132-column print capability.",!!

 +7        QUIT