source: WorldVistAEHR/trunk/r/SCHEDULING-SD-SC/SDWLE112.m@ 1141

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

initial load of WorldVistAEHR

File size: 1.5 KB
RevLine 
[613]1SDWLE112 ;;IOFO BAY PINES/TEH - WAITING LIST-ENTER/EDIT;06/12/2002 ; 20 Aug 2002 2:10 PM
2 ;;5.3;scheduling;**263,273**;AUG 13 1993
3 ;
4 ;
5 ;******************************************************************
6 ; CHANGE LOG
7 ;
8 ; DATE PATCH DESCRIPTION
9 ; ---- ----- -----------
10 ; 11/27/02 SD*5.3*273 Add "/" to line EN+14
11 ;
12 ;
13 ;
14EN ;
15 ;Set record status to 'OPEN'
16 ;
17 S DR="23///^S X=""O""",DIE="^SDWL(409.3," D ^DIE
18 ;
19 ;Ask comments
20 ;
21 S DIR(0)="FAOU^^",DIR("A")="Comments: " D ^DIR
22 I Y["^" S SDWLERR=2 Q
23 S DR="25////^S X=SDWLCOME " D ^DIE
24 ;
25 ;
26 ;Set Editing User
27 ;
28 S DR="28////^S X=DUZ",DIE="^SDWL(409.3," D ^DIE
29 ;
30 S SDWLERR=0 Q
31 Q
32END K SDWLCN,SDWLCN,SDWLPS,SDWLY,SDWLNEW,SDWLSSN,SDWLNAM,SDWLDATA,SDWLIN,SDWLCL,SDWLTY,SDWLST,SDWLSP,SDWLSS
33 K SDWLSC,SDWLPRI,SDWLRB,SDWLPROV,SDWLDAPT,SDWLST,SDWLCOM,SDWLDUZ,SDWLEDT,SDCL,SDWLTYE,SDWLINE,SDWLS,SDWLX,SDWLPRIE,SDWLPRVE
34 K SDWLDAPE,SDWLRBE,SDWL,VA,VADM,VAIN,D0,DA,DI,DIC,DIE,DQ,DR,SDWLCLN,SDWLCNT,SDWLDIS,SDWLDISN,SDWLDT,SDWLDTP,SDWLINN,SDWLPRIN,SDWLTYN
35 K SDWLWR,VAERR,YY,MM,DD,SDWLSCP,SDWLVAR,SDWLF,SDWLSX,SDWLCP1,SCWLCP2,SDWLCP2,SDWLCP3,SDWLCP4,SDWLCP5,SDWLCP6,E,SDWLCOME,SDWLDFN,SDWLPCMM
36 K DIR
37 I $D(SDWLDA),$D(^SDWL(409.3,SDWLDA,0)),$P(^SDWL(409.3,SDWLDA,0),U,17)'["O" D
38 .W !!,?15,"*** Patient being Removed from Wait List ***" S DIK="^SDWL(409.3,",DA=SDWLDA D ^DIK
39 K SDWLDA
40 Q
Note: See TracBrowser for help on using the repository browser.