RMPFQT1 ;DDC/KAW-QUEUE A BATCH FOR TRANSMISSION [ 05/21/99 11:38 AM ]
Source file <RMPFQT1.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| DOMAIN | ||
| BUILD | ||
| END | ||
| SET | ; input: RMPFX,RMPFBT,CZ
|
|
| MOD | ||
| SETE | ||
| DEL | ||
| S04 | ;;Q:'X N I,J S DFN=X D DEM^VADPT S X=$P(VADM(1),U,1) K VADM,DFN
|
|
| S05 | ;;I X,$D(^VA(200,X,0)) S X=$P(^(0),U,1)
|
|
| S08 | ;;I X,$D(^VA(200,X,0)) S X=$P(^(0),U,1)
|
|
| S010 | ;;I X,$D(^VA(200,X,0)) S X=$P(^(0),U,1)
|
|
| S012 | ;;I X,$D(^RMPF(791812,X,0)) S X=$P(^(0),U,1)
|
|
| S106 | ;;I X,$D(^VA(200,X,0)) S X=$P(^(0),U,1)
|
|
| S15 | ;;I X,$D(^DIC(5,X,0)) S X=$P(^(0),U,2)
|
|
| S21 | ;;I X,$D(^RMPR(662,X,0)) S X=$P(^(0),U,1)
|
|
| S22 | ;;I X,$D(^RMPF(791810.4,X,0)) S X=$P(^(0),U,1)
|
|
| S23 | ;;I X,$D(^VA(200,X,0)) S X=$P(^(0),U,1)
|
|
| S26 | ;;I X,$D(^RMPF(791810.4,X,0)) S X=$P(^(0),U,1)
|
|
| S27 | ;;I X,$D(^VA(200,X,0)) S X=$P(^(0),U,1)
|
|
| M01 | ;;I X,$D(^RMPF(791811,X,0)) S Y=X,X=$P(^(0),U,1),YY=$P(^(0),U,2) I X'="NON-CONTRACT" S $P(^RMPF(791810,RMPFX,101,RMPFY,2),U,1)=YY
|
|
| M02 | ;;I X,$D(^RMPF(791811.3,X,0)) S X=$P(^(0),U,1)
|
|
| M018 | ;;I X,$D(^RMPF(791810.2,X,0)) S X=$P(^(0),U,1)
|
|
| M23 | ;;I X,$D(^RMPF(791811.3,X,0)) S X=$P(^(0),U,1)
|
|
| M24 | ;;I X,$D(^RMPF(791811.1,X,0)) S X=$P(^(0),U,1)
|
|
| M26 | ;;I X S X=$P($G(^RMPF(791811.4,X,0)),U,2)
|
|
| M32 | ;;I X S X=$P($G(^RMPR(662,X,0)),U,1)
|
|
| M901 | ;;I X,$D(^VA(200,X,0)) S X=$P(^(0),U,1)
|
|
| M908 | ;;I X,$D(^VA(200,X,0)) S X=$P(^(0),U,1)
|
|
| M9010 | ;;I X,$D(^VA(200,X,0)) S X=$P(^(0),U,1)
|
|
| M9012 | ;;I X,$D(^VA(200,X,0)) S X=$P(^(0),U,1)
|
|
| M9013 | ;;I X,$D(^VA(200,X,0)) S X=$P(^(0),U,1)
|
|
| M9014 | ;;I X,$D(^RMPF(791810.6,X,0)) S X=$P(^(0),U,1)
|
|
| C01 | ;;I X,$D(^RMPF(791811.2,X,0)) S X=$P(^(0),U,3)
|
|
| C05 | ;;I X,$D(^VA(200,X,0)) S X=$P(^(0),U,1)
|
| FileNo | Call Tags |
|---|---|
| ^RMPF(791810 - [#791810] | Classic Fileman Calls |
