source: WorldVistAEHR/trunk/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YSCEN56.m@ 701

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

initial load of WorldVistAEHR

File size: 743 bytes
Line 
1YSCEN56 ;ALB/ASF-TEAM ADMISSION REPORT HEADER ;12/19/90 09:23 ;
2 ;;5.01;MENTAL HEALTH;**5,21,37**;Dec 30, 1994
3HD ;
4 S P1=P1+1 W !,@IOF,$S("Cc"[YSX:"Break even Report",1:"Inpatient Team History")," (",$S("Cc"[YSX:"Current Patients",YSX="AIN":"Admissions",1:"Discharges"),")"
5 K Y D ENDTM^YSUTL W ?50,YSDT(1)," ",YSTM," pg. ",P1
6 I YSGP W !,"Report for: ",$P(^VA(200,YSWHO,0),U)," as ",YSOPT9L
7 W !,"Ward: ",$P(^DIC(42,+^YSG("SUB",YST1,1),0),U)
8 W " Team: ",$P(^YSG("SUB",YST1,0),U)
9 W:"Cc"'[YSX ?43,$S(YSX="AOUT":"D/C's ",1:"admits "),YSFRT," thru ",YSTOT
10 W:YSFLGP !?73,"days to",!?33,"ward",?44,"ward",?56,"ward",?73,"break",!?27,"ssn",?33,"admit",?44,"discharge",?56,"LOS",?61,"DXLS",?68,"DRG",?73,"even"
11 W !,$$REPEAT^XLFSTR("=",80)
12 Q
Note: See TracBrowser for help on using the repository browser.