| [613] | 1 | RTTR11 ;ALB/PKE,JLU - THE SECOND HALF OF RTTR1 ; 3/6/91
|
|---|
| 2 | ;;v 2.0;Record Tracking;;10/22/91
|
|---|
| 3 | ;
|
|---|
| 4 | PY8 W $C(13),"| 8. TYPE OF TRANSFER [",XMB(CT),"] Permanent [",XMB(CT+1),"] Temporary",?$X+28,"|"
|
|---|
| 5 | Q
|
|---|
| 6 | ;
|
|---|
| 7 | PY11 W $C(13),"| 11a. Transfer Claims Folder [",XMB(CT),"] CL",?$X+41,"|"
|
|---|
| 8 | Q
|
|---|
| 9 | PY13 W $C(13),"| [",XMB(CT),"] LG [",XMB(CT+1),"] PG [",XMB(CT+2),"] OPT [",XMB(CT+3),"] REC [",XMB(CT+4),"] CORRESP [",XMB(CT+5),"] RAY",?$X+23,"|"
|
|---|
| 10 | Q
|
|---|
| 11 | ;
|
|---|
| 12 | PY13A W !,"|",?79,"|",!,"|",?24,"COUNSELING/TRAINING",?79,"|"
|
|---|
| 13 | Q
|
|---|
| 14 | ;
|
|---|
| 15 | PY13B W $C(13),"| [",XMB(CT+6),"] R&E [",XMB(CT+7),"] INS [",XMB(CT+8),"] SUBFOLDER [",XMB(CT+9),"] (specify)",?$X+31,"|"
|
|---|
| 16 | Q
|
|---|
| 17 | ;
|
|---|
| 18 | PY13C W !,"| Specify:",XMB(300)
|
|---|
| 19 | Q
|
|---|
| 20 | ;
|
|---|
| 21 | PY13D W !,"| 13. OTHER FOLDER TRANSFER",?$X+51,"|"
|
|---|
| 22 | W !,"|",?31,"MED",?40,"HOSP",?53,"X-",?79,"|"
|
|---|
| 23 | Q
|
|---|
| 24 | ;
|
|---|
| 25 | PL14 W !,"| 14. Reason for Transfer or Remarks",?79,"|"
|
|---|
| 26 | Q
|
|---|
| 27 | ;
|
|---|
| 28 | PL14A I XMB(CT)="" W $C(13),"| ",?$X+74,"|"
|
|---|
| 29 | E W $C(13),"| ",XMB(CT)
|
|---|
| 30 | Q
|
|---|
| 31 | ;
|
|---|
| 32 | PL14B I XMB(CT+1)="" W $C(13),"| ",?$X+74,"|"
|
|---|
| 33 | E W $C(13),"| ",XMB(CT+1)
|
|---|
| 34 | Q
|
|---|
| 35 | ;
|
|---|
| 36 | PL15 W $C(13),"| 15. Adjudication Action pending [",XMB(CT),"] YES [",XMB(CT+1),"] NO",?$X+27,"|"
|
|---|
| 37 | Q
|
|---|
| 38 | ;
|
|---|
| 39 | Y7 S CT=9
|
|---|
| 40 | ;7 beneficary master record NOT USED
|
|---|
| 41 | I RTVAR['7
|
|---|
| 42 | E S DIR("A")="",DIR(0)="" D ^DIR K DIR I 0
|
|---|
| 43 | E S XMB(CT)="X"
|
|---|
| 44 | ;
|
|---|
| 45 | Y8 ;8 TYPE OF TRANSFER
|
|---|
| 46 | S CT=10 D LINE^RTUTL3
|
|---|
| 47 | ;A nothing added to prompt, B choices added
|
|---|
| 48 | S (RTV,DIR("A"))="| 8. TYPE OF TRANSFER [ ] Permanent [ ] Temporary ? ",DIR("B")="T",DIR(0)="SOA^P:Permanent;T:Temporary"
|
|---|
| 49 | D ^DIR K DIR I $D(DUOUT)!($D(DTOUT)) Q
|
|---|
| 50 | S XMB(CT)=$S(Y="P":"X",1:"")
|
|---|
| 51 | S XMB(CT+1)=$S(Y="T":"X",1:"")
|
|---|
| 52 | D PY8
|
|---|
| 53 | Q:$D(RTKEY)
|
|---|
| 54 | ;
|
|---|
| 55 | Y9 ;9 other file number logic for not used fields
|
|---|
| 56 | S CT=11
|
|---|
| 57 | I RTVAR'[9
|
|---|
| 58 | E S DIR("A")="9. Other File NO. ? ",DIR(0)="FOA^1:20" D ^DIR K DIR I 0
|
|---|
| 59 | E S XMB(CT)=Y
|
|---|
| 60 | ;
|
|---|
| 61 | Y11 ;11 TRANSFER CLAIMS FOLDER
|
|---|
| 62 | S CT=12 D LINE^RTUTL3
|
|---|
| 63 | S (RTV,DIR("A"))="| 11a. Transfer Claims Folder [ ] CL ? ",DIR("B")="NO",DIR(0)="YOA^"
|
|---|
| 64 | D ^DIR K DIR I $D(DUOUT)!($D(RTOUT)) Q
|
|---|
| 65 | S XMB(CT)=$S(Y=1:"X",1:" ")
|
|---|
| 66 | D PY11
|
|---|
| 67 | ;
|
|---|
| 68 | Y11B ;11B Transfer DEA folder not used
|
|---|
| 69 | S CT=13
|
|---|
| 70 | I RTVAR'[9
|
|---|
| 71 | E S DIR("A")="| 11b. Transfer DEA folder ?",DIR("B")="",DIR(0)="YOA^" D ^DIR K DIR I 0
|
|---|
| 72 | E S XMB(CT)="X"
|
|---|
| 73 | ;
|
|---|
| 74 | Y12 ;12A date of transfer, 12b rec station, 12c tranf station, 12 d paye no
|
|---|
| 75 | ;only appears after a transfer to
|
|---|
| 76 | ;S CT=14
|
|---|
| 77 | ;
|
|---|
| 78 | Y13 ;13 other folder transfer
|
|---|
| 79 | S CT=21 D LINE^RTUTL3
|
|---|
| 80 | F Z=CT:1:CT+9 S XMB(CT)=" "
|
|---|
| 81 | D PY13D
|
|---|
| 82 | S DIR("A")="| [1] LG [2] PG [3] OPT [4] REC [5] CORRESP [6] RAY Number(s) "
|
|---|
| 83 | S DIR(0)="LOA^0:6" D ^DIR K DIR I $D(DUOUT)!($D(DTOUT)) Q
|
|---|
| 84 | F Z=1:1:6 S XMB(20+Z)=$S(Y[Z:"X",1:" ") ;hard set of 20 instead of CT
|
|---|
| 85 | D PY13,PY13A
|
|---|
| 86 | S DIR("A")="| [7] R&E [8] INS [9] SUBFOLDER [10] (specify) Number(s) "
|
|---|
| 87 | S DIR(0)="LOA^7:10" D ^DIR I $D(DUOUT)!($D(DTOUT)) Q
|
|---|
| 88 | F Z=7:1:10 S XMB(20+Z)=$S(Y[Z:"X",1:" ") ;hard set 20
|
|---|
| 89 | S XMB(300)=""
|
|---|
| 90 | D PY13B
|
|---|
| 91 | I XMB(30)="X" K DIR S DIR("A")="| Specify:",DIR(0)="FOA^1:30" D ^DIR S XMB(300)=Y
|
|---|
| 92 | S CT=1 D PT^RTTR1
|
|---|
| 93 | S CT=2 D PN^RTTR1
|
|---|
| 94 | S CT=5 D PN1^RTTR1,PN2^RTTR1
|
|---|
| 95 | S CT=6 D PY5^RTTR1
|
|---|
| 96 | S CT=8 D PY6^RTTR1
|
|---|
| 97 | S CT=10 D LINE^RTUTL3 W ! D PY8
|
|---|
| 98 | S CT=12 D LINE^RTUTL3 W ! D PY11
|
|---|
| 99 | S CT=21 D LINE^RTUTL3,PY13D W ! D PY13,PY13A W ! D PY13B,PY13C
|
|---|
| 100 | ;
|
|---|
| 101 | L14 ;14 reason transfer/or remarks
|
|---|
| 102 | S CT=31
|
|---|
| 103 | D LINE^RTUTL3,PL14
|
|---|
| 104 | S DIR("A")="| ",DIR(0)="FOA^1:70" D ^DIR I $D(DUOUT)!($D(DTOUT)) Q
|
|---|
| 105 | S XMB(CT)=Y K Y
|
|---|
| 106 | D PL14A
|
|---|
| 107 | I X'="" S DIR("A")="| " D ^DIR I $D(DUOUT)!($D(DTOUT)) Q
|
|---|
| 108 | S XMB(CT+1)=$S($D(Y):Y,1:"")
|
|---|
| 109 | D PL14B K DIR
|
|---|
| 110 | I $D(RTKEY) Q
|
|---|
| 111 | L15 ;15 ajudication action pending ?
|
|---|
| 112 | S CT=33
|
|---|
| 113 | D LINE^RTUTL3
|
|---|
| 114 | S DIR("A")="| 15. Adjudication Action pending [Y] YES [N] NO ? ",DIR("B")="NO",DIR(0)="YOA^"
|
|---|
| 115 | D ^DIR I $D(DUOUT)!($D(DTOUT)) Q
|
|---|
| 116 | S XMB(CT)=$S(Y=1:"X",1:"")
|
|---|
| 117 | S XMB(CT+1)=$S('Y:"X",1:"")
|
|---|
| 118 | D PL15
|
|---|
| 119 | K DIR
|
|---|
| 120 | Q
|
|---|
