GMRCP96 ;ABV/SCR - Post-Install Routine for patch 96 ;12/8/17 07:36
;;3.0;CONSULT/REQUEST TRACKING;**96**;DEC 27;Build 21; 1997;Build 1
;
;This routine locates a a unique three digit site id used by Community Care and updates the newly added
; GMRC UNIQUE CONSULT SITE ID paramater with the value for this site.
; if a value is not identified, a default value of 999 is used
Q
;
POST ;updates GMRC UNIQUE CONSULT ID paramater with a mapped value
N GMRCSITE,GMRCID
N GMRCHECK ;pij 4/8/2018
;
;*** v8 I am adding a default of 999 to the PARAMETERS file. PIJ 5/3/2018
D EN^XPAR("PKG.CONSULT/REQUEST TRACKING","GMRC UNIQUE CONSULT SITE ID",,999)
;***
;
S GMRCSITE=$P($$SITE^VASITE(),U,3)
S GMRCID=$$GET^XPAR("PKG.CONSULT/REQUEST TRACKING","GMRC UNIQUE CONSULT SITE ID") ;If this value has been set, don't overwrite
;I $G(GMRCID)'="" D
I $G(GMRCID)'=999 D ; We are shipping 999 as a value from #8989.5
.D MES^XPDUTL("Your GMRC UNIQUE CONSULT SITE ID value was found in the PARAMETER file: "_GMRCID)
.I (GMRCID=999) D
..S GMRCID=""
..D MES^XPDUTL("Will look for a mapped value to replace default 999")
;I $G(GMRCID)="" D
I $G(GMRCID)=999 D
.S GMRCID=$$MAPID(GMRCSITE)
.D BMES^XPDUTL()
.D MES^XPDUTL("*********************************")
.D MES^XPDUTL("PLEASE NOTE: Your SITE ID will not be changed.")
.D MES^XPDUTL("The GMRC UNIQUE CONSULT SITE ID parameter will be set.")
.D MES^XPDUTL("*********************************")
.D BMES^XPDUTL()
.D MES^XPDUTL("These are the instructions for the patch installer at your site...")
.D MES^XPDUTL("1. Your SITE ID number is... '"_GMRCSITE_"'")
.D MES^XPDUTL("2. Your GMRC UNIQUE CONSULT SITE ID number is... '"_GMRCID_"'")
.D MES^XPDUTL("3. Please reference the attached Post-Install instructions to verify that the GMRC UNIQUE CONSULT SITE ID is correct")
.D EN^XPAR("PKG.CONSULT/REQUEST TRACKING","GMRC UNIQUE CONSULT SITE ID",,GMRCID)
.;
.D BMES^XPDUTL()
.D MES^XPDUTL("Your GMRC UNIQUE CONSULT SITE ID value has been set in the PARAMETER file: "_$$GET^XPAR("PKG.CONSULT/REQUEST TRACKING","GMRC UNIQUE CONSULT SITE ID"))
D BMES^XPDUTL()
D MES^XPDUTL("If your GMRC UNIQUE CONSULT SITE ID number is '999' please contact IRM for assistance")
Q
;
MAPID(GMRCSITE) ;RETURN A MAPPED 3 DIGIT VALUE FOR A SITE ID - DEFAULT TO 999
; INPUT GMRCSITE IS THE SITE ID
; RETURN: IS THE MAPPED GMRC VISTA SITE ID
N GMRCRTN
N GMRCNXT ;pij 4/8/2018
S GMRCRTN=999
S GMRCNXT=1
F S GMRCNXT=$T(MAP)+GMRCNXT Q:GMRCNXT=0 D
.S GMRCHECK=$P($T(MAP+GMRCNXT),";;",2)
.I $P(GMRCHECK,":",1)=GMRCSITE S GMRCRTN=$P(GMRCHECK,":",2)
.S:GMRCRTN=999 GMRCNXT=GMRCNXT+1
.S:GMRCRTN'=999 GMRCNXT=0
.S:GMRCHECK="" GMRCNXT=0
Q GMRCRTN
MAP ;;ASSOCIATE SITE ID TO THREE DIGIT CC SITE ID
;;402:202
;;405:203
;;518:204
;;523:205
;;608:208
;;631:209
;;650:210
;;689:212
;;526:218
;;528:215
;;528A5:216
;;528A6:214
;;528A7:217
;;528A8:213
;;561:221
;;620:223
;;630:224
;;632:225
;;460:226
;;503:227
;;529:228
;;542:230
;;562:231
;;595:232
;;642:233
;;646:234
;;693:235
;;512:236
;;517:241
;;540:229
;;581:265
;;613:239
;;688:240
;;558:242
;;565:243
;;590:244
;;637:245
;;652:246
;;658:247
;;659:248
;;508:249
;;509:250
;;521:251
;;534:252
;;544:253
;;557:254
;;619:256
;;679:257
;;516:258
;;546:259
;;548:260
;;573:261
;;672:263
;;673:264
;;675:358
;;596:267
;;603:268
;;614:269
;;621:270
;;626:272
;;506:279
;;515:280
;;538:273
;;539:274
;;541:276
;;552:277
;;553:282
;;583:283
;;610:284
;;655:285
;;757:278
;;537:287
;;550:281
;;556:288
;;578:289
;;585:290
;;607:291
;;676:292
;;695:293
;;589:295
;;589A4:294
;;589A5:297
;;589A7:298
;;657:302
;;657A4:300
;;657A5:299
;;502:303
;;520:304
;;564:305
;;580:306
;;586:307
;;598:308
;;629:310
;;667:312
;;504:317
;;519:318
;;549:313
;;671:314
;;674:315
;;740:427
;;756:322
;;436:323
;;442:325
;;554:326
;;575:327
;;623:309
;;635:311
;;660:328
;;666:329
;;463:330
;;531:331
;;648:332
;;653:333
;;663:334
;;668:335
;;687:336
;;692:337
;;459:339
;;570:340
;;593:345
;;612A4:341
;;640:342
;;654:343
;;662:344
;;501:316
;;600:346
;;605:347
;;644:319
;;649:320
;;664:348
;;678:321
;;691:349
;;437:350
;;438:351
;;568:352
;;618:353
;;636:356
;;636A6:354
;;636A8:355
;;656:357
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HGMRCP96 4508 printed Apr 09, 2024@20:50:38 Page 2
GMRCP96 ;ABV/SCR - Post-Install Routine for patch 96 ;12/8/17 07:36
+1 ;;3.0;CONSULT/REQUEST TRACKING;**96**;DEC 27;Build 21; 1997;Build 1
+2 ;
+3 ;This routine locates a a unique three digit site id used by Community Care and updates the newly added
+4 ; GMRC UNIQUE CONSULT SITE ID paramater with the value for this site.
+5 ; if a value is not identified, a default value of 999 is used
+6 QUIT
+7 ;
POST ;updates GMRC UNIQUE CONSULT ID paramater with a mapped value
+1 NEW GMRCSITE,GMRCID
+2 ;pij 4/8/2018
NEW GMRCHECK
+3 ;
+4 ;*** v8 I am adding a default of 999 to the PARAMETERS file. PIJ 5/3/2018
+5 DO EN^XPAR("PKG.CONSULT/REQUEST TRACKING","GMRC UNIQUE CONSULT SITE ID",,999)
+6 ;***
+7 ;
+8 SET GMRCSITE=$PIECE($$SITE^VASITE(),U,3)
+9 ;If this value has been set, don't overwrite
SET GMRCID=$$GET^XPAR("PKG.CONSULT/REQUEST TRACKING","GMRC UNIQUE CONSULT SITE ID")
+10 ;I $G(GMRCID)'="" D
+11 ; We are shipping 999 as a value from #8989.5
IF $GET(GMRCID)'=999
Begin DoDot:1
+12 DO MES^XPDUTL("Your GMRC UNIQUE CONSULT SITE ID value was found in the PARAMETER file: "_GMRCID)
+13 IF (GMRCID=999)
Begin DoDot:2
+14 SET GMRCID=""
+15 DO MES^XPDUTL("Will look for a mapped value to replace default 999")
End DoDot:2
End DoDot:1
+16 ;I $G(GMRCID)="" D
+17 IF $GET(GMRCID)=999
Begin DoDot:1
+18 SET GMRCID=$$MAPID(GMRCSITE)
+19 DO BMES^XPDUTL()
+20 DO MES^XPDUTL("*********************************")
+21 DO MES^XPDUTL("PLEASE NOTE: Your SITE ID will not be changed.")
+22 DO MES^XPDUTL("The GMRC UNIQUE CONSULT SITE ID parameter will be set.")
+23 DO MES^XPDUTL("*********************************")
+24 DO BMES^XPDUTL()
+25 DO MES^XPDUTL("These are the instructions for the patch installer at your site...")
+26 DO MES^XPDUTL("1. Your SITE ID number is... '"_GMRCSITE_"'")
+27 DO MES^XPDUTL("2. Your GMRC UNIQUE CONSULT SITE ID number is... '"_GMRCID_"'")
+28 DO MES^XPDUTL("3. Please reference the attached Post-Install instructions to verify that the GMRC UNIQUE CONSULT SITE ID is correct")
+29 DO EN^XPAR("PKG.CONSULT/REQUEST TRACKING","GMRC UNIQUE CONSULT SITE ID",,GMRCID)
+30 ;
+31 DO BMES^XPDUTL()
+32 DO MES^XPDUTL("Your GMRC UNIQUE CONSULT SITE ID value has been set in the PARAMETER file: "_$$GET^XPAR("PKG.CONSULT/REQUEST TRACKING","GMRC UNIQUE CONSULT SITE ID"))
End DoDot:1
+33 DO BMES^XPDUTL()
+34 DO MES^XPDUTL("If your GMRC UNIQUE CONSULT SITE ID number is '999' please contact IRM for assistance")
+35 QUIT
+36 ;
MAPID(GMRCSITE) ;RETURN A MAPPED 3 DIGIT VALUE FOR A SITE ID - DEFAULT TO 999
+1 ; INPUT GMRCSITE IS THE SITE ID
+2 ; RETURN: IS THE MAPPED GMRC VISTA SITE ID
+3 NEW GMRCRTN
+4 ;pij 4/8/2018
NEW GMRCNXT
+5 SET GMRCRTN=999
+6 SET GMRCNXT=1
+7 FOR
SET GMRCNXT=$TEXT(MAP)+GMRCNXT
if GMRCNXT=0
QUIT
Begin DoDot:1
+8 SET GMRCHECK=$PIECE($TEXT(MAP+GMRCNXT),";;",2)
+9 IF $PIECE(GMRCHECK,":",1)=GMRCSITE
SET GMRCRTN=$PIECE(GMRCHECK,":",2)
+10 if GMRCRTN=999
SET GMRCNXT=GMRCNXT+1
+11 if GMRCRTN'=999
SET GMRCNXT=0
+12 if GMRCHECK=""
SET GMRCNXT=0
End DoDot:1
+13 QUIT GMRCRTN
MAP ;;ASSOCIATE SITE ID TO THREE DIGIT CC SITE ID
+1 ;;402:202
+2 ;;405:203
+3 ;;518:204
+4 ;;523:205
+5 ;;608:208
+6 ;;631:209
+7 ;;650:210
+8 ;;689:212
+9 ;;526:218
+10 ;;528:215
+11 ;;528A5:216
+12 ;;528A6:214
+13 ;;528A7:217
+14 ;;528A8:213
+15 ;;561:221
+16 ;;620:223
+17 ;;630:224
+18 ;;632:225
+19 ;;460:226
+20 ;;503:227
+21 ;;529:228
+22 ;;542:230
+23 ;;562:231
+24 ;;595:232
+25 ;;642:233
+26 ;;646:234
+27 ;;693:235
+28 ;;512:236
+29 ;;517:241
+30 ;;540:229
+31 ;;581:265
+32 ;;613:239
+33 ;;688:240
+34 ;;558:242
+35 ;;565:243
+36 ;;590:244
+37 ;;637:245
+38 ;;652:246
+39 ;;658:247
+40 ;;659:248
+41 ;;508:249
+42 ;;509:250
+43 ;;521:251
+44 ;;534:252
+45 ;;544:253
+46 ;;557:254
+47 ;;619:256
+48 ;;679:257
+49 ;;516:258
+50 ;;546:259
+51 ;;548:260
+52 ;;573:261
+53 ;;672:263
+54 ;;673:264
+55 ;;675:358
+56 ;;596:267
+57 ;;603:268
+58 ;;614:269
+59 ;;621:270
+60 ;;626:272
+61 ;;506:279
+62 ;;515:280
+63 ;;538:273
+64 ;;539:274
+65 ;;541:276
+66 ;;552:277
+67 ;;553:282
+68 ;;583:283
+69 ;;610:284
+70 ;;655:285
+71 ;;757:278
+72 ;;537:287
+73 ;;550:281
+74 ;;556:288
+75 ;;578:289
+76 ;;585:290
+77 ;;607:291
+78 ;;676:292
+79 ;;695:293
+80 ;;589:295
+81 ;;589A4:294
+82 ;;589A5:297
+83 ;;589A7:298
+84 ;;657:302
+85 ;;657A4:300
+86 ;;657A5:299
+87 ;;502:303
+88 ;;520:304
+89 ;;564:305
+90 ;;580:306
+91 ;;586:307
+92 ;;598:308
+93 ;;629:310
+94 ;;667:312
+95 ;;504:317
+96 ;;519:318
+97 ;;549:313
+98 ;;671:314
+99 ;;674:315
+100 ;;740:427
+101 ;;756:322
+102 ;;436:323
+103 ;;442:325
+104 ;;554:326
+105 ;;575:327
+106 ;;623:309
+107 ;;635:311
+108 ;;660:328
+109 ;;666:329
+110 ;;463:330
+111 ;;531:331
+112 ;;648:332
+113 ;;653:333
+114 ;;663:334
+115 ;;668:335
+116 ;;687:336
+117 ;;692:337
+118 ;;459:339
+119 ;;570:340
+120 ;;593:345
+121 ;;612A4:341
+122 ;;640:342
+123 ;;654:343
+124 ;;662:344
+125 ;;501:316
+126 ;;600:346
+127 ;;605:347
+128 ;;644:319
+129 ;;649:320
+130 ;;664:348
+131 ;;678:321
+132 ;;691:349
+133 ;;437:350
+134 ;;438:351
+135 ;;568:352
+136 ;;618:353
+137 ;;636:356
+138 ;;636A6:354
+139 ;;636A8:355
+140 ;;656:357
+141 QUIT
