Skip to content

Commit

Permalink
Install: GMRC*3.0*110
Browse files Browse the repository at this point in the history 
Patch Subject:  DISPLAY UCID AND UPDATE UCID WITH STA3N
Description:

============
 The purpose of this patch is as follows:
 1. To determine the first three characters of the Unique Consult
 Identifier (UCID), which will be the first three characters of the station
 ID, and store it in the GMRC UNIQUE CONSULT SITE ID parameter.
 2. To find any existing UCIDs in the consult file, and replace the first
 three characters of the existing UCID with the three characters determined
 in step 1. above. This is performed by the post-install routine.
 3. To display the UCID of a consult in the consult detail in CPRS.
 Patch Components
 ================
 Files & Fields Associated:
                                                           New/Modified/
 File Name (Number)          Field Name(Number)              Deleted
 -------------------         ------------------            -------------
 N/A
 Forms Associated:
                                                           New/Modified/
 Form Name                    File Number                    Deleted
 ---------                    ------------------           -------------
 N/A
 Mail Groups Associated:
                                                           New/Modified/
 Mail Group Name                                             Deleted
 ---------------                                           -------------
 N/A
 Options Associated:
                                                              New/Modified/
 Option Name                     Type                           Deleted
 -----------                     ----                         -------------
  N/A
 Protocols Associated:
                                                           New/Modified/
 Protocol Name                                               Deleted
 -------------                                             -------------
 N/A
 Security Keys Associated:
                                                           New/Modified/
 Security Key Name                                           Deleted
 -----------------                                         -------------
 N/A
 Templates Associated:
                                                           New/Modified/
 Template Name                   Type   File Name (Number)   Deleted
 -------------                   ----   ------------------ -------------
 N/A
 Additional Information:
 -----------------------
 N/A
 New Service Requests (NSRs):
 ----------------------------
 N/A
 Patient Safety Issues (PSIs):
 -----------------------------
 N/A
 Defect Tracking System Ticket(s) & Overview:
 --------------------------------------------
 N/A
 Test Sites:
 ----------
 Alaska VA Healthcare System (Anchorage)
 W.G. (Bill) Hefner VA Medical Center (Salisbury)
 Heartland West
 Software and Documentation Retrieval Instructions:
 --------------------------------------------------
 Software being released as a host file and/or documentation describing
 the new functionality introduced by this patch are available.
 The preferred method is to retrieve files from download.vista.domain.ext.
 This transmits the files from the first available server. Sites may
 also elect to retrieve files directly from a specific server.
 Sites may retrieve the software and/or documentation directly using
 Secure File Transfer Protocol (SFTP) from the ANONYMOUS.SOFTWARE
 directory at the following OI Field Offices:
 Hines:  domain.ext
 Salt Lake City: domain.ext
 Documentation can also be found on the VA Software Documentation Library
 at:
 http://www.domain.ext/vdl/
 Title                                   File Name             FTP Mode
 -----------------------------------------------------------------------
 Consult/Request Technical Manual        constm.pdf            Binary
 Consult/Request Technical Manual        constm.doc            Binary
 Consult/Request User Manual             consum.pdf            Binary
 Consult/Request User Manual             consum.docx           Binary
 Patch Installation:
 *****************************************
 DO NOT QUEUE the install of this patch.
 *****************************************
 Pre/Post Installation Overview
 ------------------------------

Use default answers for KIDS load/install questions.

Patch-Files: http://code.osehra.org/VistA.git/tree/master/Packages/Consult+Request+Tracking/Patches/GMRC_3.0_110
  • Loading branch information
@josephsnyder
josephsnyder committed Mar 15, 2019
1 parent fe4a4b8 commit 016af38
Show file tree
Hide file tree
Showing 7 changed files with 249 additions and 13 deletions.
66 changes: 66 additions & 0 deletions Packages/Consult Request Tracking/Routines/GMRC110P.m
View file
Original file line number Diff line number Diff line change
@@ -0,0 +1,66 @@
GMRC110P ;ABV/PIJ - Consult STA3N fix. Patch GMRC*3.0*110 ;8/1/18 07:36
;;3.0;CONSULT/REQUEST TRACKING;**110**;DEC 27, 1997;Build 6
;
;This routine locates a site's STA3N ID and places it in a GMRC UNIQUE CONSULT ID parameter.
;It is used by Community Care.
;
Q
;
POST ;updates GMRC UNIQUE CONSULT ID paramater file #8989.5
N GMRCID
;
S GMRCID=$E($P($$SITE^VASITE(),U,3),1,3)
I GMRCID="" D Q
.D BMES^XPDUTL()
.D MES^XPDUTL("*****************************************")
.D MES^XPDUTL("Your SITE ID does not exist.")
.D MES^XPDUTL("Please contact IRM for assistance.")
.D MES^XPDUTL("*****************************************")
;
D EN^XPAR("PKG.CONSULT/REQUEST TRACKING","GMRC UNIQUE CONSULT SITE ID",,GMRCID)
;
D BMES^XPDUTL()
D MES^XPDUTL("******************************************************")
D MES^XPDUTL("Your STATION 3N (STA3N) is "_GMRCID_" and")
D MES^XPDUTL("has been recorded in the Parameters file.")
D MES^XPDUTL("******************************************************")
D BMES^XPDUTL()
;
D BMES^XPDUTL("******************************************************")
D MES^XPDUTL("Commencing conversion of existing UCIDs to "_GMRCID)
D FIXSTA3N
D BMES^XPDUTL("******************************************************")
D MES^XPDUTL("End of conversion.")
Q
;
FIXSTA3N ; Scroll through #123 "B" index. Look for any entries in #80 (UCID)
; and if the first "_" piece does not = GMRCID, then update field #80 with this
; new number.
N FMDATE,GMRCID,GMRCIEN,GMRCOUT,NEWUCID,OLDUCID,X
N DA,DIE,DR
;
S (GMRCID,GMRCIEN)=""
S (OLDUCID,NEWUCID,X)=0
;
S FMDATE="3180101"
;GMRCID = Parameter Name
S GMRCID=$$GET^XPAR("PKG.CONSULT/REQUEST TRACKING","GMRC UNIQUE CONSULT SITE ID")
;
F S FMDATE=$O(^GMR(123,"B",FMDATE)) Q:FMDATE="" D
.S GMRCIEN=""
.F S GMRCIEN=$O(^GMR(123,"B",FMDATE,GMRCIEN)) Q:GMRCIEN="" D UPDATE
;
Q
;
UPDATE ;
S X=$$GET1^DIQ(123,GMRCIEN,80) ; 325_883826
I X'="" S OLDUCID=$P(X,"_",1) D
.I OLDUCID'=GMRCID D
..S NEWUCID=GMRCID_"_"_GMRCIEN
..S DR="80///"_NEWUCID
..S DIE=123
..S DA=GMRCIEN
..D ^DIE
..K GMRCOUT D GETS^DIQ(123,GMRCIEN_",",".01;.02","E","GMRCOUT")
..D MES^XPDUTL($G(GMRCOUT(123,GMRCIEN_",",.01,"E"))_" "_$G(GMRCOUT(123,GMRCIEN_",",.02,"E"))_" From: "_OLDUCID_"_"_GMRCIEN_" To: "_NEWUCID)
Q
5 changes: 3 additions & 2 deletions Packages/Consult Request Tracking/Routines/GMRCSLM2.m
View file
Original file line number Diff line number Diff line change
@@ -1,5 +1,5 @@
GMRCSLM2 ;SLC/DCM,WAT - LM Detailed display and printing ;12/10/14 14:15
;;3.0;CONSULT/REQUEST TRACKING;**1,4,18,15,17,23,22,65,66,73,81**;DEC 27,1997;Build 6
;;3.0;CONSULT/REQUEST TRACKING;**1,4,18,15,17,23,22,65,66,73,81,110**;DEC 27,1997;Build 6
;
;ICRs
;GLOBALS/FILES
Expand All @@ -14,7 +14,7 @@
;;Pass in variable GMRCOER=2 if calling from the GUI, GMRCOER=1 if call is from CPRS consults tab
;;Pass in variable GMRCOER=0 (or as <UNDEFINED>) if call is from consults routines
K GMRCQUT
N DFN,GMRCD,GMRCDA,ORIFN,GMRCSF S GMRCDVDL="",$P(GMRCDVDL,"-",80)=""
N DFN,GMRCD,GMRCDA,ORIFN,GMRCSF,GMRCUCID S GMRCDVDL="",$P(GMRCDVDL,"-",80)=""
I $S('GMRCO:1,'$D(^GMR(123,+GMRCO,0)):1,1:0) D:$S('$D(GMRCOER):1,'GMRCOER:1,1:0) S GMRCQUT=1 Q
.S GMRCMSG="The consult entry selected for the Detailed Display is unknown." D EXAC^GMRCADC(GMRCMSG) K GMRCMSG
.Q
Expand All @@ -27,6 +27,7 @@ S GMRCO(0)=^GMR(123,+GMRCO,0),ORIFN=$P(GMRCO(0),"^",3),DFN=$P(GMRCO(0),"^",2)
N VAIN,VAEL,CVELIG
D INP^VADPT S ^TMP("GMRCR",$J,"DT",GMRCCT,0)="Current Pat. Status: "_$S(+VAIN(8):"Inpatient",1:"Outpatient"),GMRCCT=GMRCCT+1
I $D(VAIN(4)),$L($P(VAIN(4),"^",2)) S ^TMP("GMRCR",$J,"DT",GMRCCT,0)="Ward:"_$E(TAB,1,18)_$P(VAIN(4),"^",2),GMRCCT=GMRCCT+1
S GMRCUCID=$$GET1^DIQ(123,+GMRCO,80) I GMRCUCID]"" S ^TMP("GMRCR",$J,"DT",GMRCCT,0)="UCID:"_$E(TAB,1,23-$L("UCID:"))_GMRCUCID,GMRCCT=GMRCCT+1 ;110
D ELIG^VADPT
S:$L($P(VAEL(1),"^",2)) ^TMP("GMRCR",$J,"DT",GMRCCT,0)="Primary Eligibility:"_$E(TAB,1,3)_$P(VAEL(1),"^",2)_$S(VAEL(8)']"":" (NOT VERIFIED)",1:"("_$P(VAEL(8),"^",2)_")"),GMRCCT=GMRCCT+1
;wat 66
Expand Down
45 changes: 43 additions & 2 deletions Packages/Kernel/Globals/14.4+TASKS.zwr
View file
Original file line number Diff line number Diff line change
@@ -1,6 +1,6 @@
OSEHRA ZGO Export: TASKS
15-MAR-2019 06:18:36 ZWR
^%ZTSK(-1)=4322
15-MAR-2019 07:06:17 ZWR
^%ZTSK(-1)=4326
^%ZTSK(0)="TASKS^14.4^4237"
^%ZTSK(1001,0)="TASK^XMXBULL^16^^63957,36927^63957,36927^R^^^PATCH,USER^PLA^PLA^ZTDESC^^"
^%ZTSK(1001,.02)="^PLA^^"
Expand Down Expand Up @@ -39263,6 +39263,47 @@ OSEHRA ZGO Export: TASKS
^%ZTSK(4322,.3,"DUZ(",0)="@"
^%ZTSK(4322,.3,"XQSCH")=8
^%ZTSK(4322,.3,"XQY")=9891
^%ZTSK(4323,0)="HOUR^XUTMHR^.5^^65087,25305^65087,25305^R^^^POSTMASTER^VISTA^VISTA^ZTDESC^^"
^%ZTSK(4323,.02)="^VISTA^^"
^%ZTSK(4323,.03)="Taskman Hourly Job"
^%ZTSK(4323,.04)=5623542105
^%ZTSK(4323,.1)="B^65087,25365^Task's volume set not listed in index.^^^^^^"
^%ZTSK(4323,.2)=""
^%ZTSK(4323,.21)=""
^%ZTSK(4323,.25)=""
^%ZTSK(4324,0)="ZTSK^XQ1^.5^VISTA^65087,25365^65087,25365^O^8853^HL AUTOSTART LINK MANAGER^POSTMASTER^VISTA^VISTA^ZTDESC^VISTA^"
^%ZTSK(4324,.02)="^VISTA^^"
^%ZTSK(4324,.03)="No Description (%ZTLOAD)"
^%ZTSK(4324,.04)=5623542165
^%ZTSK(4324,.1)="B^65087,25368^Task's volume set not listed in index.^^^^^^"
^%ZTSK(4324,.2)=""
^%ZTSK(4324,.21)=""
^%ZTSK(4324,.25)=""
^%ZTSK(4324,.3,"DUZ(",0)="@"
^%ZTSK(4324,.3,"XQSCH")=10
^%ZTSK(4324,.3,"XQY")=8853
^%ZTSK(4325,0)="ZTSK^XQ1^.5^VISTA^65087,25365^65087,25365^O^8412^HL TASK RESTART^POSTMASTER^VISTA^VISTA^ZTDESC^VISTA^"
^%ZTSK(4325,.02)="^VISTA^^"
^%ZTSK(4325,.03)="No Description (%ZTLOAD)"
^%ZTSK(4325,.04)=5623542165
^%ZTSK(4325,.1)="B^65087,25370^Task's volume set not listed in index.^^^^^^"
^%ZTSK(4325,.2)=""
^%ZTSK(4325,.21)=""
^%ZTSK(4325,.25)=""
^%ZTSK(4325,.3,"DUZ(",0)="@"
^%ZTSK(4325,.3,"XQSCH")=11
^%ZTSK(4325,.3,"XQY")=8412
^%ZTSK(4326,0)="ZTSK^XQ1^.5^VISTA^65087,25365^65087,25365^O^9891^XOBV LISTENER STARTUP^POSTMASTER^VISTA^VISTA^ZTDESC^VISTA^"
^%ZTSK(4326,.02)="^VISTA^^"
^%ZTSK(4326,.03)="No Description (%ZTLOAD)"
^%ZTSK(4326,.04)=5623542165
^%ZTSK(4326,.1)="B^65087,25372^Task's volume set not listed in index.^^^^^^"
^%ZTSK(4326,.2)=""
^%ZTSK(4326,.21)=""
^%ZTSK(4326,.25)=""
^%ZTSK(4326,.3,"DUZ(",0)="@"
^%ZTSK(4326,.3,"XQSCH")=8
^%ZTSK(4326,.3,"XQY")=9891
^%ZTSK(1082462,.1)="E^64013,39495^Interrupted While Running"
^%ZTSK(1082463,.1)="E^64013,39495^Interrupted While Running"
^%ZTSK(1082464,.1)="E^64013,39495^Interrupted While Running"
Expand Down
Loading

0 comments on commit 016af38

Please sign in to comment.