DENTQ ;ISC2/SAW-DENTAL PATIENT INQUIRY ;4/17/90 16:13 ;
;;VERSION 1.2;;**11**;
W !! S DIC="^DPT(",DIC(0)="AEMQZ" D ^DIC G EXIT:Y<0 S DFN=+Y D ALL^VADPT
S X="",$P(X,"-",81)="" W @IOF,$C(13),X
W !,"NAME: ",VADM(1),?35,"SSN: ",$P(VADM(2),"^",2),?55,"AGE: ",VADM(4),?67,"SEX: ",$P(VADM(5),"^",2),!,X
W !!,"ELIGIBILITY: ",$P(VAEL(1),"^",2),!!,"LEGAL RESIDENCE: ",VAPA(1)
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)
I 'VAIN(1) W !!,"PATIENT IS NOT CURRENTLY ADMITTED." G REM
W !!,"ADMISSION DATE: ",$P(VAIN(7),"^",2) W ?37,"WARD: ",$P(VAIN(4),"^",2),?55,"ROOM-BED: ",VAIN(5)
W:VAIN(9)]"" !,"ADMITTING DIAGNOSIS: ",VAIN(9)
REM W:VADM(7)]"" !!,"REMARKS: ",VADM(7) D KVAR^VADPT G DENTQ
EXIT K DIC,X,Y Q
Q1 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
Q2 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
Q3 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
Q4 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
Q5 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
Q6 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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDENTQ 2115 printed Dec 13, 2024@01:46:50 Page 2
DENTQ ;ISC2/SAW-DENTAL PATIENT INQUIRY ;4/17/90 16:13 ;
+1 ;;VERSION 1.2;;**11**;
+2 WRITE !!
SET DIC="^DPT("
SET DIC(0)="AEMQZ"
DO ^DIC
if Y<0
GOTO EXIT
SET DFN=+Y
DO ALL^VADPT
+3 SET X=""
SET $PIECE(X,"-",81)=""
WRITE @IOF,$CHAR(13),X
+4 WRITE !,"NAME: ",VADM(1),?35,"SSN: ",$PIECE(VADM(2),"^",2),?55,"AGE: ",VADM(4),?67,"SEX: ",$PIECE(VADM(5),"^",2),!,X
+5 WRITE !!,"ELIGIBILITY: ",$PIECE(VAEL(1),"^",2),!!,"LEGAL RESIDENCE: ",VAPA(1)
+6 if VAPA(2)]""
WRITE !,?17,VAPA(2)
if VAPA(3)]""
WRITE !,?17,VAPA(3)
WRITE !,?17
if VAPA(4)]""
WRITE VAPA(4),", "
if VAPA(5)]""
WRITE $PIECE(VAPA(5),"^",2)
if VAPA(6)]""
WRITE " ",VAPA(6)
if VAPA(8)]""
WRITE !,?17,VAPA(8)
+7 IF 'VAIN(1)
WRITE !!,"PATIENT IS NOT CURRENTLY ADMITTED."
GOTO REM
+8 WRITE !!,"ADMISSION DATE: ",$PIECE(VAIN(7),"^",2)
WRITE ?37,"WARD: ",$PIECE(VAIN(4),"^",2),?55,"ROOM-BED: ",VAIN(5)
+9 if VAIN(9)]""
WRITE !,"ADMITTING DIAGNOSIS: ",VAIN(9)
REM if VADM(7)]""
WRITE !!,"REMARKS: ",VADM(7)
DO KVAR^VADPT
GOTO DENTQ
EXIT KILL DIC,X,Y
QUIT
Q1 WRITE !!,"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."
QUIT
Q2 WRITE !!,"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."
QUIT
Q3 WRITE !,"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."
QUIT
Q4 WRITE !!,"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."
QUIT
Q5 WRITE !!,"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."
QUIT
Q6 WRITE !!,"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."
QUIT
