| [613] | 1 | PRCSSTAT ;WISC/KMB-COLLECT FMS QUARTERLY DATA FOR RECONCILLIATION ;1/14/93 12:00
|
|---|
| 2 | ;;5.1;IFCAP;;Oct 20, 2000
|
|---|
| 3 | ;Per VHA Directive 10-93-142, this routine should not be modified.
|
|---|
| 4 | START ;we have PRC("CP"),PRC("QTR"),PRC("FY")
|
|---|
| 5 | N COUNTER,CHECK,FIELD,FIELDS,QTR,OUT,TOTAL,ZAP
|
|---|
| 6 | S (CHECK,OUT,TOTAL)=0,COUNTER=PRC("FY")_PRC("QTR")_PRC("CP")
|
|---|
| 7 | S (FIELD,FIELDS)="FMS REFERENCE-DATE-AMOUNT",QTR=PRC("QTR")
|
|---|
| 8 | I '$D(^PRCS(417,"C",COUNTER)) S OUT=1 D EVAL Q
|
|---|
| 9 | D HEADER
|
|---|
| 10 | F S CHECK=$O(^PRCS(417,"C",COUNTER,CHECK)) Q:CHECK="" D
|
|---|
| 11 | .I $D(^PRCS(417,CHECK,0)) F I=1:1:5 S $P(FIELDS,"-",I)=$P(^PRCS(417,CHECK,0),"^",I)
|
|---|
| 12 | .W !,$P(FIELDS,"-"),?15,$P(FIELDS,"-",2),?30,$P(FIELDS,"-",3),?45,$P(FIELDS,"-",4),?60,$P(FIELDS,"-",5)
|
|---|
| 13 | .S HOLD=$P(FIELDS,"-"),TOTAL=TOTAL+HOLD
|
|---|
| 14 | .I $Y>25 D HEADER
|
|---|
| 15 | W !,"Total amount of FMS transactions: $",$J(TOTAL,20,2),!,?35,"-------------------"
|
|---|
| 16 | Q
|
|---|
| 17 | ;
|
|---|
| 18 | EVAL I OUT'=0 W $P($T(MESSAGE+OUT),";;",2) Q
|
|---|
| 19 | HEADER W:$Y>0 @IOF W ?10,"FMS TRANSACTIONS FOR CONTROL POINT ",PRC("CP")," FOR "
|
|---|
| 20 | W $S(QTR=1:"1ST",QTR=2:"2ND",QTR=3:"3RD",QTR=4:"4TH",1:"")," QUARTER"
|
|---|
| 21 | ;
|
|---|
| 22 | W !,$P(FIELD,"-"),?15,$P(FIELD,"-",2),?30,$P(FIELD,"-",3),?45,$P(FIELD,"-",4),?60,$P(FIELD,"-",5),!
|
|---|
| 23 | S ZAP="-*-*-*-*-*-*-*" F I=1:1:4 W ZAP
|
|---|
| 24 | Q
|
|---|
| 25 | MESSAGE ;;
|
|---|
| 26 | ;;There are no FMS transactions for the selected year and quarter
|
|---|
