Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: AMQQCMPZ

AMQQCMPZ.m

Go to the documentation of this file. 
  1. AMQQCMPZ ;IHS/CMI/THL - TURBO CODE FOR LAB RESULTS ;
  1.  ;;2.0;IHS PCC SUITE;**2**;MAY 14, 2009
  1.  ;-----
  1. TURB51 ; ENTRY POINT FROM AMQQCMP1
  1.  N AMQQEXFL
  1.  S AMQQEXFL="^AUPNVSK"
  1.  D TURB5
  1.  Q
  1.  ;
  1. TURB81 ; ENTRY POINT FROM AMQQCMP1
  1.  N AMQQEXFL,AMQQEXSP
  1.  S AMQQEXFL="^AUPNVXAM"
  1. TURB8 S %=$P(^AMQQ(1,+Q,0),U,15)
  1.  S AMQQLINO=2
  1.  S C=$P(Q,U,15)
  1.  S A=$P(C,";",4)
  1.  S B=$P(C,";",5)
  1.  I 'A S A=0 I 'B S A="",B=0
  1.  I A=B S A=A-.1
  1.  I A=.9 S A=0
  1.  ;PATCH XXX
  1.  S AMQQEXSP=";"
  1.  I AMQQEXFL["^AUPNVXAM",A=-999999999 S AMQQEXSP=":"
  1.  S AMQV(1)="S AMQP(.1)="""_%_AMQQEXSP_A_""",AMQP(.11)="""_%_";"_B_""" X AMQV(2)"
  1.  ;PATCH XXX
  1.  D TURBLAB
  1.  D KILL
  1.  Q
  1.  ;
  1. TURBLAB N W,AMQQTG
  1.  S AMQQTG=$S('$D(AMQQEXFL):"^AUPNVLAB",1:AMQQEXFL)
  1.  S AMQV(AMQQLINO)="F  S %=$O("_AMQQTG_"(""AQ"",AMQP(.1))) S:((AMQP(.1)=99999999999)!(%="""")!(%]AMQP(.11))) %=""99999;999"" K:"
  1.  S AMQV(AMQQLINO)=AMQV(AMQQLINO)_%_"'=+% ^UTILITY(""AMQQ TEMP"",$J) Q:"_%_"'=+%  S AMQP(.1)=% X AMQV("_(AMQQLINO+1)_")"
  1.  S AMQQLINO=AMQQLINO+1
  1.  S W="F AMQP(.2)=0:0 Q:"_%_"'=+AMQP(.1)  S AMQP(.2)=$O("_AMQQTG_"(""AQ"",AMQP(.1),AMQP(.2))) Q:'AMQP(.2)  S %=$P("
  1.  S W=W_AMQQTG_"(AMQP(.2),0),U,2) I '$D(^UTILITY(""AMQQ TEMP"",$J,%)) S ^(%)="""",AMQP(0)=% X AMQV("_(AMQQLINO+1)_")"
  1.  S AMQV(AMQQLINO)=W
  1.  S AMQQLINO=AMQQLINO+1
  1.  Q
  1.  ;
  1. TSETLAB S A=$E("000000000",1,E-$L(A\1))_A,B=$E("000000000",1,E-$L(B\1))_B
  1.  K E,F
  1.  Q
  1.  ;
  1. TURB5 S %=$P(^AMQQ(1,+Q,0),U,15)
  1.  S AMQQLINO=2
  1.  S C=$P(Q,U,15)
  1.  S A=$P(C,";",4)
  1.  S B=$P(C,";",5)
  1.  I A=B S A=A-.000001
  1.  S E=4
  1.  D TSETLAB
  1.  I '$D(AMQQEXFL),$D(^AMQQ(5,"LC",+Q)) D COLAB G T51
  1.  S AMQV(1)="S AMQP(.1)="""_%_";"_A_""",AMQP(.11)="""_%_";"_B_""" X AMQV(2)"
  1. T51 D TURBLAB
  1.  D KILL
  1.  Q
  1.  ;
  1. TURB6 S %=$P(^AMQQ(1,+Q,0),U,15)
  1.  S AMQQLINO=2
  1.  S C=$P(Q,U,15)
  1.  S A=$P(C,";",4)
  1.  S B=$P(C,";",5)
  1.  S:A="-" A=-2
  1.  S:A=B A=A-.1
  1.  I $E(A)="." S A=0_A
  1.  I $E(B)="." S B=0_B
  1.  S AMQV(1)="S AMQP(.1)="""_%_";"_A_""",AMQP(.11)="""_%_";"_B_""" X AMQV(2)"
  1.  D TURBLAB
  1.  D KILL
  1.  Q
  1.  ;
  1. TURB7 S %=$P(^AMQQ(1,+Q,0),U,15)
  1.  S AMQQLINO=2
  1.  S C=$P(Q,U,15)
  1.  S A=$P(C,";",4)
  1.  S B=$P(C,";",5)
  1.  I 'A S A=0 I 'B S A="",B=0
  1.  I A=B S A=A-.1
  1.  S E=9
  1.  D TSETLAB
  1.  I A=-999999999 S A=""
  1.  I A="00000000.99999999" S A="000000000"
  1.  S AMQV(1)="S AMQP(.1)="""_%_";"_A_""",AMQP(.11)="""_%_";"_B_""" X AMQV(2)"
  1.  D TURBLAB
  1.  D KILL
  1.  Q
  1.  ;
  1. TURB11 ; ENTRY POINT FROM AMQQCMP1
  1.  S %=$P(Q,U,15)
  1.  S %=$P(%,";",4)
  1.  I %=0!(%="A") D TURB110 Q
  1.  S %=+$P(^AMQQ(1,+Q,2),"AUPNVIMM;",2)_";"_%
  1.  S AMQQLINO=3
  1.  S AMQV(1)="S AMQP(0)=0 F AMQP(2.11)=0:0 K:AMQP(0)=99999999999 ^UTILITY(""AMQQ TEMP"",$J) Q:AMQP(0)=99999999999  S AMQP(2.11)=$O(^AUPNVIMM(""AQ"","""_%_""",AMQP(2.11))) Q:'AMQP(2.11)  X AMQV(2)"
  1.  S AMQV(2)="S %=$P(^AUPNVIMM(AMQP(2.11),0),U,2) I $D(^DPT(%)),'$D(^UTILITY(""AMQQ TEMP"",$J,%)) S ^(%)="""",AMQP(0)=% X AMQV(3)"
  1.  K %
  1.  Q
  1.  ;
  1. TURB110 S AMQQLINO=4
  1.  S (AMQQ1,%)=":"_$P(^AMQQ(1,+Q,2),";",2)_":"
  1.  I $L(%,":")>2 D  I 1
  1.  .S AMQV(1)="F AMQQJ=2:1 S AMQP(2.111)=$P(AMQQ1,"":"",AMQQJ)_"":"" Q:'AMQP(2.111)  S AMQPX=AMQP(2.111),AMQP(0)=0 "
  1.  .S AMQV(1)=AMQV(1)_"F  K:AMQP(0)=99999999999 ^UTILITY(""AMQQ TEMP"",$J) Q:AMQP(0)=99999999999  S AMQP(2.111)=$O(^AUPNVIMM(""AQ"",AMQP(2.111))) Q:AMQP(2.111)'[+AMQPX  X AMQV(2)"
  1.  E  S AMQV(1)="S AMQP(0)=0,AMQP(2.111)="""_%_""" F  K:AMQP(0)=99999999999 ^UTILITY(""AMQQ TEMP"",$J) Q:AMQP(0)=99999999999  S AMQP(2.111)=$O(^AUPNVIMM(""AQ"",AMQP(2.111))) Q:+AMQP(2.111)'="""_+%_"""  X AMQV(2)"
  1.  S AMQV(2)="F AMQP(2.11)=0:0 Q:AMQP(0)=99999999999  S AMQP(2.11)=$O(^AUPNVIMM(""AQ"",AMQP(2.111),AMQP(2.11))) Q:'AMQP(2.11)  X AMQV(3)"
  1.  S AMQV(3)="S %=$P(^AUPNVIMM(AMQP(2.11),0),U,2) I $D(^DPT(%)),'$D(^UTILITY(""AMQQ TEMP"",$J,%)) S ^(%)="""",AMQP(0)=% X AMQV(4)"
  1.  Q
  1.  ;
  1. TURB20 S AMQQLINO=3
  1.  S %=$P(^AMQQ(1,+Q,0),U,3)
  1.  S %=^DIC(%,0,"GL")
  1.  S X=$P(Q,U,15)
  1.  S X=$P(X,";",4)
  1.  S AMQV(1)="F AMQP(.1)=0:0 S AMQP(.1)=$O(^UTILITY(""AMQQ TAX"",$J,"_X_",AMQP(.1))) K:'AMQP(.1) ^UTILITY(""AMQQ TEMP"",$J) Q:'AMQP(.1)  F AMQP(.11)=0:0 S AMQP(.11)=$O("_%_"""B"",AMQP(.1),AMQP(.11))) Q:'AMQP(.11)  X AMQV(2)"
  1.  S AMQV(2)="S %=$P("_%_"AMQP(.11),0),U,2) I %,'$D(^UTILITY(""AMQQ TEMP"",$J,%)) S ^(%)="""",AMQP(0)=% X AMQV(3)"
  1.  K %
  1.  Q
  1.  ;
  1. TURB9 S AMQQLINO=4
  1.  S X=$P(Q,U,15)
  1.  S X=$P(X,";",4)
  1.  S %=$S($D(AMQQEXFL):AMQQEXFL,1:"^AUPNVLAB")
  1.  S AMQV(1)="S AMQP(.1)="""" F  K:$G(AMQP(0))=99999999999 ^UTILITY(""AMQQ TEMP"",$J) Q:$G(AMQP(0))=99999999999  S AMQP(.1)=$O(^UTILITY(""AMQQ TAX"",$J,"_X_",AMQP(.1))) K:AMQP(.1)="""" ^UTILITY(""AMQQ TEMP"",$J) Q:AMQP(.1)=""""  X AMQV(2)"
  1.  S AMQV(2)="F AMQP(.11)=0:0 Q:$G(AMQP(0))=99999999999  S AMQP(.11)=$O("_%_"(""AQ"",("""_$P(^AMQQ(1,+Q,0),U,15)_";""_AMQP(.1)),AMQP(.11))) Q:'AMQP(.11)  X AMQV(3)"
  1.  S AMQV(3)="S %=$P("_%_"(AMQP(.11),0),U,2) I %,'$D(^UTILITY(""AMQQ TEMP"",$J,%)) S ^(%)="""",AMQP(0)=% X AMQV(4)"
  1.  K %
  1.  Q
  1.  ;
  1. KILL K %,A,B,C,E,F,J,N,Q,W,X,Z
  1.  Q
  1.  ;
  1. COLAB N X,N,Z,J S X=""
  1.  S Z=$P($G(^AMQQ(1,+Q,2)),";",2)
  1.  F J=1:1 S N=$P(Z,":",J) Q:'N  S N=N\1,X=X_N_U
  1.  S AMQV(1)="F AMQP(.01)=1:1 S AMQP(""LAB"")=$P("""_X_""",U,AMQP(.01)) Q:'AMQP(""LAB"")  Q:$G(AMQP(0))=99999999999  S AMQP(.1)=AMQP(""LAB"")_"";"_A_""",AMQP(.11)=AMQP(""LAB"")_"";"_B_""" X AMQV(2)"
  1.  S %="AMQP(""LAB"")"
  1.  Q
  1.  ;
  1. TURB500 S %=5 G TURBDXPR ; ENTRY POINT FROM AMQQCMP1
  1. TURB600 S %=6 G TURBDXPR ; ENTRY POINT FROM AMQQCMP1
  1. TURB700 S %=7 G TURBDXPR ; ENTRY POINT FROM AMQQCMP1
  1. TURB800 S %=8 G TURBDXPR ; ENTRY POINT FROM AMQQCMP1
  1. TURB900 S %=9 G TURBDXPR ; ENTRY POINT FROM AMQQCMP1
  1. TURBDXPR S AMQQEXFL="^AUPNVDXP"
  1.  D @("TURB"_%)
  1.  Q
  1.  ;