Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: DINIT0FN

DINIT0FN.m

Go to the documentation of this file.
  1. 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
  1. ;;Per VA Directive 6402, this routine should not be modified.
  1. ;;Submitted to OSEHRA 5 January 2015 by the VISTA Expertise Network.
  1. ;;Based on Medsphere Systems Corporation's MSC FileMan 1051.
  1. ;;Licensed under the terms of the Apache License, Version 2.0.
  1. ;
  1. 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
  1. Q
  1. ENTRY ;
  1. ;;^DIST(.404,.4612,40,15,.1)
  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)
  1. ;;^DIST(.404,.4612,40,15,2)
  1. ;;=^^14,4^1
  1. ;;^DIST(.404,.4612,40,16,0)
  1. ;;=5.7^!M^1
  1. ;;^DIST(.404,.4612,40,16,.1)
  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)
  1. ;;^DIST(.404,.4612,40,16,2)
  1. ;;=^^15,4^1
  1. ;;^DIST(.404,.4612,40,17,0)
  1. ;;=5.8^!M^1
  1. ;;^DIST(.404,.4612,40,17,.1)
  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)
  1. ;;^DIST(.404,.4612,40,17,2)
  1. ;;=^^16,4^1
  1. ;;^DIST(.404,.4612,40,18,0)
  1. ;;=5.9^!M^1
  1. ;;^DIST(.404,.4612,40,18,.1)
  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)
  1. ;;^DIST(.404,.4612,40,18,2)
  1. ;;=^^17,4^1
  1. ;;^DIST(.404,.4612,40,19,0)
  1. ;;=2.3^!M^2^^LEN
  1. ;;^DIST(.404,.4612,40,19,.1)
  1. ;;=S Y=$S($G(DDMPSMFF("FIXED"))="YES":"Length",1:"")
  1. ;;^DIST(.404,.4612,40,19,2)
  1. ;;=6,12^3^6,4
  1. ;;^DIST(.404,.4612,40,19,11)
  1. ;;=I $$GET^DDSVALF("FLD")']"" S DDSBR=$S($L($G(DDMPCPTH)):"FLD",1:"FLD_DEL")
  1. ;;^DIST(.404,.4612,40,19,12)
  1. ;;=I X="" S DDSBR="2^1^4"
  1. ;;^DIST(.404,.4612,40,19,13)
  1. ;;=S DDMPFDSL("LN",DDMPFDCT)=X,DDMPFDSL("CAP",DDMPFDCT)=DDMPFDSL("CAP",DDMPFDCT)_"["_X_"]",DDSBR="FLD" D PUT^DDSVALF("LEN","","",""),PUT^DDSVALF("FLD","","",""),REFRESH^DDSUTL
  1. ;;^DIST(.404,.4612,40,19,20)
  1. ;;=N^^1:255
  1. ;;^DIST(.404,.4612,40,19,21,0)
  1. ;;=^^2^2^2950228
  1. ;;^DIST(.404,.4612,40,19,21,1,0)
  1. ;;=Enter the length of the imported data associated with this field. (This
  1. ;;^DIST(.404,.4612,40,19,21,2,0)
  1. ;;=applies only to fixed length imports.)
  1. ;;^DIST(.404,.4613,0)
  1. ;;=DDMP FILE CHANGE^.44
  1. ;;^DIST(.404,.4613,40,0)
  1. ;;=^.4044I^3^3
  1. ;;^DIST(.404,.4613,40,1,0)
  1. ;;=1^If you delete or change the primary file,^1
  1. ;;^DIST(.404,.4613,40,1,2)
  1. ;;=^^1,1
  1. ;;^DIST(.404,.4613,40,2,0)
  1. ;;=2^the fields you have chosen will be deleted.^1
  1. ;;^DIST(.404,.4613,40,2,2)
  1. ;;=^^2,1^1
  1. ;;^DIST(.404,.4613,40,3,0)
  1. ;;=3^Do you want to change the Primary file?^2
  1. ;;^DIST(.404,.4613,40,3,2)
  1. ;;=4,42^3^4,1
  1. ;;^DIST(.404,.4613,40,3,3)
  1. ;;=Yes
  1. ;;^DIST(.404,.4613,40,3,4)
  1. ;;=1
  1. ;;^DIST(.404,.4613,40,3,12)
  1. ;;=D CHNGFILE^DDMPSM S DDACT="CL"
  1. ;;^DIST(.404,.4613,40,3,20)
  1. ;;=Y
  1. ;;^DIST(.404,.4614,0)
  1. ;;=DDMP REQUIRED LENGTH
  1. ;;^DIST(.404,.4614,40,0)
  1. ;;=^.4044I^3^3
  1. ;;^DIST(.404,.4614,40,1,0)
  1. ;;=1^Since this is a fixed length import,^1
  1. ;;^DIST(.404,.4614,40,1,2)
  1. ;;=^^1,1
  1. ;;^DIST(.404,.4614,40,2,0)
  1. ;;=1.2^you must enter a data length for every field.^1
  1. ;;^DIST(.404,.4614,40,2,2)
  1. ;;=^^2,1
  1. ;;^DIST(.404,.4614,40,3,0)
  1. ;;=2^Delete field or enter its Length (D/L)?^2
  1. ;;^DIST(.404,.4614,40,3,2)
  1. ;;=4,41^1^4,1^1
  1. ;;^DIST(.404,.4614,40,3,13)
  1. ;;=D LENCHK^DDMPSM1
  1. ;;^DIST(.404,.4614,40,3,20)
  1. ;;=S^M^D:Delete the field;L:Length will be entered
  1. ;;^DIST(.404,.4614,40,3,21,0)
  1. ;;=^^4^4^2950301
  1. ;;^DIST(.404,.4614,40,3,21,1,0)
  1. ;;=You left the length prompt without entering a data length for the last
  1. ;;^DIST(.404,.4614,40,3,21,2,0)
  1. ;;=field you specified. Since you have chosen a fixed length import, you
  1. ;;^DIST(.404,.4614,40,3,21,3,0)
  1. ;;=must give a length for every field. You can choose to either delete the
  1. ;;^DIST(.404,.4614,40,3,21,4,0)
  1. ;;=field you just entered or return to the Length prompt to enter a Length.