| 1 | PRCNINST ;SSI/ALA-Install Equipment/Turn-In Request Module ;[ 08/05/96 12:53 PM ]
|
|---|
| 2 | ;;1.0;Equipment/Turn-In Request;;Sep 13, 1996
|
|---|
| 3 | I '$G(DUZ)!($G(DUZ(0))'["@") W !,"USER 'DUZ' VARIABLES **NOT** CORRECTLY DEFINED. D ^XUP." G EXT
|
|---|
| 4 | I $$VERSION^XPDUTL("PRC")<5 W !!,"VERSION 5.0 OF IFCAP HAS NOT BEEN LOADED" G EXT
|
|---|
| 5 | I $$VERSION^XPDUTL("EN")<7 W !!,"VERSION 7.0 OF ENGINEERING HAS NOT BEEN LOADED" G EXT
|
|---|
| 6 | ;
|
|---|
| 7 | ; Check for Engineering patch
|
|---|
| 8 | I $D(^%ZOSF("TEST")) S QFL=0 D G EXT:QFL
|
|---|
| 9 | . F X="ENFAUTL","ENWONEW2" X ^%ZOSF("TEST") I '$T W !!,"Engineering Patch 25 not loaded yet!" S QFL=1
|
|---|
| 10 | ;
|
|---|
| 11 | PCM ; Print bad data from the CMR file
|
|---|
| 12 | D MES^XPDUTL("A Report on the State of Your CMR file (6914.1) follows.")
|
|---|
| 13 | S %ZIS="Q" D ^%ZIS I POP>0 W !,"No device selected or device unavailable!",$C(7) G PCM
|
|---|
| 14 | I $D(IO("Q")) D Q
|
|---|
| 15 | . S ZTRTN="CMR^PRCNINST",ZTDESC="Erroneous CMR Data"
|
|---|
| 16 | . D ^%ZTLOAD,HOME^%ZIS K IO("Q"),ZTSK,%ZTLOAD,ZTREQ
|
|---|
| 17 | CMR ; Check CMR file
|
|---|
| 18 | S CMRT="" W !!,"CMR FILE (6914.1) REPORT",!!
|
|---|
| 19 | CMT S CMRT=$O(^ENG(6914.1,"B",CMRT)) G EXIT:CMRT=""
|
|---|
| 20 | S CMRN=0 F S CMRN=$O(^ENG(6914.1,"B",CMRT,CMRN)) Q:'CMRN D
|
|---|
| 21 | . S CMRO=$P(^ENG(6914.1,CMRN,0),U,2),CMRS=$P(^(0),U,5),CMR=$P(^(0),U)
|
|---|
| 22 | . I CMRO="" W !,"NO CMR OFFICIAL DEFINED FOR "_CMR
|
|---|
| 23 | . I CMRS="" W !,"NO CMR SERVICE DEFINED FOR "_CMR
|
|---|
| 24 | . I CMRS=""!(CMRO="") Q
|
|---|
| 25 | . I CMRO'?.N W !,"CMR OFFICIAL IS NOT POINTER FOR "_CMR
|
|---|
| 26 | . I CMRS'?.N W !,"CMR SERVICE IS NOT POINTER FOR "_CMR
|
|---|
| 27 | . I CMRO'?.N!(CMRS'?.N) Q
|
|---|
| 28 | . I $G(^VA(200,CMRO,0))="" W !,"PERSON POINTED TO DOES NOT EXIST FOR "_CMR
|
|---|
| 29 | . I $G(^DIC(49,CMRS,0))="" W !,"SERVICE POINTED TO DOES NOT EXIST FOR "_CMR
|
|---|
| 30 | G CMT
|
|---|
| 31 | EXIT K TMP,OPT,CMRN,CMRS,CMRO D ^%ZISC
|
|---|
| 32 | Q
|
|---|
| 33 | EXT S XPDQUIT=1
|
|---|
| 34 | Q
|
|---|
