Return to DIEF1.m CVS log

Up to [Coherent Logic Development] / freem_fileman

Annotation of freem_fileman/DIEF1.m, revision 1.1.1.1

1.1       snw         1: DIEF1  ;SFISC/DPC-FILER UTILITIES ;12/21/94  08:50
                      2:        ;;21.0;VA FileMan;;Dec 28, 1994
                      3:        ;Per VHA Directive 10-93-142, this routine should not be modified.
                      4: LOAD(DIEFF,DIEFDAS,DIEFFLD,DIEFFLG,DIEFVAL,DIEFAR,DIEFOUT)     ;
                      5: LOADX  ;
                      6:        N DIEFIEN
                      7:        I '$D(DIQUIET) N DIQUIET S DIQUIET=1
                      8:        I '$D(DIFM) N DIFM S DIFM=1 D INIZE^DIEFU
                      9:        I $G(DIEFDAS)']"" D BLD^DIALOG(202,"IENS","IENS") G OUT
                     10:        I $E(DIEFDAS,$L(DIEFDAS))="," S DIEFIEN=DIEFDAS
                     11:        E  S DIEFIEN=$$IEN^DIEFU(.DIEFDAS)
                     12:        I '$$VROOT^DIEFU(DIEFAR) G OUT
                     13:        I '$$VFILE^DIEFU(DIEFF,"D") G OUT
                     14:        S DIEFFLD=$$CHKFLD^DIEFU(DIEFF,DIEFFLD) G:'DIEFFLD OUT
                     15:        I $G(DIEFFLG)["R",'$$VENTRY^DIEFU(DIEFF,DIEFIEN,"D") G OUT
                     16:        S @DIEFAR@(DIEFF,DIEFIEN,DIEFFLD)=DIEFVAL
                     17: OUT    I $G(DIEFOUT)]"" D CALLOUT^DIEFU(DIEFOUT)
                     18:        Q
                     19:        ;
                     20: FLDNUM(DIEFF,DIEFFDNM) ;
                     21: FLDNUMX        ;
                     22:        I '$D(DIQUIET) N DIQUIET S DIQUIET=1
                     23:        I '$D(DIFM) N DIFM S DIFM=1 D INIZE^DIEFU
                     24:        I '$$VFILE^DIEFU(DIEFF,"D") Q 0
                     25:        N DIEFFNUM
                     26:        I $D(^DD(DIEFF,"B",DIEFFDNM)) D  Q DIEFFNUM
                     27:        . S DIEFFNUM=$O(^DD(DIEFF,"B",DIEFFDNM,""))
                     28:        . I $O(^DD(DIEFF,"B",DIEFFDNM,DIEFFNUM)) N P S P(1)=DIEFFDNM,P("FILE")=DIEFF D BLD^DIALOG(505,.P,.P) S DIEFFNUM=0
                     29:        N P S P("FILE")=DIEFF,P(1)=DIEFFDNM D BLD^DIALOG(501,.P,.P)
                     30:        Q 0
                     31:        ;
                     32: ADDCONV(DIEFIEN,DIEFADAR)      ;
                     33:        N I,DIEFNIEN,P
                     34:        F I=1:1:$L(DIEFIEN,",")-1 D
                     35:        . S P=$P(DIEFIEN,",",I)
                     36:        . I P,$E(P)'="+" Q
                     37:        . S DIEFNIEN=@DIEFADAR@($TR(P,"+?"))
                     38:        . S $P(DIEFIEN,",",I)=DIEFNIEN
                     39:        Q DIEFIEN
                     40:        ;
                     41: PUTDATA        ;CODE TO ACTUALLY PUT THE DATA INTO THE NODE BEING EDITED. ALSO SAVES ORIGINAL VALUES. CALLED FROM DIEF.
                     42:        I +DIEFSPOT D
                     43:        . I DIEFNVAL[U D  Q
                     44:        . . S DIEFNG=1
                     45:        . . N INT,EXT
                     46:        . . S INT(1)=$$FLDNM^DIEFU(DIEFF,DIEFFLD),INT(2)=$$FILENM^DIEFU(DIEFF),EXT("FILE")=DIEFF,EXT("FIELD")=DIEFFLD
                     47:        . . D BLD^DIALOG(714,.INT,.EXT)
                     48:        . S DIEFOVAL=$P(DIEFFVAL,"^",DIEFSPOT)
                     49:        . S $P(DIEFFVAL,"^",DIEFSPOT)=DIEFNVAL,DOREPL=1
                     50:        E  I $E(DIEFSPOT)="E" D
                     51:        . N FR,TO,OLEN,NLEN
                     52:        . S FR=$P($P(DIEFSPOT,"E",2),",",1),TO=$P(DIEFSPOT,",",2)
                     53:        . S NLEN=$L(DIEFNVAL)
                     54:        . I NLEN-1>(TO-FR) D  Q
                     55:        . . S DIEFNG=1
                     56:        . . N INT,EXT
                     57:        . . S INT(1)=$$FLDNM^DIEFU(DIEFF,DIEFFLD),INT(2)=$$FILENM^DIEFU(DIEFF),EXT("FILE")=DIEFF,EXT("FIELD")=DIEFFLD
                     58:        . . D BLD^DIALOG(716,.INT,.EXT)
                     59:        . S DIEFOVAL=$E(DIEFFVAL,FR,TO),OLEN=$L(DIEFOVAL)
                     60:        . I $E(DIEFFVAL,TO+1,999)="" S $E(DIEFFVAL,FR,TO)=DIEFNVAL
                     61:        . E  S $E(DIEFFVAL,FR,TO)=DIEFNVAL_$J("",$S(OLEN>NLEN:OLEN-NLEN,1:0))
                     62:        . S DOREPL=1
                     63:        E  I DIEFSPOT=0 D
                     64:        . I $P($G(^DD(+$P(^DD(DIEFF,DIEFFLD,0),U,2),.01,0)),U,2)["W" D
                     65:        . . I '$$VROOT^DIEFU(DIEFNVAL) Q
                     66:        . . D PUTWP^DIEFW(DIEFFLAG,DIEFNVAL,DIEFNODE)
                     67:        . E  D
                     68:        . . N INT,EXT
                     69:        . . S (INT(1),EXT(1))="MULTIPLE",EXT("FILE")=DIEFF,EXT("FIELD")=DIEFFLD
                     70:        . . D BLD^DIALOG(520,.INT,.EXT)
                     71:        . . S DIEFNG=1
                     72:        E  I DIEFSPOT=" " D
                     73:        . N INT,EXT
                     74:        . S (INT(1),EXT(1))="COMPUTED",EXT("FILE")=DIEFF,EXT("FIELD")=DIEFFLD
                     75:        . D BLD^DIALOG(520,.INT,.EXT)
                     76:        . S DIEFNG=1
                     77:        Q
                     78:        ;