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

AFSLDIQ2.m

Go to the documentation of this file. 
  1. AFSLDIQ2 ;IHS/OIRM/DSD/JDM - DOC# INQUIRY LOOKUP; [ 10/27/2004   4:21 PM ]
  1.  ;;3.0t1;1166 APPROVALS FOR PAYMENT;**13**;
  1.  ;;MODIFIED FOR CACHE' COMPLIANCE ACR*2.1*9
  1.  ;Allows viewing of document and payment history - part 2
  1.  ;ACR*2.1*13.02 IM13574    ;REMOVED DUPLICATE SUBROUTINES
  1.  K AFSLDFND,AFSLDNOD,AFSLDZRO,AFSLTDOC
  1.  K ^TMP("AFSLOTMP",$J)
  1.  S AFSLDNOD=99999
  1.  S AFSLTDCT=1
  1.  S (AFSLDNX,AFSLSTRT,AFSLDNXS)=0
  1.  S AFSLDNX=AFSLDOC-1
  1. DOIT ;
  1.  I '$D(^AFSLODOC(AFSLYNOD,1,"B",AFSLDOC)) S Y=-1 G FINI
  1.  S AFSLDNXS=$O(^AFSLODOC(AFSLYNOD,1,"B",AFSLDOC,0))
  1.  S AFSLDNOD=AFSLDNXS
  1.  K AFSLX
  1.  S $P(AFSLX,U,1)=AFSLTDCT
  1.  S $P(AFSLX,U,2)=$P($G(^AFSLODOC(AFSLYNOD,1,AFSLDNOD,2)),U,1)
  1.  S $P(AFSLX,U,3)=AFSLDNOD
  1.  S $P(AFSLX,U,4)=^AFSLODOC(AFSLYNOD,1,AFSLDNOD,0)
  1.  S ^TMP("AFSLOTMP",$J,AFSLTDCT)=AFSLX
  1. DOITLP2 ;
  1.  I '$O(^AFSLODOC(AFSLYNOD,1,"B",AFSLDOC,AFSLDNXS)) G CHKDOC
  1.  S AFSLDNDN=$O(^AFSLODOC(AFSLYNOD,1,"B",AFSLDOC,AFSLDNXS))
  1.  S AFSLTDCT=AFSLTDCT+1
  1.  K AFSLX
  1.  S $P(AFSLX,U,1)=AFSLTDCT
  1.  S $P(AFSLX,U,2)=$P($G(^AFSLODOC(AFSLYNOD,1,AFSLDNDN,2)),U,1)
  1.  S $P(AFSLX,U,3)=AFSLDNDN
  1.  S $P(AFSLX,U,4)=^AFSLODOC(AFSLYNOD,1,AFSLDNDN,0)
  1.  S ^TMP("AFSLOTMP",$J,AFSLTDCT)=AFSLX
  1.  S AFSLDNXS=AFSLDNDN
  1.  G DOITLP2
  1. CHKDOC ;
  1.  I '$D(^TMP("AFSLOTMP",$J,1)) S Y=-1 G FINI
  1. DSPHDR ;
  1.  D ^XBCLS
  1.  S DY=2,DX=18
  1.  X XY
  1.  W @AFSLRVON,"VERIFY DOCUMENT SELECTION FOR 1166 PAYMENT",@AFSLRVOF
  1.  S DY=5
  1.  S DX=2
  1.  X XY
  1.  W @AFSLRVON,"SEQ#",@AFSLRVOF,"  "
  1.  W @AFSLRVON,"REF.",@AFSLRVOF,"  "
  1.  W @AFSLRVON,"DOCUMENT #",@AFSLRVOF,"  "
  1.  W @AFSLRVON,"EFF.DATE",@AFSLRVOF
  1.  W "  "
  1.  W @AFSLRVON,"CAN NO.",@AFSLRVOF,"  "
  1.  W @AFSLRVON,"CLASS",@AFSLRVOF,"  "
  1.  W @AFSLRVON,"TYPE",@AFSLRVOF,"  "
  1.  W @AFSLRVON,"FED",@AFSLRVOF,"  "
  1.  W @AFSLRVON,"OBLIGATION $$",@AFSLRVOF
  1.  S DY=6
  1.  F I=1:1:999 Q:AFSLENUF["^"  I $D(^TMP("AFSLOTMP",$J,I)) D DSPDOCS
  1. SELDOC ;
  1.  S AFSLLTH=$L(AFSLTDCT)
  1.  S AFSLDOCC="^"
  1.  S DY=22
  1.  S DX=23
  1.  X XY
  1.  S DX=53                                        ; ACR*2.1*13.02 IM13574
  1.  X XY                                           ; ACR*2.1*13.02 IM13574
  1.  W *7,@AFSLRVON                                 ; ACR*2.1*13.02 IM13574
  1.  S DIR(0)="L^1:"_AFSLTDCT                       ; ACR*2.1*13.02 IM13574
  1.  S DIR("A")="ENTER SEQ# OR ""^"" TO ABORT ^//"  ; ACR*2.1*13.02 IM13574
  1.  D DIR^ACRFDIC                                  ; ACR*2.1*13.02 IM13574
  1.  W @AFSLRVOF                                    ; ACR*2.1*13.02 IM13574
  1.  I $D(ACRQUIT)!($D(ACROUT)) D  G FINI           ; ACR*2.1*13.02 IM13574
  1.  .S AFSLCONT=U                                  ; ACR*2.1*13.02 IM13574
  1.  S AFSLDOCC=Y                                   ; ACR*2.1*13.02 IM13574
  1.  I AFSLDOCC'?.N!(AFSLDOCC>AFSLTDCT)!(AFSLDOCC<1) D  G SELDOC
  1.  .S DY=23
  1.  .S DX=7
  1.  .X XY
  1.  .W @AFSLRVON                                   ; ACR*2.1*13.02 IM13574
  1.  .W *7,"**** MUST ENTER ONE OF THE SEQUENCE NUMBERS ABOVE OR ""^"" ****"
  1.  W @AFSLRVOF
  1.  S AFSLDOCC=$P(^TMP("AFSLOTMP",$J,+AFSLDOCC),U,3)
  1.  S Y=1
  1. FINI ;
  1.  I '$D(Y) Q
  1.  I Y=-1 S AFSLDOCC=""
  1.  QUIT
  1. DSPDOCS ;
  1.  S DY=DY+1
  1.  I DY=20 D
  1.  .W *7
  1.  .S DIR(0)="YO"
  1.  .S DIR("A",1)="ENTER '^' TO STOP VIEWING"
  1.  .S DIR("A")="PRESS RETURN FOR MORE"
  1.  .D ^DIR
  1.  .S AFSLENUF=X
  1.  .F L=7:1:21 D
  1.  ..S DY=L
  1.  ..S DX=2
  1.  ..X XY
  1.  ..W "                                                                            "
  1.  I DY=21 S DY=7
  1.  S:$P(^TMP("AFSLOTMP",$J,I),U,13)="" $P(^TMP("AFSLOTMP",$J,I),U,13)="000000000000"
  1.  S AFSLTDOL=$P(^TMP("AFSLOTMP",$J,I),U,13)
  1.  S AFSLTDOL=$E(AFSLTDOL,2,11)_"."_$E(AFSLTDOL,12,13)
  1.  S $P(^TMP("AFSLOTMP",$J,I),U,13)=AFSLTDOL
  1.  K AFSLX
  1.  S AFSLX=^TMP("AFSLOTMP",$J,I)
  1.  S DX=2
  1.  X XY
  1.  W $P(AFSLX,U,1)
  1.  S DX=8
  1.  X XY
  1.  W $P(AFSLX,U,2)
  1.  S DX=14
  1.  X XY
  1.  W $P(AFSLX,U,4)
  1.  S DX=27
  1.  X XY
  1.  W $P(AFSLX,U,12)
  1.  S DX=36
  1.  X XY
  1.  W $P(AFSLX,U,6)
  1.  S DX=45
  1.  X XY
  1.  W $P(AFSLX,U,7)
  1.  S DX=53
  1.  X XY
  1.  W $P(AFSLX,U,9)
  1.  S DX=59
  1.  X XY
  1.  W $P(AFSLX,U,8)
  1.  S DX=63
  1.  X XY
  1.  W $P(AFSLX,U,13)
  1.  Q
  1. XXX ;
  1.  ;I '$D(^AFSLODOC(AFSLYNOD,1,"B",AFSLDOC)) S Y=-1 G FINI
  1.  F  S AFSLDNXS=$O(^AFSLODOC(AFSLYNOD,1,"B",AFSLDOC,AFSLDNXS)) Q:'AFSLDNXS  D
  1.  .S AFSLDNOD=AFSLDNXS
  1.  .K AFSLX
  1.  .S $P(AFSLX,U,1)=AFSLTDCT
  1.  .S $P(AFSLX,U,2)=$P($G(^AFSLODOC(AFSLYNOD,1,AFSLDNOD,2)),U,1)
  1.  .S $P(AFSLX,U,3)=AFSLDNOD
  1.  .S $P(AFSLX,U,4)=^AFSLODOC(AFSLYNOD,1,AFSLDNOD,0)
  1.  .S ^TMP("AFSLOTMP",$J,AFSLTDCT)=AFSLX
  1.  .S AFSLTDCT=AFSLTDCT+1
  1.  Q