14 lines
761 B
Mathematica
14 lines
761 B
Mathematica
RMPFQM ;DDC/KAW-LOAD DDC MESSAGES [ 04/01/98 12:26 PM ]
|
|
;;2.0;REMOTE ORDER/ENTRY SYSTEM;**2,10,11,16**;JUN 16, 1995
|
|
;;Reference to ^XMB(3.9) supported by DBIA #247
|
|
S MD=$P($P(^XMB(3.9,XMZ,0),U,1),"GOV-",2),CT=1,XQSTXT(CT)=" "
|
|
S CT=CT+1,XQSTXT(CT)=" ROES ORDER UPDATES"
|
|
S CT=CT+1,XQSTXT(CT)=" "
|
|
S CT=CT+1,XQSTXT(CT)=" PATIENT TYPE STATUS ITEM(S) SHIP BY"
|
|
S CT=CT+1,XQSTXT(CT)="-------------------- ------ ------ ------------------------------ ----------"
|
|
S CT=CT+1,XQSTXT(CT)=" "
|
|
F IR=1:1 X XMREC Q:XMER=-1 D LOAD^RMPFQM1 Q:XMER=-1
|
|
END K XMZ,S0,MD,NM,SX,RMPFX,X,DIC,DA,DA(1),DLAYGO,X,Y,IX,A,VADM,VA,VAERR
|
|
K RMPFQUT,RMPFHAT,ZTSK,IN,I,X,Y,Z Q
|
|
K %,%DT,%Y,%Z,K,RMPFY,XMDUZ,XMK Q
|