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

DINIT0FI.m

Go to the documentation of this file.
  1. DINIT0FI ;SFISC/MKO-DATA FOR FORM AND BLOCK FILES ;3:27 PM 20 Apr 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="" ^DINIT0FJ S Y=$E($T(ENTRY+I+1),5,999),X=$E(X,4,999),@X=Y
  1. Q
  1. ENTRY ;
  1. ;;^DIST(.404,.404031,40,15,20)
  1. ;;=DD^^.4044,5.2
  1. ;;^DIST(.404,.404031,40,15,23)
  1. ;;=S DDGFSUP=X
  1. ;;^DIST(.404,.404031,40,16,0)
  1. ;;=6^UNIQUE NAME^3
  1. ;;^DIST(.404,.404031,40,16,1)
  1. ;;=3.1
  1. ;;^DIST(.404,.404031,40,16,2)
  1. ;;=5,26^50^5,13
  1. ;;^DIST(.404,.404031,40,17,0)
  1. ;;=9^EXECUTABLE CAPTION^3
  1. ;;^DIST(.404,.404031,40,17,1)
  1. ;;=1.1
  1. ;;^DIST(.404,.404031,40,17,2)
  1. ;;=9,26^50^9,6
  1. ;;^DIST(.404,.404031,40,17,13)
  1. ;;=D PUT^DDSVALF("CAPTION","","",$S(X="":"",1:"!M"),"I")
  1. ;;^DIST(.404,.404032,0)
  1. ;;=DDGF FIELD DD OTHER SINGLE^.4044
  1. ;;^DIST(.404,.404032,40,0)
  1. ;;=^.4044I^13^10
  1. ;;^DIST(.404,.404032,40,1,0)
  1. ;;=1^ Other Parameters ^1
  1. ;;^DIST(.404,.404032,40,1,2)
  1. ;;=^^1,27
  1. ;;^DIST(.404,.404032,40,2,0)
  1. ;;=2^REQUIRED^3
  1. ;;^DIST(.404,.404032,40,2,1)
  1. ;;=6.1
  1. ;;^DIST(.404,.404032,40,2,2)
  1. ;;=3,23^3^3,13
  1. ;;^DIST(.404,.404032,40,3,0)
  1. ;;=4^DISABLE EDITING^3
  1. ;;^DIST(.404,.404032,40,3,1)
  1. ;;=6.4
  1. ;;^DIST(.404,.404032,40,3,2)
  1. ;;=4,23^9^4,6
  1. ;;^DIST(.404,.404032,40,7,0)
  1. ;;=7^DATA LENGTH^2
  1. ;;^DIST(.404,.404032,40,7,2)
  1. ;;=7,23^3^7,10
  1. ;;^DIST(.404,.404032,40,7,3)
  1. ;;=!M
  1. ;;^DIST(.404,.404032,40,7,3.1)
  1. ;;=S Y=$G(DDGFDL0)
  1. ;;^DIST(.404,.404032,40,7,4)
  1. ;;=1
  1. ;;^DIST(.404,.404032,40,7,20)
  1. ;;=DD^^.4044,4.2
  1. ;;^DIST(.404,.404032,40,7,23)
  1. ;;=S DDGFDL=X
  1. ;;^DIST(.404,.404032,40,8,0)
  1. ;;=8^CAPTION COORDINATE^2
  1. ;;^DIST(.404,.404032,40,8,2)
  1. ;;=8,23^7^8,3
  1. ;;^DIST(.404,.404032,40,8,3)
  1. ;;=!M
  1. ;;^DIST(.404,.404032,40,8,3.1)
  1. ;;=S Y=$G(DDGFCC0)
  1. ;;^DIST(.404,.404032,40,8,20)
  1. ;;=DD^^.4044,5.1
  1. ;;^DIST(.404,.404032,40,8,23)
  1. ;;=S DDGFCC=X
  1. ;;^DIST(.404,.404032,40,9,0)
  1. ;;=9^DATA COORDINATE^2
  1. ;;^DIST(.404,.404032,40,9,2)
  1. ;;=9,23^7^9,6
  1. ;;^DIST(.404,.404032,40,9,3)
  1. ;;=!M
  1. ;;^DIST(.404,.404032,40,9,3.1)
  1. ;;=S Y=$G(DDGFDC0)
  1. ;;^DIST(.404,.404032,40,9,4)
  1. ;;=1
  1. ;;^DIST(.404,.404032,40,9,20)
  1. ;;=DD^^.4044,4.1
  1. ;;^DIST(.404,.404032,40,9,23)
  1. ;;=S DDGFDC=X
  1. ;;^DIST(.404,.404032,40,10,0)
  1. ;;=10^DATA VALIDATION^3
  1. ;;^DIST(.404,.404032,40,10,1)
  1. ;;=14
  1. ;;^DIST(.404,.404032,40,10,2)
  1. ;;=11,23^49^11,6
  1. ;;^DIST(.404,.404032,40,11,0)
  1. ;;=5^RIGHT JUSTIFY^3
  1. ;;^DIST(.404,.404032,40,11,1)
  1. ;;=6.3
  1. ;;^DIST(.404,.404032,40,11,2)
  1. ;;=4,52^3^4,37
  1. ;;^DIST(.404,.404032,40,12,0)
  1. ;;=6^SUB PAGE LINK^3
  1. ;;^DIST(.404,.404032,40,12,1)
  1. ;;=8
  1. ;;^DIST(.404,.404032,40,12,2)
  1. ;;=5,23^5^5,8
  1. ;;^DIST(.404,.404032,40,13,0)
  1. ;;=3^DISPLAY GROUP^3
  1. ;;^DIST(.404,.404032,40,13,1)
  1. ;;=3
  1. ;;^DIST(.404,.404032,40,13,2)
  1. ;;=3,52^20^3,37
  1. ;;^DIST(.404,.404033,0)
  1. ;;=DDGF FIELD DD OTHER MULTIPLE^.4044
  1. ;;^DIST(.404,.404033,40,0)
  1. ;;=^.4044I^12^9
  1. ;;^DIST(.404,.404033,40,1,0)
  1. ;;=1^ Other Parameters ^1
  1. ;;^DIST(.404,.404033,40,1,2)
  1. ;;=^^1,14^1
  1. ;;^DIST(.404,.404033,40,2,0)
  1. ;;=2^SUB PAGE LINK^3
  1. ;;^DIST(.404,.404033,40,2,1)
  1. ;;=8
  1. ;;^DIST(.404,.404033,40,2,2)
  1. ;;=3,23^3^3,8
  1. ;;^DIST(.404,.404033,40,3,0)
  1. ;;=3^DISALLOW LAYGO^3
  1. ;;^DIST(.404,.404033,40,3,1)
  1. ;;=6.5
  1. ;;^DIST(.404,.404033,40,3,2)
  1. ;;=4,23^3^4,7
  1. ;;^DIST(.404,.404033,40,7,0)
  1. ;;=7^CAPTION COORDINATE^2
  1. ;;^DIST(.404,.404033,40,7,2)
  1. ;;=10,23^7^10,3
  1. ;;^DIST(.404,.404033,40,7,3)
  1. ;;=!M
  1. ;;^DIST(.404,.404033,40,7,3.1)
  1. ;;=S Y=$G(DDGFCC0)
  1. ;;^DIST(.404,.404033,40,7,20)
  1. ;;=DD^^.4044,5.1
  1. ;;^DIST(.404,.404033,40,7,23)
  1. ;;=S DDGFCC=X
  1. ;;^DIST(.404,.404033,40,8,0)
  1. ;;=8^DATA COORDINATE^2
  1. ;;^DIST(.404,.404033,40,8,2)
  1. ;;=11,23^7^11,6
  1. ;;^DIST(.404,.404033,40,8,3)
  1. ;;=!M
  1. ;;^DIST(.404,.404033,40,8,3.1)
  1. ;;=S Y=$G(DDGFDC0)
  1. ;;^DIST(.404,.404033,40,8,4)
  1. ;;=1
  1. ;;^DIST(.404,.404033,40,8,20)
  1. ;;=DD^^.4044,4.1
  1. ;;^DIST(.404,.404033,40,8,23)
  1. ;;=S DDGFDC=X
  1. ;;^DIST(.404,.404033,40,9,0)
  1. ;;=6^DATA LENGTH^2
  1. ;;^DIST(.404,.404033,40,9,2)
  1. ;;=9,23^3^9,10
  1. ;;^DIST(.404,.404033,40,9,3)
  1. ;;=!M
  1. ;;^DIST(.404,.404033,40,9,3.1)
  1. ;;=S Y=$G(DDGFDL0)
  1. ;;^DIST(.404,.404033,40,9,4)
  1. ;;=1
  1. ;;^DIST(.404,.404033,40,9,20)
  1. ;;=DD^^.4044,4.2
  1. ;;^DIST(.404,.404033,40,9,23)
  1. ;;=S DDGFDL=X
  1. ;;^DIST(.404,.404033,40,10,0)
  1. ;;=4^RIGHT JUSTIFY^3
  1. ;;^DIST(.404,.404033,40,10,1)
  1. ;;=6.3
  1. ;;^DIST(.404,.404033,40,10,2)
  1. ;;=6,23^3^6,8
  1. ;;^DIST(.404,.404033,40,11,0)
  1. ;;=5^DISPLAY GROUP^3
  1. ;;^DIST(.404,.404033,40,11,1)
  1. ;;=3
  1. ;;^DIST(.404,.404033,40,11,2)
  1. ;;=7,23^20^7,8
  1. ;;^DIST(.404,.404033,40,12,0)
  1. ;;=4^ASK 'OK'^3
  1. ;;^DIST(.404,.404033,40,12,1)
  1. ;;=6.6
  1. ;;^DIST(.404,.404033,40,12,2)
  1. ;;=5,23^3^5,13
  1. ;;^DIST(.404,.404034,0)
  1. ;;=DDGF FIELD DD OTHER WP^.4044
  1. ;;^DIST(.404,.404034,40,0)
  1. ;;=^.4044I^10^7
  1. ;;^DIST(.404,.404034,40,1,0)
  1. ;;=1^ Other Parameters ^1
  1. ;;^DIST(.404,.404034,40,1,2)
  1. ;;=^^1,14^1
  1. ;;^DIST(.404,.404034,40,2,0)
  1. ;;=2^REQUIRED^3
  1. ;;^DIST(.404,.404034,40,2,1)
  1. ;;=6.1
  1. ;;^DIST(.404,.404034,40,2,2)
  1. ;;=3,23^3^3,13
  1. ;;^DIST(.404,.404034,40,3,0)
  1. ;;=3^DISABLE EDITING^3
  1. ;;^DIST(.404,.404034,40,3,1)
  1. ;;=6.4
  1. ;;^DIST(.404,.404034,40,3,2)
  1. ;;=4,23^3^4,6
  1. ;;^DIST(.404,.404034,40,3,14)
  1. ;;=I X=2 D HLP^DDSUTL("Word processing fields are always reachable. To make the field uneditable, enter 'YES'.") S DDSERROR=1
  1. ;;^DIST(.404,.404034,40,7,0)
  1. ;;=4^DISPLAY GROUP^3
  1. ;;^DIST(.404,.404034,40,7,1)
  1. ;;=3
  1. ;;^DIST(.404,.404034,40,7,2)
  1. ;;=5,23^20^5,8
  1. ;;^DIST(.404,.404034,40,8,0)
  1. ;;=5^DATA LENGTH^2
  1. ;;^DIST(.404,.404034,40,8,2)
  1. ;;=7,23^3^7,10
  1. ;;^DIST(.404,.404034,40,8,3)
  1. ;;=!M
  1. ;;^DIST(.404,.404034,40,8,3.1)
  1. ;;=S Y=$G(DDGFDL0)
  1. ;;^DIST(.404,.404034,40,8,4)
  1. ;;=1
  1. ;;^DIST(.404,.404034,40,8,20)
  1. ;;=DD^^.4044,4.2
  1. ;;^DIST(.404,.404034,40,8,23)
  1. ;;=S DDGFDL=X
  1. ;;^DIST(.404,.404034,40,9,0)
  1. ;;=6^CAPTION COORDINATE^2
  1. ;;^DIST(.404,.404034,40,9,2)
  1. ;;=8,23^7^8,3
  1. ;;^DIST(.404,.404034,40,9,3)
  1. ;;=!M
  1. ;;^DIST(.404,.404034,40,9,3.1)
  1. ;;=S Y=$G(DDGFCC0)
  1. ;;^DIST(.404,.404034,40,9,20)
  1. ;;=DD^^.4044,5.1
  1. ;;^DIST(.404,.404034,40,9,23)
  1. ;;=S DDGFCC=X
  1. ;;^DIST(.404,.404034,40,10,0)
  1. ;;=7^DATA COORDINATE^2
  1. ;;^DIST(.404,.404034,40,10,2)
  1. ;;=9,23^7^9,6
  1. ;;^DIST(.404,.404034,40,10,3)
  1. ;;=!M
  1. ;;^DIST(.404,.404034,40,10,3.1)
  1. ;;=S Y=$G(DDGFDC0)
  1. ;;^DIST(.404,.404034,40,10,4)
  1. ;;=1
  1. ;;^DIST(.404,.404034,40,10,20)
  1. ;;=DD^^.4044,4.1
  1. ;;^DIST(.404,.404034,40,10,23)
  1. ;;=S DDGFDC=X
  1. ;;^DIST(.404,.404041,0)
  1. ;;=DDGF FIELD FORM ONLY^.4044
  1. ;;^DIST(.404,.404041,40,0)
  1. ;;=^.4044I^17^14
  1. ;;^DIST(.404,.404041,40,1,0)
  1. ;;=1^ Form Only Field Properties ^1
  1. ;;^DIST(.404,.404041,40,1,2)
  1. ;;=^^1,25
  1. ;;^DIST(.404,.404041,40,2,0)
  1. ;;=2^FIELD ORDER^3
  1. ;;^DIST(.404,.404041,40,2,1)
  1. ;;=.01
  1. ;;^DIST(.404,.404041,40,2,2)
  1. ;;=3,26^4^3,13
  1. ;;^DIST(.404,.404041,40,5,0)
  1. ;;=8^DEFAULT^3
  1. ;;^DIST(.404,.404041,40,5,1)
  1. ;;=6
  1. ;;^DIST(.404,.404041,40,5,2)
  1. ;;=8,26^50^8,17
  1. ;;^DIST(.404,.404041,40,5,13)
  1. ;;=D:X'="!M" PUT^DDSVAL(.4044,.DA,6.01,"")
  1. ;;^DIST(.404,.404041,40,7,0)
  1. ;;=11^BRANCHING LOGIC^3
  1. ;;^DIST(.404,.404041,40,7,1)
  1. ;;=10
  1. ;;^DIST(.404,.404041,40,7,2)
  1. ;;=12,26^50^12,9