ACGSHQIP.m

ACGSHQIP ;IHS/OIRM/DSD/THL,AEF - IMPORT CONTROLLER;   [ 03/27/2000   2:22 PM ]

 ;;2.0t1;CONTRACT INFORMATION SYSTEM;;FEB 16, 2000

EN D IMPORT

EXIT K %DEV,%FN,%ANS,%CMT,%GN,%SEL,%SIZE,%TAP,%TAPV,%TIME

 Q

IMPORT S ^ACGEXP(0)="CGS CONTRACTS AND GRANTS EXPORT^9002336^^"

 F ACG=235,239,241:1:249,284,285,102,121,161 S %FN="acg"_ACG_".asc" D HFS

 Q

HFS S %ZIS("IOPAR")="("""_%FN_""":""R"")",IOP="HOST FILE SERVER #1"

 D ^%ZIS

 K IOP

 Q:POP>0

 U IO

 S %DEV=IO

 R %TIME:999,%CMT:999

 S (%SEL,%TAP)=0,%ANS="Y"

 D START^%GR

 Q

ACGSHQIP  ;IHS/OIRM/DSD/THL,AEF - IMPORT CONTROLLER;   [ 03/27/2000   2:22 PM ]

 +1       ;;2.0t1;CONTRACT INFORMATION SYSTEM;;FEB 16, 2000

EN         DO IMPORT

EXIT       KILL %DEV,%FN,%ANS,%CMT,%GN,%SEL,%SIZE,%TAP,%TAPV,%TIME

 +1        QUIT 

IMPORT     SET ^ACGEXP(0)="CGS CONTRACTS AND GRANTS EXPORT^9002336^^"

 +1        FOR ACG=235,239,241:1:249,284,285,102,121,161

               SET %FN="acg"_ACG_".asc"

               DO HFS

 +2        QUIT 

HFS        SET %ZIS("IOPAR")="("""_%FN_""":""R"")"

           SET IOP="HOST FILE SERVER #1"

 +1        DO ^%ZIS

 +2        KILL IOP

 +3        IF POP>0

               QUIT 

 +4        USE IO

 +5        SET %DEV=IO

 +6        READ %TIME:999,%CMT:999

 +7        SET (%SEL,%TAP)=0

           SET %ANS="Y"

 +8        DO START^%GR

 +9        QUIT