source: FOIAVistA/trunk/r/REMOTE_ORDER_ENTRY_SYSTEM-RMPF-RMPJ/RMPFDT3.m@ 794

Last change on this file since 794 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 5.0 KB
Line 
1RMPFDT3 ;DDC/KAW-DISPLAY TYPE SPECIFIC MODEL SCREENS [ 07/31/98 2:47 PM ]
2 ;;2.0;REMOTE ORDER/ENTRY SYSTEM;**10,14**;JUN 16, 1995
3PRTA ;;Cancel Order
4 Q
5PRTB ;;
6 D PRTB^RMPFDT6 Q
7PRTC I CX<2 D HEAD,H1
8 S CM=""
9 W !,$J(CX,2)," ",$E(RMPFMAK,1,8),?11,$E(RMPFITP,1,12)
10 S X=0 F K=1:1 S X=$O(RMPFC(X)) Q:'X S Y=$P(RMPFC(X),U,1) I Y D
11 .Q:'$D(^RMPF(791811.2,Y,0)) S S3=^(0)
12 .S RMPFCOM=$P(S3,U,3),RMPFCOMC=$J($P(RMPFC(X),U,2),0,2)
13 .I $P(^RMPF(791810,RMPFX,101,RMPFY,0),U,15)="C" S RMPFCOMC=0
14 .S RMPFTOT=RMPFTOT+RMPFCOMC,CM=$S(CM="":RMPFCOM,1:CM_","_RMPFCOM)
15 .Q
16 W ?25,CM W:$L(CM)>16 ! W ?43,$E(RMPFBAT,1,7)
17 W ?51,RMPFISDP,?62,$E(RMPFLR,1)
18 I $D(RMPFN) S X=0 F K=1:1 S X=$O(RMPFN(X)) Q:'X D
19 .W:CT>0 ! I $D(RMPFBAT2),RMPFBAT2'="",K=2 W ?43,$E(RMPFBAT2,1,7) K RMPFBAT2
20 .W ?64,$E(RMPFN(X),1,10) S CT=CT+1
21 .I $D(RMPFLIS) W ?75,$E(RMPFLIS,1,5) K RMPFLIS
22 I $D(RMPFLIS) W ?75,$E(RMPFLIS,1,5)
23 I $D(RMPFBAT2),RMPFBAT2'="" W !?43,$E(RMPFBAT2,1,7)
24 I RMPFSN'="" W !?4,"Serial Number: ",RMPFSN
25 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)
26 K K,Y,S3,RMPFCOM,RMPFCOMC Q
27H1 W ?4,"Make",?15,"Model",?28,"Component(s)",?43,"Battery",?52,"Iss. Dt.",?62,"E",?64,"Replace SN",?75,"Stat."
28LINE W !?3,"-------",?11,"-------------",?25,"-----------------",?43,"-------",?51,"----------",?62,"-",?64,"----------",?75,"-----"
29 Q
30PRTD D PRTD^RMPFDT6 Q
31PRTE I CX<2 D HEAD W ?5,"Replace Serial Number",!?5,"---------------------",!
32 Q:'$D(RMPFN) S X=0 F S X=$O(RMPFN(X)) Q:'X D
33 .I $D(CY),CX>CY W !
34 .W:CT>0 ! W ?5,$E(RMPFN(X),1,21) S CT=CT+1,CY=CX
35 Q
36PRTF I CX=1 D HEAD W ?27,"Price",?36,"Serial #",?47,"Return Action",!?4,"--------",?14,"-----------",?27,"------",?35,"----------",?47,"-------------"
37 W !,$J(CX,2),". ",$E(RMPFMAK,1,8),?14,$E(RMPFITP,1,11),?27,$J(RMPFCOST,6),?35,RMPFSN,?47,RMPFRACT
38 Q
39PRTG D PRTG^RMPFDT6 Q
40PRTH 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
41 W !,$J(CX,2)," ",$E(RMPFMAK,1,8),?12,$E(RMPFITP,1,15),?28,RMPFOB
42 W ?32,$E(RMPFSN,1,9),?43,$E(RMPFBAT,1,7)
43 W ?51,RMPFACQD,?62,$E(RMPFLR,1)
44 I $D(RMPFN) S X=0 F K=1:1 S X=$O(RMPFN(X)) Q:'X D
45 .W:CT>0 ! W ?64,$E(RMPFN(X),1,11) S CT=CT+1
46 .I CT=0 W ?75,$E(RMPFLIS,1,5) K RMPFLIS
47 I $D(RMPFLIS) W ?75,$E(RMPFLIS,1,5)
48 Q
49PRTI D PRTC
50 Q
51PRTJ D PRTJ^RMPFDT6 Q
52PRTL D PRTT Q
53PRTM D PRTM^RMPFDT6 Q
54PRTN D PRTN^RMPFDT6 Q
55PRTO I CX=1 D
56 .W ! W:$D(RMPFEDIT)&$D(CN) "[",CN,"]" W ?9,"Make",?27,"Model",?42,"Qty",?51,"Components",?67,"Battery",?76,"Stat"
57 .W !,?4,"--------------",?20,"--------------------",?42,"---",?47,"------------------",?67,"-------",?76,"----"
58 S CM=""
59 W !,$J(CX,2),". ",$E(RMPFMAK,1,16),?20,$E(RMPFITP,1,20),?42,$J(RMPFQTY,3)
60 D COMP W ?47,CM W:$L(CM)>18 ! W ?67,$E(RMPFBAT,1,7)
61 W ?76,$E(RMPFLIS,1,4)
62 Q
63PRTP I CX=1 D HEAD W ?27,"Price",?36,"Serial #",!,?4,"--------",?14,"-----------",?27,"------",?35,"----------"
64 W !,$J(CX,2),". ",$E(RMPFMAK,1,8),?14,$E(RMPFITP,1,11),?27,$J(RMPFCOST,6),?35,RMPFSN
65 Q
66PRTQ D PRTQ^RMPFDT6 Q
67PRTR I CX<2 D HEAD W ?5,"Make",?17,"Model",?27,"Price",?35,"Quantity",?45,"Status",!?3,"---------",?14,"-----------",?27,"------",?35,"--------",?45,"------"
68 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)
69 Q
70PRTS 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
71 W !,$J(CX,2)," ",$E(RMPFMAK,1,7),?11,$E(RMPFITP,1,12),?24,$J(RMPFCOST,7)
72 W ?32,$E(RMPFSN,1,10),?43,$E(RMPFBAT,1,7)
73 W ?51,RMPFISDP,?62,$E(RMPFLR,1)
74 I $D(RMPFN) S X=0 F K=1:1 S X=$O(RMPFN(X)) Q:'X D
75 .W:CT>0 ! I $D(RMPFBAT2),RMPFBAT2'="",K=2 W ?45,$E(RMPFBAT2,1,7) K RMPFBAT2
76 .W ?64,$E(RMPFN(X),1,10) S CT=CT+1
77 .I CT=0 W ?75,$E(RMPFLIS,1,5) K RMPFLIS
78 I $D(RMPFLIS) W ?75,$E(RMPFLIS,1,5)
79 I $D(RMPFBAT2),RMPFBAT2'="" W !?45,$E(RMPFBAT2,1,7)
80 Q
81PRTT D PRTT^RMPFDT6 Q
82PRTU I CX=1 D
83 .D HEAD
84 .W ?5,"Make",?15,"Model",?24,"Price",?31,"Ear",?36,"Returned",?46,"Status",?60,"Cancel Reason"
85 .W !?3,"--------",?12,"-----------",?24,"------",?31,"---",?35,"----------",?46,"------",?53,"---------------------------"
86 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)
87 Q
88PRTV D PRTV^RMPFDT6 Q
89PRTW D PRTW^RMPFDT6 Q
90PRTX D PRTX^RMPFDT6 Q
91PRTZ D PRTZ^RMPFDT6 Q
92HEAD W ! W:$D(RMPFEDIT)&$D(CN) "[",CN,"]"
93 Q
94 W:RMPFHAT="Z"!(RMPFHAT="C")!(RMPFHAT="I") ?75,"-----"
95 Q
96LINE1 W !?3,"--------",?12,"---------------",?28,"---",?32,"----------",?43,"-------",?51,"----------",?62,"-",?64,"----------",?75,"-----" Q
97LINE2 W !?3,"-------",?11,"------------",?24,"-------",?32,"----------",?43,"-------",?51,"----------",?62,"-",?64,"----------",?75,"-----" Q
98COMP S X=0 F K=1:1 S X=$O(RMPFC(X)) Q:'X S Y=$P(RMPFC(X),U,1) I Y D
99 .Q:'$D(^RMPF(791811.2,Y,0)) S S3=^(0)
100 .S RMPFCOM=$P(S3,U,3),RMPFCOMC=$J($P(RMPFC(X),U,2),0,2)
101 .I $P(^RMPF(791810,RMPFX,101,RMPFY,0),U,15)="C" S RMPFCOMC=0
102 .S RMPFTOT=RMPFTOT+RMPFCOMC,CM=$S(CM="":RMPFCOM,1:CM_","_RMPFCOM)
103 Q
Note: See TracBrowser for help on using the repository browser.