KLASPOST.m

KLASPOST  ;BHAM/PDW  CONVERT OLD FORMATS TO NEW;DEC 18,1990@13:54:58 [ 01/27/92  9:15 AM ]

 ;;1.0

S W !,"This is converting old Slide Formats to new formats",!

LPRES S PDA=0 F ZL=0:0 S PDA=$O(^KLAS(1200.1,PDA)) Q:PDA'>0  D LSLIDE

 K PDA,SDA W !,"DONE" Q

LSLIDE S SDA=0 W "*" F ZL=0:0 S SDA=$O(^KLAS(1200.1,PDA,1,SDA)) Q:SDA'>0  S FMT=$P(^KLAS(1200.1,PDA,1,SDA,0),"^",2),FMT=$S(FMT="":"N",FMT="S":"N",FMT="F":"E",FMT="BF":"EL",FMT="BS":"NL",1:FMT),$P(^KLAS(1200.1,PDA,1,SDA,0),"^",2)=FMT W "."

 Q

KLASPOST  ;BHAM/PDW  CONVERT OLD FORMATS TO NEW;DEC 18,1990@13:54:58 [ 01/27/92  9:15 AM ]

 +1       ;;1.0

S          WRITE !,"This is converting old Slide Formats to new formats",!

LPRES      SET PDA=0

           FOR ZL=0:0

               SET PDA=$ORDER(^KLAS(1200.1,PDA))

               IF PDA'>0

                   QUIT 

               DO LSLIDE

 +1        KILL PDA,SDA

           WRITE !,"DONE"

           QUIT 

LSLIDE     SET SDA=0

           WRITE "*"

           FOR ZL=0:0

               SET SDA=$ORDER(^KLAS(1200.1,PDA,1,SDA))

               IF SDA'>0

                   QUIT 

               SET FMT=$PIECE(^KLAS(1200.1,PDA,1,SDA,0),"^",2)

               SET FMT=$SELECT(FMT="":"N",FMT="S":"N",FMT="F":"E",FMT="BF":"EL",FMT="BS":"NL",1:FMT)

               SET $PIECE(^KLAS(1200.1,PDA,1,SDA,0),"^",2)=FMT

               WRITE "."

 +1        QUIT