| 1 | SDWLIFT7 ; bp-oifo/og ; Print reports ; Compiled April 11, 2005 16:10:09
|
|---|
| 2 | ;;5.3;Scheduling;**415**;AUG 13 1993
|
|---|
| 3 | ;
|
|---|
| 4 | ;
|
|---|
| 5 | ;******************************************************************
|
|---|
| 6 | ; CHANGE LOG
|
|---|
| 7 | ;
|
|---|
| 8 | ; DATE PATCH DESCRIPTION
|
|---|
| 9 | ; ---- ----- -----------
|
|---|
| 10 | ;
|
|---|
| 11 | ;
|
|---|
| 12 | ; Print coversheet, dialog.
|
|---|
| 13 | D DIALOG("EN1^"_$T(+0),"SDWL TRANSFER COVERSHEET")
|
|---|
| 14 | S VALMBCK="R"
|
|---|
| 15 | Q
|
|---|
| 16 | REQS ; All transfer requests
|
|---|
| 17 | N SDWLSPS ; Required as this is called from a menu option.
|
|---|
| 18 | S SDWLSPS=$J("",80)
|
|---|
| 19 | D DIALOG("EN2^"_$T(+0),"SDWL TRANSFER PRINT REQUESTS")
|
|---|
| 20 | Q
|
|---|
| 21 | HEAD ; Write header.
|
|---|
| 22 | S SDWLLINE=3,SDWLPAGE=SDWLPAGE+1
|
|---|
| 23 | W !?80-$L(SDWLTTL)\2,SDWLTTL,?75-$L(SDWLPAGE),"PAGE ",SDWLPAGE,!
|
|---|
| 24 | Q
|
|---|
| 25 | EN1 ; Print coversheet.
|
|---|
| 26 | N SDWLTTL,SDWLINFO,SDWLPAGE,SDWLLINE,SDWLI
|
|---|
| 27 | D GETINFO^SDWLIFT6(.SDWLINFO)
|
|---|
| 28 | S SDWLTTL="SDWL TRANSFER - COVERSHEET",SDWLPAGE=0
|
|---|
| 29 | D HEAD
|
|---|
| 30 | F SDWLI=1:1:SDWLINFO(0) D
|
|---|
| 31 | .S SDWLLINE=SDWLLINE+1
|
|---|
| 32 | .I SDWLLINE+3>IOSL D HEAD
|
|---|
| 33 | .W !,SDWLINFO(SDWLI,0)
|
|---|
| 34 | .Q
|
|---|
| 35 | Q
|
|---|
| 36 | EN2 ; Print requests
|
|---|
| 37 | N SDWLINFO,SDWLTTL,SDWLPAGE,SDWLLINE,SDWLI
|
|---|
| 38 | D GETDATA^SDWLIFT5(.SDWLINFO,1)
|
|---|
| 39 | S SDWLTTL="SDWL TRANSFER - TRANSFER REQUESTS",SDWLPAGE=0
|
|---|
| 40 | D HEAD
|
|---|
| 41 | F SDWLI=1:1:SDWLINFO(0) D
|
|---|
| 42 | .I SDWLLINE+8>IOSL D HEAD
|
|---|
| 43 | .W !,"Name: ",$E($P(SDWLINFO(SDWLI,0),U)_SDWLSPS,1,32)
|
|---|
| 44 | .W "Sex: ",$P(SDWLINFO(SDWLI,0),U,8)
|
|---|
| 45 | .W " SSN: ",$E($P(SDWLINFO(SDWLI,0),U,2)_SDWLSPS,1,14)
|
|---|
| 46 | .W !,"Wait List Type: ",$P(SDWLINFO(SDWLI,0),U,6)
|
|---|
| 47 | .W " : ",$P(SDWLINFO(SDWLI,0),U,7)
|
|---|
| 48 | .W !,"Status: ",$E($P(SDWLINFO(SDWLI,0),U,4)_SDWLSPS,1,14)
|
|---|
| 49 | .W "Transmission time: ",$P(SDWLINFO(SDWLI,0),U,9)
|
|---|
| 50 | .W !,"Requestor: ",$P(SDWLINFO(SDWLI,0),U,10),!
|
|---|
| 51 | .S SDWLLINE=SDWLLINE+5
|
|---|
| 52 | .Q
|
|---|
| 53 | Q
|
|---|
| 54 | DIALOG(ZTRTN,SDWLDESC) ; Required variable - SDWLIFTN: SDWL Transfer id.
|
|---|
| 55 | N DIE,DA,DR
|
|---|
| 56 | K %ZIS,IOP,POP,ZTSK,SDWLIO
|
|---|
| 57 | S ZTDESC=SDWLDESC
|
|---|
| 58 | D FULL^VALM1
|
|---|
| 59 | S SDWLIO=ION,%ZIS="Q"
|
|---|
| 60 | D ^%ZIS
|
|---|
| 61 | K %ZIS
|
|---|
| 62 | S IOM=80
|
|---|
| 63 | I POP D ; Do-dots preserve $T
|
|---|
| 64 | .S IOP=SDWLIO
|
|---|
| 65 | .D ^%ZIS
|
|---|
| 66 | .K IOP,SDWLIO
|
|---|
| 67 | .W !,"Please try later!"
|
|---|
| 68 | .Q
|
|---|
| 69 | E D I $G(SDWLDESC)="SDWL TRANSFER COVERSHEET" S DIE="^SDWL(409.36,",DA=SDWLIFTN,DR=".3///Y" D ^DIE
|
|---|
| 70 | .K SDDIO
|
|---|
| 71 | .I '$D(IO("Q")) D @ZTRTN Q
|
|---|
| 72 | .K IO("Q"),ZTIO,ZTSAVE,ZTDTH,ZTSK
|
|---|
| 73 | .S ZTDTH=$H S:$D(SDWLIFTN) ZTSAVE("SDWLIFTN")=SDWLIFTN,ZTSAVE("SDWLSPS")=SDWLSPS
|
|---|
| 74 | .D ^%ZTLOAD W:$D(ZTSK) !,"Report is queued to print !!" K ZTSK
|
|---|
| 75 | .Q
|
|---|
| 76 | END ; Tidy up.
|
|---|
| 77 | W ! D ^%ZISC
|
|---|
| 78 | Q
|
|---|
