| [613] | 1 | ACKQWB ;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.
|
|---|
| 4 | BUILD ;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
|
|---|
| 10 | BUILD1 ;;
|
|---|
| 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 | ;;
|
|---|
| 18 | ABORT(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
|
|---|
| 25 | ABORT1 ;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 | ;;
|
|---|
| 33 | PROC ;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
|
|---|
| 36 | RESOLVE(X) ;Find the value of the variable represented by X.
|
|---|
| 37 | S @("X=$G("_X_")") Q X
|
|---|
| 38 | ;
|
|---|
| 39 | STAFF ;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
|
|---|
