Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: ACKQWB

ACKQWB.m

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