source: FOIAVistA/tag/r/GEN_MED_OTHER-GMV/GMV8PST.m@ 628

GMV8PST ;HIOFO/FT-POST-INSTALLATION FOR GMRV*5*8 ;5/3/05  11:48
 ;;5.0;GEN. MED. REC. - VITALS;**8**;Oct 31, 2002
 ;
 ; This routine uses the following IAs:
 ; #1157 - ^XPDMENU calls      (supported)
 ; #4639 - ^HDISVCMR calls     (supported)
 ; #4651 - ^HDISVF09 calls     (supported)
 ;
 ;
EN ; Driver subroutine
 D AHDRN,AHDRE
 D MENU,DEL,FIELD9,XREF1,XREF2,XREF3,ACCESS,KILL,HDIS
 Q
 ;
MENU ; Place vitals options out-of-order so they can no longer be used.
 N GMVOPT,GMVTXT
 S GMVOPT="GMRV VMSITE"
 S GMVTXT="Use the 'New Term Rapid Turnaround' process"
 D OUT^XPDMENU(GMVOPT,GMVTXT)
 Q
DEL ; Delete File 120.52, Field 999
 ; Get rid of data first
 N DA,DIE,DR
 S DA=0,DIE="^GMRD(120.52,",DR="999///@"
 F  S DA=$O(^GMRD(120.52,DA)) Q:'DA  D
 .D ^DIE
 .K ^GMRD(120.52,DA,"CONV")
 .Q
 ;get rid of field definition
 N DA,DIK
 S DIK="^DD(120.52,",DA=999,DA(1)=DA
 D ^DIK
 Q
FIELD9 ; Delete File 120.51, Field 9 (VITAL/MEASUREMENT) if it exists.
 ; Get rid of data first.
 N DA
 I $D(^DD(120.51,9,0)) D
 .S DA=0
 .F  S DA=$O(^GMRD(120.51,DA)) Q:'DA  D
 ..S $P(^GMRD(120.51,DA,0),U,8)=""
 ..Q
 .Q
 ;get rid of field definition
 N DA,DIK
 S DA=9 D
 .Q:'$D(^DD(120.51,DA,0))
 .S DIK="^DD(120.51,",DA(1)=DA
 .D ^DIK
 .Q
 Q
XREF1 ; Adds the AMASTERVUID index to file 120.51
 N GMVXR,GMVRES,GMVOUT
 S GMVXR("FILE")=120.51
 S GMVXR("NAME")="AMASTERVUID"
 S GMVXR("TYPE")="R"
 S GMVXR("USE")="S"
 S GMVXR("EXECUTION")="R"
 S GMVXR("ACTIVITY")="IR"
 S GMVXR("SHORT DESCR")="This cross-reference identifies the Master entry for a VUID."
 S GMVXR("DESCR",1)="If multiple entries have the same VUID in the file, this cross-refernce "
 S GMVXR("DESCR",2)="can be used to identify the Master entry for a VUID associated with a "
 S GMVXR("DESCR",3)="Term/Concept."
 S GMVXR("VAL",1)=99.99
 S GMVXR("VAL",1,"SUBSCRIPT")=1
 S GMVXR("VAL",1,"LENGTH")=30
 S GMVXR("VAL",1,"COLLATION")="F"
 S GMVXR("VAL",2)=99.98
 S GMVXR("VAL",2,"SUBSCRIPT")=2
 S GMVXR("VAL",2,"COLLATION")="F"
 D CREIXN^DDMOD(.GMVXR,"SW",.GMVRES,"GMVOUT")
 Q
XREF2 ; Adds the AMASTERVUID index to file 120.52
 N GMVXR,GMVRES,GMVOUT
 S GMVXR("FILE")=120.52
 S GMVXR("NAME")="AMASTERVUID"
 S GMVXR("TYPE")="R"
 S GMVXR("USE")="S"
 S GMVXR("EXECUTION")="R"
 S GMVXR("ACTIVITY")="IR"
 S GMVXR("SHORT DESCR")="This cross-reference identifies the Master entry for a VUID."
 S GMVXR("DESCR",1)="If multiple entries have the same VUID in the file, this cross-refernce "
 S GMVXR("DESCR",2)="can be used to identify the Master entry for a VUID associated with a "
 S GMVXR("DESCR",3)="Term/Concept."
 S GMVXR("VAL",1)=99.99
 S GMVXR("VAL",1,"SUBSCRIPT")=1
 S GMVXR("VAL",1,"LENGTH")=30
 S GMVXR("VAL",1,"COLLATION")="F"
 S GMVXR("VAL",2)=99.98
 S GMVXR("VAL",2,"SUBSCRIPT")=2
 S GMVXR("VAL",2,"COLLATION")="F"
 D CREIXN^DDMOD(.GMVXR,"SW",.GMVRES,"GMVOUT")
 Q
XREF3 ; Adds the AMASTERVUID index to file 120.53
 N GMVXR,GMVRES,GMVOUT
 S GMVXR("FILE")=120.53
 S GMVXR("NAME")="AMASTERVUID"
 S GMVXR("TYPE")="R"
 S GMVXR("USE")="S"
 S GMVXR("EXECUTION")="R"
 S GMVXR("ACTIVITY")="IR"
 S GMVXR("SHORT DESCR")="This cross-reference identifies the Master entry for a VUID."
 S GMVXR("DESCR",1)="If multiple entries have the same VUID in the file, this cross-refernce "
 S GMVXR("DESCR",2)="can be used to identify the Master entry for a VUID associated with a "
 S GMVXR("DESCR",3)="Term/Concept."
 S GMVXR("VAL",1)=99.99
 S GMVXR("VAL",1,"SUBSCRIPT")=1
 S GMVXR("VAL",1,"LENGTH")=30
 S GMVXR("VAL",1,"COLLATION")="F"
 S GMVXR("VAL",2)=99.98
 S GMVXR("VAL",2,"SUBSCRIPT")=2
 S GMVXR("VAL",2,"COLLATION")="F"
 D CREIXN^DDMOD(.GMVXR,"SW",.GMVRES,"GMVOUT")
 Q
ACCESS ; Set file access
 N GMVFILE,GMVNODE
 F GMVFILE=120.51,120.52,120.53 D
 .F GMVNODE="AUDIT","DD","DEL","LAYGO","WR" D
 ..S ^DIC(GMVFILE,0,GMVNODE)="@"
 ..Q
 .Q
 Q
KILL ; Kill left over x-ref node
 K ^DD(120.52,"IX",999)
 Q
HDIS ; Call HDIS to begin the 'seeding' process
 N DOMPTR,TMP
 S TMP=$$GETIEN^HDISVF09("VITALS",.DOMPTR)
 D EN^HDISVCMR(DOMPTR,"")
 Q
AHDRN ; Create AHDRNEW Index on GMRV Vital Measurement file (#120.5) for use
 ; by Health Data Repository (HDR)
 ; Calls HDR API whenever a new entry is made in FILE 120.5
 N GMVXR,GMVRES,GMVOUT
 S GMVXR("ACTIVITY")=""
 S GMVXR("FILE")=120.5
 S GMVXR("NAME")="AHDRNEW"
 S GMVXR("TYPE")="MU"
 S GMVXR("USE")="A"
 S GMVXR("EXECUTION")="F"
 S GMVXR("SHORT DESCR")="INDEX for HDR"
 S GMVXR("DESCR",1)="This cross-reference calls a Health Data Repository (HDR) API whenever a"
 S GMVXR("DESCR",2)="new entry is created."
 S GMVXR("DESCR",3)=" "
 S GMVXR("DESCR",4)="No actual cross-reference nodes are set or killed."
 S GMVXR("DESCR",5)=" "
 S GMVXR("DESCR",6)="Calls to the VDEFQM routine are covered by Integration Agreement 4253."
 S GMVXR("SET")="Q:$D(DIU(0))!($$TESTPAT^VADPT($P(^GMR(120.5,DA,0),U,2)))  N ERR,GMVFLAG I $T(QUEUE^VDEFQM)]"""" S GMVFLAG=$$QUEUE^VDEFQM(""ORU^R01"",""SUBTYPE=VTLS^IEN=""_DA,.ERR)"
 S GMVXR("KILL")="Q"
 S GMVXR("WHOLE KILL")="Q"
 S GMVXR("SET CONDITION")="I X1(1)="""",X2(1)'="""" S X=1"
 S GMVXR("VAL",1)=.02
 D CREIXN^DDMOD(.GMVXR,"k",.GMVRES,"GMVOUT")
 I GMVRES="" D
 .D BMES^XPDUTL("The AHDRNEW Index was not added to FILE 120.5. Please enter a Remedy ticket.")
 .Q
 Q
 ;
AHDRE ; Create AHDRERR Index on GMRV Vital Measurement file (#120.5) for use
 ; by Health Data Repository (HDR)
 ; Calls HDR API whenever a FILE 120.5 entry is marked as an error
 N GMVXR,GMVRES,GMVOUT
 S GMVXR("ACTIVITY")=""
 S GMVXR("FILE")=120.5
 S GMVXR("NAME")="AHDRERR"
 S GMVXR("TYPE")="MU"
 S GMVXR("USE")="A"
 S GMVXR("EXECUTION")="F"
 S GMVXR("SHORT DESCR")="INDEX for HDR"
 S GMVXR("DESCR",1)="This cross-reference calls a Health Data Repository (HDR) API whenever a"
 S GMVXR("DESCR",2)="FILE 120.5 entry is marked as entered-in-error."
 S GMVXR("DESCR",3)=" "
 S GMVXR("DESCR",4)="No actual cross-reference nodes are set or killed."
 S GMVXR("DESCR",5)=" "
 S GMVXR("DESCR",6)="Calls to the VDEFQM routine are covered by Integration Agreement 4253."
 S GMVXR("SET")="Q:$D(DIU(0))!($$TESTPAT^VADPT($P(^GMR(120.5,DA,0),U,2)))  N ERR,GMVFLAG I $T(QUEUE^VDEFQM)]"""" S GMVFLAG=$$QUEUE^VDEFQM(""ORU^R01"",""SUBTYPE=VTLS^IEN=""_DA,.ERR)"
 S GMVXR("KILL")="Q"
 S GMVXR("WHOLE KILL")="Q"
 S GMVXR("SET CONDITION")="I X1(1)="""",X2(1)]"""" S X=1"
 S GMVXR("VAL",1)=2
 D CREIXN^DDMOD(.GMVXR,"k",.GMVRES,"GMVOUT")
 I GMVRES="" D
 .D BMES^XPDUTL("The AHDRERR Index was not added to FILE 120.5. Please enter a Remedy ticket.")
 .Q
 Q