DINIT0FN.m

DINIT0FN ;SFISC/MKO-DATA FOR FORM AND BLOCK FILES ;10:49 AM  30 Mar 1999

 ;;22.0;VA FileMan;;Mar 30, 1999

 ;Per VHA Directive 10-93-142, this routine should not be modified.

 F I=1:2 S X=$T(ENTRY+I) G:X="" ^DINIT02 S Y=$E($T(ENTRY+I+1),5,999),X=$E(X,4,999),@X=Y

 Q

ENTRY ;

 ;;^DIST(.404,.4612,40,15,.1)

 ;;=I $D(DDMPFDSL("CAP",6+DDMPOSET)) N DDMPNUM,DDMPLEN S DDMPNUM=6+DDMPOSET,DDMPLEN=$L(DDMPFDSL("CAP",DDMPNUM)),Y=$S($G(DDMPMRK(DDMPNUM)):"*",1:" ")_$S(DDMPNUM<10:" ",1:"")_DDMPNUM_" - "_$E(DDMPFDSL("CAP",DDMPNUM),DDMPLEN-70,DDMPLEN)

 ;;^DIST(.404,.4612,40,15,2)

 ;;=^^14,4^1

 ;;^DIST(.404,.4612,40,16,0)

 ;;=5.7^!M^1

 ;;^DIST(.404,.4612,40,16,.1)

 ;;=I $D(DDMPFDSL("CAP",7+DDMPOSET)) N DDMPNUM,DDMPLEN S DDMPNUM=7+DDMPOSET,DDMPLEN=$L(DDMPFDSL("CAP",DDMPNUM)),Y=$S($G(DDMPMRK(DDMPNUM)):"*",1:" ")_$S(DDMPNUM<10:" ",1:"")_DDMPNUM_" - "_$E(DDMPFDSL("CAP",DDMPNUM),DDMPLEN-70,DDMPLEN)

 ;;^DIST(.404,.4612,40,16,2)

 ;;=^^15,4^1

 ;;^DIST(.404,.4612,40,17,0)

 ;;=5.8^!M^1

 ;;^DIST(.404,.4612,40,17,.1)

 ;;=I $D(DDMPFDSL("CAP",8+DDMPOSET)) N DDMPNUM,DDMPLEN S DDMPNUM=8+DDMPOSET,DDMPLEN=$L(DDMPFDSL("CAP",DDMPNUM)),Y=$S($G(DDMPMRK(DDMPNUM)):"*",1:" ")_$S(DDMPNUM<10:" ",1:"")_DDMPNUM_" - "_$E(DDMPFDSL("CAP",DDMPNUM),DDMPLEN-70,DDMPLEN)

 ;;^DIST(.404,.4612,40,17,2)

 ;;=^^16,4^1

 ;;^DIST(.404,.4612,40,18,0)

 ;;=5.9^!M^1

 ;;^DIST(.404,.4612,40,18,.1)

 ;;=I $D(DDMPFDSL("CAP",9+DDMPOSET)) N DDMPNUM,DDMPLEN S DDMPNUM=9+DDMPOSET,DDMPLEN=$L(DDMPFDSL("CAP",DDMPNUM)),Y=$S($G(DDMPMRK(DDMPNUM)):"*",1:" ")_$S(DDMPNUM<10:" ",1:"")_DDMPNUM_" - "_$E(DDMPFDSL("CAP",DDMPNUM),DDMPLEN-70,DDMPLEN)

 ;;^DIST(.404,.4612,40,18,2)

 ;;=^^17,4^1

 ;;^DIST(.404,.4612,40,19,0)

 ;;=2.3^!M^2^^LEN

 ;;^DIST(.404,.4612,40,19,.1)

 ;;=S Y=$S($G(DDMPSMFF("FIXED"))="YES":"Length",1:"")

 ;;^DIST(.404,.4612,40,19,2)

 ;;=6,12^3^6,4

 ;;^DIST(.404,.4612,40,19,11)

 ;;=I $$GET^DDSVALF("FLD")']"" S DDSBR=$S($L($G(DDMPCPTH)):"FLD",1:"FLD_DEL")

 ;;^DIST(.404,.4612,40,19,12)

 ;;=I X="" S DDSBR="2^1^4"

 ;;^DIST(.404,.4612,40,19,13)

 ;;=S DDMPFDSL("LN",DDMPFDCT)=X,DDMPFDSL("CAP",DDMPFDCT)=DDMPFDSL("CAP",DDMPFDCT)_"["_X_"]",DDSBR="FLD" D PUT^DDSVALF("LEN","","",""),PUT^DDSVALF("FLD","","",""),REFRESH^DDSUTL

 ;;^DIST(.404,.4612,40,19,20)

 ;;=N^^1:255

 ;;^DIST(.404,.4612,40,19,21,0)

 ;;=^^2^2^2950228

 ;;^DIST(.404,.4612,40,19,21,1,0)

 ;;=Enter the length of the imported data associated with this field.  (This

 ;;^DIST(.404,.4612,40,19,21,2,0)

 ;;=applies only to fixed length imports.)

 ;;^DIST(.404,.4613,0)

 ;;=DDMP FILE CHANGE^.44

 ;;^DIST(.404,.4613,40,0)

 ;;=^.4044I^3^3

 ;;^DIST(.404,.4613,40,1,0)

 ;;=1^If you delete or change the primary file,^1

 ;;^DIST(.404,.4613,40,1,2)

 ;;=^^1,1

 ;;^DIST(.404,.4613,40,2,0)

 ;;=2^the fields you have chosen will be deleted.^1

 ;;^DIST(.404,.4613,40,2,2)

 ;;=^^2,1^1

 ;;^DIST(.404,.4613,40,3,0)

 ;;=3^Do you want to change the Primary file?^2

 ;;^DIST(.404,.4613,40,3,2)

 ;;=4,42^3^4,1

 ;;^DIST(.404,.4613,40,3,3)

 ;;=Yes

 ;;^DIST(.404,.4613,40,3,4)

 ;;=1

 ;;^DIST(.404,.4613,40,3,12)

 ;;=D CHNGFILE^DDMPSM S DDACT="CL"

 ;;^DIST(.404,.4613,40,3,20)

 ;;=Y

 ;;^DIST(.404,.4614,0)

 ;;=DDMP REQUIRED LENGTH

 ;;^DIST(.404,.4614,40,0)

 ;;=^.4044I^3^3

 ;;^DIST(.404,.4614,40,1,0)

 ;;=1^Since this is a fixed length import,^1

 ;;^DIST(.404,.4614,40,1,2)

 ;;=^^1,1

 ;;^DIST(.404,.4614,40,2,0)

 ;;=1.2^you must enter a data length for every field.^1

 ;;^DIST(.404,.4614,40,2,2)

 ;;=^^2,1

 ;;^DIST(.404,.4614,40,3,0)

 ;;=2^Delete field or enter its Length (D/L)?^2

 ;;^DIST(.404,.4614,40,3,2)

 ;;=4,41^1^4,1^1

 ;;^DIST(.404,.4614,40,3,13)

 ;;=D LENCHK^DDMPSM1

 ;;^DIST(.404,.4614,40,3,20)

 ;;=S^M^D:Delete the field;L:Length will be entered

 ;;^DIST(.404,.4614,40,3,21,0)

 ;;=^^4^4^2950301

 ;;^DIST(.404,.4614,40,3,21,1,0)

 ;;=You left the length prompt without entering a data length for the last

 ;;^DIST(.404,.4614,40,3,21,2,0)

 ;;=field you specified.  Since you have chosen a fixed length import, you

 ;;^DIST(.404,.4614,40,3,21,3,0)

 ;;=must give a length for every field.  You can choose to either delete the

 ;;^DIST(.404,.4614,40,3,21,4,0)

 ;;=field you just entered or return to the Length prompt to enter a Length.

DINIT0FN  ;SFISC/MKO-DATA FOR FORM AND BLOCK FILES ;10:49 AM  30 Mar 1999

 +1       ;;22.0;VA FileMan;;Mar 30, 1999

 +2       ;Per VHA Directive 10-93-142, this routine should not be modified.

 +3        FOR I=1:2

               SET X=$TEXT(ENTRY+I)

               IF X=""

                   GOTO ^DINIT02

               SET Y=$EXTRACT($TEXT(ENTRY+I+1),5,999)

               SET X=$EXTRACT(X,4,999)

               SET @X=Y

 +4        QUIT 

ENTRY     ;

 +1       ;;^DIST(.404,.4612,40,15,.1)

 +2       ;;=I $D(DDMPFDSL("CAP",6+DDMPOSET)) N DDMPNUM,DDMPLEN S DDMPNUM=6+DDMPOSET,DDMPLEN=$L(DDMPFDSL("CAP",DDMPNUM)),Y=$S($G(DDMPMRK(DDMPNUM)):"*",1:" ")_$S(DDMPNUM<10:" ",1:"")_DDMPNUM_" - "_$E(DDMPFDSL("CAP",DDMPNUM),DDMPLEN-70,DDMPLEN)

 +3       ;;^DIST(.404,.4612,40,15,2)

 +4       ;;=^^14,4^1

 +5       ;;^DIST(.404,.4612,40,16,0)

 +6       ;;=5.7^!M^1

 +7       ;;^DIST(.404,.4612,40,16,.1)

 +8       ;;=I $D(DDMPFDSL("CAP",7+DDMPOSET)) N DDMPNUM,DDMPLEN S DDMPNUM=7+DDMPOSET,DDMPLEN=$L(DDMPFDSL("CAP",DDMPNUM)),Y=$S($G(DDMPMRK(DDMPNUM)):"*",1:" ")_$S(DDMPNUM<10:" ",1:"")_DDMPNUM_" - "_$E(DDMPFDSL("CAP",DDMPNUM),DDMPLEN-70,DDMPLEN)

 +9       ;;^DIST(.404,.4612,40,16,2)

 +10      ;;=^^15,4^1

 +11      ;;^DIST(.404,.4612,40,17,0)

 +12      ;;=5.8^!M^1

 +13      ;;^DIST(.404,.4612,40,17,.1)

 +14      ;;=I $D(DDMPFDSL("CAP",8+DDMPOSET)) N DDMPNUM,DDMPLEN S DDMPNUM=8+DDMPOSET,DDMPLEN=$L(DDMPFDSL("CAP",DDMPNUM)),Y=$S($G(DDMPMRK(DDMPNUM)):"*",1:" ")_$S(DDMPNUM<10:" ",1:"")_DDMPNUM_" - "_$E(DDMPFDSL("CAP",DDMPNUM),DDMPLEN-70,DDMPLEN)

 +15      ;;^DIST(.404,.4612,40,17,2)

 +16      ;;=^^16,4^1

 +17      ;;^DIST(.404,.4612,40,18,0)

 +18      ;;=5.9^!M^1

 +19      ;;^DIST(.404,.4612,40,18,.1)

 +20      ;;=I $D(DDMPFDSL("CAP",9+DDMPOSET)) N DDMPNUM,DDMPLEN S DDMPNUM=9+DDMPOSET,DDMPLEN=$L(DDMPFDSL("CAP",DDMPNUM)),Y=$S($G(DDMPMRK(DDMPNUM)):"*",1:" ")_$S(DDMPNUM<10:" ",1:"")_DDMPNUM_" - "_$E(DDMPFDSL("CAP",DDMPNUM),DDMPLEN-70,DDMPLEN)

 +21      ;;^DIST(.404,.4612,40,18,2)

 +22      ;;=^^17,4^1

 +23      ;;^DIST(.404,.4612,40,19,0)

 +24      ;;=2.3^!M^2^^LEN

 +25      ;;^DIST(.404,.4612,40,19,.1)

 +26      ;;=S Y=$S($G(DDMPSMFF("FIXED"))="YES":"Length",1:"")

 +27      ;;^DIST(.404,.4612,40,19,2)

 +28      ;;=6,12^3^6,4

 +29      ;;^DIST(.404,.4612,40,19,11)

 +30      ;;=I $$GET^DDSVALF("FLD")']"" S DDSBR=$S($L($G(DDMPCPTH)):"FLD",1:"FLD_DEL")

 +31      ;;^DIST(.404,.4612,40,19,12)

 +32      ;;=I X="" S DDSBR="2^1^4"

 +33      ;;^DIST(.404,.4612,40,19,13)

 +34      ;;=S DDMPFDSL("LN",DDMPFDCT)=X,DDMPFDSL("CAP",DDMPFDCT)=DDMPFDSL("CAP",DDMPFDCT)_"["_X_"]",DDSBR="FLD" D PUT^DDSVALF("LEN","","",""),PUT^DDSVALF("FLD","","",""),REFRESH^DDSUTL

 +35      ;;^DIST(.404,.4612,40,19,20)

 +36      ;;=N^^1:255

 +37      ;;^DIST(.404,.4612,40,19,21,0)

 +38      ;;=^^2^2^2950228

 +39      ;;^DIST(.404,.4612,40,19,21,1,0)

 +40      ;;=Enter the length of the imported data associated with this field.  (This

 +41      ;;^DIST(.404,.4612,40,19,21,2,0)

 +42      ;;=applies only to fixed length imports.)

 +43      ;;^DIST(.404,.4613,0)

 +44      ;;=DDMP FILE CHANGE^.44

 +45      ;;^DIST(.404,.4613,40,0)

 +46      ;;=^.4044I^3^3

 +47      ;;^DIST(.404,.4613,40,1,0)

 +48      ;;=1^If you delete or change the primary file,^1

 +49      ;;^DIST(.404,.4613,40,1,2)

 +50      ;;=^^1,1

 +51      ;;^DIST(.404,.4613,40,2,0)

 +52      ;;=2^the fields you have chosen will be deleted.^1

 +53      ;;^DIST(.404,.4613,40,2,2)

 +54      ;;=^^2,1^1

 +55      ;;^DIST(.404,.4613,40,3,0)

 +56      ;;=3^Do you want to change the Primary file?^2

 +57      ;;^DIST(.404,.4613,40,3,2)

 +58      ;;=4,42^3^4,1

 +59      ;;^DIST(.404,.4613,40,3,3)

 +60      ;;=Yes

 +61      ;;^DIST(.404,.4613,40,3,4)

 +62      ;;=1

 +63      ;;^DIST(.404,.4613,40,3,12)

 +64      ;;=D CHNGFILE^DDMPSM S DDACT="CL"

 +65      ;;^DIST(.404,.4613,40,3,20)

 +66      ;;=Y

 +67      ;;^DIST(.404,.4614,0)

 +68      ;;=DDMP REQUIRED LENGTH

 +69      ;;^DIST(.404,.4614,40,0)

 +70      ;;=^.4044I^3^3

 +71      ;;^DIST(.404,.4614,40,1,0)

 +72      ;;=1^Since this is a fixed length import,^1

 +73      ;;^DIST(.404,.4614,40,1,2)

 +74      ;;=^^1,1

 +75      ;;^DIST(.404,.4614,40,2,0)

 +76      ;;=1.2^you must enter a data length for every field.^1

 +77      ;;^DIST(.404,.4614,40,2,2)

 +78      ;;=^^2,1

 +79      ;;^DIST(.404,.4614,40,3,0)

 +80      ;;=2^Delete field or enter its Length (D/L)?^2

 +81      ;;^DIST(.404,.4614,40,3,2)

 +82      ;;=4,41^1^4,1^1

 +83      ;;^DIST(.404,.4614,40,3,13)

 +84      ;;=D LENCHK^DDMPSM1

 +85      ;;^DIST(.404,.4614,40,3,20)

 +86      ;;=S^M^D:Delete the field;L:Length will be entered

 +87      ;;^DIST(.404,.4614,40,3,21,0)

 +88      ;;=^^4^4^2950301

 +89      ;;^DIST(.404,.4614,40,3,21,1,0)

 +90      ;;=You left the length prompt without entering a data length for the last

 +91      ;;^DIST(.404,.4614,40,3,21,2,0)

 +92      ;;=field you specified.  Since you have chosen a fixed length import, you

 +93      ;;^DIST(.404,.4614,40,3,21,3,0)

 +94      ;;=must give a length for every field.  You can choose to either delete the

 +95      ;;^DIST(.404,.4614,40,3,21,4,0)

 +96      ;;=field you just entered or return to the Length prompt to enter a Length.