| [613] | 1 | FSCMR ;SLC/STAFF-NOIS Most Recent ;9/6/98 21:23
|
|---|
| 2 | ;;1.1;NOIS;;Sep 06, 1998
|
|---|
| 3 | ;
|
|---|
| 4 | MRE(USER,CALL) ; from FSCEF, FSCELID, FSCES, FSCLMPE1, FSCRPCEB, FSCRPCEC, FSCRPCEN, FSCRPCNC, FSCRPCPF
|
|---|
| 5 | N DA,DIE,DIK,DR,X,Y
|
|---|
| 6 | S DA=$G(^FSCD("MRE","AUC",USER,CALL))
|
|---|
| 7 | I DA D
|
|---|
| 8 | .S DR="1///"_$$NOW^XLFDT
|
|---|
| 9 | .S DIE="^FSCD(""MRE"","
|
|---|
| 10 | .D ^DIE
|
|---|
| 11 | E D
|
|---|
| 12 | .L +^FSCD("MRE",0):5 I '$T Q
|
|---|
| 13 | .S DA=1+$P(^FSCD("MRE",0),U,3)
|
|---|
| 14 | .F Q:'$D(^FSCD("MRE",DA,0)) S DA=DA+1
|
|---|
| 15 | .S $P(^FSCD("MRE",0),U,3)=DA,$P(^(0),U,4)=$P(^(0),U,4)+1
|
|---|
| 16 | .S ^FSCD("MRE",DA,0)=USER_U_$$NOW^XLFDT_U_CALL
|
|---|
| 17 | .L -^FSCD("MRE",0)
|
|---|
| 18 | .S DIK="^FSCD(""MRE"","
|
|---|
| 19 | .D IX1^DIK
|
|---|
| 20 | Q
|
|---|
| 21 | ;
|
|---|
| 22 | MRA(USER,CALL) ; from FSCNAR, FSCRPCAP
|
|---|
| 23 | N DA,DIE,DIK,DR,X,Y
|
|---|
| 24 | S DA=$G(^FSCD("MRA","AUC",USER,CALL))
|
|---|
| 25 | I DA D
|
|---|
| 26 | .S DR="1///"_$$NOW^XLFDT
|
|---|
| 27 | .S DIE="^FSCD(""MRA"","
|
|---|
| 28 | .D ^DIE
|
|---|
| 29 | E D
|
|---|
| 30 | .L +^FSCD("MRA",0):5 I '$T Q
|
|---|
| 31 | .S DA=1+$P(^FSCD("MRA",0),U,3)
|
|---|
| 32 | .F Q:'$D(^FSCD("MRA",DA,0)) S DA=DA+1
|
|---|
| 33 | .S $P(^FSCD("MRA",0),U,3)=DA,$P(^(0),U,4)=$P(^(0),U,4)+1
|
|---|
| 34 | .S ^FSCD("MRA",DA,0)=USER_U_$$NOW^XLFDT_U_CALL
|
|---|
| 35 | .L -^FSCD("MRA",0)
|
|---|
| 36 | .S DIK="^FSCD(""MRA"","
|
|---|
| 37 | .D IX1^DIK
|
|---|
| 38 | Q
|
|---|
| 39 | ;
|
|---|
| 40 | MRU(USER,LIST,INDEX) ; from FSCLM, FSCLMPC, FSCLMPQU, FSCRPCL, FSCRPCSL, FSCRPCSL
|
|---|
| 41 | S INDEX=+$G(INDEX)
|
|---|
| 42 | N DA,DIE,DIK,DR,X,Y
|
|---|
| 43 | S DA=+$G(^FSCD("MRU","AUL",USER,LIST,INDEX))
|
|---|
| 44 | I DA D
|
|---|
| 45 | .S DR="1///"_$$NOW^XLFDT
|
|---|
| 46 | .S DIE="^FSCD(""MRU"","
|
|---|
| 47 | .D ^DIE
|
|---|
| 48 | E D
|
|---|
| 49 | .L +^FSCD("MRU",0):5 I '$T Q
|
|---|
| 50 | .S DA=1+$P(^FSCD("MRU",0),U,3)
|
|---|
| 51 | .F Q:'$D(^FSCD("MRU",DA,0)) S DA=DA+1
|
|---|
| 52 | .S $P(^FSCD("MRU",0),U,3)=DA,$P(^(0),U,4)=$P(^(0),U,4)+1
|
|---|
| 53 | .S ^FSCD("MRU",DA,0)=USER_U_$$NOW^XLFDT_U_LIST_U_INDEX
|
|---|
| 54 | .L -^FSCD("MRU",0)
|
|---|
| 55 | .S DIK="^FSCD(""MRU"","
|
|---|
| 56 | .D IX1^DIK
|
|---|
| 57 | Q
|
|---|
