| 1 | SDWLE112 ;;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 | ;
|
|---|
| 14 | EN ;
|
|---|
| 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
|
|---|
| 32 | END 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
|
|---|
