Routine: DENTQ

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  Apr 09, 2024@20:52:03                                                                                                                                                                                                       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

DENTQ.m