Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping
Routine: RMPRCH

RMPRCH.m

Go to the documentation of this file.

RMPRCH ;PATCH LABOR HOURS ;10/01/1994

 ;;3.0;PROSTHETICS;;Feb 09, 1996

 F RI=0:0 S RI=$O(^RMPR(664.3,RI)) Q:RI'>0  I $D(^RMPR(664.3,RI,1,0)) D

 .F RA=0:0 S RA=$O(^RMPR(664.3,RI,1,RA)) Q:RA'>0  S EMP=$P(^(RA,0),U) I EMP S $P(^RMPR(664.3,RI,1,RA,0),U,3)=+$$PAID^RMPR29U(EMP) W "."

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HRMPRCH   287     printed  Apr 09, 2024@21:38:09                                                                                                                                                                                                       Page 2

RMPRCH    ;PATCH LABOR HOURS ;10/01/1994

 +1       ;;3.0;PROSTHETICS;;Feb 09, 1996

 +2       ;

 +3        FOR RI=0:0

               SET RI=$ORDER(^RMPR(664.3,RI))

               if RI'>0

                   QUIT

               IF $DATA(^RMPR(664.3,RI,1,0))

                   Begin DoDot:1

 +4                    FOR RA=0:0

                           SET RA=$ORDER(^RMPR(664.3,RI,1,RA))

                           if RA'>0

                               QUIT

                           SET EMP=$PIECE(^(RA,0),U)

                           IF EMP

                               SET $PIECE(^RMPR(664.3,RI,1,RA,0),U,3)=+$$PAID^RMPR29U(EMP)

                               WRITE "."

                   End DoDot:1