source: WorldVistAEHR/trunk/r/EQUIPMENT_TURN_IN_REQUEST-PRCN/PRCNINST.m@ 1696

Last change on this file since 1696 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR
File size: 1.6 KB
Line 
1PRCNINST ;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 ;
11PCM ; 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
17CMR ; Check CMR file
18 S CMRT="" W !!,"CMR FILE (6914.1) REPORT",!!
19CMT 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
31EXIT K TMP,OPT,CMRN,CMRS,CMRO D ^%ZISC
32 Q
33EXT S XPDQUIT=1
34 Q
Note: See TracBrowser for help on using the repository browser.