AMHRP71.m

AMHRP71 ; IHS/CMI/LAB - PROCESS REPORT ;

 ;;4.0;IHS BEHAVIORAL HEALTH;;MAY 14, 2010

 ;

 D M

END ;

 Q

 Q

 ;

M ;

 S DFN=0 F  S DFN=$O(^AMHPDAT(DFN)) Q:DFN'=+DFN  S AMHX=$S(AMHPROG="M":$P(^AMHPDAT(DFN,0),U,2),1:$P(^AMHPDAT(DFN,0),U,3)) I AMHX]"" D PROC

 Q

PROC ;

 I AMHPRV,AMHPRV'=AMHX Q

 S ^XTMP("AMHRP7",AMHJOB,AMHBTH,AMHPRV,DFN)=""

 Q

PRINT ;

AMHRP71   ; IHS/CMI/LAB - PROCESS REPORT ;

 +1       ;;4.0;IHS BEHAVIORAL HEALTH;;MAY 14, 2010

 +2       ;

 +3        DO M

END       ;

 +1        QUIT 

 +2        QUIT 

 +3       ;

M         ;

 +1        SET DFN=0

           FOR 

               SET DFN=$ORDER(^AMHPDAT(DFN))

               IF DFN'=+DFN

                   QUIT 

               SET AMHX=$SELECT(AMHPROG="M":$PIECE(^AMHPDAT(DFN,0),U,2),1:$PIECE(^AMHPDAT(DFN,0),U,3))

               IF AMHX]""

                   DO PROC

 +2        QUIT 

PROC      ;

 +1        IF AMHPRV

               IF AMHPRV'=AMHX

                   QUIT 

 +2        SET ^XTMP("AMHRP7",AMHJOB,AMHBTH,AMHPRV,DFN)=""

 +3        QUIT 

PRINT     ;