source: FOIAVistA/trunk/r/REMOTE_ORDER_ENTRY_SYSTEM-RMPF-RMPJ/RMPFQM.m@ 1757

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

initial load of FOIAVistA 6/30/08 version

File size: 761 bytes
Line 
1RMPFQM ;DDC/KAW-LOAD DDC MESSAGES [ 04/01/98 12:26 PM ]
2 ;;2.0;REMOTE ORDER/ENTRY SYSTEM;**2,10,11,16**;JUN 16, 1995
3 ;;Reference to ^XMB(3.9) supported by DBIA #247
4 S MD=$P($P(^XMB(3.9,XMZ,0),U,1),"GOV-",2),CT=1,XQSTXT(CT)=" "
5 S CT=CT+1,XQSTXT(CT)=" ROES ORDER UPDATES"
6 S CT=CT+1,XQSTXT(CT)=" "
7 S CT=CT+1,XQSTXT(CT)=" PATIENT TYPE STATUS ITEM(S) SHIP BY"
8 S CT=CT+1,XQSTXT(CT)="-------------------- ------ ------ ------------------------------ ----------"
9 S CT=CT+1,XQSTXT(CT)=" "
10 F IR=1:1 X XMREC Q:XMER=-1 D LOAD^RMPFQM1 Q:XMER=-1
11END K XMZ,S0,MD,NM,SX,RMPFX,X,DIC,DA,DA(1),DLAYGO,X,Y,IX,A,VADM,VA,VAERR
12 K RMPFQUT,RMPFHAT,ZTSK,IN,I,X,Y,Z Q
13 K %,%DT,%Y,%Z,K,RMPFY,XMDUZ,XMK Q
Note: See TracBrowser for help on using the repository browser.