FSCMR ;SLC/STAFF-NOIS Most Recent ;9/6/98 21:23
;;1.1;NOIS;;Sep 06, 1998
;
MRE(USER,CALL) ; from FSCEF, FSCELID, FSCES, FSCLMPE1, FSCRPCEB, FSCRPCEC, FSCRPCEN, FSCRPCNC, FSCRPCPF
N DA,DIE,DIK,DR,X,Y
S DA=$G(^FSCD("MRE","AUC",USER,CALL))
I DA D
.S DR="1///"_$$NOW^XLFDT
.S DIE="^FSCD(""MRE"","
.D ^DIE
E D
.L +^FSCD("MRE",0):5 I '$T Q
.S DA=1+$P(^FSCD("MRE",0),U,3)
.F Q:'$D(^FSCD("MRE",DA,0)) S DA=DA+1
.S $P(^FSCD("MRE",0),U,3)=DA,$P(^(0),U,4)=$P(^(0),U,4)+1
.S ^FSCD("MRE",DA,0)=USER_U_$$NOW^XLFDT_U_CALL
.L -^FSCD("MRE",0)
.S DIK="^FSCD(""MRE"","
.D IX1^DIK
Q
;
MRA(USER,CALL) ; from FSCNAR, FSCRPCAP
N DA,DIE,DIK,DR,X,Y
S DA=$G(^FSCD("MRA","AUC",USER,CALL))
I DA D
.S DR="1///"_$$NOW^XLFDT
.S DIE="^FSCD(""MRA"","
.D ^DIE
E D
.L +^FSCD("MRA",0):5 I '$T Q
.S DA=1+$P(^FSCD("MRA",0),U,3)
.F Q:'$D(^FSCD("MRA",DA,0)) S DA=DA+1
.S $P(^FSCD("MRA",0),U,3)=DA,$P(^(0),U,4)=$P(^(0),U,4)+1
.S ^FSCD("MRA",DA,0)=USER_U_$$NOW^XLFDT_U_CALL
.L -^FSCD("MRA",0)
.S DIK="^FSCD(""MRA"","
.D IX1^DIK
Q
;
MRU(USER,LIST,INDEX) ; from FSCLM, FSCLMPC, FSCLMPQU, FSCRPCL, FSCRPCSL, FSCRPCSL
S INDEX=+$G(INDEX)
N DA,DIE,DIK,DR,X,Y
S DA=+$G(^FSCD("MRU","AUL",USER,LIST,INDEX))
I DA D
.S DR="1///"_$$NOW^XLFDT
.S DIE="^FSCD(""MRU"","
.D ^DIE
E D
.L +^FSCD("MRU",0):5 I '$T Q
.S DA=1+$P(^FSCD("MRU",0),U,3)
.F Q:'$D(^FSCD("MRU",DA,0)) S DA=DA+1
.S $P(^FSCD("MRU",0),U,3)=DA,$P(^(0),U,4)=$P(^(0),U,4)+1
.S ^FSCD("MRU",DA,0)=USER_U_$$NOW^XLFDT_U_LIST_U_INDEX
.L -^FSCD("MRU",0)
.S DIK="^FSCD(""MRU"","
.D IX1^DIK
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HFSCMR 1610 printed Dec 13, 2024@02:18:40 Page 2
FSCMR ;SLC/STAFF-NOIS Most Recent ;9/6/98 21:23
+1 ;;1.1;NOIS;;Sep 06, 1998
+2 ;
MRE(USER,CALL) ; from FSCEF, FSCELID, FSCES, FSCLMPE1, FSCRPCEB, FSCRPCEC, FSCRPCEN, FSCRPCNC, FSCRPCPF
+1 NEW DA,DIE,DIK,DR,X,Y
+2 SET DA=$GET(^FSCD("MRE","AUC",USER,CALL))
+3 IF DA
Begin DoDot:1
+4 SET DR="1///"_$$NOW^XLFDT
+5 SET DIE="^FSCD(""MRE"","
+6 DO ^DIE
End DoDot:1
+7 IF '$TEST
Begin DoDot:1
+8 LOCK +^FSCD("MRE",0):5
IF '$TEST
QUIT
+9 SET DA=1+$PIECE(^FSCD("MRE",0),U,3)
+10 FOR
if '$DATA(^FSCD("MRE",DA,0))
QUIT
SET DA=DA+1
+11 SET $PIECE(^FSCD("MRE",0),U,3)=DA
SET $PIECE(^(0),U,4)=$PIECE(^(0),U,4)+1
+12 SET ^FSCD("MRE",DA,0)=USER_U_$$NOW^XLFDT_U_CALL
+13 LOCK -^FSCD("MRE",0)
+14 SET DIK="^FSCD(""MRE"","
+15 DO IX1^DIK
End DoDot:1
+16 QUIT
+17 ;
MRA(USER,CALL) ; from FSCNAR, FSCRPCAP
+1 NEW DA,DIE,DIK,DR,X,Y
+2 SET DA=$GET(^FSCD("MRA","AUC",USER,CALL))
+3 IF DA
Begin DoDot:1
+4 SET DR="1///"_$$NOW^XLFDT
+5 SET DIE="^FSCD(""MRA"","
+6 DO ^DIE
End DoDot:1
+7 IF '$TEST
Begin DoDot:1
+8 LOCK +^FSCD("MRA",0):5
IF '$TEST
QUIT
+9 SET DA=1+$PIECE(^FSCD("MRA",0),U,3)
+10 FOR
if '$DATA(^FSCD("MRA",DA,0))
QUIT
SET DA=DA+1
+11 SET $PIECE(^FSCD("MRA",0),U,3)=DA
SET $PIECE(^(0),U,4)=$PIECE(^(0),U,4)+1
+12 SET ^FSCD("MRA",DA,0)=USER_U_$$NOW^XLFDT_U_CALL
+13 LOCK -^FSCD("MRA",0)
+14 SET DIK="^FSCD(""MRA"","
+15 DO IX1^DIK
End DoDot:1
+16 QUIT
+17 ;
MRU(USER,LIST,INDEX) ; from FSCLM, FSCLMPC, FSCLMPQU, FSCRPCL, FSCRPCSL, FSCRPCSL
+1 SET INDEX=+$GET(INDEX)
+2 NEW DA,DIE,DIK,DR,X,Y
+3 SET DA=+$GET(^FSCD("MRU","AUL",USER,LIST,INDEX))
+4 IF DA
Begin DoDot:1
+5 SET DR="1///"_$$NOW^XLFDT
+6 SET DIE="^FSCD(""MRU"","
+7 DO ^DIE
End DoDot:1
+8 IF '$TEST
Begin DoDot:1
+9 LOCK +^FSCD("MRU",0):5
IF '$TEST
QUIT
+10 SET DA=1+$PIECE(^FSCD("MRU",0),U,3)
+11 FOR
if '$DATA(^FSCD("MRU",DA,0))
QUIT
SET DA=DA+1
+12 SET $PIECE(^FSCD("MRU",0),U,3)=DA
SET $PIECE(^(0),U,4)=$PIECE(^(0),U,4)+1
+13 SET ^FSCD("MRU",DA,0)=USER_U_$$NOW^XLFDT_U_LIST_U_INDEX
+14 LOCK -^FSCD("MRU",0)
+15 SET DIK="^FSCD(""MRU"","
+16 DO IX1^DIK
End DoDot:1
+17 QUIT
