- PRCUCV3 ;WISC@ALTOONA/CTB-BEGINNING TO END CONVERSION ROUTINE ; 07/07/93 2:20 PM
- V ;;5.0;IFCAP;;4/21/95
- NEW FILE,PROGRAM,Y
- U IO
- F FILE=99,1:1:5,7,8,9 D
- . S RANGE="1-999999999999"
- . W !,"FILE: ",$P("421.5;421.2;421;443;423;443.6;410;442;442.9;",";",FILE) W:FILE=99 20
- . W " RANGE: ",RANGE,!,"START DATE/TIME: " D NOW^%DTC S Y=% D DD^%DT W Y
- . S PROGRAM="CVT^PRCUX"_FILE_"("_""""_RANGE_""""_")"
- . D @PROGRAM
- . W !,"END DATE/TIME: " D NOW^%DTC S Y=% D DD^%DT W Y
- . QUIT
- W !!!
- I $O(^PRC(411,0)) L +^PRC(411) S $P(^PRC(411,$O(^PRC(411,0)),7),"^",2)=1 L -^PRC(411)
- QUIT
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPRCUCV3 596 printed Feb 18, 2025@23:45:53 Page 2
- PRCUCV3 ;WISC@ALTOONA/CTB-BEGINNING TO END CONVERSION ROUTINE ; 07/07/93 2:20 PM
- V ;;5.0;IFCAP;;4/21/95
- +1 NEW FILE,PROGRAM,Y
- +2 USE IO
- +3 FOR FILE=99,1:1:5,7,8,9
- Begin DoDot:1
- +4 SET RANGE="1-999999999999"
- +5 WRITE !,"FILE: ",$PIECE("421.5;421.2;421;443;423;443.6;410;442;442.9;",";",FILE)
- if FILE=99
- WRITE 20
- +6 WRITE " RANGE: ",RANGE,!,"START DATE/TIME: "
- DO NOW^%DTC
- SET Y=%
- DO DD^%DT
- WRITE Y
- +7 SET PROGRAM="CVT^PRCUX"_FILE_"("_""""_RANGE_""""_")"
- +8 DO @PROGRAM
- +9 WRITE !,"END DATE/TIME: "
- DO NOW^%DTC
- SET Y=%
- DO DD^%DT
- WRITE Y
- +10 QUIT
- End DoDot:1
- +11 WRITE !!!
- +12 IF $ORDER(^PRC(411,0))
- LOCK +^PRC(411)
- SET $PIECE(^PRC(411,$ORDER(^PRC(411,0)),7),"^",2)=1
- LOCK -^PRC(411)
- +13 QUIT
