source: WorldVistAEHR/trunk/r/AUTOMATED_MED_INFO_EXCHANGE-DVBA-DVBC/DVBAADMR.m@ 1259

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

initial load of WorldVistAEHR

File size: 861 bytes
Line 
1DVBAADMR ;ALB ISC/THM-ADMISSION REVIEW FOR AMIE ;21 JUL 89;
2 ;;2.7;AMIE;;Apr 10, 1995
3 D NOPARM^DVBAUTL2 G:$D(DVBAQUIT) KILL^DVBAUTIL
4 S LN="ADMISSION REVIEW REPORT" D HOME^%ZIS
5 ;
6EN1 S %DT(0)=-DT W @IOF,!?(IOM-$L(LN)\2),LN,!!! S %DT="AE",%DT("A")="Enter ADMISSION REVIEW DATE: " D ^%DT S RVDT=Y K %DT(0)
7 I +Y<0 G END
8 W *7,!!,"Note: This program requires 132 columns to correctly print the report.",!!
9 D PRINT
10 I $D(IOST) I IOST?1"C-".E W !!,"Press [RETURN] to continue or ""^"" to exit " R ANS:DTIME I ANS=U!('$T) G END
11 G EN1
12 ;
13END K %DT,RVDT,FR,TO,L,DIC,ANS,DIJ,DP,P,X,Y,LN,IOY,DA,DO,C,D,DE,DHD,DIK,DIS,I,J,K,IOP,BY,FLDS
14 W @IOF,! Q
15 ;
16PRINT S DHD="Admission Review Report for "_$P(^DVB(396.1,1,0),U,1)_" for " S Y=RVDT X ^DD("DD") S DHD=DHD_Y,L=0,DIC="^DGPM(",FR=RVDT,TO=RVDT,BY="[DVBA ADMISSION REVIEW]",FLDS="[DVBA ADMISSION REVIEW]" D EN1^DIP Q
Note: See TracBrowser for help on using the repository browser.