source: WorldVistAEHR/trunk/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YSJOB.m@ 1736

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

initial load of WorldVistAEHR

File size: 675 bytes
RevLine 
[613]1YSJOB ;SLC/TGA,ALB/ASF-JOB BANK ; 2/22/89 13:18 ;
2 ;;5.01;MENTAL HEALTH;;Dec 30, 1994
3 ;
4IN ; Called from MENU option YSJOBINQ
5 ;
6 ;INQUIRE JOBS
7 W @IOF
8IN1 ;
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 ;
11PRT ; 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 ;
16UP ; Called from MENU option YSJOBUPDATE
17 ;UPDATE JOB BANK
18 W @IOF
19UP1 ;
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.