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

AZHLSCFV.m

Go to the documentation of this file.
  1. AZHLSCFV ; IHS/ADC/GTH:KEU - DSM QABLE FIELD VERIFIER ;
  1. ;;5.0;AZHLSC;;JUL 10, 1996
  1. ;
  1. NEW A,AZHLFLDS,AZHLNMSP,DIC,DA,DDC,DE,DG,DIFLD,DIR,DIRUT,DISYS,DIU,DQ,DQI,DR,D0,B,C,D,E,F,G,I,J,L,N,P,Q,S,T,V,W,Z
  1. ;
  1. S:'$D(DTIME) DTIME=300
  1. 0 W !!!?4,$P($P($T(@"AZHLSCFV"),";",2),"-",2)," v ",$P($T(@"AZHLSCFV"+1),";",3),!
  1. W !! S DIC="^DIC(",DIC(0)="QAZEM" D ^DIC G:Y<0 Q S A=+Y,AZHLNMSP=$P(^DIC(A,0),U),DIU=^(0,"GL")
  1. ;
  1. K J
  1. S Q="""",S=";",V=0,P=0,I(0)=DIU,@("(A,J(0))=+$P("_DIU_"0),U,2)")
  1. I $O(^(0))'>0 W *7," NO ENTRIES ON FILE!" Q
  1. DIC S DIC="^DD(A,",DIC(0)="EZ",DIC("W")="W:$P(^(0),U,2) "" (multiple)"""
  1. S DIC("S")="S %=$P(^(0),U,2) I %'[""C"",$S('%:1,1:$P(^DD(+%,.01,0),U,2)'[""W"")"
  1. W !,"VERIFY WHICH "_$P(^DD(A,0),U)_": " R X:DTIME Q:U[X
  1. I X="ALL" D ALL^DIV G Q:$D(DIRUT) I Y S AZHLFLDS="ALL" G DEVICE
  1. D ^DIC K DQI,^UTILITY("DIVR",$J)
  1. I Y<0 W:X?1."?" !?3,"You may enter ALL to verify every field at this level of the file.",! G DIC
  1. S DR=$P(Y(0),U,2) I DR S J(V)=A,P=+Y,V=V+1,A=+DR,I(V)=$P($P(Y(0),U,4),S,1) S:+I(V)'=I(V) I(V)=Q_I(V)_Q G DIC
  1. S AZHLFLDS=X
  1. ;
  1. ;
  1. DEVICE W !!,"Report will be QUEUE'd if device other than HOME selected.",! K IOP,%ZIS S %ZIS="NQM",%ZIS("B")="" D ^%ZIS K %ZIS I POP W !,*7,"No device specified." G Q
  1. S IOP=ION_";"_IOST_$S($D(IO("DOC")):";"_IO("DOC"),1:";"_IOM_";"_IOSL)
  1. I IO=IO(0),"C"[$E(IOST),$D(IO("Q"))#2 W !,"Can't Q to home device." K IO("Q") G DEVICE
  1. I IO'=IO(0),'$D(IO("Q")) W !!,"Report being QUEUE'd to run now for you." S IO("Q")=1,ZTDTH=$H
  1. I '$D(IO("Q")) D ^%ZIS G START
  1. S ZTRTN="START^AZHLSCFV",ZTIO=IOP,ZTDESC="FIELD VERIFICATION of "_AZHLNMSP_" file." S ZTSAVE("*")=""
  1. K IO("Q") D ^%ZTLOAD D HOME^%ZIS
  1. DEVEND K IOP,ZTSK G Q
  1. START ;EP - From TaskMan.
  1. S X="QEND^AZHLSCFV",@^%ZOSF("TRAP")
  1. U IO W !!,"<<<<<<< DSM QABLE FIELD VERIFIER >>>>>>>",!,"File : ",AZHLNMSP," (",$S($D(^DIC(A,0,"GL")):^("GL"),1:A),")",! D BEG^AZHLSC
  1. I AZHLFLDS="ALL" F DQI=0:0 S DQI=$O(^DD(A,DQI)) G QEND:DQI'>0 S Y=DQI,Y(0)=^(Y,0),DR=$P(Y(0),U,2) I 'DR,DR'["C" W !!,"--",$P(Y(0),U),"--" D 1
  1. S Y=$O(^DD(A,"B",AZHLFLDS,0))
  1. 1 F T="N","D","P","S","V","F" Q:DR[T
  1. F W="FREE TEXT","SET OF CODES","DATE","NUMERIC","POINTER","VARIABLE POINTER","K" I T[$E(W) S:W="K" W="MUMPS" W " ",W
  1. K DA S Z=$P(Y(0),U,3),DDC=$P(Y(0),U,5,99),(DIFLD,DA)=+Y
  1. D ^DIVR
  1. Q:AZHLFLDS="ALL"
  1. QEND ;EP - If error, probable for NODEV at Q+1^DIVR.
  1. S X="^%ET",@^%ZOSF("TRAP")
  1. W !!!,"<< DSM QABLE FIELD VERIFIER >>" D FIN^AZHLSC
  1. I $D(ZTQUEUED) Q
  1. D Q
  1. G 0
  1. Q K DIR,DIRUT,N,P,Q,S,V,C
  1. Q