APCLCPUT.m

APCLCPUT ; IHS/CMI/LAB - driver for chn report ;

 ;;2.0;IHS PCC SUITE;;MAY 14, 2009

 ;

NOTE ;ENTRY POINT

 W !!,"NOTE:  This report separates visits and time into individual staff member",!,"contacts.  If Staff Member A and Staff Member B participated on the same visit "

 W !,"for a patient and spent 20 minutes in that visit, that is displayed on this "

 W !,"report as a contact for each staff member."

 Q

NOTE2 ;ENTRY POINT

 W !!,"NOTE:  This report counts one visit regardless of the number of ",$P(^APCLACTG(APCLACTG,0),U)," staff ",!,"involved in that visit, and time represents total time reported regardless"

 W !,"of the number of staff reporting on a single PCC Encounter Form."

 Q

APCLCPUT  ; IHS/CMI/LAB - driver for chn report ;

 +1       ;;2.0;IHS PCC SUITE;;MAY 14, 2009

 +2       ;

NOTE      ;ENTRY POINT

 +1        WRITE !!,"NOTE:  This report separates visits and time into individual staff member",!,"contacts.  If Staff Member A and Staff Member B participated on the same visit "

 +2        WRITE !,"for a patient and spent 20 minutes in that visit, that is displayed on this "

 +3        WRITE !,"report as a contact for each staff member."

 +4        QUIT 

NOTE2     ;ENTRY POINT

 +1        WRITE !!,"NOTE:  This report counts one visit regardless of the number of ",$PIECE(^APCLACTG(APCLACTG,0),U)," staff ",!,"involved in that visit, and time represents total time reported regardless"

 +2        WRITE !,"of the number of staff reporting on a single PCC Encounter Form."

 +3        QUIT