source: FOIAVistA/tag/r/DENTAL-DEN/DENTQ.m@ 1424

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

initial load of FOIAVistA 6/30/08 version

File size: 2.0 KB
Line 
1DENTQ ;ISC2/SAW-DENTAL PATIENT INQUIRY ;4/17/90 16:13 ;
2 ;;VERSION 1.2;;**11**;
3 W !! S DIC="^DPT(",DIC(0)="AEMQZ" D ^DIC G EXIT:Y<0 S DFN=+Y D ALL^VADPT
4 S X="",$P(X,"-",81)="" W @IOF,$C(13),X
5 W !,"NAME: ",VADM(1),?35,"SSN: ",$P(VADM(2),"^",2),?55,"AGE: ",VADM(4),?67,"SEX: ",$P(VADM(5),"^",2),!,X
6 W !!,"ELIGIBILITY: ",$P(VAEL(1),"^",2),!!,"LEGAL RESIDENCE: ",VAPA(1)
7 W:VAPA(2)]"" !,?17,VAPA(2) W:VAPA(3)]"" !,?17,VAPA(3) W !,?17 W:VAPA(4)]"" VAPA(4),", " W:VAPA(5)]"" $P(VAPA(5),"^",2) W:VAPA(6)]"" " ",VAPA(6) W:VAPA(8)]"" !,?17,VAPA(8)
8 I 'VAIN(1) W !!,"PATIENT IS NOT CURRENTLY ADMITTED." G REM
9 W !!,"ADMISSION DATE: ",$P(VAIN(7),"^",2) W ?37,"WARD: ",$P(VAIN(4),"^",2),?55,"ROOM-BED: ",VAIN(5)
10 W:VAIN(9)]"" !,"ADMITTING DIAGNOSIS: ",VAIN(9)
11REM W:VADM(7)]"" !!,"REMARKS: ",VADM(7) D KVAR^VADPT G DENTQ
12EXIT K DIC,X,Y Q
13Q1 W !!,"Enter 'Y' or 'Yes' to enable a range of treatment data for re-release.",!,"Press return or enter 'N' or 'No' if you do not want to enable a range",!,"of treatment data for re-release. Enter an uparrow (^) to exit." Q
14Q2 W !!,"Enter 'Y' or 'Yes' to edit or display this data entry. Press return or",!,"enter 'N' or 'No' if you do not want to edit or display this data entry.",!,"Enter an uparrow (^) to exit." Q
15Q3 W !,"Enter 'Y' or 'Yes' to enable this data for re-release. Press return or",!,"enter 'N' or 'No' if you do not want to enable this data for re-release.",!,"Enter an uparrow (^) to exit." Q
16Q4 W !!,"Enter a 'Y' or 'Yes' if you are ready to transmit this data to Austin.",!,"Press return or enter an uparrow (^) if you want to re-edit the data or",!,"are not sure you want to release the data at this time." Q
17Q5 W !!,"Enter 'Y' or 'Yes' to include composite time value (CTV) information in this",!,"report. Press return if you do not want to include CTV information.",!,"Enter an uparrow (^) to exit this option entirely." Q
18Q6 W !!,"Enter 'Y' or 'Yes' to include dollar values along with CTV values in this",!,"report. Press return if you do not want to include dollar values.",!,"Enter an uparrow (^) to exit this option entirely." Q
Note: See TracBrowser for help on using the repository browser.