ACKQWB.m

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 ---ACKQWB   1759     printed  Apr 09, 2024@21:35:42                                                                                                                                                                                                      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