PRCNINST.m

PRCNINST ;SSI/ALA-Install Equipment/Turn-In Request Module ;[ 08/05/96  12:53 PM ]

 ;;1.0;Equipment/Turn-In Request;;Sep 13, 1996

 I '$G(DUZ)!($G(DUZ(0))'["@") W !,"USER 'DUZ' VARIABLES **NOT** CORRECTLY DEFINED.  D ^XUP." G EXT

 I $$VERSION^XPDUTL("PRC")<5 W !!,"VERSION 5.0 OF IFCAP HAS NOT BEEN LOADED" G EXT

 I $$VERSION^XPDUTL("EN")<7 W !!,"VERSION 7.0 OF ENGINEERING HAS NOT BEEN LOADED" G EXT

 ;

 ;  Check for Engineering patch

 I $D(^%ZOSF("TEST")) S QFL=0 D  G EXT:QFL

 . F X="ENFAUTL","ENWONEW2" X ^%ZOSF("TEST") I '$T W !!,"Engineering Patch 25 not loaded yet!" S QFL=1

 ;

PCM ; Print bad data from the CMR file

 D MES^XPDUTL("A Report on the State of Your CMR file (6914.1) follows.")

 S %ZIS="Q" D ^%ZIS I POP>0 W !,"No device selected or device unavailable!",$C(7) G PCM

 I $D(IO("Q")) D  Q

 . S ZTRTN="CMR^PRCNINST",ZTDESC="Erroneous CMR Data"

 . D ^%ZTLOAD,HOME^%ZIS K IO("Q"),ZTSK,%ZTLOAD,ZTREQ

CMR ;  Check CMR file

 S CMRT="" W !!,"CMR FILE (6914.1) REPORT",!!

CMT S CMRT=$O(^ENG(6914.1,"B",CMRT)) G EXIT:CMRT=""

 S CMRN=0 F  S CMRN=$O(^ENG(6914.1,"B",CMRT,CMRN)) Q:'CMRN  D

 . S CMRO=$P(^ENG(6914.1,CMRN,0),U,2),CMRS=$P(^(0),U,5),CMR=$P(^(0),U)

 . I CMRO="" W !,"NO CMR OFFICIAL DEFINED FOR "_CMR

 . I CMRS="" W !,"NO CMR SERVICE DEFINED FOR "_CMR

 . I CMRS=""!(CMRO="") Q

 . I CMRO'?.N W !,"CMR OFFICIAL IS NOT POINTER FOR "_CMR

 . I CMRS'?.N W !,"CMR SERVICE IS NOT POINTER FOR "_CMR

 . I CMRO'?.N!(CMRS'?.N) Q

 . I $G(^VA(200,CMRO,0))="" W !,"PERSON POINTED TO DOES NOT EXIST FOR "_CMR

 . I $G(^DIC(49,CMRS,0))="" W !,"SERVICE POINTED TO DOES NOT EXIST FOR "_CMR

 G CMT

EXIT K TMP,OPT,CMRN,CMRS,CMRO D ^%ZISC

 Q

EXT S XPDQUIT=1

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---PRCNINST   1688     printed  Apr 09, 2024@20:59:50                                                                                                                                                                                                    Page 2

PRCNINST  ;SSI/ALA-Install Equipment/Turn-In Request Module ;[ 08/05/96  12:53 PM ]

 +1       ;;1.0;Equipment/Turn-In Request;;Sep 13, 1996

 +2        IF '$GET(DUZ)!($GET(DUZ(0))'["@")

               WRITE !,"USER 'DUZ' VARIABLES **NOT** CORRECTLY DEFINED.  D ^XUP."

               GOTO EXT

 +3        IF $$VERSION^XPDUTL("PRC")<5

               WRITE !!,"VERSION 5.0 OF IFCAP HAS NOT BEEN LOADED"

               GOTO EXT

 +4        IF $$VERSION^XPDUTL("EN")<7

               WRITE !!,"VERSION 7.0 OF ENGINEERING HAS NOT BEEN LOADED"

               GOTO EXT

 +5       ;

 +6       ;  Check for Engineering patch

 +7        IF $DATA(^%ZOSF("TEST"))

               SET QFL=0

               Begin DoDot:1

 +8                FOR X="ENFAUTL","ENWONEW2"

                       XECUTE ^%ZOSF("TEST")

                       IF '$TEST

                           WRITE !!,"Engineering Patch 25 not loaded yet!"

                           SET QFL=1

               End DoDot:1

               if QFL

                   GOTO EXT

 +9       ;

PCM       ; Print bad data from the CMR file

 +1        DO MES^XPDUTL("A Report on the State of Your CMR file (6914.1) follows.")

 +2        SET %ZIS="Q"

           DO ^%ZIS

           IF POP>0

               WRITE !,"No device selected or device unavailable!",$CHAR(7)

               GOTO PCM

 +3        IF $DATA(IO("Q"))

               Begin DoDot:1

 +4                SET ZTRTN="CMR^PRCNINST"

                   SET ZTDESC="Erroneous CMR Data"

 +5                DO ^%ZTLOAD

                   DO HOME^%ZIS

                   KILL IO("Q"),ZTSK,%ZTLOAD,ZTREQ

               End DoDot:1

               QUIT 

CMR       ;  Check CMR file

 +1        SET CMRT=""

           WRITE !!,"CMR FILE (6914.1) REPORT",!!

CMT        SET CMRT=$ORDER(^ENG(6914.1,"B",CMRT))

           if CMRT=""

               GOTO EXIT

 +1        SET CMRN=0

           FOR 

               SET CMRN=$ORDER(^ENG(6914.1,"B",CMRT,CMRN))

               if 'CMRN

                   QUIT 

               Begin DoDot:1

 +2                SET CMRO=$PIECE(^ENG(6914.1,CMRN,0),U,2)

                   SET CMRS=$PIECE(^(0),U,5)

                   SET CMR=$PIECE(^(0),U)

 +3                IF CMRO=""

                       WRITE !,"NO CMR OFFICIAL DEFINED FOR "_CMR

 +4                IF CMRS=""

                       WRITE !,"NO CMR SERVICE DEFINED FOR "_CMR

 +5                IF CMRS=""!(CMRO="")

                       QUIT 

 +6                IF CMRO'?.N

                       WRITE !,"CMR OFFICIAL IS NOT POINTER FOR "_CMR

 +7                IF CMRS'?.N

                       WRITE !,"CMR SERVICE IS NOT POINTER FOR "_CMR

 +8                IF CMRO'?.N!(CMRS'?.N)

                       QUIT 

 +9                IF $GET(^VA(200,CMRO,0))=""

                       WRITE !,"PERSON POINTED TO DOES NOT EXIST FOR "_CMR

 +10               IF $GET(^DIC(49,CMRS,0))=""

                       WRITE !,"SERVICE POINTED TO DOES NOT EXIST FOR "_CMR

               End DoDot:1

 +11       GOTO CMT

EXIT       KILL TMP,OPT,CMRN,CMRS,CMRO

           DO ^%ZISC

 +1        QUIT 

EXT        SET XPDQUIT=1

 +1        QUIT