| 1 | PRSATE1 ; HISC/REL-Display Tour Change ;5/5/93 10:40
|
|---|
| 2 | ;;4.0;PAID;;Sep 21, 1995
|
|---|
| 3 | LST ; Display Change
|
|---|
| 4 | W !?34,"Tour Change",!," Date",?14,"Scheduled Tour",?45,"Permanent Tour",?75,"Type"
|
|---|
| 5 | S ZD=$G(^PRST(458,PPI,2))
|
|---|
| 6 | F DAY=0:0 S DAY=$O(^PRST(458,"ATC",DFN,PPI,DAY)) Q:DAY="" D L1
|
|---|
| 7 | Q
|
|---|
| 8 | L1 W !,$P(ZD,"^",DAY)
|
|---|
| 9 | S Y=$G(^PRST(458,PPI,"E",DFN,"D",DAY,0)),TD=$P(Y,"^",2) W ?14,$P($G(^PRST(457.1,+TD,0)),"^",1)
|
|---|
| 10 | S TD=$P(Y,"^",4) W ?45,$P($G(^PRST(457.1,+TD,0)),"^",1)
|
|---|
| 11 | S TYP=$P(Y,"^",3) W ?75,$S(TYP:"Temp",1:"Perm")
|
|---|
| 12 | S TD=$P(Y,"^",13) Q:'TD W !?14,$P($G(^PRST(457.1,+TD,0)),"^",1),?75,"Temp" Q
|
|---|
