ACMRLS ; IHS/TUCSON/TMJ - APC visit counts - show screens ; [ 06/01/1999 1:43 PM ]
;;2.0;DIABETES MANAGEMENT SYSTEM;**5**;JUN 14, 2007
;
SHOWP ;EP
I '$D(ACMDONE) W:$D(IOF) @IOF
I ACMCTYP="F" D FLAT Q ;IHS/CMI/LAB
W !!?6,"PRINT Items Selected:"
I ACMCTYP="S" W !,?12,"Report includes sub-totals and total only." Q
I ACMCTYP="T" W !,?12,"Report will includes total only." Q
Q:'$D(^ACM(58.8,ACMRPT,12))
S (ACMI,ACMTCW)=0 F S ACMI=$O(^ACM(58.8,ACMRPT,12,ACMI)) Q:ACMI'=+ACMI S ACMCRIT=$P(^ACM(58.8,ACMRPT,12,ACMI,0),U) D
.W !?12,$P(^ACM(58.1,ACMCRIT,0),U)," - column width ",$P(^ACM(58.8,ACMRPT,12,ACMI,0),U,2) S ACMTCW=ACMTCW+$P(^(0),U,2)+2
.I $Y>(IOSL-5) D PAUSE^ACMRL01 W:$D(IOF) @IOF
W !!?12,"Total Report width (including column margins - 2 spaces): ",ACMTCW
Q
FLAT ;IHS/CMI/LAB - flat file
W !!?6,"Items selected for flat file output:"
S (ACMI,ACMTCW)=0 F S ACMI=$O(^ACM(58.8,ACMRPT,12,ACMI)) Q:ACMI'=+ACMI S ACMCRIT=$P(^ACM(58.8,ACMRPT,12,ACMI,0),U) D
.W !?12,$P(^ACM(58.1,ACMCRIT,0),U)
.I $Y>(IOSL-5) D PAUSE^ACMRL01 W:$D(IOF) @IOF
Q
SHOW ;EP
W:$D(IOF) @IOF
I $D(ACMDONE) S ACMLHDR="REPORT SUMMARY" W ?((80-$L(ACMLHDR))/2),ACMLHDR,!
W !!?6,"CMS REGISTER PATIENT Selection Criteria:"
Q:'$D(^ACM(58.8,ACMRPT,11))
S ACMI=0 F S ACMI=$O(^ACM(58.8,ACMRPT,11,ACMI)) Q:ACMI'=+ACMI D
.I $Y>(IOSL-5) D PAUSE^ACMRL01 W @IOF
.W !?12,$P(^ACM(58.1,ACMI,0),U),": "
.K ACMQ
.S ACMY="",ACMC=0 F S ACMY=$O(^ACM(58.8,ACMRPT,11,ACMI,11,"B",ACMY)) S ACMC=ACMC+1 Q:ACMY=""!($D(ACMQ)) W:ACMC'=1 " ; " S X=ACMY X:$D(^ACM(58.1,ACMI,2)) ^(2) W X
K ACMC,ACMQ
Q
SHOWR ;EP
I '$D(ACMDONE) W:$D(IOF) @IOF
W !!?6,"CMS REGISTER PATIENT SORTING Criteria:"
Q:'$G(ACMSORT)
W !?12,"CMS REGISTER PATIENTS will be sorted by: ",$P(^ACM(58.1,ACMSORT,0),U),!
Q
ACMRLS ; IHS/TUCSON/TMJ - APC visit counts - show screens ; [ 06/01/1999 1:43 PM ]
+1 ;;2.0;DIABETES MANAGEMENT SYSTEM;**5**;JUN 14, 2007
+2 ;
SHOWP ;EP
+1 IF '$DATA(ACMDONE)
IF $DATA(IOF)
WRITE @IOF
+2 ;IHS/CMI/LAB
IF ACMCTYP="F"
DO FLAT
QUIT
+3 WRITE !!?6,"PRINT Items Selected:"
+4 IF ACMCTYP="S"
WRITE !,?12,"Report includes sub-totals and total only."
QUIT
+5 IF ACMCTYP="T"
WRITE !,?12,"Report will includes total only."
QUIT
+6 IF '$DATA(^ACM(58.8,ACMRPT,12))
QUIT
+7 SET (ACMI,ACMTCW)=0
FOR
SET ACMI=$ORDER(^ACM(58.8,ACMRPT,12,ACMI))
IF ACMI'=+ACMI
QUIT
SET ACMCRIT=$PIECE(^ACM(58.8,ACMRPT,12,ACMI,0),U)
Begin DoDot:1
+8 WRITE !?12,$PIECE(^ACM(58.1,ACMCRIT,0),U)," - column width ",$PIECE(^ACM(58.8,ACMRPT,12,ACMI,0),U,2)
SET ACMTCW=ACMTCW+$PIECE(^(0),U,2)+2
+9 IF $Y>(IOSL-5)
DO PAUSE^ACMRL01
IF $DATA(IOF)
WRITE @IOF
End DoDot:1
+10 WRITE !!?12,"Total Report width (including column margins - 2 spaces): ",ACMTCW
+11 QUIT
FLAT ;IHS/CMI/LAB - flat file
+1 WRITE !!?6,"Items selected for flat file output:"
+2 SET (ACMI,ACMTCW)=0
FOR
SET ACMI=$ORDER(^ACM(58.8,ACMRPT,12,ACMI))
IF ACMI'=+ACMI
QUIT
SET ACMCRIT=$PIECE(^ACM(58.8,ACMRPT,12,ACMI,0),U)
Begin DoDot:1
+3 WRITE !?12,$PIECE(^ACM(58.1,ACMCRIT,0),U)
+4 IF $Y>(IOSL-5)
DO PAUSE^ACMRL01
IF $DATA(IOF)
WRITE @IOF
End DoDot:1
+5 QUIT
SHOW ;EP
+1 IF $DATA(IOF)
WRITE @IOF
+2 IF $DATA(ACMDONE)
SET ACMLHDR="REPORT SUMMARY"
WRITE ?((80-$LENGTH(ACMLHDR))/2),ACMLHDR,!
+3 WRITE !!?6,"CMS REGISTER PATIENT Selection Criteria:"
+4 IF '$DATA(^ACM(58.8,ACMRPT,11))
QUIT
+5 SET ACMI=0
FOR
SET ACMI=$ORDER(^ACM(58.8,ACMRPT,11,ACMI))
IF ACMI'=+ACMI
QUIT
Begin DoDot:1
+6 IF $Y>(IOSL-5)
DO PAUSE^ACMRL01
WRITE @IOF
+7 WRITE !?12,$PIECE(^ACM(58.1,ACMI,0),U),": "
+8 KILL ACMQ
+9 SET ACMY=""
SET ACMC=0
FOR
SET ACMY=$ORDER(^ACM(58.8,ACMRPT,11,ACMI,11,"B",ACMY))
SET ACMC=ACMC+1
IF ACMY=""!($DATA(ACMQ))
QUIT
IF ACMC'=1
WRITE " ; "
SET X=ACMY
IF $DATA(^ACM(58.1,ACMI,2))
XECUTE ^(2)
WRITE X
End DoDot:1
+10 KILL ACMC,ACMQ
+11 QUIT
SHOWR ;EP
+1 IF '$DATA(ACMDONE)
IF $DATA(IOF)
WRITE @IOF
+2 WRITE !!?6,"CMS REGISTER PATIENT SORTING Criteria:"
+3 IF '$GET(ACMSORT)
QUIT
+4 WRITE !?12,"CMS REGISTER PATIENTS will be sorted by: ",$PIECE(^ACM(58.1,ACMSORT,0),U),!
+5 QUIT
