RMPR29I1.m

RMPR29I1 ;PHX/JLT-PRINT PENDING/CLOSED/ASSIGNED [ 10/06/94  9:31 AM ]

 ;;3.0;PROSTHETICS;;Feb 09, 1996

ASN ;ASSIGNED 2529-3s TO TECH USING OPTION

 K QUIT D ST^RMPRDT G:$D(QUIT) EXIT

 S DIC="^RMPR(664.1,",BY="@.01",FR=DATE(1),TO=DATE(2)

 S DIS(0)="I '$P($G(^RMPR(664.1,D0,7)),U,2),$P(^RMPR(664.1,D0,0),U,3)=RMPR(""STA""),$P(^RMPR(664.1,D0,0),U,17)=""A"",$P(^(0),U,16)=DUZ"

 S FLDS="STRIPBLANKS(PATIENT);C1;""PATIENT"",.02:.01:.09;C40;""SSN"",4;C60;""WORK ORDER"""

 S FLDS(1)="REQUESTING OFFICIAL;C1;""INITIATED BY"",DATE;C40;""DATE INIT"",DATE ASSIGNED-DATE;C60;""#DAYS PENDING"";W15"

 S FLDS(2)="""ASSIGNED BY:"";C1,ASSIGNED BY;C15;X,""DATE ASSIGNED"";C40,DATE ASSIGNED;X;C60"

 S FLDS(3)="""WORK FOR: "";C1,2;C11;X,""ASSIGNED TO:"";C40,STRIPBLANKS(TECHNICIAN);C60;X"

 S FLDS(4)="D DIS^RMPR29I;C1;X"

 S FLDS(5)="6,""ITEM:"";C1;X,.01;C10;X,D LEW^RMPR29I;C40;X,D STN^RMPR29I;X,D ADC^RMPR29I;X,""DESC:"";C1,7;C10;W60;X"

 S FLDS(6)="6,""LABOR COST:"";X;C1,5:STRIPBLANKS(TOTAL LABOR COST);X;C15,""MATERIAL COST:"";X;C24,5:STRIPBLANKS(TOTAL MATERIAL COST);X;C40,""TOTAL COST:"";X;C50,5:STRIPBLANKS(TOTAL LAB COST);X;C65"

 S DHD="         <ASSIGNED/OPEN 2529-3s>",DHIT="D LINE^RMPR29I" D EN1^DIP

 D EXIT Q

 ;

 ;

CLS ;CLOSED 2529-3s BY TECH USING OPTION

 K QUIT D ST^RMPRDT G:$D(QUIT) EXIT

 S DIC="^RMPR(664.1,",BY="@20",FR=DATE(1),TO=DATE(2)

 S DIS(0)="I $P($G(^RMPR(664.1,D0,7)),U,2),$P(^RMPR(664.1,D0,0),U,3)=RMPR(""STA""),$P(^RMPR(664.1,D0,0),U,15)=RMPR(""STA""),$P(^RMPR(664.1,D0,0),U,17)=""C"",$P(^(0),U,16)=DUZ"

 S FLDS="STRIPBLANKS(PATIENT);C1;""PATIENT"",.02:.01:.09;C40;""SSN"",4;C60;""WORK ORDER"""

 S FLDS(1)="REQUESTING OFFICIAL;C1;""INITIATED BY"",DATE;C40;""DATE INIT"",DATE DELIVERED-DATE;C60;""#DAYS OPEN"";W15"

 S FLDS(2)="""ASSIGNED BY:"";C1,ASSIGNED BY;C15;X,""DATE ASSIGNED"";C40,DATE ASSIGNED;X;C60"

 S FLDS(3)="""WORK FOR: "";C1,2;C11;X,""ASSIGNED TO:"";C40,STRIPBLANKS(TECHNICIAN);C60;X"

 S FLDS(4)="D DIS^RMPR29I;C1;X"

 S FLDS(5)="6,""ITEM:"";C1;X,.01;C10;X,D LEW^RMPR29I;C40;X,D ADC^RMPR29I;X,""DESC:"";C1,7;C10;W60;X"

 S FLDS(6)="6,""LABOR COST:"";X;C1,5:STRIPBLANKS(TOTAL LABOR COST);X;C15,""MATERIAL COST:"";X;C24,5:STRIPBLANKS(TOTAL MATERIAL COST);X;C40,""TOTAL COST:"";X;C50,5:STRIPBLANKS(TOTAL LAB COST);X;C65"

 S FLDS(7)="""DELIVERY DATE"";C1;X,20;C15;X"

 S DHD="         <CLOSED 2529-3s>",DHIT="D LINE^RMPR29I" D EN1^DIP

 D EXIT Q

 ;

 ;

 ;

EXIT ;common exit point

 K D0,D1,DATE,DHD,DHIT,DIC,DIS,FLDS,FR,TO,BY Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---RMPR29I1   2472     printed  Apr 09, 2024@21:35:23                                                                                                                                                                                                    Page 2

RMPR29I1  ;PHX/JLT-PRINT PENDING/CLOSED/ASSIGNED [ 10/06/94  9:31 AM ]

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

ASN       ;ASSIGNED 2529-3s TO TECH USING OPTION

 +1        KILL QUIT

           DO ST^RMPRDT

           if $DATA(QUIT)

               GOTO EXIT

 +2        SET DIC="^RMPR(664.1,"

           SET BY="@.01"

           SET FR=DATE(1)

           SET TO=DATE(2)

 +3        SET DIS(0)="I '$P($G(^RMPR(664.1,D0,7)),U,2),$P(^RMPR(664.1,D0,0),U,3)=RMPR(""STA""),$P(^RMPR(664.1,D0,0),U,17)=""A"",$P(^(0),U,16)=DUZ"

 +4        SET FLDS="STRIPBLANKS(PATIENT);C1;""PATIENT"",.02:.01:.09;C40;""SSN"",4;C60;""WORK ORDER"""

 +5        SET FLDS(1)="REQUESTING OFFICIAL;C1;""INITIATED BY"",DATE;C40;""DATE INIT"",DATE ASSIGNED-DATE;C60;""#DAYS PENDING"";W15"

 +6        SET FLDS(2)="""ASSIGNED BY:"";C1,ASSIGNED BY;C15;X,""DATE ASSIGNED"";C40,DATE ASSIGNED;X;C60"

 +7        SET FLDS(3)="""WORK FOR: "";C1,2;C11;X,""ASSIGNED TO:"";C40,STRIPBLANKS(TECHNICIAN);C60;X"

 +8        SET FLDS(4)="D DIS^RMPR29I;C1;X"

 +9        SET FLDS(5)="6,""ITEM:"";C1;X,.01;C10;X,D LEW^RMPR29I;C40;X,D STN^RMPR29I;X,D ADC^RMPR29I;X,""DESC:"";C1,7;C10;W60;X"

 +10       SET FLDS(6)="6,""LABOR COST:"";X;C1,5:STRIPBLANKS(TOTAL LABOR COST);X;C15,""MATERIAL COST:"";X;C24,5:STRIPBLANKS(TOTAL MATERIAL COST);X;C40,""TOTAL COST:"";X;C50,5:STRIPBLANKS(TOTAL LAB COST);X;C65"

 +11       SET DHD="         <ASSIGNED/OPEN 2529-3s>"

           SET DHIT="D LINE^RMPR29I"

           DO EN1^DIP

 +12       DO EXIT

           QUIT 

 +13      ;

 +14      ;

CLS       ;CLOSED 2529-3s BY TECH USING OPTION

 +1        KILL QUIT

           DO ST^RMPRDT

           if $DATA(QUIT)

               GOTO EXIT

 +2        SET DIC="^RMPR(664.1,"

           SET BY="@20"

           SET FR=DATE(1)

           SET TO=DATE(2)

 +3        SET DIS(0)="I $P($G(^RMPR(664.1,D0,7)),U,2),$P(^RMPR(664.1,D0,0),U,3)=RMPR(""STA""),$P(^RMPR(664.1,D0,0),U,15)=RMPR(""STA""),$P(^RMPR(664.1,D0,0),U,17)=""C"",$P(^(0),U,16)=DUZ"

 +4        SET FLDS="STRIPBLANKS(PATIENT);C1;""PATIENT"",.02:.01:.09;C40;""SSN"",4;C60;""WORK ORDER"""

 +5        SET FLDS(1)="REQUESTING OFFICIAL;C1;""INITIATED BY"",DATE;C40;""DATE INIT"",DATE DELIVERED-DATE;C60;""#DAYS OPEN"";W15"

 +6        SET FLDS(2)="""ASSIGNED BY:"";C1,ASSIGNED BY;C15;X,""DATE ASSIGNED"";C40,DATE ASSIGNED;X;C60"

 +7        SET FLDS(3)="""WORK FOR: "";C1,2;C11;X,""ASSIGNED TO:"";C40,STRIPBLANKS(TECHNICIAN);C60;X"

 +8        SET FLDS(4)="D DIS^RMPR29I;C1;X"

 +9        SET FLDS(5)="6,""ITEM:"";C1;X,.01;C10;X,D LEW^RMPR29I;C40;X,D ADC^RMPR29I;X,""DESC:"";C1,7;C10;W60;X"

 +10       SET FLDS(6)="6,""LABOR COST:"";X;C1,5:STRIPBLANKS(TOTAL LABOR COST);X;C15,""MATERIAL COST:"";X;C24,5:STRIPBLANKS(TOTAL MATERIAL COST);X;C40,""TOTAL COST:"";X;C50,5:STRIPBLANKS(TOTAL LAB COST);X;C65"

 +11       SET FLDS(7)="""DELIVERY DATE"";C1;X,20;C15;X"

 +12       SET DHD="         <CLOSED 2529-3s>"

           SET DHIT="D LINE^RMPR29I"

           DO EN1^DIP

 +13       DO EXIT

           QUIT 

 +14      ;

 +15      ;

 +16      ;

EXIT      ;common exit point

 +1        KILL D0,D1,DATE,DHD,DHIT,DIC,DIS,FLDS,FR,TO,BY

           QUIT