source: FOIAVistA/trunk/r/PAID-PRS/PRSATE1.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: 587 bytes
Line 
1PRSATE1 ; HISC/REL-Display Tour Change ;5/5/93 10:40
2 ;;4.0;PAID;;Sep 21, 1995
3LST ; 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
8L1 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
Note: See TracBrowser for help on using the repository browser.