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

DINIT0FJ.m

Go to the documentation of this file.
  1. DINIT0FJ ;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="" ^DINIT0FK S Y=$E($T(ENTRY+I+1),5,999),X=$E(X,4,999),@X=Y
  1. Q
  1. ENTRY ;
  1. ;;^DIST(.404,.404041,40,8,0)
  1. ;;=12^PRE ACTION^3
  1. ;;^DIST(.404,.404041,40,8,1)
  1. ;;=11
  1. ;;^DIST(.404,.404041,40,8,2)
  1. ;;=13,26^50^13,14
  1. ;;^DIST(.404,.404041,40,9,0)
  1. ;;=13^POST ACTION^3
  1. ;;^DIST(.404,.404041,40,9,1)
  1. ;;=12
  1. ;;^DIST(.404,.404041,40,9,2)
  1. ;;=14,26^50^14,13
  1. ;;^DIST(.404,.404041,40,10,0)
  1. ;;=14^POST ACTION ON CHANGE^3
  1. ;;^DIST(.404,.404041,40,10,1)
  1. ;;=13
  1. ;;^DIST(.404,.404041,40,10,2)
  1. ;;=15,26^50^15,3
  1. ;;^DIST(.404,.404041,40,11,0)
  1. ;;=9^EXECUTABLE CAPTION^3
  1. ;;^DIST(.404,.404041,40,11,1)
  1. ;;=1.1
  1. ;;^DIST(.404,.404041,40,11,2)
  1. ;;=9,26^50^9,6
  1. ;;^DIST(.404,.404041,40,11,13)
  1. ;;=D PUT^DDSVALF("CAPTION","","",$S(X="":"",1:"!M"))
  1. ;;^DIST(.404,.404041,40,12,0)
  1. ;;=10^EXECUTABLE DEFAULT^3
  1. ;;^DIST(.404,.404041,40,12,1)
  1. ;;=6.01
  1. ;;^DIST(.404,.404041,40,12,2)
  1. ;;=10,26^50^10,6
  1. ;;^DIST(.404,.404041,40,12,13)
  1. ;;=D PUT^DDSVAL(.4044,.DA,6,$S(X="":"",1:"!M"))
  1. ;;^DIST(.404,.404041,40,13,0)
  1. ;;=3^FORM ONLY FIELD PARAMETERS...^2
  1. ;;^DIST(.404,.404041,40,13,2)
  1. ;;=3,73^1^3,43^1
  1. ;;^DIST(.404,.404041,40,13,7)
  1. ;;=^11
  1. ;;^DIST(.404,.404041,40,13,20)
  1. ;;=F^^0:0
  1. ;;^DIST(.404,.404041,40,13,21,0)
  1. ;;=^^1^1^2940928
  1. ;;^DIST(.404,.404041,40,13,21,1,0)
  1. ;;=Press <RET> to edit the properties of this form-only field
  1. ;;^DIST(.404,.404041,40,14,0)
  1. ;;=4^OTHER PARAMETERS...^2
  1. ;;^DIST(.404,.404041,40,14,2)
  1. ;;=4,26^1^4,6^1
  1. ;;^DIST(.404,.404041,40,14,7)
  1. ;;=^21
  1. ;;^DIST(.404,.404041,40,14,20)
  1. ;;=F^^0:0
  1. ;;^DIST(.404,.404041,40,14,21,0)
  1. ;;=^^1^1^2940928
  1. ;;^DIST(.404,.404041,40,14,21,1,0)
  1. ;;=Press <RET> to edit additional properties of this form-only field
  1. ;;^DIST(.404,.404041,40,15,0)
  1. ;;=7^CAPTION^2
  1. ;;^DIST(.404,.404041,40,15,2)
  1. ;;=7,26^50^7,17
  1. ;;^DIST(.404,.404041,40,15,3)
  1. ;;=!M
  1. ;;^DIST(.404,.404041,40,15,3.1)
  1. ;;=S Y=$G(DDGFCAP0)
  1. ;;^DIST(.404,.404041,40,15,13)
  1. ;;=D FOCAP^DDGFU
  1. ;;^DIST(.404,.404041,40,15,20)
  1. ;;=DD^^.4044,1
  1. ;;^DIST(.404,.404041,40,15,23)
  1. ;;=S DDGFCAP=X
  1. ;;^DIST(.404,.404041,40,16,0)
  1. ;;=5^SUPPRESS COLON AFTER CAPTION?^2
  1. ;;^DIST(.404,.404041,40,16,2)
  1. ;;=4,73^3^4,43^1
  1. ;;^DIST(.404,.404041,40,16,3)
  1. ;;=!M
  1. ;;^DIST(.404,.404041,40,16,3.1)
  1. ;;=S Y=$G(DDGFSUP0)
  1. ;;^DIST(.404,.404041,40,16,20)
  1. ;;=DD^^.4044,5.2
  1. ;;^DIST(.404,.404041,40,16,23)
  1. ;;=S DDGFSUP=X
  1. ;;^DIST(.404,.404041,40,17,0)
  1. ;;=6^UNIQUE NAME^3
  1. ;;^DIST(.404,.404041,40,17,1)
  1. ;;=3.1
  1. ;;^DIST(.404,.404041,40,17,2)
  1. ;;=5,26^50^5,13
  1. ;;^DIST(.404,.404042,0)
  1. ;;=DDGF FIELD FORM ONLY PARAMS^.4044
  1. ;;^DIST(.404,.404042,40,0)
  1. ;;=^.4044I^9^8
  1. ;;^DIST(.404,.404042,40,1,0)
  1. ;;=1^ Other Form Only Field Parameters ^1
  1. ;;^DIST(.404,.404042,40,1,2)
  1. ;;=^^1,22
  1. ;;^DIST(.404,.404042,40,2,0)
  1. ;;=2^READ TYPE^3
  1. ;;^DIST(.404,.404042,40,2,1)
  1. ;;=20.1
  1. ;;^DIST(.404,.404042,40,2,2)
  1. ;;=3,20^15^3,9
  1. ;;^DIST(.404,.404042,40,2,4)
  1. ;;=1
  1. ;;^DIST(.404,.404042,40,3,0)
  1. ;;=3^PARAMETERS^3
  1. ;;^DIST(.404,.404042,40,3,1)
  1. ;;=20.2
  1. ;;^DIST(.404,.404042,40,3,2)
  1. ;;=4,20^2^4,8
  1. ;;^DIST(.404,.404042,40,4,0)
  1. ;;=4^QUALIFIERS^3
  1. ;;^DIST(.404,.404042,40,4,1)
  1. ;;=20.3
  1. ;;^DIST(.404,.404042,40,4,2)
  1. ;;=5,20^52^5,8
  1. ;;^DIST(.404,.404042,40,5,0)
  1. ;;=6^INPUT TRANSFORM^3
  1. ;;^DIST(.404,.404042,40,5,1)
  1. ;;=22
  1. ;;^DIST(.404,.404042,40,5,2)
  1. ;;=9,20^52^9,3
  1. ;;^DIST(.404,.404042,40,6,0)
  1. ;;=5^HELP (WP)^3
  1. ;;^DIST(.404,.404042,40,6,1)
  1. ;;=21
  1. ;;^DIST(.404,.404042,40,6,2)
  1. ;;=7,20^1^7,9
  1. ;;^DIST(.404,.404042,40,8,0)
  1. ;;=7^SCREEN^3
  1. ;;^DIST(.404,.404042,40,8,1)
  1. ;;=24
  1. ;;^DIST(.404,.404042,40,8,2)
  1. ;;=10,20^52^10,12
  1. ;;^DIST(.404,.404042,40,9,0)
  1. ;;=8^SAVE CODE^3
  1. ;;^DIST(.404,.404042,40,9,1)
  1. ;;=23
  1. ;;^DIST(.404,.404042,40,9,2)
  1. ;;=11,20^52^11,9
  1. ;;^DIST(.404,.404051,0)
  1. ;;=DDGF FIELD COMPUTED^.4044
  1. ;;^DIST(.404,.404051,40,0)
  1. ;;=^.4044I^8^8
  1. ;;^DIST(.404,.404051,40,1,0)
  1. ;;=1^ Computed Field Properties ^1
  1. ;;^DIST(.404,.404051,40,1,2)
  1. ;;=^^1,26
  1. ;;^DIST(.404,.404051,40,2,0)
  1. ;;=2^FIELD ORDER^3
  1. ;;^DIST(.404,.404051,40,2,1)
  1. ;;=.01
  1. ;;^DIST(.404,.404051,40,2,2)
  1. ;;=3,24^4^3,11
  1. ;;^DIST(.404,.404051,40,3,0)
  1. ;;=3^OTHER PARAMETERS...^2
  1. ;;^DIST(.404,.404051,40,3,2)
  1. ;;=4,24^1^4,4^1
  1. ;;^DIST(.404,.404051,40,3,7)
  1. ;;=^11
  1. ;;^DIST(.404,.404051,40,3,20)
  1. ;;=F^^1:1
  1. ;;^DIST(.404,.404051,40,3,21,0)
  1. ;;=^^1^1^2930916
  1. ;;^DIST(.404,.404051,40,3,21,1,0)
  1. ;;=Press 'RETURN' to edit additional properties of this Data Dictionary field
  1. ;;^DIST(.404,.404051,40,4,0)
  1. ;;=4^SUPPRESS COLON AFTER CAPTION?^2
  1. ;;^DIST(.404,.404051,40,4,2)
  1. ;;=4,71^3^4,41^1
  1. ;;^DIST(.404,.404051,40,4,3)
  1. ;;=!M
  1. ;;^DIST(.404,.404051,40,4,3.1)
  1. ;;=S Y=DDGFSUP0
  1. ;;^DIST(.404,.404051,40,4,20)
  1. ;;=DD^^.4044,5.2
  1. ;;^DIST(.404,.404051,40,4,23)
  1. ;;=S DDGFSUP=X
  1. ;;^DIST(.404,.404051,40,5,0)
  1. ;;=5^UNIQUE NAME^3
  1. ;;^DIST(.404,.404051,40,5,1)
  1. ;;=3.1
  1. ;;^DIST(.404,.404051,40,5,2)
  1. ;;=5,24^50^5,11
  1. ;;^DIST(.404,.404051,40,6,0)
  1. ;;=6^CAPTION^2
  1. ;;^DIST(.404,.404051,40,6,2)
  1. ;;=7,24^50^7,15
  1. ;;^DIST(.404,.404051,40,6,3)
  1. ;;=!M
  1. ;;^DIST(.404,.404051,40,6,3.1)
  1. ;;=S Y=DDGFCAP0
  1. ;;^DIST(.404,.404051,40,6,13)
  1. ;;=D COMPCAP^DDGFU
  1. ;;^DIST(.404,.404051,40,6,20)
  1. ;;=DD^^.4044,1
  1. ;;^DIST(.404,.404051,40,6,23)
  1. ;;=S DDGFCAP=X
  1. ;;^DIST(.404,.404051,40,7,0)
  1. ;;=7^EXECUTABLE CAPTION^3
  1. ;;^DIST(.404,.404051,40,7,1)
  1. ;;=1.1
  1. ;;^DIST(.404,.404051,40,7,2)
  1. ;;=8,24^50^8,4
  1. ;;^DIST(.404,.404051,40,7,13)
  1. ;;=D PUT^DDSVALF("CAPTION","","",$S(X="":"",1:"!M"))
  1. ;;^DIST(.404,.404051,40,8,0)
  1. ;;=8^COMPUTED EXPRESSION^3
  1. ;;^DIST(.404,.404051,40,8,1)
  1. ;;=30
  1. ;;^DIST(.404,.404051,40,8,2)
  1. ;;=10,24^50^10,3
  1. ;;^DIST(.404,.404051,40,8,4)
  1. ;;=1
  1. ;;^DIST(.404,.404052,0)
  1. ;;=DDGF FIELD COMPUTED OTHER^.4044
  1. ;;^DIST(.404,.404052,40,0)
  1. ;;=^.4044I^8^5
  1. ;;^DIST(.404,.404052,40,1,0)
  1. ;;=1^ Other Computed Field Properties ^1
  1. ;;^DIST(.404,.404052,40,1,2)
  1. ;;=^^1,6
  1. ;;^DIST(.404,.404052,40,5,0)
  1. ;;=3^DATA LENGTH^2
  1. ;;^DIST(.404,.404052,40,5,2)
  1. ;;=5,25^3^5,12
  1. ;;^DIST(.404,.404052,40,5,3)
  1. ;;=!M
  1. ;;^DIST(.404,.404052,40,5,3.1)
  1. ;;=S Y=$G(DDGFDL0)
  1. ;;^DIST(.404,.404052,40,5,20)
  1. ;;=DD^^.4044,4.2
  1. ;;^DIST(.404,.404052,40,5,23)
  1. ;;=S DDGFDL=X
  1. ;;^DIST(.404,.404052,40,6,0)
  1. ;;=4^CAPTION COORDINATE^2
  1. ;;^DIST(.404,.404052,40,6,2)
  1. ;;=6,25^7^6,5
  1. ;;^DIST(.404,.404052,40,6,3)
  1. ;;=!M
  1. ;;^DIST(.404,.404052,40,6,3.1)
  1. ;;=S Y=$G(DDGFCC0)
  1. ;;^DIST(.404,.404052,40,6,20)
  1. ;;=DD^^.4044,5.1
  1. ;;^DIST(.404,.404052,40,6,23)
  1. ;;=S DDGFCC=X
  1. ;;^DIST(.404,.404052,40,7,0)
  1. ;;=5^DATA COORDINATE^2
  1. ;;^DIST(.404,.404052,40,7,2)
  1. ;;=7,25^7^7,8
  1. ;;^DIST(.404,.404052,40,7,3)
  1. ;;=!M
  1. ;;^DIST(.404,.404052,40,7,3.1)
  1. ;;=S Y=$G(DDGFDC0)
  1. ;;^DIST(.404,.404052,40,7,20)
  1. ;;=DD^^.4044,4.1
  1. ;;^DIST(.404,.404052,40,7,23)
  1. ;;=S DDGFDC=X
  1. ;;^DIST(.404,.404052,40,8,0)
  1. ;;=2^RIGHT JUSTIFY^3