Routine: DGOINS

DGOINS ;ALB/MAC - OUTPUT FOR PATIENTS ADMITTED WITH UNKNOWN INSURANCE ; SEP 12 1988@12:00

 ;;5.3;Registration;;Aug 13, 1993

 D QUIT,DT^DICRW,ASK2^SDDIV G QUIT:Y<0 S VAUTNI=1,(DGY,DGBEG,DGBEG1,DGEND,DGEND1,DGD,DGL)=0

DISP W !!,"Display report for (D)ATE RANGE or (C)URRENT DATE:  CURRENT// " S Z="^CURRENT^DATE RANGE",X="" R X:DTIME G QUIT:X["^"!('$T) S:X["d"!(X["c") X=$C($A(X)-32) I X="" S X="C" W X

 S DGL=$E(X) D IN^DGHELP I %=-1 W !!?3,"You may display report for :" D HELP2 S %="" G DISP

 D:DGL="D" BEG G:X="^" QUIT

SERV W !!,"Include Service Connected Inpatients " S %=1 D YN^DICN G QUIT:%=-1 S DGSC=% I %=0 D HELP1 G SERV

 W ! S DGVAR="VAUTD#^DGBEG^DGBEG1^DGEND^DGEND1^DGL^DGSC",DGPGM="START^DGOINS1" D ZIS^DGUTQ I 'POP U IO D START^DGOINS1

QUIT K %,%DT,DIR(0),DIR("A"),DFN,DGBEG,DGBEG1,DGCA,DGCL,DGD,DGDT,DGDV,DGEND,DGEND1,DGJ,DGL,DGN,DGNO,DGP,DGC,DGPGM,DGS,DGSC,DGT,DGU,DGV,DGVAR,DGW,DGY,K,L,POP,VA("PID"),VA("BID"),VAUTD,VADAT,VADATE,VAERR,VAMT,VAUTNI,X,X1,Y,Z,^UTILITY($J) Q

BEG W ! S %DT="AETX",%DT("A")="Enter the beginning date: " D ^%DT S DGBEG=Y,DGBEG1=Y-.0001 Q:X="^"  I X="" G BEG

END W ! S %DT("A")="Enter ending date: " D ^%DT Q:X="^"  S DGEND=Y,DGEND1=Y_.9999 I X="" G END

 I DGEND<DGBEG W !!?5,"The ending date can not be before the beginning date" G END

HELP2 W !!?10,"C for CURRENT DATE - Report will display only those patients that",!?10,"are inpatients in hospital today.",!!?10,"D for DATE RANGE - to display all patients that were admitted",!?10,"to the hospital during that period."

HELP1 W !!,"Choose (Y)es or (N)o:",!!?10,"Y - if you want to include service connected inpatients",!?14,"in the report.",!?10,"N - if you do not want to include service connected inpatients."

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDGOINS   1731     printed  Apr 09, 2024@21:59:56                                                                                                                                                                                                      Page 2

DGOINS    ;ALB/MAC - OUTPUT FOR PATIENTS ADMITTED WITH UNKNOWN INSURANCE ; SEP 12 1988@12:00

 +1       ;;5.3;Registration;;Aug 13, 1993

 +2        DO QUIT

           DO DT^DICRW

           DO ASK2^SDDIV

           if Y<0

               GOTO QUIT

           SET VAUTNI=1

           SET (DGY,DGBEG,DGBEG1,DGEND,DGEND1,DGD,DGL)=0

DISP       WRITE !!,"Display report for (D)ATE RANGE or (C)URRENT DATE:  CURRENT// "

           SET Z="^CURRENT^DATE RANGE"

           SET X=""

           READ X:DTIME

           if X["^"!('$TEST)

               GOTO QUIT

           if X["d"!(X["c")

               SET X=$CHAR($ASCII(X)-32)

           IF X=""

               SET X="C"

               WRITE X

 +1        SET DGL=$EXTRACT(X)

           DO IN^DGHELP

           IF %=-1

               WRITE !!?3,"You may display report for :"

               DO HELP2

               SET %=""

               GOTO DISP

 +2        if DGL="D"

               DO BEG

           if X="^"

               GOTO QUIT

SERV       WRITE !!,"Include Service Connected Inpatients "

           SET %=1

           DO YN^DICN

           if %=-1

               GOTO QUIT

           SET DGSC=%

           IF %=0

               DO HELP1

               GOTO SERV

 +1        WRITE !

           SET DGVAR="VAUTD#^DGBEG^DGBEG1^DGEND^DGEND1^DGL^DGSC"

           SET DGPGM="START^DGOINS1"

           DO ZIS^DGUTQ

           IF 'POP

               USE IO

               DO START^DGOINS1

QUIT       KILL %,%DT,DIR(0),DIR("A"),DFN,DGBEG,DGBEG1,DGCA,DGCL,DGD,DGDT,DGDV,DGEND,DGEND1,DGJ,DGL,DGN,DGNO,DGP,DGC,DGPGM,DGS,DGSC,DGT,DGU,DGV,DGVAR,DGW,DGY,K,L,POP,VA("PID"),VA("BID"),VAUTD,VADAT,VADATE,VAERR,VAMT,VAUTNI,X,X1,Y,Z,^UTILITY($JOB)

           QUIT

BEG        WRITE !

           SET %DT="AETX"

           SET %DT("A")="Enter the beginning date: "

           DO ^%DT

           SET DGBEG=Y

           SET DGBEG1=Y-.0001

           if X="^"

               QUIT

           IF X=""

               GOTO BEG

END        WRITE !

           SET %DT("A")="Enter ending date: "

           DO ^%DT

           if X="^"

               QUIT

           SET DGEND=Y

           SET DGEND1=Y_.9999

           IF X=""

               GOTO END

 +1        IF DGEND<DGBEG

               WRITE !!?5,"The ending date can not be before the beginning date"

               GOTO END

 +2        QUIT

HELP2      WRITE !!?10,"C for CURRENT DATE - Report will display only those patients that",!?10,"are inpatients in hospital today.",!!?10,"D for DATE RANGE - to display all patients that were admitted",!?10,"to the hospital during that period."

 +1        QUIT

HELP1      WRITE !!,"Choose (Y)es or (N)o:",!!?10,"Y - if you want to include service connected inpatients",!?14,"in the report.",!?10,"N - if you do not want to include service connected inpatients."

 +1        QUIT

DGOINS.m