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

ABPACLG9.m

Go to the documentation of this file. 
  1. ABPACLG9 ;CHECK LOG MODIFICATIONS REPORT; [ 03/29/91  12:00 PM ]
  1.  ;;1.4;AO PVT-INS TRACKING;*0*;IHS-OKC/KJR;JULY 25, 1991
  1.  W !!,"NOT AN ENTRY POINT - ACCESS DENIED",!! Q
  1.  ;--------------------------------------------------------------------
  1. TXFERS ;PROCEDURE TO PROCESS TRANSFER NODES
  1.  S R=0 F I=0:0 D  Q:R=""
  1.  .S R=$O(^TMP("ABPACLG1","T",R)) Q:R=""
  1.  .S RR=0 F J=0:0 D  Q:RR=""
  1.  ..S RR=$O(^TMP("ABPACLG1","T",R,RR)) Q:RR=""
  1.  ..S R3=0 F K=0:0 D  Q:R3=""
  1.  ...S R3=$O(^TMP("ABPACLG1","T",R,RR,R3)) Q:R3=""
  1.  ...S R4=0 F L=0:0 D  Q:R4=""
  1.  ....S R4=$O(^TMP("ABPACLG1","T",R,RR,R3,R4)) Q:R4=""
  1.  ....S R5=0 F M=0:0 D  Q:R5=""
  1.  .....S R5=$O(^TMP("ABPACLG1","T",R,RR,R3,R4,R5)) Q:R5=""
  1.  .....S R6=0 F N=0:0 D  Q:R6=""
  1.  ......S R6=$O(^TMP("ABPACLG1","T",R,RR,R3,R4,R5,R6)) Q:R6=""
  1.  ......S Y=^(R6),Y=+$E(Y,4,5)_"/"_+$E(Y,6,7)_"/"_+$E(Y,2,3)
  1.  ......S ABPACHK("XMIT")=Y,ABPAINS=$P(^AUTNINS(R3,0),"^")
  1.  ......S FROM=$P(^DIC(4,R4,0),"^"),TO=$P(^DIC(4,R5,0),"^")
  1.  ......S TCNT=TCNT+1 W !!,$J(TCNT,2),".",?4,"It is requested "
  1.  ......W "that $",$J(R,8,2)," of check number ",RR," from ",!?4
  1.  ......W ABPAINS," be transferred from accounting point",!?4
  1.  ......W FROM," to ",TO,".",!?4
  1.  ......W !?4,"This was originally submitted on the transmittal "
  1.  ......W "dated ",ABPACHK("XMIT"),"."
  1.  ......I $Y>46 D ^%AUCLS,HD^ABPACLG4
  1.  Q