GMV2PST.m

GMV2PST ;HIOFO/FT-Create Indexes for HDR ;10/7/04  17:06

 ;;5.0;GEN. MED. REC. - VITALS;**2**;Oct 31, 2002

 ;

 ; This routine uses the following IAs:

 ; #10141 - ^XPDUTL calls      (supported)

 ;

EN ; Driver subroutine

 D AHDRN,AHDRE

 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 MSG,RESULT,XREF

 D BMES^XPDUTL("Creating AHDRNEW Index on GMRV VITAL MEASUREMENT (#120.5) file.")

 S XREF("ACTIVITY")=""

 S XREF("FILE")=120.5

 S XREF("ROOT FILE")=120.5

 S XREF("TYPE")="MU"

 S XREF("SHORT DESCR")="INDEX for HDR"

 S XREF("DESCR",1)="This cross-reference calls a Health Data Repository (HDR) API whenever a"

 S XREF("DESCR",2)="new entry is created."

 S XREF("DESCR",3)=" "

 S XREF("DESCR",4)="No actual cross-reference nodes are set or killed."

 S XREF("DESCR",5)=" "

 S XREF("DESCR",6)="Calls to the VDEFQM routine are covered by Integration Agreement 4253."

 S XREF("USE")="ACTION"

 S XREF("EXECUTION")="F"

 S XREF("WHOLE KILL")="Q"

 S XREF("VAL",1)=.01

 S XREF("NAME")="AHDRNEW"

 S XREF("SET")="Q:$D(DIU(0))  N ERR,GMVFLAG I $T(QUEUE^VDEFQM)]"""" S GMVFLAG=$$QUEUE^VDEFQM(""ORU^R01"",""SUBTYPE=VTLS^IEN=""_DA,.ERR)"

 S XREF("KILL")="Q"

 S XREF("SET CONDITION")="S:X1(1)="""" X=1"

 D CREIXN^DDMOD(.XREF,"k",.RESULT,"","MSG")

 I RESULT="" D

 .D BMES^XPDUTL("The AHDRNEW Index was not added to FILE 120.5. Please enter a NOIS.")

 .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 MSG,RESULT,XREF

 D BMES^XPDUTL("Creating AHDRERR Index on GMRV VITAL MEASUREMENT (#120.5) file.")

 S XREF("ACTIVITY")=""

 S XREF("FILE")=120.5

 S XREF("ROOT FILE")=120.5

 S XREF("TYPE")="MU"

 S XREF("SHORT DESCR")="INDEX for HDR"

 S XREF("DESCR",1)="This cross-reference calls a Health Data Repository (HDR) API whenever a"

 S XREF("DESCR",2)="FILE 120.5 entry is marked as entered-in-error."

 S XREF("DESCR",3)=" "

 S XREF("DESCR",4)="No actual cross-reference nodes are set or killed."

 S XREF("DESCR",5)=" "

 S XREF("DESCR",6)="Calls to the VDEFQM routine are covered by Integration Agreement 4253."

 S XREF("USE")="ACTION"

 S XREF("EXECUTION")="F"

 S XREF("WHOLE KILL")="Q"

 S XREF("VAL",1)=2

 S XREF("NAME")="AHDRERR"

 S XREF("SET")="Q:$D(DIU(0))  N ERR,GMVFLAG I $T(QUEUE^VDEFQM)]"""" S GMVFLAG=$$QUEUE^VDEFQM(""ORU^R01"",""SUBTYPE=VTLS^IEN=""_DA,.ERR)"

 S XREF("KILL")="Q"

 S XREF("SET CONDITION")="I X1(1)="""",X2(1)]"""" S X=1"

 D CREIXN^DDMOD(.XREF,"k",.RESULT,"","MSG")

 I RESULT="" D

 .D BMES^XPDUTL("The AHDRERR Index was not added to FILE 120.5. Please enter a NOIS.")

 .Q 

 Q

GMV2PST   ;HIOFO/FT-Create Indexes for HDR ;10/7/04  17:06

 +1       ;;5.0;GEN. MED. REC. - VITALS;**2**;Oct 31, 2002

 +2       ;

 +3       ; This routine uses the following IAs:

 +4       ; #10141 - ^XPDUTL calls      (supported)

 +5       ;

EN        ; Driver subroutine

 +1        DO AHDRN

           DO AHDRE

 +2        QUIT 

 +3       ;

AHDRN     ; Create AHDRNEW Index on GMRV Vital Measurement file (#120.5) for use

 +1       ; by Health Data Repository (HDR)

 +2       ; Calls HDR API whenever a new entry is made in FILE 120.5

 +3        NEW MSG,RESULT,XREF

 +4        DO BMES^XPDUTL("Creating AHDRNEW Index on GMRV VITAL MEASUREMENT (#120.5) file.")

 +5        SET XREF("ACTIVITY")=""

 +6        SET XREF("FILE")=120.5

 +7        SET XREF("ROOT FILE")=120.5

 +8        SET XREF("TYPE")="MU"

 +9        SET XREF("SHORT DESCR")="INDEX for HDR"

 +10       SET XREF("DESCR",1)="This cross-reference calls a Health Data Repository (HDR) API whenever a"

 +11       SET XREF("DESCR",2)="new entry is created."

 +12       SET XREF("DESCR",3)=" "

 +13       SET XREF("DESCR",4)="No actual cross-reference nodes are set or killed."

 +14       SET XREF("DESCR",5)=" "

 +15       SET XREF("DESCR",6)="Calls to the VDEFQM routine are covered by Integration Agreement 4253."

 +16       SET XREF("USE")="ACTION"

 +17       SET XREF("EXECUTION")="F"

 +18       SET XREF("WHOLE KILL")="Q"

 +19       SET XREF("VAL",1)=.01

 +20       SET XREF("NAME")="AHDRNEW"

 +21       SET XREF("SET")="Q:$D(DIU(0))  N ERR,GMVFLAG I $T(QUEUE^VDEFQM)]"""" S GMVFLAG=$$QUEUE^VDEFQM(""ORU^R01"",""SUBTYPE=VTLS^IEN=""_DA,.ERR)"

 +22       SET XREF("KILL")="Q"

 +23       SET XREF("SET CONDITION")="S:X1(1)="""" X=1"

 +24       DO CREIXN^DDMOD(.XREF,"k",.RESULT,"","MSG")

 +25       IF RESULT=""

               Begin DoDot:1

 +26               DO BMES^XPDUTL("The AHDRNEW Index was not added to FILE 120.5. Please enter a NOIS.")

 +27               QUIT 

               End DoDot:1

 +28       QUIT 

 +29      ;

AHDRE     ; Create AHDRERR Index on GMRV Vital Measurement file (#120.5) for use

 +1       ; by Health Data Repository (HDR)

 +2       ; Calls HDR API whenever a FILE 120.5 entry is marked as an error

 +3        NEW MSG,RESULT,XREF

 +4        DO BMES^XPDUTL("Creating AHDRERR Index on GMRV VITAL MEASUREMENT (#120.5) file.")

 +5        SET XREF("ACTIVITY")=""

 +6        SET XREF("FILE")=120.5

 +7        SET XREF("ROOT FILE")=120.5

 +8        SET XREF("TYPE")="MU"

 +9        SET XREF("SHORT DESCR")="INDEX for HDR"

 +10       SET XREF("DESCR",1)="This cross-reference calls a Health Data Repository (HDR) API whenever a"

 +11       SET XREF("DESCR",2)="FILE 120.5 entry is marked as entered-in-error."

 +12       SET XREF("DESCR",3)=" "

 +13       SET XREF("DESCR",4)="No actual cross-reference nodes are set or killed."

 +14       SET XREF("DESCR",5)=" "

 +15       SET XREF("DESCR",6)="Calls to the VDEFQM routine are covered by Integration Agreement 4253."

 +16       SET XREF("USE")="ACTION"

 +17       SET XREF("EXECUTION")="F"

 +18       SET XREF("WHOLE KILL")="Q"

 +19       SET XREF("VAL",1)=2

 +20       SET XREF("NAME")="AHDRERR"

 +21       SET XREF("SET")="Q:$D(DIU(0))  N ERR,GMVFLAG I $T(QUEUE^VDEFQM)]"""" S GMVFLAG=$$QUEUE^VDEFQM(""ORU^R01"",""SUBTYPE=VTLS^IEN=""_DA,.ERR)"

 +22       SET XREF("KILL")="Q"

 +23       SET XREF("SET CONDITION")="I X1(1)="""",X2(1)]"""" S X=1"

 +24       DO CREIXN^DDMOD(.XREF,"k",.RESULT,"","MSG")

 +25       IF RESULT=""

               Begin DoDot:1

 +26               DO BMES^XPDUTL("The AHDRERR Index was not added to FILE 120.5. Please enter a NOIS.")

 +27               QUIT 

               End DoDot:1

 +28       QUIT