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

DINIT0FC.m

Go to the documentation of this file.
  1. DINIT0FC ;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="" ^DINIT0FD S Y=$E($T(ENTRY+I+1),5,999),X=$E(X,4,999),@X=Y
  1. Q
  1. ENTRY ;
  1. ;;^DIST(.404,.11023,40,3,1)
  1. ;;=6
  1. ;;^DIST(.404,.11023,40,3,2)
  1. ;;=1,20^3
  1. ;;^DIST(.404,.11023,40,3,13)
  1. ;;=D BLDLOG^DIKCFORM(DA(1))
  1. ;;^DIST(.404,.11023,40,4,0)
  1. ;;=4^^4^^FIELD DISPLAY
  1. ;;^DIST(.404,.11023,40,4,2)
  1. ;;=1,27^43
  1. ;;^DIST(.404,.11023,40,4,30)
  1. ;;=N DIKCFIL,DIKCFLD S DIKCFIL={FILE},DIKCFLD={FIELD} S Y="["_DIKCFIL_","_DIKCFLD_"] "_$P($G(^DD(+DIKCFIL,+DIKCFLD,0)),U)
  1. ;;^DIST(.404,.11024,0)
  1. ;;=DIKC EDIT UI CRV HDR^.11
  1. ;;^DIST(.404,.11024,40,0)
  1. ;;=^.4044I^8^8
  1. ;;^DIST(.404,.11024,40,1,0)
  1. ;;=1^Order...^1
  1. ;;^DIST(.404,.11024,40,1,2)
  1. ;;=^^1,2
  1. ;;^DIST(.404,.11024,40,2,0)
  1. ;;=2^Subscr^1
  1. ;;^DIST(.404,.11024,40,2,2)
  1. ;;=^^1,12
  1. ;;^DIST(.404,.11024,40,3,0)
  1. ;;=3^Length^1
  1. ;;^DIST(.404,.11024,40,3,2)
  1. ;;=^^1,20
  1. ;;^DIST(.404,.11024,40,4,0)
  1. ;;=4^[File,Field] Field Name^1
  1. ;;^DIST(.404,.11024,40,4,2)
  1. ;;=^^1,28
  1. ;;^DIST(.404,.11024,40,5,0)
  1. ;;=5^--------^1
  1. ;;^DIST(.404,.11024,40,5,2)
  1. ;;=^^2,2
  1. ;;^DIST(.404,.11024,40,6,0)
  1. ;;=6^------^1
  1. ;;^DIST(.404,.11024,40,6,2)
  1. ;;=^^2,12
  1. ;;^DIST(.404,.11024,40,7,0)
  1. ;;=7^------^1
  1. ;;^DIST(.404,.11024,40,7,2)
  1. ;;=^^2,20
  1. ;;^DIST(.404,.11024,40,8,0)
  1. ;;=8^-----------------------^1
  1. ;;^DIST(.404,.11024,40,8,2)
  1. ;;=^^2,28
  1. ;;^DIST(.404,.11025,0)
  1. ;;=DIKC EDIT UI FIELD CRV^.114
  1. ;;^DIST(.404,.11025,11)
  1. ;;=K DIKCCRV
  1. ;;^DIST(.404,.11025,12)
  1. ;;=I $D(DIKCCRV) D BLDLOG^DIKCFORM(DA(1)) K DIKCCRV
  1. ;;^DIST(.404,.11025,40,0)
  1. ;;=^.4044I^9^9
  1. ;;^DIST(.404,.11025,40,1,0)
  1. ;;=1^ Field-Type Cross Reference Value ^1
  1. ;;^DIST(.404,.11025,40,1,2)
  1. ;;=^^1,23
  1. ;;^DIST(.404,.11025,40,2,0)
  1. ;;=2^Order Number^3
  1. ;;^DIST(.404,.11025,40,2,1)
  1. ;;=.01
  1. ;;^DIST(.404,.11025,40,2,2)
  1. ;;=3,18^3^3,4
  1. ;;^DIST(.404,.11025,40,2,4)
  1. ;;=^^^1
  1. ;;^DIST(.404,.11025,40,3,0)
  1. ;;=3^Subscript Number^3
  1. ;;^DIST(.404,.11025,40,3,1)
  1. ;;=.5
  1. ;;^DIST(.404,.11025,40,3,2)
  1. ;;=3,58^3^3,40
  1. ;;^DIST(.404,.11025,40,3,4)
  1. ;;=^^^1
  1. ;;^DIST(.404,.11025,40,4,0)
  1. ;;=4^Field^3^^FIELD
  1. ;;^DIST(.404,.11025,40,4,1)
  1. ;;=3
  1. ;;^DIST(.404,.11025,40,4,2)
  1. ;;=4,18^20^4,11
  1. ;;^DIST(.404,.11025,40,4,4)
  1. ;;=^^^1
  1. ;;^DIST(.404,.11025,40,5,0)
  1. ;;=5^File^3
  1. ;;^DIST(.404,.11025,40,5,1)
  1. ;;=2
  1. ;;^DIST(.404,.11025,40,5,2)
  1. ;;=4,58^20^4,52
  1. ;;^DIST(.404,.11025,40,5,4)
  1. ;;=^^^1
  1. ;;^DIST(.404,.11025,40,6,0)
  1. ;;=6^Field Name^4
  1. ;;^DIST(.404,.11025,40,6,2)
  1. ;;=5,18^60^5,6
  1. ;;^DIST(.404,.11025,40,6,30)
  1. ;;=N DIKCFIL,DIKCFLD S Y="",DIKCFIL=+{FILE},DIKCFLD=+{FIELD} I DIKCFIL,DIKCFLD S Y=$P($G(^DD(DIKCFIL,DIKCFLD,0)),U) S:$L(Y)>60 Y=$E(Y,1,57)_"..."
  1. ;;^DIST(.404,.11025,40,7,0)
  1. ;;=7^Maximum Length^3
  1. ;;^DIST(.404,.11025,40,7,1)
  1. ;;=6
  1. ;;^DIST(.404,.11025,40,7,2)
  1. ;;=7,18^3^7,2
  1. ;;^DIST(.404,.11025,40,7,13)
  1. ;;=S DIKCCRV=1
  1. ;;^DIST(.404,.11025,40,8,0)
  1. ;;=8^Collation^3
  1. ;;^DIST(.404,.11025,40,8,1)
  1. ;;=7
  1. ;;^DIST(.404,.11025,40,8,2)
  1. ;;=7,58^9^7,47
  1. ;;^DIST(.404,.11025,40,9,0)
  1. ;;=9^Lookup Prompt^3
  1. ;;^DIST(.404,.11025,40,9,1)
  1. ;;=8
  1. ;;^DIST(.404,.11025,40,9,2)
  1. ;;=8,18^30^8,3
  1. ;;^DIST(.404,.310101,0)
  1. ;;=DIKK EDIT HDR^.31
  1. ;;^DIST(.404,.310101,40,0)
  1. ;;=^.4044I^4^4
  1. ;;^DIST(.404,.310101,40,1,0)
  1. ;;=1^Number^4
  1. ;;^DIST(.404,.310101,40,1,2)
  1. ;;=1,9^16^1,1
  1. ;;^DIST(.404,.310101,40,1,30)
  1. ;;=S Y=DA
  1. ;;^DIST(.404,.310101,40,2,0)
  1. ;;=2^EDIT A KEY^1
  1. ;;^DIST(.404,.310101,40,2,2)
  1. ;;=^^1,36
  1. ;;^DIST(.404,.310101,40,3,0)
  1. ;;=3^Page 1 of 1^1
  1. ;;^DIST(.404,.310101,40,3,2)
  1. ;;=^^1,69
  1. ;;^DIST(.404,.310101,40,4,0)
  1. ;;=4^-------------------------------------------------------------------------------^1
  1. ;;^DIST(.404,.310101,40,4,2)
  1. ;;=^^2,1
  1. ;;^DIST(.404,.310102,0)
  1. ;;=DIKK EDIT MAIN^.31
  1. ;;^DIST(.404,.310102,40,0)
  1. ;;=^.4044I^3^3
  1. ;;^DIST(.404,.310102,40,1,0)
  1. ;;=1^File^3
  1. ;;^DIST(.404,.310102,40,1,1)
  1. ;;=.01
  1. ;;^DIST(.404,.310102,40,1,2)
  1. ;;=1,9^20^1,3
  1. ;;^DIST(.404,.310102,40,1,4)
  1. ;;=^^^2
  1. ;;^DIST(.404,.310102,40,2,0)
  1. ;;=2^Name^3
  1. ;;^DIST(.404,.310102,40,2,1)
  1. ;;=.02
  1. ;;^DIST(.404,.310102,40,2,2)
  1. ;;=1,39^1^1,33
  1. ;;^DIST(.404,.310102,40,2,13)
  1. ;;=D NAMEPAC^DIKKFORM
  1. ;;^DIST(.404,.310102,40,3,0)
  1. ;;=3^Priority^3
  1. ;;^DIST(.404,.310102,40,3,1)
  1. ;;=1
  1. ;;^DIST(.404,.310102,40,3,2)
  1. ;;=1,71^9^1,61
  1. ;;^DIST(.404,.310102,40,3,14)
  1. ;;=D PRIOVAL^DIKKFORM
  1. ;;^DIST(.404,.310103,0)
  1. ;;=DIKK EDIT FIELD HDR^.31
  1. ;;^DIST(.404,.310103,40,0)
  1. ;;=^.4044I^10^10
  1. ;;^DIST(.404,.310103,40,1,0)
  1. ;;=1^KEY FIELDS:^1
  1. ;;^DIST(.404,.310103,40,1,2)
  1. ;;=^^1,1
  1. ;;^DIST(.404,.310103,40,2,0)
  1. ;;=2^==========^1
  1. ;;^DIST(.404,.310103,40,2,2)
  1. ;;=^^2,1
  1. ;;^DIST(.404,.310103,40,3,0)
  1. ;;=3^Field^1
  1. ;;^DIST(.404,.310103,40,3,2)
  1. ;;=^^3,1
  1. ;;^DIST(.404,.310103,40,4,0)
  1. ;;=4^Seq No.^1
  1. ;;^DIST(.404,.310103,40,4,2)
  1. ;;=^^3,22
  1. ;;^DIST(.404,.310103,40,5,0)
  1. ;;=5^File^1
  1. ;;^DIST(.404,.310103,40,5,2)
  1. ;;=^^3,31
  1. ;;^DIST(.404,.310103,40,6,0)
  1. ;;=6^Field Name^1
  1. ;;^DIST(.404,.310103,40,6,2)
  1. ;;=^^3,53
  1. ;;^DIST(.404,.310103,40,7,0)
  1. ;;=7^-----^1
  1. ;;^DIST(.404,.310103,40,7,2)
  1. ;;=^^4,1
  1. ;;^DIST(.404,.310103,40,8,0)
  1. ;;=8^-------^1
  1. ;;^DIST(.404,.310103,40,8,2)
  1. ;;=^^4,22
  1. ;;^DIST(.404,.310103,40,9,0)
  1. ;;=9^----^1
  1. ;;^DIST(.404,.310103,40,9,2)
  1. ;;=^^4,31
  1. ;;^DIST(.404,.310103,40,10,0)
  1. ;;=10^----------^1
  1. ;;^DIST(.404,.310103,40,10,2)
  1. ;;=^^4,53
  1. ;;^DIST(.404,.310104,0)
  1. ;;=DIKK EDIT FIELD^.312
  1. ;;^DIST(.404,.310104,40,0)
  1. ;;=^.4044I^4^4
  1. ;;^DIST(.404,.310104,40,1,0)
  1. ;;=1^^3
  1. ;;^DIST(.404,.310104,40,1,1)
  1. ;;=.01
  1. ;;^DIST(.404,.310104,40,1,2)
  1. ;;=1,1^20
  1. ;;^DIST(.404,.310104,40,2,0)
  1. ;;=2^^3
  1. ;;^DIST(.404,.310104,40,2,1)
  1. ;;=1
  1. ;;^DIST(.404,.310104,40,2,2)
  1. ;;=1,24^3
  1. ;;^DIST(.404,.310104,40,3,0)
  1. ;;=3^^3
  1. ;;^DIST(.404,.310104,40,3,1)
  1. ;;=.02
  1. ;;^DIST(.404,.310104,40,3,2)
  1. ;;=1,31^20
  1. ;;^DIST(.404,.310104,40,3,3)
  1. ;;=!M
  1. ;;^DIST(.404,.310104,40,3,3.1)
  1. ;;=S Y=$$GET^DDSVAL(.31,DA(1),.01)
  1. ;;^DIST(.404,.310104,40,3,4)
  1. ;;=^^^1
  1. ;;^DIST(.404,.310104,40,4,0)
  1. ;;=4^^4
  1. ;;^DIST(.404,.310104,40,4,2)
  1. ;;=1,53^25
  1. ;;^DIST(.404,.310104,40,4,30)
  1. ;;==$P($G(^DD({FILE},{FIELD},0)),U)
  1. ;;^DIST(.404,.310105,0)
  1. ;;=DIKK EDIT UI IDENTIFIER^.11
  1. ;;^DIST(.404,.310105,40,0)
  1. ;;=^.4044I^2^2
  1. ;;^DIST(.404,.310105,40,1,0)
  1. ;;=1^^3
  1. ;;^DIST(.404,.310105,40,1,1)
  1. ;;=.02
  1. ;;^DIST(.404,.310105,40,1,2)
  1. ;;=1,44^30
  1. ;;^DIST(.404,.310105,40,2,0)
  1. ;;=2^^3
  1. ;;^DIST(.404,.310105,40,2,1)
  1. ;;=.11
  1. ;;^DIST(.404,.310105,40,2,2)
  1. ;;=2,19^61
  1. ;;^DIST(.404,.310106,0)
  1. ;;=DIKK EDIT UNIQUENESS INDEX^.31
  1. ;;^DIST(.404,.310106,11)
  1. ;;=D:$$GET^DDSVAL(.31,DA,3)="" UNED^DDSUTL("DETAILS","","",1)
  1. ;;^DIST(.404,.310106,40,0)
  1. ;;=^.4044I^2^2
  1. ;;^DIST(.404,.310106,40,1,0)
  1. ;;=1^Uniqueness Index^3
  1. ;;^DIST(.404,.310106,40,1,1)
  1. ;;=3
  1. ;;^DIST(.404,.310106,40,1,2)
  1. ;;=1,19^20^1,1