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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HRMPFQM 774 printed Dec 13, 2024@02:36:48 Page 2
RMPFQM ;DDC/KAW-LOAD DDC MESSAGES [ 04/01/98 12:26 PM ]
+1 ;;2.0;REMOTE ORDER/ENTRY SYSTEM;**2,10,11,16**;JUN 16, 1995
+2 ;;Reference to ^XMB(3.9) supported by DBIA #247
+3 SET MD=$PIECE($PIECE(^XMB(3.9,XMZ,0),U,1),"GOV-",2)
SET CT=1
SET XQSTXT(CT)=" "
+4 SET CT=CT+1
SET XQSTXT(CT)=" ROES ORDER UPDATES"
+5 SET CT=CT+1
SET XQSTXT(CT)=" "
+6 SET CT=CT+1
SET XQSTXT(CT)=" PATIENT TYPE STATUS ITEM(S) SHIP BY"
+7 SET CT=CT+1
SET XQSTXT(CT)="-------------------- ------ ------ ------------------------------ ----------"
+8 SET CT=CT+1
SET XQSTXT(CT)=" "
+9 FOR IR=1:1
XECUTE XMREC
if XMER=-1
QUIT
DO LOAD^RMPFQM1
if XMER=-1
QUIT
END KILL XMZ,S0,MD,NM,SX,RMPFX,X,DIC,DA,DA(1),DLAYGO,X,Y,IX,A,VADM,VA,VAERR
+1 KILL RMPFQUT,RMPFHAT,ZTSK,IN,I,X,Y,Z
QUIT
+2 KILL %,%DT,%Y,%Z,K,RMPFY,XMDUZ,XMK
QUIT
