Changeset 636 for FOIAVistA/tag/r/SCHEDULING-SD-SC/SDWLI.m
- Timestamp:
- Dec 4, 2009, 8:26:01 PM (14 years ago)
- Location:
- FOIAVistA/tag/r
- Files:
-
- 1 edited
- 1 copied
Legend:
- Unmodified
- Added
- Removed
-
FOIAVistA/tag/r/SCHEDULING-SD-SC/SDWLI.m
r628 r636 1 SDWLI ; BPOI/TEH - DISPLAY PENDING APPOINTMENTS;6/1/052 ;;5.3;scheduling;**263,327,394,446 ,524**;08/13/93;Build 291 SDWLI ;IOFO BAY PINES/TEH - DISPLAY PENDING APPOINTMENTS ; 6/1/05 12:56pm ; Compiled April 16, 2007 10:00:47 2 ;;5.3;scheduling;**263,327,394,446**;AUG 13 1993;Build 77 3 3 ; 4 4 ; … … 30 30 ;PATIENT LOOK-UP FROM WAIT LIST PATIENT FILE (^SDWL(409.3,IEN,0). 31 31 ; 32 D SEL G EN:$D(DUOUT)33 32 D PAT Q:'$D(SDWLDFN) 34 33 G END:SDWLDFN<0,END:SDWLDFN="" 35 34 Q:$D(DUOUT) 36 35 EN1 K DIR,DIC,DR,DIE,SDWLDRG 36 D SEL G EN:$D(DUOUT) 37 37 D GETFILE 38 38 D DISP G EN:'$D(DUOUT) … … 40 40 Q 41 41 PAT ;PATIENT LOOK-UP 42 ;PATCH SD*5.3*524 - SET DIC("S") FOR SCREEN OF OPEN/CLOSED ENTRIES43 S DIC("S")="I $D(SDWLY),SDWLY,$P(^SDWL(409.3,+Y,0),U,17)=""O"""44 42 S DIC(0)="EMNQA",DIC=409.3 D ^DIC S (SDWLDFN,DFN)=$P(Y,U,2) 45 43 G PATEND:SDWLDFN="" … … 51 49 ;PROMPT FOR DISPLAY 'OPEN' WAITING LIST ONLY OR PROMPT FOR BEGINNING AND ENDING DATES 52 50 ; 53 SEL K SDWLDRG S DIR(0)="Y " S DIR("A")="Do You Want to View Only 'OPEN' Wait Lists",DIR("B")="YES"51 SEL K SDWLDRG S DIR(0)="YAO^^" S DIR("A")="Do You Want to View Only 'OPEN' Wait Lists? Yes// " 54 52 S DIR("?")="'Yes' for 'Open' and these Patient Record have not been dispositioned and 'No' for all Records." 55 53 W ! D ^DIR S SDWLY=Y W ! … … 104 102 .S X=$G(^TMP("SDWLI",$J,SDWLCNT)),SDWLDA=$P(X,"~",2),SDWLIN=$P(X,U,3),SDWLCL=$P(X,U,4),SDWLTY=$P(X,U,5),SDWLPRI=$P(X,U,11) 105 103 .S SDWLTYP=$S(SDWLTY=1:$P(X,U,6),SDWLTY=2:$P(X,U,7),SDWLTY=3:$P(X,U,8),SDWLTY=4:$P(X,U,9),1:"") 106 .S SDWLTYN=$S(SDWLTY=1:5,SDWLTY=2:6,SDWLTY=3:7,SDWLTY=4:8 ),SDWLCOM=$P($P(X,U,18),"~",1)104 .S SDWLTYN=$S(SDWLTY=1:5,SDWLTY=2:6,SDWLTY=3:7,SDWLTY=4:8,1:0),SDWLCOM=$P($P(X,U,18),"~",1) 107 105 .S SDWLDUZ=$P(X,U,10),SDWLPRV=$P(X,U,12),SDWLPROV=$P(X,U,13),SDWLX=$P(X,"~",3) D 108 106 ..I $D(SDWLDISX) S SDWLDIS=$P(SDWLDISX,U,1),SDWLDDUZ=$P(SDWLDISX,U,2),SDWLDIDT=$P(SDWLDISX,U,3) … … 165 163 K SDWLDRG,SDWLDT,SDWLDTD,SDWLDTP,SDWLDUZ,SDLWEDT,SDWLIN,SDLWP,SDWLPRI,SDWLPROV,SDLWPRV,SDWLSC,SDWLSP,SDWLSS,SDLWST,SDWLTY 166 164 K SDWLTYN,SDSWLTYP,SDLWX,SDWLY,SDWRB,SDWLBDT,SDWLDISC,SDWLERR,SDWLPRON,SDXSCAT,SDWLP,SDWLTYP 167 K SDREMD,SDREMDD,SDREMR,SDREMRC,SDREMU,MM,SDWLEDT,SDWLLIST,SDWLST,SDWLX,VA,X,Y,YY168 165 Q
Note:
See TracChangeset
for help on using the changeset viewer.