| [613] | 1 | RMPR29J ;PHX/JLT-DISPLAY JOB RECORD INFO ;8/29/1994 [ 10/04/94 10:18 AM ]
|
|---|
| 2 | ;;3.0;PROSTHETICS;;Feb 09, 1996
|
|---|
| 3 | DISP ;GET AND DISPLAY 2529-3 INFO
|
|---|
| 4 | ;CALLED FROM RMPR29B, RMPR29P
|
|---|
| 5 | ;VARIABLE REQUIRED:RMPRDA - ENTRY NUMBER IN FILE 664.1
|
|---|
| 6 | D HOME^%ZIS D GET^RMPR29W(RMPRDA)
|
|---|
| 7 | I '$D(RCK) Q
|
|---|
| 8 | S (PAGE,MC,LC,TMC,TLC,TSH)=0 D HDR^RMPR29W(RMPRDA) S RI=$O(RCK(0)),(RJ,RTHD)=0
|
|---|
| 9 | ITD G:($Y+5>IOSL)!(RI'>0) MORE D ITM^RMPR293 S RMPRWO=$P(RCK(RI),U,3)
|
|---|
| 10 | TCH G:'$D(TECH(RMPRWO))!($O(TECH(RMPRWO,0))'>0) MU S RTCD=$O(TECH(RMPRWO,0))
|
|---|
| 11 | G:($Y+5>IOSL) MORE S RTC=$O(TECH(RMPRWO,RTCD,664.33,0)) I RTC D TDSP^RMPR293 G TCH
|
|---|
| 12 | MU G:($Y+6>IOSL) MORE I $D(TMP(RMPRWO,664.22)) S RJ=$O(TMP(RMPRWO,664.22,0)) I RJ D MDSP^RMPR293 G MU
|
|---|
| 13 | S SCH=^UTILITY("DIQ1",$J,664.2,RMPRWO,4,"E") I +SCH S:^UTILITY("DIQ1",$J,664.2,RMPRWO,5,"E") SCH=^("E") S TSH=TSH+SCH W !,?37,"SHIPPING CHARGE: ",?70,$J(SCH,10,2)
|
|---|
| 14 | S RR=1
|
|---|
| 15 | EXT G:($Y+5>IOSL) MORE S RW=$O(^UTILITY($J,"TEXT",RMPRWO,0)) I RW D WDSP^RMPR293 G EXT
|
|---|
| 16 | W !,RMPR("L")
|
|---|
| 17 | S RI=$O(RCK(RI)) G ITD
|
|---|
| 18 | MORE ;DISPLAY MORE INFO
|
|---|
| 19 | G:+RI'>0 ASK S RMPRWO=$P(RCK(RI),U,3)
|
|---|
| 20 | I $D(^UTILITY($J,"TEXT",RMPRWO)) S RMPRWZ=1
|
|---|
| 21 | I $D(TECH(RMPRWO)) S RMPRTZ=1
|
|---|
| 22 | I $D(TMP(RMPRWO,664.22)) S RMPRIZ=1
|
|---|
| 23 | I $O(RCK(RI)) S RMPRCZ=1
|
|---|
| 24 | ASK ;ASK TYPE OF ACTION
|
|---|
| 25 | K DIR S DIR(0)="NO",DIR("A")="Select Job Number" I $D(RMPRWZ)!($D(RMPRTZ))!($D(RMPRIZ))!($D(RMPRCZ)) S DIR("A")=DIR("A")_" or press 'return' to view more information"
|
|---|
| 26 | I $Y<21 F W ! Q:$Y>21
|
|---|
| 27 | D ^DIR G:$D(DTOUT) END^RMPR29A
|
|---|
| 28 | I X=""&(+RI>0),$D(RMPRTZ) K RMPRTZ,RMPRIZ,RMPRCZ,RMPRWZ D HDR^RMPR29W(RMPRDA),ITM^RMPR293 G TCH
|
|---|
| 29 | I X=""&(+RI>0),$D(RMPRIZ) K RMPRIZ,RMPRCZ,RMPRWZ D HDR^RMPR29W(RMPRDA),ITM^RMPR293 G MU
|
|---|
| 30 | I X=""&(+RI>0),$D(RMPRWZ) K RMPRWZ,RMPRCZ D HDR^RMPR29W(RMPRDA),ITM^RMPR293 G EXT
|
|---|
| 31 | I X=""&(+RI>0),$D(RMPRCZ) K RMPRCZ S RI=$O(RCK(RI)) G:+RI'>0 DISP^RMPR29D D HDR^RMPR29W(RMPRDA) G ITD
|
|---|
| 32 | I $D(DIRUT) K RMPRF G DISP^RMPR29D
|
|---|
| 33 | I $D(RMPRF),$D(RCK(+Y)),$P($G(^RMPR(664.2,$P(RCK(+Y),U,3),0)),U,10) W !!,?5,$C(7),"Job Has Been Completed You cannot initiate a Purchase!!" G MORE
|
|---|
| 34 | G:'$D(RCK(+Y)) MORE
|
|---|
| 35 | I +Y>0,'$D(RMPRF) S RMPRWO=$P(RCK(+Y),U,3),DA660=$P(RCK(+Y),U,2) G TCH^RMPR29B
|
|---|
| 36 | I +Y>0,$G(RMPRF)=2 S RMPRWO=$P(RCK(+Y),U,3) G STR^RMPR29P
|
|---|
| 37 | I +Y>0,$G(RMPRF)=4 S RMPRWO=$P(RCK(+Y),U,3) G 2529^RMPR29P
|
|---|
