Return to DINIT42.m CVS log

Up to [Coherent Logic Development] / freem_fileman

Annotation of freem_fileman/DINIT42.m, revision 1.1.1.1

1.1       snw         1: DINIT42        ;SFISC/XAK-INITIALIZE VA FILEMAN ;1/10/91  1:43 PM
                      2:        ;;21.0;VA FileMan;;Dec 28, 1994
                      3:        ;Per VHA Directive 10-93-142, this routine should not be modified.
                      4:        S %=47
                      5: DD     F I=1:5 S X=$E($T(DD+I),4,999),%=%+1 G FUNC:X?.P S ^DD("FUNC",%,0)=$P(X,";"),Y=I F DU=1,2,3,9 S Y=Y+1,X=$E($T(DD+Y),4,999) I X]"" S ^(DU)=X
                      6:        ;;PARAM
                      7:        ;;S X=$S(X=""!(X'?.ANP):"",$D(DIPA($E(X,1,30))):DIPA($E(X,1,30)),1:"")
                      8:        ;;
                      9:        ;;
                     10:        ;;RETURNS VALUE OF PARAMETER NAMED BY ARGUMENT
                     11:        ;;IOM
                     12:        ;;S X=$S($D(IOM):IOM,1:80)
                     13:        ;;
                     14:        ;;0
                     15:        ;;RETURNS THE NUMBER OF COLUMN POSITIONS ON THE PAGE OR SCREEN (E.G., 80)
                     16:        ;;DUP
                     17:        ;;S %=X,X="" Q:X1=""  S $P(X,X1,%\$L(X1)+1)=X1,X=$E(X,1,%)
                     18:        ;;
                     19:        ;;2
                     20:        ;;DUPLICATES THE 1ST ARGUMENT INTO AN 'N'-BYTE STRING, WHERE 'N' IS 2ND ARGUMENT
                     21:        ;;STRIPBLANKS
                     22:        ;;X:X[" " "F %=0:0 Q:$A(X)-32  S X=$E(X,2,999)","F %=0:0 S %=$L(X) Q:$A(X,%)-32  S X=$E(X,1,%-1)"
                     23:        ;;
                     24:        ;;
                     25:        ;;DELETES LEADING AND TRAILING SPACES FROM THE ARGUMENT STRING
                     26:        ;;TRANSLATE
                     27:        ;;X "F %=1:1:$L(X1) F %Y=0:0 S %Y=$F(X2,$E(X1,%),%Y) Q:'%Y  S I=$E(X,%),X2=$E(X2,1,%Y-2)_I_$E(X2,%Y,999) S:I="""" %Y=%Y-1" S X=X2
                     28:        ;;
                     29:        ;;3
                     30:        ;;REPLACES, IN ARG1, EACH OCCURRENCE OF EACH CHAR IN ARG2 WITH THE CORRESPONDING CHAR IN ARG3
                     31:        ;;PADRIGHT
                     32:        ;;S:$L(X1)<X X1=X1_$J("",X-$L(X1)) S X=X1
                     33:        ;;
                     34:        ;;2
                     35:        ;;RETURNS 'ARG1', WITH SPACES ADDED TO GENERATE A STRING 'ARG2' BYTES LONG
                     36:        ;;FILE
                     37:        ;;S X=$S('X:X,X'["(":X,'$D(@(U_$E($P(X,+X,2,99),2,99)_"0)")):X,1:$P(^(0),U))
                     38:        ;;
                     39:        ;;1
                     40:        ;;Names file for variable pointer type fields.
                     41:        ;;USER
                     42:        ;;S %=$S($D(^VA(200,+DUZ,0)):^(0),1:""),X=$S('DUZ:"??",X="#":DUZ,X="N":$P(%,U,1),X="I":$P(%,U,2),X="T":$S($D(^DIC(3.1,+$P(%,U,9),0)):$P(^(0),U,1),1:""),X="NN":$S($D(^VA(200,+DUZ,.1)):$P(^(.1),U,4),1:""),1:"??") K %
                     43:        ;;
                     44:        ;;1
                     45:        ;;RETURNS USER ATTRIBUTES: #=NUMBER,N=NAME,I=INITIAL,T=TITLE,NN=NICKNAME
                     46:        ;;VAR
                     47:        ;;Q:X[U!(X["$C(94)")!X  S X=$S($D(@X):@X,1:"")
                     48:        ;;
                     49:        ;;1
                     50:        ;;RETURNS VALUE OF A LOCAL VARIABLE IF IT'S THERE
                     51:        ;;SETDATA
                     52:        ;;S X1=X
                     53:        ;;
                     54:        ;;2
                     55:        ;;SETS FIRST ARGUMENT EQUAL TO THE SECOND ARGUMENT
                     56:        ;;NOON
                     57:        ;;S %DT="XR",X="T@NOON" D ^%DT S X=+Y
                     58:        ;;D
                     59:        ;;0
                     60:        ;;RETURNS THE CURRENT DATE AND THE TIME VALUE OF 12:OO.
                     61:        ;;MID
                     62:        ;;S %DT="XR",X="T@MID" D ^%DT S X=+Y
                     63:        ;;D
                     64:        ;;0
                     65:        ;;RETURNS THE CURRENT DATE AND THE TIME VALUE OF 24:00.
                     66:        ;;
                     67: FUNC   F I=2:1:8 S X=$T(FUNC+I),^DD("FUNC",I+91,0)=$P(X,";",3),^(9)=$P(X,";",4)
                     68:        G ^DINIT5
                     69:        ;;MAXIMUM;TAKES MULTIPLE-VALUED FIELD AS ARGUMENT.  RETURNS THE MAXIMUM VALUE OF ALL THE MULTIPLES.
                     70:        ;;MINIMUM;TAKES MULTIPLE-VALUED FIELD AS ARGUMENT.  RETURNS THE MINIMUM VALUE OF ALL THE MULTIPLES.
                     71:        ;;NEXT;TAKES SINGLE-VALUED FIELD AS ARGUMENT.  RETURNS THE VALUE THAT THAT FIELD HAS IN THE NEXT ENTRY OR SUB-ENTRY.
                     72:        ;;PREVIOUS;TAKES SINGLE-VALUED FIELD AS ARGUMENT.  RETURNS THE VALUE THAT THAT FIELD HAS IN THE PREVIOUS ENTRY OR SUB-ENTRY.
                     73:        ;;TOTAL;TAKES MULTIPLE-VALUED FIELD AS ARGUMENT.  RETURNS THE TOTAL OF ALL THE MULTIPLES FOR WHICH THERE ARE VALUES.
                     74:        ;;COUNT;TAKES MULTIPLE-VALUED FIELD (OR FILE NAME) AS ARGUMENT.  RETURNS THE NUMBER OF MULTIPLES CURRENTLY EXISTING.
                     75:        ;;LAST;TAKES MULTIPLE-VALUED FIELD NAME AS ARGUMENT.  RETURNS THE VALUE OF THE LAST MULTIPLE.