- 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 Feb 18, 2025@23:59:30 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