- IS00007E ;Compiled from script 'Generated: HL IHS DW1 A08-O' on SEP 08, 2008
- ;Part 6
- ;Copyright 2008 SAIC
- EN S L1=$G(@INV@("ZV15")) S:$TR(L1,$G(SUBDELIM))="" L1="" D SETPIECE^INHU(.LINE,DELIM,6,L1,.CP) S L1=$G(@INV@("ZV16")) S:$TR(L1,$G(SUBDELIM))="" L1="" D SETPIECE^INHU(.LINE,DELIM,7,L1,.CP)
- S L1=$G(@INV@("ZV17")) S:$TR(L1,$G(SUBDELIM))="" L1="" D SETPIECE^INHU(.LINE,DELIM,8,L1,.CP) S L1=$G(@INV@("ZV18")) S:$TR(L1,$G(SUBDELIM))="" L1="" D SETPIECE^INHU(.LINE,DELIM,9,L1,.CP)
- S L1=$G(@INV@("ZV19")) S:$TR(L1,$G(SUBDELIM))="" L1="" D SETPIECE^INHU(.LINE,DELIM,10,L1,.CP) S L1=$G(@INV@("ZV110")) S:$TR(L1,$G(SUBDELIM))="" L1="" D SETPIECE^INHU(.LINE,DELIM,11,L1,.CP)
- S L1=$G(@INV@("ZV111")) S:$TR(L1,$G(SUBDELIM))="" L1="" D SETPIECE^INHU(.LINE,DELIM,12,L1,.CP) S L1=$G(@INV@("ZV112")) S:$TR(L1,$G(SUBDELIM))="" L1=""
- D SETPIECE^INHU(.LINE,DELIM,13,L1,.CP) S L1=$G(@INV@("ZV113")) S:$TR(L1,$G(SUBDELIM))="" L1="" D SETPIECE^INHU(.LINE,DELIM,14,L1,.CP) S L1=$G(@INV@("ZV114"))
- S:$TR(L1,$G(SUBDELIM))="" L1="" D SETPIECE^INHU(.LINE,DELIM,15,L1,.CP) S L1=$G(@INV@("ZV115")) S:$TR(L1,$G(SUBDELIM))="" L1="" D SETPIECE^INHU(.LINE,DELIM,16,L1,.CP)
- S L1=$G(@INV@("ZV116")) S:$TR(L1,$G(SUBDELIM))="" L1="" D SETPIECE^INHU(.LINE,DELIM,17,L1,.CP) S L1=$G(@INV@("ZV117")) S:$TR(L1,$G(SUBDELIM))="" L1=""
- D SETPIECE^INHU(.LINE,DELIM,18,L1,.CP) S L1=$G(@INV@("ZV118")) S:$TR(L1,$G(SUBDELIM))="" L1="" D SETPIECE^INHU(.LINE,DELIM,19,L1,.CP) S L1=$G(@INV@("ZV119"))
- S:$TR(L1,$G(SUBDELIM))="" L1="" D SETPIECE^INHU(.LINE,DELIM,20,L1,.CP) S L1=$G(@INV@("ZV120")) S:$TR(L1,$G(SUBDELIM))="" L1="" D SETPIECE^INHU(.LINE,DELIM,21,L1,.CP)
- S L1=$G(@INV@("ZV121")) S:$TR(L1,$G(SUBDELIM))="" L1="" D SETPIECE^INHU(.LINE,DELIM,22,L1,.CP) S L1=$G(@INV@("ZV122")) S:$TR(L1,$G(SUBDELIM))="" L1=""
- D SETPIECE^INHU(.LINE,DELIM,23,L1,.CP) S L1=$G(@INV@("ZV123")) S:$TR(L1,$G(SUBDELIM))="" L1="" D SETPIECE^INHU(.LINE,DELIM,24,L1,.CP) S L1=$G(@INV@("ZV124"))
- S:$TR(L1,$G(SUBDELIM))="" L1="" D SETPIECE^INHU(.LINE,DELIM,25,L1,.CP) S L1=$G(@INV@("ZV125")) S:$TR(L1,$G(SUBDELIM))="" L1="" D SETPIECE^INHU(.LINE,DELIM,26,L1,.CP)
- S L1=$G(@INV@("ZV126")) S:$TR(L1,$G(SUBDELIM))="" L1="" D SETPIECE^INHU(.LINE,DELIM,27,L1,.CP) S L1=$G(@INV@("ZV127")) S:$TR(L1,$G(SUBDELIM))="" L1=""
- D SETPIECE^INHU(.LINE,DELIM,28,L1,.CP) S L1=$G(@INV@("ZV128")) S:$TR(L1,$G(SUBDELIM))="" L1="" D SETPIECE^INHU(.LINE,DELIM,29,L1,.CP) S L1=$G(@INV@("ZV129"))
- S:$TR(L1,$G(SUBDELIM))="" L1="" D SETPIECE^INHU(.LINE,DELIM,30,L1,.CP) S L1=$G(@INV@("ZV130")) S:$TR(L1,$G(SUBDELIM))="" L1="" D SETPIECE^INHU(.LINE,DELIM,31,L1,.CP)
- S L1=$G(@INV@("ZV131")) S:$TR(L1,$G(SUBDELIM))="" L1="" D SETPIECE^INHU(.LINE,DELIM,32,L1,.CP) S L1=$G(@INV@("ZV132")) S:$TR(L1,$G(SUBDELIM))="" L1=""
- D SETPIECE^INHU(.LINE,DELIM,33,L1,.CP) S L1=$G(@INV@("ZV133")) S:$TR(L1,$G(SUBDELIM))="" L1="" D SETPIECE^INHU(.LINE,DELIM,34,L1,.CP) S L1=$G(@INV@("ZV134"))
- S:$TR(L1,$G(SUBDELIM))="" L1="" D SETPIECE^INHU(.LINE,DELIM,35,L1,.CP) S L1=$G(@INV@("ZV135")) S:$TR(L1,$G(SUBDELIM))="" L1="" D SETPIECE^INHU(.LINE,DELIM,36,L1,.CP)
- S L1=$G(@INV@("ZV136")) S:$TR(L1,$G(SUBDELIM))="" L1="" D SETPIECE^INHU(.LINE,DELIM,37,L1,.CP) S L1=$G(@INV@("ZV137")) S:$TR(L1,$G(SUBDELIM))="" L1=""
- D SETPIECE^INHU(.LINE,DELIM,38,L1,.CP) S L1=$G(@INV@("ZV138")) S:$TR(L1,$G(SUBDELIM))="" L1="" D SETPIECE^INHU(.LINE,DELIM,39,L1,.CP)
- S LCT=LCT+1,^UTILITY("INH",$J,LCT)=LINE I $D(LINE)>9 M ^UTILITY("INH",$J,LCT)=LINE
- SET INSETID=0
- ;SET ZEN1 = INSGX\^INTHL7F(16456,5)\\999\"OUTPUT TRANSFORM"
- S D0=INDA S X="OUTPUT TRANSFORM"
- S X1="^INTHL7F(16456,5)" X:$L($G(@X1)) $G(@X1) S X=$E(X,1,999)
- S @INV@("ZEN1")=X K DXS,D0
- ;SET ZEN2 = INSGX\^INTHL7F(16457,5)\\999\"OUTPUT TRANSFORM"
- S D0=INDA S X="OUTPUT TRANSFORM"
- S X1="^INTHL7F(16457,5)" X:$L($G(@X1)) $G(@X1) S X=$E(X,1,999)
- S @INV@("ZEN2")=X K DXS,D0
- ;SET ZEN3 = INSGX\^INTHL7F(16458,5)\\999\"OUTPUT TRANSFORM"
- S D0=INDA S X="OUTPUT TRANSFORM"
- S X1="^INTHL7F(16458,5)" X:$L($G(@X1)) $G(@X1) S X=$E(X,1,999)
- S @INV@("ZEN3")=X K DXS,D0
- ;SET ZEN4 = INSGX\^INTHL7F(16459,5)\\999\"OUTPUT TRANSFORM"
- S D0=INDA S X="OUTPUT TRANSFORM"
- S X1="^INTHL7F(16459,5)" X:$L($G(@X1)) $G(@X1) S X=$E(X,1,999)
- S @INV@("ZEN4")=X K DXS,D0
- ;SET ZEN5 = INSGX\^INTHL7F(16460,5)\\999\"OUTPUT TRANSFORM"
- S D0=INDA S X="OUTPUT TRANSFORM"
- S X1="^INTHL7F(16460,5)" X:$L($G(@X1)) $G(@X1) S X=$E(X,1,999)
- S @INV@("ZEN5")=X K DXS,D0
- ;SET ZEN6 = INSGX\^INTHL7F(16461,5)\\999\"OUTPUT TRANSFORM"
- S D0=INDA S X="OUTPUT TRANSFORM"
- S X1="^INTHL7F(16461,5)" X:$L($G(@X1)) $G(@X1) S X=$E(X,1,999)
- S @INV@("ZEN6")=X K DXS,D0
- ;SET ZEN7 = INSGX\^INTHL7F(16462,5)\\999\"OUTPUT TRANSFORM"
- S D0=INDA S X="OUTPUT TRANSFORM"
- S X1="^INTHL7F(16462,5)" X:$L($G(@X1)) $G(@X1) S X=$E(X,1,999)
- S @INV@("ZEN7")=X K DXS,D0
- ;SET ZEN8 = INSGX\^INTHL7F(16463,5)\\999\"OUTPUT TRANSFORM"
- S D0=INDA S X="OUTPUT TRANSFORM"
- S X1="^INTHL7F(16463,5)" X:$L($G(@X1)) $G(@X1) S X=$E(X,1,999)
- S @INV@("ZEN8")=X K DXS,D0
- ;SET ZEN9 = INSGX\^INTHL7F(16464,5)\\999\"OUTPUT TRANSFORM"
- S D0=INDA S X="OUTPUT TRANSFORM"
- S X1="^INTHL7F(16464,5)" X:$L($G(@X1)) $G(@X1) S X=$E(X,1,999)
- S @INV@("ZEN9")=X K DXS,D0
- ;SET ZEN10 = INSGX\^INTHL7F(16465,5)\\999\"OUTPUT TRANSFORM"
- S D0=INDA S X="OUTPUT TRANSFORM"
- S X1="^INTHL7F(16465,5)" X:$L($G(@X1)) $G(@X1) S X=$E(X,1,999)
- S @INV@("ZEN10")=X K DXS,D0
- ;SET ZEN11 = INSGX\^INTHL7F(16466,5)\\999\"OUTPUT TRANSFORM"
- S D0=INDA S X="OUTPUT TRANSFORM"
- S X1="^INTHL7F(16466,5)" X:$L($G(@X1)) $G(@X1) S X=$E(X,1,999)
- S @INV@("ZEN11")=X K DXS,D0
- ;SET ZEN12 = INSGX\^INTHL7F(16467,5)\\999\"OUTPUT TRANSFORM"
- S D0=INDA S X="OUTPUT TRANSFORM"
- S X1="^INTHL7F(16467,5)" X:$L($G(@X1)) $G(@X1) S X=$E(X,1,999)
- S @INV@("ZEN12")=X K DXS,D0
- ;SET ZEN13 = INSGX\^INTHL7F(16468,5)\\999\"OUTPUT TRANSFORM"
- S D0=INDA S X="OUTPUT TRANSFORM"
- S X1="^INTHL7F(16468,5)" X:$L($G(@X1)) $G(@X1) S X=$E(X,1,999)
- S @INV@("ZEN13")=X K DXS,D0
- ;SET ZEN14 = INSGX\^INTHL7F(16673,5)\\999\"OUTPUT TRANSFORM"
- S D0=INDA S X="OUTPUT TRANSFORM"
- S X1="^INTHL7F(16673,5)" X:$L($G(@X1)) $G(@X1) S X=$E(X,1,999)
- S @INV@("ZEN14")=X K DXS,D0
- ;SET ZEN15 = INSGX\^INTHL7F(16674,5)\\999\"OUTPUT TRANSFORM"
- S D0=INDA S X="OUTPUT TRANSFORM"
- S X1="^INTHL7F(16674,5)" X:$L($G(@X1)) $G(@X1) S X=$E(X,1,999)
- S @INV@("ZEN15")=X K DXS,D0
- ;SET ZEN16 = INSGX\^INTHL7F(16675,5)\\999\"OUTPUT TRANSFORM"
- S D0=INDA S X="OUTPUT TRANSFORM"
- S X1="^INTHL7F(16675,5)" X:$L($G(@X1)) $G(@X1) S X=$E(X,1,999)
- S @INV@("ZEN16")=X K DXS,D0
- ;SET ZEN17 = INSGX\^INTHL7F(16676,5)\\999\"OUTPUT TRANSFORM"
- S D0=INDA S X="OUTPUT TRANSFORM"
- S X1="^INTHL7F(16676,5)" X:$L($G(@X1)) $G(@X1) S X=$E(X,1,999)
- S @INV@("ZEN17")=X K DXS,D0
- ;SET ZEN18 = INSGX\^INTHL7F(16677,5)\\999\"OUTPUT TRANSFORM"
- S D0=INDA S X="OUTPUT TRANSFORM"
- S X1="^INTHL7F(16677,5)" X:$L($G(@X1)) $G(@X1) S X=$E(X,1,999)
- S @INV@("ZEN18")=X K DXS,D0
- ;SET ZEN19 = INSGX\^INTHL7F(16678,5)\\999\"OUTPUT TRANSFORM"
- S D0=INDA S X="OUTPUT TRANSFORM"
- S X1="^INTHL7F(16678,5)" X:$L($G(@X1)) $G(@X1) S X=$E(X,1,999)
- S @INV@("ZEN19")=X K DXS,D0
- ;SET ZEN20 = INSGX\^INTHL7F(16679,5)\\999\"OUTPUT TRANSFORM"
- S D0=INDA S X="OUTPUT TRANSFORM"
- S X1="^INTHL7F(16679,5)" X:$L($G(@X1)) $G(@X1) S X=$E(X,1,999)
- S @INV@("ZEN20")=X K DXS,D0
- ;SET ZEN21 = INSGX\^INTHL7F(16680,5)\\999\"OUTPUT TRANSFORM"
- S D0=INDA S X="OUTPUT TRANSFORM"
- S X1="^INTHL7F(16680,5)" X:$L($G(@X1)) $G(@X1) S X=$E(X,1,999)
- 9 G EN^IS00007F
- IS00007E ;Compiled from script 'Generated: HL IHS DW1 A08-O' on SEP 08, 2008
- +1 ;Part 6
- +2 ;Copyright 2008 SAIC
- EN SET L1=$GET(@INV@("ZV15"))
- IF $TRANSLATE(L1,$GET(SUBDELIM))=""
- SET L1=""
- DO SETPIECE^INHU(.LINE,DELIM,6,L1,.CP)
- SET L1=$GET(@INV@("ZV16"))
- IF $TRANSLATE(L1,$GET(SUBDELIM))=""
- SET L1=""
- DO SETPIECE^INHU(.LINE,DELIM,7,L1,.CP)
- +1 SET L1=$GET(@INV@("ZV17"))
- IF $TRANSLATE(L1,$GET(SUBDELIM))=""
- SET L1=""
- DO SETPIECE^INHU(.LINE,DELIM,8,L1,.CP)
- SET L1=$GET(@INV@("ZV18"))
- IF $TRANSLATE(L1,$GET(SUBDELIM))=""
- SET L1=""
- DO SETPIECE^INHU(.LINE,DELIM,9,L1,.CP)
- +2 SET L1=$GET(@INV@("ZV19"))
- IF $TRANSLATE(L1,$GET(SUBDELIM))=""
- SET L1=""
- DO SETPIECE^INHU(.LINE,DELIM,10,L1,.CP)
- SET L1=$GET(@INV@("ZV110"))
- IF $TRANSLATE(L1,$GET(SUBDELIM))=""
- SET L1=""
- DO SETPIECE^INHU(.LINE,DELIM,11,L1,.CP)
- +3 SET L1=$GET(@INV@("ZV111"))
- IF $TRANSLATE(L1,$GET(SUBDELIM))=""
- SET L1=""
- DO SETPIECE^INHU(.LINE,DELIM,12,L1,.CP)
- SET L1=$GET(@INV@("ZV112"))
- IF $TRANSLATE(L1,$GET(SUBDELIM))=""
- SET L1=""
- +4 DO SETPIECE^INHU(.LINE,DELIM,13,L1,.CP)
- SET L1=$GET(@INV@("ZV113"))
- IF $TRANSLATE(L1,$GET(SUBDELIM))=""
- SET L1=""
- DO SETPIECE^INHU(.LINE,DELIM,14,L1,.CP)
- SET L1=$GET(@INV@("ZV114"))
- +5 IF $TRANSLATE(L1,$GET(SUBDELIM))=""
- SET L1=""
- DO SETPIECE^INHU(.LINE,DELIM,15,L1,.CP)
- SET L1=$GET(@INV@("ZV115"))
- IF $TRANSLATE(L1,$GET(SUBDELIM))=""
- SET L1=""
- DO SETPIECE^INHU(.LINE,DELIM,16,L1,.CP)
- +6 SET L1=$GET(@INV@("ZV116"))
- IF $TRANSLATE(L1,$GET(SUBDELIM))=""
- SET L1=""
- DO SETPIECE^INHU(.LINE,DELIM,17,L1,.CP)
- SET L1=$GET(@INV@("ZV117"))
- IF $TRANSLATE(L1,$GET(SUBDELIM))=""
- SET L1=""
- +7 DO SETPIECE^INHU(.LINE,DELIM,18,L1,.CP)
- SET L1=$GET(@INV@("ZV118"))
- IF $TRANSLATE(L1,$GET(SUBDELIM))=""
- SET L1=""
- DO SETPIECE^INHU(.LINE,DELIM,19,L1,.CP)
- SET L1=$GET(@INV@("ZV119"))
- +8 IF $TRANSLATE(L1,$GET(SUBDELIM))=""
- SET L1=""
- DO SETPIECE^INHU(.LINE,DELIM,20,L1,.CP)
- SET L1=$GET(@INV@("ZV120"))
- IF $TRANSLATE(L1,$GET(SUBDELIM))=""
- SET L1=""
- DO SETPIECE^INHU(.LINE,DELIM,21,L1,.CP)
- +9 SET L1=$GET(@INV@("ZV121"))
- IF $TRANSLATE(L1,$GET(SUBDELIM))=""
- SET L1=""
- DO SETPIECE^INHU(.LINE,DELIM,22,L1,.CP)
- SET L1=$GET(@INV@("ZV122"))
- IF $TRANSLATE(L1,$GET(SUBDELIM))=""
- SET L1=""
- +10 DO SETPIECE^INHU(.LINE,DELIM,23,L1,.CP)
- SET L1=$GET(@INV@("ZV123"))
- IF $TRANSLATE(L1,$GET(SUBDELIM))=""
- SET L1=""
- DO SETPIECE^INHU(.LINE,DELIM,24,L1,.CP)
- SET L1=$GET(@INV@("ZV124"))
- +11 IF $TRANSLATE(L1,$GET(SUBDELIM))=""
- SET L1=""
- DO SETPIECE^INHU(.LINE,DELIM,25,L1,.CP)
- SET L1=$GET(@INV@("ZV125"))
- IF $TRANSLATE(L1,$GET(SUBDELIM))=""
- SET L1=""
- DO SETPIECE^INHU(.LINE,DELIM,26,L1,.CP)
- +12 SET L1=$GET(@INV@("ZV126"))
- IF $TRANSLATE(L1,$GET(SUBDELIM))=""
- SET L1=""
- DO SETPIECE^INHU(.LINE,DELIM,27,L1,.CP)
- SET L1=$GET(@INV@("ZV127"))
- IF $TRANSLATE(L1,$GET(SUBDELIM))=""
- SET L1=""
- +13 DO SETPIECE^INHU(.LINE,DELIM,28,L1,.CP)
- SET L1=$GET(@INV@("ZV128"))
- IF $TRANSLATE(L1,$GET(SUBDELIM))=""
- SET L1=""
- DO SETPIECE^INHU(.LINE,DELIM,29,L1,.CP)
- SET L1=$GET(@INV@("ZV129"))
- +14 IF $TRANSLATE(L1,$GET(SUBDELIM))=""
- SET L1=""
- DO SETPIECE^INHU(.LINE,DELIM,30,L1,.CP)
- SET L1=$GET(@INV@("ZV130"))
- IF $TRANSLATE(L1,$GET(SUBDELIM))=""
- SET L1=""
- DO SETPIECE^INHU(.LINE,DELIM,31,L1,.CP)
- +15 SET L1=$GET(@INV@("ZV131"))
- IF $TRANSLATE(L1,$GET(SUBDELIM))=""
- SET L1=""
- DO SETPIECE^INHU(.LINE,DELIM,32,L1,.CP)
- SET L1=$GET(@INV@("ZV132"))
- IF $TRANSLATE(L1,$GET(SUBDELIM))=""
- SET L1=""
- +16 DO SETPIECE^INHU(.LINE,DELIM,33,L1,.CP)
- SET L1=$GET(@INV@("ZV133"))
- IF $TRANSLATE(L1,$GET(SUBDELIM))=""
- SET L1=""
- DO SETPIECE^INHU(.LINE,DELIM,34,L1,.CP)
- SET L1=$GET(@INV@("ZV134"))
- +17 IF $TRANSLATE(L1,$GET(SUBDELIM))=""
- SET L1=""
- DO SETPIECE^INHU(.LINE,DELIM,35,L1,.CP)
- SET L1=$GET(@INV@("ZV135"))
- IF $TRANSLATE(L1,$GET(SUBDELIM))=""
- SET L1=""
- DO SETPIECE^INHU(.LINE,DELIM,36,L1,.CP)
- +18 SET L1=$GET(@INV@("ZV136"))
- IF $TRANSLATE(L1,$GET(SUBDELIM))=""
- SET L1=""
- DO SETPIECE^INHU(.LINE,DELIM,37,L1,.CP)
- SET L1=$GET(@INV@("ZV137"))
- IF $TRANSLATE(L1,$GET(SUBDELIM))=""
- SET L1=""
- +19 DO SETPIECE^INHU(.LINE,DELIM,38,L1,.CP)
- SET L1=$GET(@INV@("ZV138"))
- IF $TRANSLATE(L1,$GET(SUBDELIM))=""
- SET L1=""
- DO SETPIECE^INHU(.LINE,DELIM,39,L1,.CP)
- +20 SET LCT=LCT+1
- SET ^UTILITY("INH",$JOB,LCT)=LINE
- IF $DATA(LINE)>9
- MERGE ^UTILITY("INH",$JOB,LCT)=LINE
- +21 SET INSETID=0
- +22 ;SET ZEN1 = INSGX\^INTHL7F(16456,5)\\999\"OUTPUT TRANSFORM"
- +23 SET D0=INDA
- SET X="OUTPUT TRANSFORM"
- +24 SET X1="^INTHL7F(16456,5)"
- IF $LENGTH($GET(@X1))
- XECUTE $GET(@X1)
- SET X=$EXTRACT(X,1,999)
- +25 SET @INV@("ZEN1")=X
- KILL DXS,D0
- +26 ;SET ZEN2 = INSGX\^INTHL7F(16457,5)\\999\"OUTPUT TRANSFORM"
- +27 SET D0=INDA
- SET X="OUTPUT TRANSFORM"
- +28 SET X1="^INTHL7F(16457,5)"
- IF $LENGTH($GET(@X1))
- XECUTE $GET(@X1)
- SET X=$EXTRACT(X,1,999)
- +29 SET @INV@("ZEN2")=X
- KILL DXS,D0
- +30 ;SET ZEN3 = INSGX\^INTHL7F(16458,5)\\999\"OUTPUT TRANSFORM"
- +31 SET D0=INDA
- SET X="OUTPUT TRANSFORM"
- +32 SET X1="^INTHL7F(16458,5)"
- IF $LENGTH($GET(@X1))
- XECUTE $GET(@X1)
- SET X=$EXTRACT(X,1,999)
- +33 SET @INV@("ZEN3")=X
- KILL DXS,D0
- +34 ;SET ZEN4 = INSGX\^INTHL7F(16459,5)\\999\"OUTPUT TRANSFORM"
- +35 SET D0=INDA
- SET X="OUTPUT TRANSFORM"
- +36 SET X1="^INTHL7F(16459,5)"
- IF $LENGTH($GET(@X1))
- XECUTE $GET(@X1)
- SET X=$EXTRACT(X,1,999)
- +37 SET @INV@("ZEN4")=X
- KILL DXS,D0
- +38 ;SET ZEN5 = INSGX\^INTHL7F(16460,5)\\999\"OUTPUT TRANSFORM"
- +39 SET D0=INDA
- SET X="OUTPUT TRANSFORM"
- +40 SET X1="^INTHL7F(16460,5)"
- IF $LENGTH($GET(@X1))
- XECUTE $GET(@X1)
- SET X=$EXTRACT(X,1,999)
- +41 SET @INV@("ZEN5")=X
- KILL DXS,D0
- +42 ;SET ZEN6 = INSGX\^INTHL7F(16461,5)\\999\"OUTPUT TRANSFORM"
- +43 SET D0=INDA
- SET X="OUTPUT TRANSFORM"
- +44 SET X1="^INTHL7F(16461,5)"
- IF $LENGTH($GET(@X1))
- XECUTE $GET(@X1)
- SET X=$EXTRACT(X,1,999)
- +45 SET @INV@("ZEN6")=X
- KILL DXS,D0
- +46 ;SET ZEN7 = INSGX\^INTHL7F(16462,5)\\999\"OUTPUT TRANSFORM"
- +47 SET D0=INDA
- SET X="OUTPUT TRANSFORM"
- +48 SET X1="^INTHL7F(16462,5)"
- IF $LENGTH($GET(@X1))
- XECUTE $GET(@X1)
- SET X=$EXTRACT(X,1,999)
- +49 SET @INV@("ZEN7")=X
- KILL DXS,D0
- +50 ;SET ZEN8 = INSGX\^INTHL7F(16463,5)\\999\"OUTPUT TRANSFORM"
- +51 SET D0=INDA
- SET X="OUTPUT TRANSFORM"
- +52 SET X1="^INTHL7F(16463,5)"
- IF $LENGTH($GET(@X1))
- XECUTE $GET(@X1)
- SET X=$EXTRACT(X,1,999)
- +53 SET @INV@("ZEN8")=X
- KILL DXS,D0
- +54 ;SET ZEN9 = INSGX\^INTHL7F(16464,5)\\999\"OUTPUT TRANSFORM"
- +55 SET D0=INDA
- SET X="OUTPUT TRANSFORM"
- +56 SET X1="^INTHL7F(16464,5)"
- IF $LENGTH($GET(@X1))
- XECUTE $GET(@X1)
- SET X=$EXTRACT(X,1,999)
- +57 SET @INV@("ZEN9")=X
- KILL DXS,D0
- +58 ;SET ZEN10 = INSGX\^INTHL7F(16465,5)\\999\"OUTPUT TRANSFORM"
- +59 SET D0=INDA
- SET X="OUTPUT TRANSFORM"
- +60 SET X1="^INTHL7F(16465,5)"
- IF $LENGTH($GET(@X1))
- XECUTE $GET(@X1)
- SET X=$EXTRACT(X,1,999)
- +61 SET @INV@("ZEN10")=X
- KILL DXS,D0
- +62 ;SET ZEN11 = INSGX\^INTHL7F(16466,5)\\999\"OUTPUT TRANSFORM"
- +63 SET D0=INDA
- SET X="OUTPUT TRANSFORM"
- +64 SET X1="^INTHL7F(16466,5)"
- IF $LENGTH($GET(@X1))
- XECUTE $GET(@X1)
- SET X=$EXTRACT(X,1,999)
- +65 SET @INV@("ZEN11")=X
- KILL DXS,D0
- +66 ;SET ZEN12 = INSGX\^INTHL7F(16467,5)\\999\"OUTPUT TRANSFORM"
- +67 SET D0=INDA
- SET X="OUTPUT TRANSFORM"
- +68 SET X1="^INTHL7F(16467,5)"
- IF $LENGTH($GET(@X1))
- XECUTE $GET(@X1)
- SET X=$EXTRACT(X,1,999)
- +69 SET @INV@("ZEN12")=X
- KILL DXS,D0
- +70 ;SET ZEN13 = INSGX\^INTHL7F(16468,5)\\999\"OUTPUT TRANSFORM"
- +71 SET D0=INDA
- SET X="OUTPUT TRANSFORM"
- +72 SET X1="^INTHL7F(16468,5)"
- IF $LENGTH($GET(@X1))
- XECUTE $GET(@X1)
- SET X=$EXTRACT(X,1,999)
- +73 SET @INV@("ZEN13")=X
- KILL DXS,D0
- +74 ;SET ZEN14 = INSGX\^INTHL7F(16673,5)\\999\"OUTPUT TRANSFORM"
- +75 SET D0=INDA
- SET X="OUTPUT TRANSFORM"
- +76 SET X1="^INTHL7F(16673,5)"
- IF $LENGTH($GET(@X1))
- XECUTE $GET(@X1)
- SET X=$EXTRACT(X,1,999)
- +77 SET @INV@("ZEN14")=X
- KILL DXS,D0
- +78 ;SET ZEN15 = INSGX\^INTHL7F(16674,5)\\999\"OUTPUT TRANSFORM"
- +79 SET D0=INDA
- SET X="OUTPUT TRANSFORM"
- +80 SET X1="^INTHL7F(16674,5)"
- IF $LENGTH($GET(@X1))
- XECUTE $GET(@X1)
- SET X=$EXTRACT(X,1,999)
- +81 SET @INV@("ZEN15")=X
- KILL DXS,D0
- +82 ;SET ZEN16 = INSGX\^INTHL7F(16675,5)\\999\"OUTPUT TRANSFORM"
- +83 SET D0=INDA
- SET X="OUTPUT TRANSFORM"
- +84 SET X1="^INTHL7F(16675,5)"
- IF $LENGTH($GET(@X1))
- XECUTE $GET(@X1)
- SET X=$EXTRACT(X,1,999)
- +85 SET @INV@("ZEN16")=X
- KILL DXS,D0
- +86 ;SET ZEN17 = INSGX\^INTHL7F(16676,5)\\999\"OUTPUT TRANSFORM"
- +87 SET D0=INDA
- SET X="OUTPUT TRANSFORM"
- +88 SET X1="^INTHL7F(16676,5)"
- IF $LENGTH($GET(@X1))
- XECUTE $GET(@X1)
- SET X=$EXTRACT(X,1,999)
- +89 SET @INV@("ZEN17")=X
- KILL DXS,D0
- +90 ;SET ZEN18 = INSGX\^INTHL7F(16677,5)\\999\"OUTPUT TRANSFORM"
- +91 SET D0=INDA
- SET X="OUTPUT TRANSFORM"
- +92 SET X1="^INTHL7F(16677,5)"
- IF $LENGTH($GET(@X1))
- XECUTE $GET(@X1)
- SET X=$EXTRACT(X,1,999)
- +93 SET @INV@("ZEN18")=X
- KILL DXS,D0
- +94 ;SET ZEN19 = INSGX\^INTHL7F(16678,5)\\999\"OUTPUT TRANSFORM"
- +95 SET D0=INDA
- SET X="OUTPUT TRANSFORM"
- +96 SET X1="^INTHL7F(16678,5)"
- IF $LENGTH($GET(@X1))
- XECUTE $GET(@X1)
- SET X=$EXTRACT(X,1,999)
- +97 SET @INV@("ZEN19")=X
- KILL DXS,D0
- +98 ;SET ZEN20 = INSGX\^INTHL7F(16679,5)\\999\"OUTPUT TRANSFORM"
- +99 SET D0=INDA
- SET X="OUTPUT TRANSFORM"
- +100 SET X1="^INTHL7F(16679,5)"
- IF $LENGTH($GET(@X1))
- XECUTE $GET(@X1)
- SET X=$EXTRACT(X,1,999)
- +101 SET @INV@("ZEN20")=X
- KILL DXS,D0
- +102 ;SET ZEN21 = INSGX\^INTHL7F(16680,5)\\999\"OUTPUT TRANSFORM"
- +103 SET D0=INDA
- SET X="OUTPUT TRANSFORM"
- +104 SET X1="^INTHL7F(16680,5)"
- IF $LENGTH($GET(@X1))
- XECUTE $GET(@X1)
- SET X=$EXTRACT(X,1,999)
- 9 GOTO EN^IS00007F
