DVBCRLST ;ALB/GTS-557/THM-LIST C&P REQUESTS ; 1/3/91 6:20 AM
;;2.7;AMIE;;Apr 10, 1995
S LN="C&P REQUESTS BY DATE RANGE" D HOME^%ZIS
;
W @IOF
W !?(IOM-$L(LN)\2),LN,!!! ;S %DT="AE",%DT("A")="Enter DATE OF REQUEST FROM: " D ^%DT S BDATE=Y-.0001
EN1 S PHYS="N" W !!,"Do you want to report by physician" S %=2 D YN^DICN G:$D(DTOUT)!(%<0) END I %=1 S PHYS="Y"
I %=0 W !!,"Enter <Y> to report by Physician or <N> to report only by date range." G EN1
W !!,*7,"This report uses ",$S(PHYS="Y":132,1:80)," columns.",!! D PRINT
;;;I $D(IOST),IOST?1"C-".E W !!,"Press [RETURN] to continue or ""^"" to exit " R ANS:DTIME I ANS=U!('$T) G END
;
END K %DT,B,BDATE,EDATE,FR,TO,L,DIC,ANS,DIJ,DP,P,X,Y,LN,IOY,DA,DO,C,D,DE,DHD,DIK,DIS,I,J,K,IOP,%ZIS,BY,FLDS,PHYS
;;;W @IOF,!
Q
;
PRINT S HDR="2507 Requests "_$S(PHYS="Y":"by Physician",1:"by Date Range")
D NOW^%DTC S Y=% D DD^%DT
S TME=$E(Y,1,12)_" "_$E(Y,14,18),PGE=0,SCNWTH=$S(PHYS="Y":132,1:80)
I PHYS="N" S DHD="W HDR S PGE=PGE+1 W ?47,TME,?69,""PAGE "",PGE,!,"" for ""_$$SITE^DVBCUTL4,?45,""REQUEST"",!,""NAME"",?32,""SSN"",?45,""DATE"",?56,""REQUESTER"",! F CNT=1:1:SCNWTH W ""-"""
I PHYS="Y" D SETDHD
S L=0
I PHYS="N" S BY="[DVBA C REQUESTS BY DATE RANGE]",FLDS=BY
I PHYS="N" S DIC="^DVB(396.3,"
I PHYS="Y" S BY="[DVBA C REQUESTS BY PHYSICIAN]",FLDS=BY
I PHYS="Y" S DIC="^DVB(396.4,"
D EN1^DIP K HDR,SCNWTH,TME,PGE,CNT,%,Y,X,%H Q
;
SETDHD ;
S DHD="W HDR S PGE=PGE+1 W ?99,TME,?121,""PAGE "",PGE,!,"" for ""_$$SITE^DVBCUTL4,?42,""REGIONAL OFFICE"",?91,""EXAM"",!,""NAME"",?27,""SSN"",?42,""NAME"",?59,""EXAM"",?91,""DATE"",?101,""EXAMINING PHYSICIAN"",! F CNT=1:1:SCNWTH W ""-"""
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDVBCRLST 1681 printed Oct 16, 2024@17:49:22 Page 2
DVBCRLST ;ALB/GTS-557/THM-LIST C&P REQUESTS ; 1/3/91 6:20 AM
+1 ;;2.7;AMIE;;Apr 10, 1995
+2 SET LN="C&P REQUESTS BY DATE RANGE"
DO HOME^%ZIS
+3 ;
+4 WRITE @IOF
+5 ;S %DT="AE",%DT("A")="Enter DATE OF REQUEST FROM: " D ^%DT S BDATE=Y-.0001
WRITE !?(IOM-$LENGTH(LN)\2),LN,!!!
EN1 SET PHYS="N"
WRITE !!,"Do you want to report by physician"
SET %=2
DO YN^DICN
if $DATA(DTOUT)!(%<0)
GOTO END
IF %=1
SET PHYS="Y"
+1 IF %=0
WRITE !!,"Enter <Y> to report by Physician or <N> to report only by date range."
GOTO EN1
+2 WRITE !!,*7,"This report uses ",$SELECT(PHYS="Y":132,1:80)," columns.",!!
DO PRINT
+3 ;;;I $D(IOST),IOST?1"C-".E W !!,"Press [RETURN] to continue or ""^"" to exit " R ANS:DTIME I ANS=U!('$T) G END
+4 ;
END KILL %DT,B,BDATE,EDATE,FR,TO,L,DIC,ANS,DIJ,DP,P,X,Y,LN,IOY,DA,DO,C,D,DE,DHD,DIK,DIS,I,J,K,IOP,%ZIS,BY,FLDS,PHYS
+1 ;;;W @IOF,!
+2 QUIT
+3 ;
PRINT SET HDR="2507 Requests "_$SELECT(PHYS="Y":"by Physician",1:"by Date Range")
+1 DO NOW^%DTC
SET Y=%
DO DD^%DT
+2 SET TME=$EXTRACT(Y,1,12)_" "_$EXTRACT(Y,14,18)
SET PGE=0
SET SCNWTH=$SELECT(PHYS="Y":132,1:80)
+3 IF PHYS="N"
SET DHD="W HDR S PGE=PGE+1 W ?47,TME,?69,""PAGE "",PGE,!,"" for ""_$$SITE^DVBCUTL4,?45,""REQUEST"",!,""NAME"",?32,""SSN"",?45,""DATE"",?56,""REQUESTER"",! F CNT=1:1:SCNWTH W ""-"""
+4 IF PHYS="Y"
DO SETDHD
+5 SET L=0
+6 IF PHYS="N"
SET BY="[DVBA C REQUESTS BY DATE RANGE]"
SET FLDS=BY
+7 IF PHYS="N"
SET DIC="^DVB(396.3,"
+8 IF PHYS="Y"
SET BY="[DVBA C REQUESTS BY PHYSICIAN]"
SET FLDS=BY
+9 IF PHYS="Y"
SET DIC="^DVB(396.4,"
+10 DO EN1^DIP
KILL HDR,SCNWTH,TME,PGE,CNT,%,Y,X,%H
QUIT
+11 ;
SETDHD ;
+1 SET DHD="W HDR S PGE=PGE+1 W ?99,TME,?121,""PAGE "",PGE,!,"" for ""_$$SITE^DVBCUTL4,?42,""REGIONAL OFFICE"",?91,""EXAM"",!,""NAME"",?27,""SSN"",?42,""NAME"",?59,""EXAM"",?91,""DATE"",?101,""EXAMINING PHYSICIAN"",! F CNT=1:1:SCNWTH W ""-"""
+2 QUIT
