DINIT0FN ;SFISC/MKO-DATA FOR FORM AND BLOCK FILES ;10:49 AM 30 Mar 1999
;;22.2;VA FileMan;;Jan 05, 2016;Build 42
;;Per VA Directive 6402, this routine should not be modified.
;;Submitted to OSEHRA 5 January 2015 by the VISTA Expertise Network.
;;Based on Medsphere Systems Corporation's MSC FileMan 1051.
;;Licensed under the terms of the Apache License, Version 2.0.
;
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.
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDINIT0FN 4434 printed Dec 13, 2024@02:50:30 Page 2
DINIT0FN ;SFISC/MKO-DATA FOR FORM AND BLOCK FILES ;10:49 AM 30 Mar 1999
+1 ;;22.2;VA FileMan;;Jan 05, 2016;Build 42
+2 ;;Per VA Directive 6402, this routine should not be modified.
+3 ;;Submitted to OSEHRA 5 January 2015 by the VISTA Expertise Network.
+4 ;;Based on Medsphere Systems Corporation's MSC FileMan 1051.
+5 ;;Licensed under the terms of the Apache License, Version 2.0.
+6 ;
+7 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
+8 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.
