ACKQWB ;AUG/JLTP BIR/PTD-Compile A&SP Capitation Data - CONTINUED ; [ 12/05/95 10:33 ]
;;3.0;QUASAR;;Feb 11, 2000
;Per VHA Directive 10-93-142, this routine SHOULD NOT be modified.
BUILD ;Capitation report has been generated.
N XMDUZ,XMDUN,XMSUB,XMTEXT,XMY,TXT,X
S (XMDUZ,XMDUN)="QUASAR",XMTEXT="TXT(",XMSUB="A&SP CAPITATION DATA GENERATED"
F I=1:1 S X=$P($T(BUILD1+I),";;",2) Q:X="" D PROC S TXT(I,0)=X
D STAFF,^XMD
Q
BUILD1 ;;
;;A&SP capitation data have been generated for |ACKMO|.
;;
;; Start Time: |ACKXST| Finish Time: |ACKXFT|
;;
;;You can use the Print A&SP Capitation Report option to check the
;;data for accuracy.
;;
ABORT(ACKST) ;Abort bulletin. ACKST = reason for abort.
N XMDUZ,XMDUN,XMSUB,XMTEXT,XMY,TXT,X
S ACKST=$P(ACKST,U,3)
S (XMDUZ,XMDUN)="QUASAR",XMTEXT="TXT(",XMSUB="A&SP CAPITATION REPORT ABORTED!"
F I=1:1 S X=$P($T(ABORT1+I),";;",2) Q:X="" D PROC S TXT(I,0)=X
D STAFF,^XMD
Q
ABORT1 ;Text for abort bulletin.
;; **** WARNING ****
;; The monthly A&SP Capitation generation has terminated abnormally.
;;Reason: |ACKST|
;;
;; Please inform your IRM Service. Your Capitation Report
;;for the month can not be printed until this problem is resolved.
;;
PROC ;Process a line Of text with windows.
F Q:X'["|" S X=$P(X,"|")_$$RESOLVE($P(X,"|",2))_$P(X,"|",3,245)
Q
RESOLVE(X) ;Find the value of the variable represented by X.
S @("X=$G("_X_")") Q X
;
STAFF ;Create XMY( array using active supervisors from the A&SP STAFF file (#509850.3).
N ST S ST=0
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)=""
I ACKMAN S XMY(ACKDUZ)=""
I '$O(XMY(0)) S XMY(.5)=""
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HACKQWB 1759 printed Dec 13, 2024@02:32:59 Page 2
ACKQWB ;AUG/JLTP BIR/PTD-Compile A&SP Capitation Data - CONTINUED ; [ 12/05/95 10:33 ]
+1 ;;3.0;QUASAR;;Feb 11, 2000
+2 ;Per VHA Directive 10-93-142, this routine SHOULD NOT be modified.
BUILD ;Capitation report has been generated.
+1 NEW XMDUZ,XMDUN,XMSUB,XMTEXT,XMY,TXT,X
+2 SET (XMDUZ,XMDUN)="QUASAR"
SET XMTEXT="TXT("
SET XMSUB="A&SP CAPITATION DATA GENERATED"
+3 FOR I=1:1
SET X=$PIECE($TEXT(BUILD1+I),";;",2)
if X=""
QUIT
DO PROC
SET TXT(I,0)=X
+4 DO STAFF
DO ^XMD
+5 QUIT
BUILD1 ;;
+1 ;;A&SP capitation data have been generated for |ACKMO|.
+2 ;;
+3 ;; Start Time: |ACKXST| Finish Time: |ACKXFT|
+4 ;;
+5 ;;You can use the Print A&SP Capitation Report option to check the
+6 ;;data for accuracy.
+7 ;;
ABORT(ACKST) ;Abort bulletin. ACKST = reason for abort.
+1 NEW XMDUZ,XMDUN,XMSUB,XMTEXT,XMY,TXT,X
+2 SET ACKST=$PIECE(ACKST,U,3)
+3 SET (XMDUZ,XMDUN)="QUASAR"
SET XMTEXT="TXT("
SET XMSUB="A&SP CAPITATION REPORT ABORTED!"
+4 FOR I=1:1
SET X=$PIECE($TEXT(ABORT1+I),";;",2)
if X=""
QUIT
DO PROC
SET TXT(I,0)=X
+5 DO STAFF
DO ^XMD
+6 QUIT
ABORT1 ;Text for abort bulletin.
+1 ;; **** WARNING ****
+2 ;; The monthly A&SP Capitation generation has terminated abnormally.
+3 ;;Reason: |ACKST|
+4 ;;
+5 ;; Please inform your IRM Service. Your Capitation Report
+6 ;;for the month can not be printed until this problem is resolved.
+7 ;;
PROC ;Process a line Of text with windows.
+1 FOR
if X'["|"
QUIT
SET X=$PIECE(X,"|")_$$RESOLVE($PIECE(X,"|",2))_$PIECE(X,"|",3,245)
+2 QUIT
RESOLVE(X) ;Find the value of the variable represented by X.
+1 SET @("X=$G("_X_")")
QUIT X
+2 ;
STAFF ;Create XMY( array using active supervisors from the A&SP STAFF file (#509850.3).
+1 NEW ST
SET ST=0
+2 FOR
SET ST=$ORDER(^ACK(509850.3,ST))
if 'ST
QUIT
IF $PIECE(^ACK(509850.3,ST,0),U,6)
IF '$PIECE(^(0),U,4)
SET XMY(ST)=""
+3 IF ACKMAN
SET XMY(ACKDUZ)=""
+4 IF '$ORDER(XMY(0))
SET XMY(.5)=""
+5 QUIT
