source: WorldVistAEHR/trunk/r/IFCAP-PRC-PRX--PRCA--PRCN/PRCSSTAT.m@ 1078

Last change on this file since 1078 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.2 KB
Line 
1PRCSSTAT ;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.
4START ;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 ;
18EVAL I OUT'=0 W $P($T(MESSAGE+OUT),";;",2) Q
19HEADER 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
25MESSAGE ;;
26 ;;There are no FMS transactions for the selected year and quarter
Note: See TracBrowser for help on using the repository browser.