source: WorldVistAEHR/trunk/r/REMOTE_ORDER_ENTRY_SYSTEM-RMPF-RMPJ/RMPFQP4.m@ 1211

Last change on this file since 1211 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.2 KB
Line 
1RMPFQP4 ;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
5PRINT S RMPFOD=DT,RMPFDC=""
6 D ^RMPFQP1,^RMPFDD2,HEAD^RMPFQP3,HEAD1^RMPFQP3,ELG^RMPFQP3,P1^RMPFQP3
7 G END:$D(RMPFOUT) D AUTH^RMPFQP2
8END Q
9KIL 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
18AUTH S RMPFZ=0
19A1 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
27AUTHE Q
Note: See TracBrowser for help on using the repository browser.