DINIT0FM ;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="" ^DINIT0FN S Y=$E($T(ENTRY+I+1),5,999),X=$E(X,4,999),@X=Y
Q
ENTRY ;
;;^DIST(.404,.4611,40,17,22)
;;=K:$L(X)>15!($L(X)<1)!'((X?1AP.E)!(X?3N)!(X?3N1","3N)!(X?3N1","3N1","3N)!(X?3N1","3N1","3N1","3N)) X
;;^DIST(.404,.4611,40,18,0)
;;=5.7^Fields quoted?^2^^QUOTE
;;^DIST(.404,.4611,40,18,2)
;;=12,23^3^12,8^1
;;^DIST(.404,.4611,40,18,13)
;;=S DDMPSMFF("QUOTED")=DDSEXT
;;^DIST(.404,.4611,40,18,20)
;;=Y
;;^DIST(.404,.4611,40,18,21,0)
;;=^^4^4^2950216
;;^DIST(.404,.4611,40,18,21,1,0)
;;=If the values of some fields are surrounded by quotation marks ("), enter
;;^DIST(.404,.4611,40,18,21,2,0)
;;=YES. Field delimiters that occur within the quotation marks are ignored.
;;^DIST(.404,.4611,40,18,21,3,0)
;;=This special treatment of quotation marks is not done for fixed length
;;^DIST(.404,.4611,40,18,21,4,0)
;;=data.
;;^DIST(.404,.4611,40,20,0)
;;=7.4^!M^2^^FLD_JUMP
;;^DIST(.404,.4611,40,20,.1)
;;=S Y=$S($$GET^DDSVALF("F_SEL",1,1)]"":"Field selection page...",1:"")
;;^DIST(.404,.4611,40,20,2)
;;=14,69^1^14,44^1
;;^DIST(.404,.4611,40,20,4)
;;=^^^1
;;^DIST(.404,.4611,40,20,10)
;;=S DDSBR="FLD^1^2"
;;^DIST(.404,.4611,40,20,11)
;;=I $$GET^DDSVALF("TMP_NM",1,1)]"" N DDMPMSG S DDMPMSG(1)="You cannot select fields because you have specified an Import Template for this import.",DDMPMSG(2)="$$EOP" D HLP^DDSUTL(.DDMPMSG) S DDSBR="TMP_NM"
;;^DIST(.404,.4611,40,20,20)
;;=F
;;^DIST(.404,.4611,40,20,21,0)
;;=^^1^1^2960918
;;^DIST(.404,.4611,40,20,21,1,0)
;;=Press <RET> to advance to the Field Selection Page.
;;^DIST(.404,.4611,40,21,0)
;;=5.4^OR^1
;;^DIST(.404,.4611,40,21,2)
;;=^^9,14^1
;;^DIST(.404,.4611,40,22,0)
;;=7.6^!M^1^^OR
;;^DIST(.404,.4611,40,22,.1)
;;=S Y=$S($$GET^DDSVALF("F_SEL",1,1)]"":"OR",1:"")
;;^DIST(.404,.4611,40,22,2)
;;=^^15,54
;;^DIST(.404,.4611,40,23,0)
;;=7.8^!M^2^^TMP_NM
;;^DIST(.404,.4611,40,23,.1)
;;=S Y=$S($$GET^DDSVALF("F_SEL",1,1)]"":"Import Template",1:"")
;;^DIST(.404,.4611,40,23,2)
;;=16,61^18^16,44
;;^DIST(.404,.4611,40,23,4)
;;=^^^1
;;^DIST(.404,.4611,40,23,11)
;;=I $D(DDMPFDSL) N DDMPMSG S DDMPMSG(1)="You have already chosen fields for this import. You may not select an Import Template unless you delete all the chosen fields.",DDMPMSG(2)="$$EOP" D HLP^DDSUTL(.DDMPMSG) S DDSBR="FLD_JUMP"
;;^DIST(.404,.4611,40,23,20)
;;=P^^.46:AE
;;^DIST(.404,.4611,40,23,21,0)
;;=^^3^3^2960605
;;^DIST(.404,.4611,40,23,21,1,0)
;;=Enter the name of an Import Template to use for data import. If you do
;;^DIST(.404,.4611,40,23,21,2,0)
;;=not specify a template, you must specify the fields on the Field Selection
;;^DIST(.404,.4611,40,23,21,3,0)
;;=page.
;;^DIST(.404,.4611,40,23,22)
;;=S X=$TR(X,"[]")
;;^DIST(.404,.4611,40,23,23)
;;=S DDMPTMPL=X
;;^DIST(.404,.4611,40,23,24)
;;=S DIR("S")="I $$TMPLSCR^DDMPSM(DDMPF,DDSEXT,.DUZ)"
;;^DIST(.404,.4612,0)
;;=DDMP FIELD SELECTION
;;^DIST(.404,.4612,40,0)
;;=^.4044I^19^18
;;^DIST(.404,.4612,40,1,0)
;;=1^FIELD SELECTION FOR IMPORT^1
;;^DIST(.404,.4612,40,1,2)
;;=^^1,27
;;^DIST(.404,.4612,40,2,0)
;;=1.2^Page 2^1
;;^DIST(.404,.4612,40,2,2)
;;=^^1,73
;;^DIST(.404,.4612,40,3,0)
;;=1.1^==========================^1
;;^DIST(.404,.4612,40,3,2)
;;=^^2,27^1
;;^DIST(.404,.4612,40,4,0)
;;=2^Choose a field from^1
;;^DIST(.404,.4612,40,4,2)
;;=^^3,2^1
;;^DIST(.404,.4612,40,5,0)
;;=2.1^!M^1
;;^DIST(.404,.4612,40,5,.1)
;;=S Y=$S($D(DDMPFCAP):DDMPFCAP,1:DDMPFLNM)
;;^DIST(.404,.4612,40,5,2)
;;=^^4,2^1
;;^DIST(.404,.4612,40,6,0)
;;=2.2^Field^2^^FLD
;;^DIST(.404,.4612,40,6,2)
;;=5,12^19^5,5
;;^DIST(.404,.4612,40,6,10)
;;=I X=DDSOLD,$L($G(DDMPCPTH)) S DDSBR=2.2 D UP1^DDMPSM,REFRESH^DDSUTL
;;^DIST(.404,.4612,40,6,13)
;;=D FDPROC^DDMPSM,PUT^DDSVALF(2.2,1,2,""):$G(DDSBR)="FLD",REFRESH^DDSUTL
;;^DIST(.404,.4612,40,6,20)
;;=F^^1:30
;;^DIST(.404,.4612,40,6,21,0)
;;=^^1^1^2950217
;;^DIST(.404,.4612,40,6,21,1,0)
;;=^N D0,DA,DIC,D,DZ S DIC="^DD("_DDMPCF_",",DIC(0)="",D="B",DIC("S")="I '($P($G(^DD(+$P(^DD(DDMPCF,Y,0),U,2),.01,0)),U,2)[""W"")" S:$G(X)="?" DZ=X D DQ^DICQ
;;^DIST(.404,.4612,40,6,22)
;;=D IXF^DDMPSM
;;^DIST(.404,.4612,40,8,0)
;;=3.1^Delete last field selected?^2^^FLD_DEL
;;^DIST(.404,.4612,40,8,2)
;;=5,68^3^5,40^1
;;^DIST(.404,.4612,40,8,11)
;;=S DDMPMRK($G(DDMPFDCT))=1 D REFRESH^DDSUTL
;;^DIST(.404,.4612,40,8,12)
;;=K DDMPMRK D REFRESH^DDSUTL ;S DDSBR="COM"
;;^DIST(.404,.4612,40,8,13)
;;=I X D DELFLD^DDMPSM,PUT^DDSVALF(3.1,"","","") S DDSBR=3.1
;;^DIST(.404,.4612,40,8,20)
;;=Y
;;^DIST(.404,.4612,40,8,21,0)
;;=^^2^2^2960716
;;^DIST(.404,.4612,40,8,21,1,0)
;;=Enter YES if you want to delete the most recent field that you selected
;;^DIST(.404,.4612,40,8,21,2,0)
;;=for import. This is the last field on the list to the left
;;^DIST(.404,.4612,40,9,0)
;;=4^These are the fields selected so far:^1
;;^DIST(.404,.4612,40,9,2)
;;=^^8,2
;;^DIST(.404,.4612,40,10,0)
;;=5.1^!M^1
;;^DIST(.404,.4612,40,10,.1)
;;=I $D(DDMPFDSL("CAP",1+DDMPOSET)) N DDMPNUM,DDMPLEN S DDMPNUM=1+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,10,2)
;;=^^9,4^1
;;^DIST(.404,.4612,40,11,0)
;;=5.2^!M^1
;;^DIST(.404,.4612,40,11,.1)
;;=I $D(DDMPFDSL("CAP",2+DDMPOSET)) N DDMPNUM,DDMPLEN S DDMPNUM=2+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,11,2)
;;=^^10,4^1
;;^DIST(.404,.4612,40,12,0)
;;=5.3^!M^1
;;^DIST(.404,.4612,40,12,.1)
;;=I $D(DDMPFDSL("CAP",3+DDMPOSET)) N DDMPNUM,DDMPLEN S DDMPNUM=3+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,12,2)
;;=^^11,4^1
;;^DIST(.404,.4612,40,13,0)
;;=5.4^!M^1
;;^DIST(.404,.4612,40,13,.1)
;;=I $D(DDMPFDSL("CAP",4+DDMPOSET)) N DDMPNUM,DDMPLEN S DDMPNUM=4+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,13,2)
;;=^^12,4^1
;;^DIST(.404,.4612,40,14,0)
;;=5.5^!M^1
;;^DIST(.404,.4612,40,14,.1)
;;=I $D(DDMPFDSL("CAP",5+DDMPOSET)) N DDMPNUM,DDMPLEN S DDMPNUM=5+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,14,2)
;;=^^13,4^1
;;^DIST(.404,.4612,40,15,0)
;;=5.6^!M^1
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDINIT0FM 7230 printed Oct 16, 2024@18:51:02 Page 2
DINIT0FM ;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 ^DINIT0FN
SET Y=$EXTRACT($TEXT(ENTRY+I+1),5,999)
SET X=$EXTRACT(X,4,999)
SET @X=Y
+8 QUIT
ENTRY ;
+1 ;;^DIST(.404,.4611,40,17,22)
+2 ;;=K:$L(X)>15!($L(X)<1)!'((X?1AP.E)!(X?3N)!(X?3N1","3N)!(X?3N1","3N1","3N)!(X?3N1","3N1","3N1","3N)) X
+3 ;;^DIST(.404,.4611,40,18,0)
+4 ;;=5.7^Fields quoted?^2^^QUOTE
+5 ;;^DIST(.404,.4611,40,18,2)
+6 ;;=12,23^3^12,8^1
+7 ;;^DIST(.404,.4611,40,18,13)
+8 ;;=S DDMPSMFF("QUOTED")=DDSEXT
+9 ;;^DIST(.404,.4611,40,18,20)
+10 ;;=Y
+11 ;;^DIST(.404,.4611,40,18,21,0)
+12 ;;=^^4^4^2950216
+13 ;;^DIST(.404,.4611,40,18,21,1,0)
+14 ;;=If the values of some fields are surrounded by quotation marks ("), enter
+15 ;;^DIST(.404,.4611,40,18,21,2,0)
+16 ;;=YES. Field delimiters that occur within the quotation marks are ignored.
+17 ;;^DIST(.404,.4611,40,18,21,3,0)
+18 ;;=This special treatment of quotation marks is not done for fixed length
+19 ;;^DIST(.404,.4611,40,18,21,4,0)
+20 ;;=data.
+21 ;;^DIST(.404,.4611,40,20,0)
+22 ;;=7.4^!M^2^^FLD_JUMP
+23 ;;^DIST(.404,.4611,40,20,.1)
+24 ;;=S Y=$S($$GET^DDSVALF("F_SEL",1,1)]"":"Field selection page...",1:"")
+25 ;;^DIST(.404,.4611,40,20,2)
+26 ;;=14,69^1^14,44^1
+27 ;;^DIST(.404,.4611,40,20,4)
+28 ;;=^^^1
+29 ;;^DIST(.404,.4611,40,20,10)
+30 ;;=S DDSBR="FLD^1^2"
+31 ;;^DIST(.404,.4611,40,20,11)
+32 ;;=I $$GET^DDSVALF("TMP_NM",1,1)]"" N DDMPMSG S DDMPMSG(1)="You cannot select fields because you have specified an Import Template for this import.",DDMPMSG(2)="$$EOP" D HLP^DDSUTL(.DDMPMSG) S DDSBR="TMP_NM"
+33 ;;^DIST(.404,.4611,40,20,20)
+34 ;;=F
+35 ;;^DIST(.404,.4611,40,20,21,0)
+36 ;;=^^1^1^2960918
+37 ;;^DIST(.404,.4611,40,20,21,1,0)
+38 ;;=Press <RET> to advance to the Field Selection Page.
+39 ;;^DIST(.404,.4611,40,21,0)
+40 ;;=5.4^OR^1
+41 ;;^DIST(.404,.4611,40,21,2)
+42 ;;=^^9,14^1
+43 ;;^DIST(.404,.4611,40,22,0)
+44 ;;=7.6^!M^1^^OR
+45 ;;^DIST(.404,.4611,40,22,.1)
+46 ;;=S Y=$S($$GET^DDSVALF("F_SEL",1,1)]"":"OR",1:"")
+47 ;;^DIST(.404,.4611,40,22,2)
+48 ;;=^^15,54
+49 ;;^DIST(.404,.4611,40,23,0)
+50 ;;=7.8^!M^2^^TMP_NM
+51 ;;^DIST(.404,.4611,40,23,.1)
+52 ;;=S Y=$S($$GET^DDSVALF("F_SEL",1,1)]"":"Import Template",1:"")
+53 ;;^DIST(.404,.4611,40,23,2)
+54 ;;=16,61^18^16,44
+55 ;;^DIST(.404,.4611,40,23,4)
+56 ;;=^^^1
+57 ;;^DIST(.404,.4611,40,23,11)
+58 ;;=I $D(DDMPFDSL) N DDMPMSG S DDMPMSG(1)="You have already chosen fields for this import. You may not select an Import Template unless you delete all the chosen fields.",DDMPMSG(2)="$$EOP" D HLP^DDSUTL(.DDMPMSG) S DDSBR="FLD_JUMP"
+59 ;;^DIST(.404,.4611,40,23,20)
+60 ;;=P^^.46:AE
+61 ;;^DIST(.404,.4611,40,23,21,0)
+62 ;;=^^3^3^2960605
+63 ;;^DIST(.404,.4611,40,23,21,1,0)
+64 ;;=Enter the name of an Import Template to use for data import. If you do
+65 ;;^DIST(.404,.4611,40,23,21,2,0)
+66 ;;=not specify a template, you must specify the fields on the Field Selection
+67 ;;^DIST(.404,.4611,40,23,21,3,0)
+68 ;;=page.
+69 ;;^DIST(.404,.4611,40,23,22)
+70 ;;=S X=$TR(X,"[]")
+71 ;;^DIST(.404,.4611,40,23,23)
+72 ;;=S DDMPTMPL=X
+73 ;;^DIST(.404,.4611,40,23,24)
+74 ;;=S DIR("S")="I $$TMPLSCR^DDMPSM(DDMPF,DDSEXT,.DUZ)"
+75 ;;^DIST(.404,.4612,0)
+76 ;;=DDMP FIELD SELECTION
+77 ;;^DIST(.404,.4612,40,0)
+78 ;;=^.4044I^19^18
+79 ;;^DIST(.404,.4612,40,1,0)
+80 ;;=1^FIELD SELECTION FOR IMPORT^1
+81 ;;^DIST(.404,.4612,40,1,2)
+82 ;;=^^1,27
+83 ;;^DIST(.404,.4612,40,2,0)
+84 ;;=1.2^Page 2^1
+85 ;;^DIST(.404,.4612,40,2,2)
+86 ;;=^^1,73
+87 ;;^DIST(.404,.4612,40,3,0)
+88 ;;=1.1^==========================^1
+89 ;;^DIST(.404,.4612,40,3,2)
+90 ;;=^^2,27^1
+91 ;;^DIST(.404,.4612,40,4,0)
+92 ;;=2^Choose a field from^1
+93 ;;^DIST(.404,.4612,40,4,2)
+94 ;;=^^3,2^1
+95 ;;^DIST(.404,.4612,40,5,0)
+96 ;;=2.1^!M^1
+97 ;;^DIST(.404,.4612,40,5,.1)
+98 ;;=S Y=$S($D(DDMPFCAP):DDMPFCAP,1:DDMPFLNM)
+99 ;;^DIST(.404,.4612,40,5,2)
+100 ;;=^^4,2^1
+101 ;;^DIST(.404,.4612,40,6,0)
+102 ;;=2.2^Field^2^^FLD
+103 ;;^DIST(.404,.4612,40,6,2)
+104 ;;=5,12^19^5,5
+105 ;;^DIST(.404,.4612,40,6,10)
+106 ;;=I X=DDSOLD,$L($G(DDMPCPTH)) S DDSBR=2.2 D UP1^DDMPSM,REFRESH^DDSUTL
+107 ;;^DIST(.404,.4612,40,6,13)
+108 ;;=D FDPROC^DDMPSM,PUT^DDSVALF(2.2,1,2,""):$G(DDSBR)="FLD",REFRESH^DDSUTL
+109 ;;^DIST(.404,.4612,40,6,20)
+110 ;;=F^^1:30
+111 ;;^DIST(.404,.4612,40,6,21,0)
+112 ;;=^^1^1^2950217
+113 ;;^DIST(.404,.4612,40,6,21,1,0)
+114 ;;=^N D0,DA,DIC,D,DZ S DIC="^DD("_DDMPCF_",",DIC(0)="",D="B",DIC("S")="I '($P($G(^DD(+$P(^DD(DDMPCF,Y,0),U,2),.01,0)),U,2)[""W"")" S:$G(X)="?" DZ=X D DQ^DICQ
+115 ;;^DIST(.404,.4612,40,6,22)
+116 ;;=D IXF^DDMPSM
+117 ;;^DIST(.404,.4612,40,8,0)
+118 ;;=3.1^Delete last field selected?^2^^FLD_DEL
+119 ;;^DIST(.404,.4612,40,8,2)
+120 ;;=5,68^3^5,40^1
+121 ;;^DIST(.404,.4612,40,8,11)
+122 ;;=S DDMPMRK($G(DDMPFDCT))=1 D REFRESH^DDSUTL
+123 ;;^DIST(.404,.4612,40,8,12)
+124 ;;=K DDMPMRK D REFRESH^DDSUTL ;S DDSBR="COM"
+125 ;;^DIST(.404,.4612,40,8,13)
+126 ;;=I X D DELFLD^DDMPSM,PUT^DDSVALF(3.1,"","","") S DDSBR=3.1
+127 ;;^DIST(.404,.4612,40,8,20)
+128 ;;=Y
+129 ;;^DIST(.404,.4612,40,8,21,0)
+130 ;;=^^2^2^2960716
+131 ;;^DIST(.404,.4612,40,8,21,1,0)
+132 ;;=Enter YES if you want to delete the most recent field that you selected
+133 ;;^DIST(.404,.4612,40,8,21,2,0)
+134 ;;=for import. This is the last field on the list to the left
+135 ;;^DIST(.404,.4612,40,9,0)
+136 ;;=4^These are the fields selected so far:^1
+137 ;;^DIST(.404,.4612,40,9,2)
+138 ;;=^^8,2
+139 ;;^DIST(.404,.4612,40,10,0)
+140 ;;=5.1^!M^1
+141 ;;^DIST(.404,.4612,40,10,.1)
+142 ;;=I $D(DDMPFDSL("CAP",1+DDMPOSET)) N DDMPNUM,DDMPLEN S DDMPNUM=1+DDMPOSET,DDMPLEN=$L(DDMPFDSL("CAP",DDMPNUM)),Y=$S($G(DDMPMRK(DDMPNUM)):"*",1:" ")_$S(DDMPNUM<10:" ",1:"")_DDMPNUM_" - "_$E(DDMPFDSL("CAP",DDMPNUM),DDMPLEN-70,DDMPLEN)
+143 ;;^DIST(.404,.4612,40,10,2)
+144 ;;=^^9,4^1
+145 ;;^DIST(.404,.4612,40,11,0)
+146 ;;=5.2^!M^1
+147 ;;^DIST(.404,.4612,40,11,.1)
+148 ;;=I $D(DDMPFDSL("CAP",2+DDMPOSET)) N DDMPNUM,DDMPLEN S DDMPNUM=2+DDMPOSET,DDMPLEN=$L(DDMPFDSL("CAP",DDMPNUM)),Y=$S($G(DDMPMRK(DDMPNUM)):"*",1:" ")_$S(DDMPNUM<10:" ",1:"")_DDMPNUM_" - "_$E(DDMPFDSL("CAP",DDMPNUM),DDMPLEN-70,DDMPLEN)
+149 ;;^DIST(.404,.4612,40,11,2)
+150 ;;=^^10,4^1
+151 ;;^DIST(.404,.4612,40,12,0)
+152 ;;=5.3^!M^1
+153 ;;^DIST(.404,.4612,40,12,.1)
+154 ;;=I $D(DDMPFDSL("CAP",3+DDMPOSET)) N DDMPNUM,DDMPLEN S DDMPNUM=3+DDMPOSET,DDMPLEN=$L(DDMPFDSL("CAP",DDMPNUM)),Y=$S($G(DDMPMRK(DDMPNUM)):"*",1:" ")_$S(DDMPNUM<10:" ",1:"")_DDMPNUM_" - "_$E(DDMPFDSL("CAP",DDMPNUM),DDMPLEN-70,DDMPLEN)
+155 ;;^DIST(.404,.4612,40,12,2)
+156 ;;=^^11,4^1
+157 ;;^DIST(.404,.4612,40,13,0)
+158 ;;=5.4^!M^1
+159 ;;^DIST(.404,.4612,40,13,.1)
+160 ;;=I $D(DDMPFDSL("CAP",4+DDMPOSET)) N DDMPNUM,DDMPLEN S DDMPNUM=4+DDMPOSET,DDMPLEN=$L(DDMPFDSL("CAP",DDMPNUM)),Y=$S($G(DDMPMRK(DDMPNUM)):"*",1:" ")_$S(DDMPNUM<10:" ",1:"")_DDMPNUM_" - "_$E(DDMPFDSL("CAP",DDMPNUM),DDMPLEN-70,DDMPLEN)
+161 ;;^DIST(.404,.4612,40,13,2)
+162 ;;=^^12,4^1
+163 ;;^DIST(.404,.4612,40,14,0)
+164 ;;=5.5^!M^1
+165 ;;^DIST(.404,.4612,40,14,.1)
+166 ;;=I $D(DDMPFDSL("CAP",5+DDMPOSET)) N DDMPNUM,DDMPLEN S DDMPNUM=5+DDMPOSET,DDMPLEN=$L(DDMPFDSL("CAP",DDMPNUM)),Y=$S($G(DDMPMRK(DDMPNUM)):"*",1:" ")_$S(DDMPNUM<10:" ",1:"")_DDMPNUM_" - "_$E(DDMPFDSL("CAP",DDMPNUM),DDMPLEN-70,DDMPLEN)
+167 ;;^DIST(.404,.4612,40,14,2)
+168 ;;=^^13,4^1
+169 ;;^DIST(.404,.4612,40,15,0)
+170 ;;=5.6^!M^1
