source: FOIAVistA/trunk/r/REMOTE_ORDER_ENTRY_SYSTEM-RMPF-RMPJ/RMPFPRE1.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: 510 bytes
Line 
1RMPFPRE1 ;DDC/KAW-CONTINUATION OF RMPFPRE [ 06/16/95 3:06 PM ]
2 ;;2.0;REMOTE ORDER/ENTRY SYSTEM;;JUN 16, 1995
3 F IX=1:1:8 S ST=$T(STAT+IX) D
4 .S DA=$P(ST,";",3),X=$P(ST,";",4)
5 .S DIE="^RMPF(791810.2,",DR=".01////"_X D ^DIE
6 S X=18 F S X=$O(^RMPF(791810.2,X)) Q:'X S $P(^RMPF(791810.2,X,0),U,3)=1
7END K IX,ST,X,D,D0,DA,DI,DIC,DIE,DQ,DR Q
8STAT ;;STATUS NAME CHANGES
9 ;;11;CANCELED
10 ;;12;CER-TRANS
11 ;;13;ORD-TRANS
12 ;;14;ADJ-TRANS
13 ;;15;ISS-TRANS
14 ;;16;CAN-TRANS
15 ;;17;CERTIFICATION PENDING
16 ;;18;BACKORDERED
Note: See TracBrowser for help on using the repository browser.