| 1 | RMPFQP4 ;DDC/KAW-PRINT VA FORM 10-2477a [ 06/16/95 3:06 PM ]
|
|---|
| 2 | ;;2.0;REMOTE ORDER/ENTRY SYSTEM;;JUN 16, 1995
|
|---|
| 3 | F KX=1:1:RMPFCNT D PRINT
|
|---|
| 4 | D KIL G END
|
|---|
| 5 | PRINT S RMPFOD=DT,RMPFDC=""
|
|---|
| 6 | D ^RMPFQP1,^RMPFDD2,HEAD^RMPFQP3,HEAD1^RMPFQP3,ELG^RMPFQP3,P1^RMPFQP3
|
|---|
| 7 | G END:$D(RMPFOUT) D AUTH^RMPFQP2
|
|---|
| 8 | END Q
|
|---|
| 9 | KIL K RMPFRSTA,RMPFR,RMPFS,RMPFNAM,RMPFF,RMPFA,RMPFOUT,RMPFQUT,RMPFMSG
|
|---|
| 10 | K RMPFSSN,RMPFCL,RMPFDOB,RMPFDC,RMPFTF,RMPFUS,RMPFREP,RMPFADP
|
|---|
| 11 | K RMPFODP,RMPFSTP,RMPFAD,RMPFAP,RMPFAPD,RMPFAPP,RMPFBAT2,AD,ED,SD
|
|---|
| 12 | K RMPFDOD,RMPFDR,RMPFELG,RMPFELS,RMPFIDP,RMPFL,RMPFST,RMPFT,RMPFCARE
|
|---|
| 13 | K RMPFTDP,RMPFOD,RMPFDDC,RMPFRMK,RMPFTED,RMPFTSD,RMPFTYP,RMPFCAR
|
|---|
| 14 | K RMPFUR,RMPFURP,RMPFVET,RMPFID,RMPFELGD,RMPFELD,RMPFELP,RMPFCUR
|
|---|
| 15 | K RMPFERR,RMPFINV,RMPFPO,RMPFRDC,RMPFTP,RMPFTYPP,RMPFTA,SA
|
|---|
| 16 | K DOB,SSN,RMPFCX,RMPFAD,S0,S3,S6,ST,IN,A,B,C,D,S,T,Z,I,N,P,X,Y,%
|
|---|
| 17 | Q
|
|---|
| 18 | AUTH S RMPFZ=0
|
|---|
| 19 | A1 S RMPFZ=$O(^RMPF(791810,RMPFX,301,RMPFZ)) G AUTHE:'RMPFZ
|
|---|
| 20 | G A1:'$D(^RMPF(791810,RMPFX,301,RMPFZ,0)) S S0=^(0)
|
|---|
| 21 | S MK=$E($P(S0,U,2),1,16),MD=$E($P(S0,U,1),1,15),SN=$E($P(S0,U,4),1,15)
|
|---|
| 22 | S FB=$E($P(S0,U,9),1,16),ID=$P(S0,U,3)
|
|---|
| 23 | I ID S Y=ID D DD^%DT S ID=Y
|
|---|
| 24 | W !,MK,?16,"|",?17,MD,?32,"|",?33,SN,?48,"|",?49,FB,?64,"|",?65,ID
|
|---|
| 25 | D LINE^RMPFQP3
|
|---|
| 26 | G A1
|
|---|
| 27 | AUTHE Q
|
|---|
