- 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 ---[H[J[2J[HRMPR29I1 2472 printed Mar 13, 2025@21:36:59 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
