RMPFQM.m

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 ---RMPFQM   774     printed  Apr 09, 2024@21:39:15                                                                                                                                                                                                       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