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

RMPFDT3.m

Go to the documentation of this file. 
  1. RMPFDT3 ;DDC/KAW-DISPLAY TYPE SPECIFIC MODEL SCREENS [ 07/31/98  2:47 PM ]
  1.  ;;2.0;REMOTE ORDER/ENTRY SYSTEM;**10,14**;JUN 16, 1995
  1. PRTA ;;Cancel Order
  1.  Q
  1. PRTB ;;
  1.  D PRTB^RMPFDT6 Q
  1. PRTC I CX<2 D HEAD,H1
  1.  S CM=""
  1.  W !,$J(CX,2)," ",$E(RMPFMAK,1,8),?11,$E(RMPFITP,1,12)
  1.  S X=0 F K=1:1 S X=$O(RMPFC(X)) Q:'X  S Y=$P(RMPFC(X),U,1) I Y D
  1.  .Q:'$D(^RMPF(791811.2,Y,0))  S S3=^(0)
  1.  .S RMPFCOM=$P(S3,U,3),RMPFCOMC=$J($P(RMPFC(X),U,2),0,2)
  1.  .I $P(^RMPF(791810,RMPFX,101,RMPFY,0),U,15)="C" S RMPFCOMC=0
  1.  .S RMPFTOT=RMPFTOT+RMPFCOMC,CM=$S(CM="":RMPFCOM,1:CM_","_RMPFCOM)
  1.  .Q
  1.  W ?25,CM W:$L(CM)>16 ! W ?43,$E(RMPFBAT,1,7)
  1.  W ?51,RMPFISDP,?62,$E(RMPFLR,1)
  1.  I $D(RMPFN) S X=0 F K=1:1 S X=$O(RMPFN(X)) Q:'X  D
  1.  .W:CT>0 ! I $D(RMPFBAT2),RMPFBAT2'="",K=2 W ?43,$E(RMPFBAT2,1,7) K RMPFBAT2
  1.  .W ?64,$E(RMPFN(X),1,10) S CT=CT+1
  1.  .I $D(RMPFLIS) W ?75,$E(RMPFLIS,1,5) K RMPFLIS
  1.  I $D(RMPFLIS) W ?75,$E(RMPFLIS,1,5)
  1.  I $D(RMPFBAT2),RMPFBAT2'="" W !?43,$E(RMPFBAT2,1,7)
  1.  I RMPFSN'="" W !?4,"Serial Number: ",RMPFSN
  1.  I RMPFCERU'="" W:RMPFSN="" ! W:$P(^RMPF(791810,RMPFX,101,RMPFY,90),U,10) ?32,"Re-" W ?33,"Certified: ",RMPFCERD,?57,"By: ",$E(RMPFCERU,1,19)
  1.  K K,Y,S3,RMPFCOM,RMPFCOMC Q
  1. H1 W ?4,"Make",?15,"Model",?28,"Component(s)",?43,"Battery",?52,"Iss. Dt.",?62,"E",?64,"Replace SN",?75,"Stat."
  1. LINE W !?3,"-------",?11,"-------------",?25,"-----------------",?43,"-------",?51,"----------",?62,"-",?64,"----------",?75,"-----"
  1.  Q
  1. PRTD D PRTD^RMPFDT6 Q
  1. PRTE I CX<2 D HEAD W ?5,"Replace Serial Number",!?5,"---------------------",!
  1.  Q:'$D(RMPFN)  S X=0 F  S X=$O(RMPFN(X)) Q:'X  D
  1.  .I $D(CY),CX>CY W !
  1.  .W:CT>0 ! W ?5,$E(RMPFN(X),1,21) S CT=CT+1,CY=CX
  1.  Q
  1. PRTF I CX=1 D HEAD W ?27,"Price",?36,"Serial #",?47,"Return Action",!?4,"--------",?14,"-----------",?27,"------",?35,"----------",?47,"-------------"
  1.  W !,$J(CX,2),". ",$E(RMPFMAK,1,8),?14,$E(RMPFITP,1,11),?27,$J(RMPFCOST,6),?35,RMPFSN,?47,RMPFRACT
  1.  Q
  1. PRTG D PRTG^RMPFDT6 Q
  1. PRTH I CX<2 D HEAD W ?5,"Make",?17,"Model",?28,"Pur",?33,"Serial #",?43,"Battery",?52,"Acq. Dt.",?62,"E",?64,"Replace SN",?75,"Stat." D LINE1
  1.  W !,$J(CX,2)," ",$E(RMPFMAK,1,8),?12,$E(RMPFITP,1,15),?28,RMPFOB
  1.  W ?32,$E(RMPFSN,1,9),?43,$E(RMPFBAT,1,7)
  1.  W ?51,RMPFACQD,?62,$E(RMPFLR,1)
  1.  I $D(RMPFN) S X=0 F K=1:1 S X=$O(RMPFN(X)) Q:'X  D
  1.  .W:CT>0 ! W ?64,$E(RMPFN(X),1,11) S CT=CT+1
  1.  .I CT=0 W ?75,$E(RMPFLIS,1,5) K RMPFLIS
  1.  I $D(RMPFLIS) W ?75,$E(RMPFLIS,1,5)
  1.  Q
  1. PRTI D PRTC
  1.  Q
  1. PRTJ D PRTJ^RMPFDT6 Q
  1. PRTL D PRTT Q
  1. PRTM D PRTM^RMPFDT6 Q
  1. PRTN D PRTN^RMPFDT6 Q
  1. PRTO I CX=1 D
  1.  .W ! W:$D(RMPFEDIT)&$D(CN) "[",CN,"]" W ?9,"Make",?27,"Model",?42,"Qty",?51,"Components",?67,"Battery",?76,"Stat"
  1.  .W !,?4,"--------------",?20,"--------------------",?42,"---",?47,"------------------",?67,"-------",?76,"----"
  1.  S CM=""
  1.  W !,$J(CX,2),". ",$E(RMPFMAK,1,16),?20,$E(RMPFITP,1,20),?42,$J(RMPFQTY,3)
  1.  D COMP W ?47,CM W:$L(CM)>18 ! W ?67,$E(RMPFBAT,1,7)
  1.  W ?76,$E(RMPFLIS,1,4)
  1.  Q
  1. PRTP I CX=1 D HEAD W ?27,"Price",?36,"Serial #",!,?4,"--------",?14,"-----------",?27,"------",?35,"----------"
  1.  W !,$J(CX,2),". ",$E(RMPFMAK,1,8),?14,$E(RMPFITP,1,11),?27,$J(RMPFCOST,6),?35,RMPFSN
  1.  Q
  1. PRTQ D PRTQ^RMPFDT6 Q
  1. PRTR I CX<2 D HEAD W ?5,"Make",?17,"Model",?27,"Price",?35,"Quantity",?45,"Status",!?3,"---------",?14,"-----------",?27,"------",?35,"--------",?45,"------"
  1.  W !,$J(CX,2)," ",$E(RMPFMAK,1,9),?14,$E(RMPFITP,1,11),?27,$J(RMPFCOST,6),?35,$J(RMPFQTY,8),?45,$E(RMPFLIS,1,6)
  1.  Q
  1. PRTS I CX<2 D HEAD W ?4,"Make",?14,"Model",?25,"Price",?33,"Serial #",?43,"Battery",?52,"Iss. Dt.",?62,"E",?64,"Replace SN",?75,"Stat." D LINE2
  1.  W !,$J(CX,2)," ",$E(RMPFMAK,1,7),?11,$E(RMPFITP,1,12),?24,$J(RMPFCOST,7)
  1.  W ?32,$E(RMPFSN,1,10),?43,$E(RMPFBAT,1,7)
  1.  W ?51,RMPFISDP,?62,$E(RMPFLR,1)
  1.  I $D(RMPFN) S X=0 F K=1:1 S X=$O(RMPFN(X)) Q:'X  D
  1.  .W:CT>0 ! I $D(RMPFBAT2),RMPFBAT2'="",K=2 W ?45,$E(RMPFBAT2,1,7) K RMPFBAT2
  1.  .W ?64,$E(RMPFN(X),1,10) S CT=CT+1
  1.  .I CT=0 W ?75,$E(RMPFLIS,1,5) K RMPFLIS
  1.  I $D(RMPFLIS) W ?75,$E(RMPFLIS,1,5)
  1.  I $D(RMPFBAT2),RMPFBAT2'="" W !?45,$E(RMPFBAT2,1,7)
  1.  Q
  1. PRTT D PRTT^RMPFDT6 Q
  1. PRTU I CX=1 D
  1.  .D HEAD
  1.  .W ?5,"Make",?15,"Model",?24,"Price",?31,"Ear",?36,"Returned",?46,"Status",?60,"Cancel Reason"
  1.  .W !?3,"--------",?12,"-----------",?24,"------",?31,"---",?35,"----------",?46,"------",?53,"---------------------------"
  1.  W !,$J(CX,2)," ",$E(RMPFMAK,1,8),?12,$E(RMPFITP,1,11),?24,$J(RMPFCOST,6),?32,RMPFLR,?35,RMPFRDC,?46,$E(RMPFLIS,1,6),?53,$E(RMPFCUR,1,27)
  1.  Q
  1. PRTV D PRTV^RMPFDT6 Q
  1. PRTW D PRTW^RMPFDT6 Q
  1. PRTX D PRTX^RMPFDT6 Q
  1. PRTZ D PRTZ^RMPFDT6 Q
  1.  Q
  1.  W:RMPFHAT="Z"!(RMPFHAT="C")!(RMPFHAT="I") ?75,"-----"
  1.  Q
  1. LINE1 W !?3,"--------",?12,"---------------",?28,"---",?32,"----------",?43,"-------",?51,"----------",?62,"-",?64,"----------",?75,"-----" Q
  1. LINE2 W !?3,"-------",?11,"------------",?24,"-------",?32,"----------",?43,"-------",?51,"----------",?62,"-",?64,"----------",?75,"-----" Q
  1. COMP S X=0 F K=1:1 S X=$O(RMPFC(X)) Q:'X  S Y=$P(RMPFC(X),U,1) I Y D
  1.  .Q:'$D(^RMPF(791811.2,Y,0))  S S3=^(0)
  1.  .S RMPFCOM=$P(S3,U,3),RMPFCOMC=$J($P(RMPFC(X),U,2),0,2)
  1.  .I $P(^RMPF(791810,RMPFX,101,RMPFY,0),U,15)="C" S RMPFCOMC=0
  1.  .S RMPFTOT=RMPFTOT+RMPFCOMC,CM=$S(CM="":RMPFCOM,1:CM_","_RMPFCOM)
  1.  Q