source: WorldVistAEHR/trunk/r/ENGINEERING-EN/ENTINSR.m@ 1123

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

initial load of WorldVistAEHR

File size: 1.8 KB
Line 
1ENTINSR ;WOIFO/SAB - NON-SPACE FILE LOCATION REPORT ;2/4/2008
2 ;;7.0;ENGINEERING;**87**;Aug 17, 1993;Build 16
3 ;
4 ; ask device
5 S %ZIS="Q" D ^%ZIS G:POP EXIT
6 I $D(IO("Q")) D G EXIT
7 . S ZTRTN="QEN^ENTINSR",ZTDESC="Non-Space File Location Report"
8 . D ^%ZTLOAD,HOME^%ZIS K ZTSK,IO("Q")
9 ;
10QEN ; queued entry
11 U IO
12 ;
13 ; generate output
14 K ENT S ENT=0
15 S (END,ENPG)=0 D NOW^%DTC S Y=% D DD^%DT S ENDT=Y
16 S ENL="",$P(ENL,"-",IOM)=""
17 D HD
18 ;
19 ; loop thru non-space file locations
20 S ENNSP="" F S ENNSP=$O(^ENG(6914,"ANSP",ENNSP)) Q:ENNSP="" D Q:END
21 . ; non-space file location
22 . I $Y+5>IOSL D HD Q:END
23 . W !!,"NON-SPACE FILE LOCATION: ",ENNSP
24 . ; loop thru equipment
25 . S ENDA=0 F S ENDA=$O(^ENG(6914,"ANSP",ENNSP,ENDA)) Q:'ENDA D Q:END
26 . . ; equipment item
27 . . I $Y+3>IOSL D HD Q:END D HDNSP
28 . . W !,?2,ENDA ; equip id
29 . . W ?14,$P($$GET1^DIQ(6914,ENDA_",",90.2),"@") ; non-space file date
30 . . W ?28,$$GET1^DIQ(6914,ENDA_",",90.1) ; non-space file person
31 . . W ?60,$$GET1^DIQ(6914,ENDA_",",24) ; location
32 . . S ENT=ENT+1
33 ;
34 I 'END D
35 . ; report footer
36 . I $Y+4>IOSL D HD Q:END
37 . W !!,"Count of equipment items with non-space location values = ",ENT
38 . I $E(IOST,1,2)="C-" S DIR(0)="E" D ^DIR K DIR
39 ;
40 D ^%ZISC
41 ;
42EXIT I $D(ZTQUEUED) S ZTREQ="@"
43 K DIR,DIROUT,DIRUT,DIWF,DIWL,DTOUT,DUOUT,POP,X,Y
44 K ENDA,ENNSP,ENT
45 K END,ENDT,ENL,ENPG
46 Q
47 ;
48HD ; header
49 I $E(IOST,1,2)="C-",ENPG S DIR(0)="E" D ^DIR K DIR I 'Y S END=1 Q
50 I $E(IOST,1,2)="C-"!ENPG W @IOF
51 S ENPG=ENPG+1
52 W !,"NON-SPACE FILE LOCATION REPORT"
53 W ?48,ENDT,?72,"page ",ENPG
54 W !!,?2,"EQUIP ID #",?14,"NON-SP DATE",?28,"ENTERED BY",?60,"LOCATION"
55 W !,?2,$E(ENL,1,10),?14,$E(ENL,1,12),?28,$E(ENL,1,30),?60,$E(ENL,1,20)
56 Q
57 ;
58HDNSP ; header for continued NON-SPACE FILE LOCATION
59 I $G(ENNSP)]"" D
60 . W !,"NON-SPACE LOCATION: ",ENNSP," (continued)"
61 Q
62 ;ENTINSR
Note: See TracBrowser for help on using the repository browser.