|
Last change
on this file since 699 was 613, checked in by George Lilly, 15 years ago |
|
initial load of WorldVistAEHR
|
|
File size:
675 bytes
|
| Rev | Line | |
|---|
| [613] | 1 | YSJOB ;SLC/TGA,ALB/ASF-JOB BANK ; 2/22/89 13:18 ;
|
|---|
| 2 | ;;5.01;MENTAL HEALTH;;Dec 30, 1994
|
|---|
| 3 | ;
|
|---|
| 4 | IN ; Called from MENU option YSJOBINQ
|
|---|
| 5 | ;
|
|---|
| 6 | ;INQUIRE JOBS
|
|---|
| 7 | W @IOF
|
|---|
| 8 | IN1 ;
|
|---|
| 9 | S DIC="^YSG(""JOB"",",DIC(0)="AEQ" D ^DIC Q:Y'>0 S DA=+Y,DR="0:10" D EN^DIQ G IN1
|
|---|
| 10 | ;
|
|---|
| 11 | PRT ; Called from MENU option YSJOBLIST
|
|---|
| 12 | ;PRINT JOB LIST
|
|---|
| 13 | W @IOF S DIC="^YSG(""JOB"",",FLDS="[YSJOB]",BY="TITLE;S1;C30",L=0 D EN1^DIP
|
|---|
| 14 | Q
|
|---|
| 15 | ;
|
|---|
| 16 | UP ; Called from MENU option YSJOBUPDATE
|
|---|
| 17 | ;UPDATE JOB BANK
|
|---|
| 18 | W @IOF
|
|---|
| 19 | UP1 ;
|
|---|
| 20 | W ! S DIC="^YSG(""JOB"",",DIC(0)="AEQLMZ",DLAYGO=624,DIC("W")="W ?44,$E($P(^(0),U,6),1,30)" D ^DIC Q:Y'>0
|
|---|
| 21 | S DA=+Y,DIE=DIC,DR=".01:20" L +^YSG("JOB",DA) D ^DIE L -^YSG("JOB",DA)
|
|---|
| 22 | S YSTOUT=$D(DTOUT) Q:YSTOUT
|
|---|
| 23 | G UP1
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
