| 1 | ENSP1 ;(WASH ISC)/WDS@Charleston-Room, Lock, and Function Report ;4-22-93
|
---|
| 2 | V ;;7.0;ENGINEERING;;Aug 17, 1993
|
---|
| 3 | INIT ;
|
---|
| 4 | ASK S DIR(0)="SA^R:ROOM;S:SERVICE",DIR("A")="SORT REPORT BY: ",DIR("B")="R"
|
---|
| 5 | S DIR("?")=" <cr> or 'R' to list by room, 'S' to list by service, '^' to QUIT",DIR("??")="^D HELP^ENSP1" D ^DIR G:$D(DIRUT) EXIT G @Y(0)
|
---|
| 6 | ;
|
---|
| 7 | SETUP ;Set up variables before tasking or printing directly
|
---|
| 8 | W !! K IOP D DEV^ENLIB G:POP EXIT S IOP=ION,L="0",DIC="^ENG(""SP"",",FLDS="[ENSP-ROOM-LOCK]"
|
---|
| 9 | S DIOEND="I IOST[""C-"" R !!,""Press <RETURN> to continue"",X:DTIME"
|
---|
| 10 | DQ1 S:$D(IO("Q")) IOP="Q;"_IOP D EN1^DIP G EXIT
|
---|
| 11 | ;
|
---|
| 12 | SERVICE ; PRINT ROOM/LOCK/FUNCTION REPORT BY SERVICE ORDER
|
---|
| 13 | S DHD="Engineering ROOM/LOCK Report by Using Service for - "_$P(^DIC(6910,1,0),U,1)
|
---|
| 14 | S BY="#1.5,2;S2,.01" G SETUP
|
---|
| 15 | ;
|
---|
| 16 | ROOM ; PRINT ROOM/LOCK/FUNCTION REPORT BY ROOM NUMBER
|
---|
| 17 | S DHD="Engineering ROOM/LOCK Report by Room Number for - "_$P(^DIC(6910,1,0),U,1)
|
---|
| 18 | S BY=".01" G SETUP
|
---|
| 19 | ;
|
---|
| 20 | FLDS ;LOCAL SELECTION OF PRINT TEMPLATE FOR FLDS
|
---|
| 21 | S FLDS="[ENSPRM]",DA=$O(^ENG(6910.2,"B","SPACE SURVEY PRINTOUT",0)) I DA>0,$D(^ENG(6910.2,DA,0)) S X=$P(^(0),"^",2) I X="L",$D(^DIPT("B","ENZSPRM")) S FLDS="[ENZSPRM]"
|
---|
| 22 | Q
|
---|
| 23 | EXIT K DA,DIR,FR,TO Q
|
---|
| 24 | ;
|
---|
| 25 | HELP W !!,"Sort by ROOM gives an 80 column listing of all rooms that have"
|
---|
| 26 | W !,"key/lock assignments in room order along with their assigned functions."
|
---|
| 27 | W !!,"Sort by SERVICE gives a similar report that is useful as a keying"
|
---|
| 28 | W !,"plan for all services. It is broken down by Service with each"
|
---|
| 29 | W !,"assigned key broken out in its own segment. Room numbers for the"
|
---|
| 30 | W !,"particular key are sorted in order under that key.",! Q
|
---|
| 31 | ;ENSP1
|
---|