- 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 Mar 13, 2025@21:23:38 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
