source: WorldVistAEHR/trunk/r/QUASAR-ACKQ/ACKQWB.m@ 701

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

initial load of WorldVistAEHR

File size: 1.7 KB
Line 
1ACKQWB ;AUG/JLTP BIR/PTD-Compile A&SP Capitation Data - CONTINUED ; [ 12/05/95 10:33 ]
2 ;;3.0;QUASAR;;Feb 11, 2000
3 ;Per VHA Directive 10-93-142, this routine SHOULD NOT be modified.
4BUILD ;Capitation report has been generated.
5 N XMDUZ,XMDUN,XMSUB,XMTEXT,XMY,TXT,X
6 S (XMDUZ,XMDUN)="QUASAR",XMTEXT="TXT(",XMSUB="A&SP CAPITATION DATA GENERATED"
7 F I=1:1 S X=$P($T(BUILD1+I),";;",2) Q:X="" D PROC S TXT(I,0)=X
8 D STAFF,^XMD
9 Q
10BUILD1 ;;
11 ;;A&SP capitation data have been generated for |ACKMO|.
12 ;;
13 ;; Start Time: |ACKXST| Finish Time: |ACKXFT|
14 ;;
15 ;;You can use the Print A&SP Capitation Report option to check the
16 ;;data for accuracy.
17 ;;
18ABORT(ACKST) ;Abort bulletin. ACKST = reason for abort.
19 N XMDUZ,XMDUN,XMSUB,XMTEXT,XMY,TXT,X
20 S ACKST=$P(ACKST,U,3)
21 S (XMDUZ,XMDUN)="QUASAR",XMTEXT="TXT(",XMSUB="A&SP CAPITATION REPORT ABORTED!"
22 F I=1:1 S X=$P($T(ABORT1+I),";;",2) Q:X="" D PROC S TXT(I,0)=X
23 D STAFF,^XMD
24 Q
25ABORT1 ;Text for abort bulletin.
26 ;; **** WARNING ****
27 ;; The monthly A&SP Capitation generation has terminated abnormally.
28 ;;Reason: |ACKST|
29 ;;
30 ;; Please inform your IRM Service. Your Capitation Report
31 ;;for the month can not be printed until this problem is resolved.
32 ;;
33PROC ;Process a line Of text with windows.
34 F Q:X'["|" S X=$P(X,"|")_$$RESOLVE($P(X,"|",2))_$P(X,"|",3,245)
35 Q
36RESOLVE(X) ;Find the value of the variable represented by X.
37 S @("X=$G("_X_")") Q X
38 ;
39STAFF ;Create XMY( array using active supervisors from the A&SP STAFF file (#509850.3).
40 N ST S ST=0
41 F S ST=$O(^ACK(509850.3,ST)) Q:'ST I $P(^ACK(509850.3,ST,0),U,6),'$P(^(0),U,4) S XMY(ST)=""
42 I ACKMAN S XMY(ACKDUZ)=""
43 I '$O(XMY(0)) S XMY(.5)=""
44 Q
Note: See TracBrowser for help on using the repository browser.