- 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 Mar 13, 2025@20:51:15 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
