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

DINIT0FG.m

Go to the documentation of this file.
DINIT0FG ;SFISC/MKO-DATA FOR FORM AND BLOCK FILES ;10:43 AM  3 Jun 1999 [ 04/02/2003   8:25 AM ]
 ;;22.0;VA FileMan;**1001**;APR 1, 2003
 ;;22.0;VA FileMan;**8**;Mar 30, 1999
 ;Per VHA Directive 10-93-142, this routine should not be modified.
 F I=1:2 S X=$T(ENTRY+I) G:X="" ^DINIT0FH S Y=$E($T(ENTRY+I+1),5,999),X=$E(X,4,999),@X=Y
 Q
ENTRY ;
 ;;^DIST(.404,.403013,40,3,0)
 ;;=3^Parameters for Repeating Blocks^1
 ;;^DIST(.404,.403013,40,3,2)
 ;;=^^5,3
 ;;^DIST(.404,.403013,40,4,0)
 ;;=4^REPLICATION^3
 ;;^DIST(.404,.403013,40,4,1)
 ;;=5
 ;;^DIST(.404,.403013,40,4,2)
 ;;=7,24^3^7,11
 ;;^DIST(.404,.403013,40,4,13)
 ;;=Q:DDSOLD>1&(X>1)  N DDGFZ F DDGFZ="INDEX","INITIAL POSITION","DISALLOW LAYGO","FIELD FOR SELECTION","ASK 'OK'" D UNED^DDSUTL(DDGFZ,"","",X<2) D:X<2 PUT^DDSVAL(DIE,.DA,DDGFZ)
 ;;^DIST(.404,.403013,40,5,0)
 ;;=5^INDEX^3
 ;;^DIST(.404,.403013,40,5,1)
 ;;=6
 ;;^DIST(.404,.403013,40,5,2)
 ;;=8,24^30^8,17
 ;;^DIST(.404,.403013,40,6,0)
 ;;=6^INITIAL POSITION^3
 ;;^DIST(.404,.403013,40,6,1)
 ;;=7
 ;;^DIST(.404,.403013,40,6,2)
 ;;=9,24^5^9,6
 ;;^DIST(.404,.403013,40,7,0)
 ;;=7^DISALLOW LAYGO^3
 ;;^DIST(.404,.403013,40,7,1)
 ;;=8
 ;;^DIST(.404,.403013,40,7,2)
 ;;=10,24^3^10,8
 ;;^DIST(.404,.403013,40,8,0)
 ;;=8^FIELD FOR SELECTION^3
 ;;^DIST(.404,.403013,40,8,1)
 ;;=9
 ;;^DIST(.404,.403013,40,8,2)
 ;;=11,24^30^11,3
 ;;^DIST(.404,.403013,40,9,0)
 ;;=9^ASK 'OK'^3
 ;;^DIST(.404,.403013,40,9,1)
 ;;=10
 ;;^DIST(.404,.403013,40,9,2)
 ;;=12,24^3^12,14
 ;;^DIST(.404,.403021,0)
 ;;=DDGF PAGE ADD^.4031
 ;;^DIST(.404,.403021,40,0)
 ;;=^.4044I^1^1
 ;;^DIST(.404,.403021,40,1,0)
 ;;=1^NEW PAGE NUMBER^2
 ;;^DIST(.404,.403021,40,1,2)
 ;;=3,20^5^3,3
 ;;^DIST(.404,.403021,40,1,12)
 ;;=S DDACT="EX"
 ;;^DIST(.404,.403021,40,1,20)
 ;;=DD^^.4031,.01
 ;;^DIST(.404,.403021,40,1,23)
 ;;=S DDGFPNUM=X
 ;;^DIST(.404,.403022,0)
 ;;=DDGF PAGE ADD ARE YOU SURE^.4031
 ;;^DIST(.404,.403022,40,0)
 ;;=^.4044I^2^2
 ;;^DIST(.404,.403022,40,1,0)
 ;;=1^!M^1
 ;;^DIST(.404,.403022,40,1,.1)
 ;;=S Y="Are you adding Page "_DDGFPNUM
 ;;^DIST(.404,.403022,40,1,2)
 ;;=^^3,3
 ;;^DIST(.404,.403022,40,2,0)
 ;;=2^as a new page on this form?^2
 ;;^DIST(.404,.403022,40,2,2)
 ;;=4,31^3^4,3^1
 ;;^DIST(.404,.403022,40,2,12)
 ;;=S DDACT="EX"
 ;;^DIST(.404,.403022,40,2,20)
 ;;=Y
 ;;^DIST(.404,.403022,40,2,23)
 ;;=S DDGFANS=X
 ;;^DIST(.404,.403031,0)
 ;;=DDGF PAGE EDIT^.4031
 ;;^DIST(.404,.403031,40,0)
 ;;=^.4044I^16^13
 ;;^DIST(.404,.403031,40,1,0)
 ;;=1^ Page Properties ^1
 ;;^DIST(.404,.403031,40,1,2)
 ;;=^^1,27
 ;;^DIST(.404,.403031,40,2,0)
 ;;=2^PAGE NUMBER^3
 ;;^DIST(.404,.403031,40,2,1)
 ;;=.01
 ;;^DIST(.404,.403031,40,2,2)
 ;;=3,21^5^3,8
 ;;^DIST(.404,.403031,40,4,0)
 ;;=4^HEADER BLOCK^3
 ;;^DIST(.404,.403031,40,4,1)
 ;;=1
 ;;^DIST(.404,.403031,40,4,2)
 ;;=5,21^30^5,7
 ;;^DIST(.404,.403031,40,5,0)
 ;;=8^NEXT PAGE^3
 ;;^DIST(.404,.403031,40,5,1)
 ;;=3
 ;;^DIST(.404,.403031,40,5,2)
 ;;=9,21^5^9,10
 ;;^DIST(.404,.403031,40,6,0)
 ;;=9^PREVIOUS PAGE^3
 ;;^DIST(.404,.403031,40,6,1)
 ;;=4
 ;;^DIST(.404,.403031,40,6,2)
 ;;=10,21^5^10,6
 ;;^DIST(.404,.403031,40,7,0)
 ;;=12^PRE ACTION^3
 ;;^DIST(.404,.403031,40,7,1)
 ;;=11
 ;;^DIST(.404,.403031,40,7,2)
 ;;=14,21^53^14,9
 ;;^DIST(.404,.403031,40,8,0)
 ;;=13^POST ACTION^3
 ;;^DIST(.404,.403031,40,8,1)
 ;;=12
 ;;^DIST(.404,.403031,40,8,2)
 ;;=15,21^53^15,8
 ;;^DIST(.404,.403031,40,9,0)
 ;;=11^DESCRIPTION (WP)^3
 ;;^DIST(.404,.403031,40,9,1)
 ;;=15
 ;;^DIST(.404,.403031,40,9,2)
 ;;=13,21^1^13,3
 ;;^DIST(.404,.403031,40,12,0)
 ;;=10^PARENT FIELD^3
 ;;^DIST(.404,.403031,40,12,1)
 ;;=8
 ;;^DIST(.404,.403031,40,12,2)
 ;;=11,21^53^11,7
 ;;^DIST(.404,.403031,40,13,0)
 ;;=6^IS THIS A POP UP PAGE?^2
 ;;^DIST(.404,.403031,40,13,2)
 ;;=7,67^3^7,44^1
 ;;^DIST(.404,.403031,40,13,3)
 ;;=!M
 ;;^DIST(.404,.403031,40,13,3.1)
 ;;=S:$G(DDGFLRC)]"" Y=1
 ;;^DIST(.404,.403031,40,13,13)
 ;;=N LRC,PP,NP S LRC="LOWER RIGHT COORDINATE",PP="PREVIOUS PAGE",NP="NEXT PAGE" D:X PUT^DDSVALF(LRC,"","","15,75"):$$GET^DDSVALF(LRC)="" D:'X PUT^DDSVALF(LRC) N PG F PG=NP,PP D UNED^DDSUTL(PG,"","",$E(1,X)) D:X PUT^DDSVAL(DIE,.DA,PG)
 ;;^DIST(.404,.403031,40,13,20)
 ;;=DD^^.4031,5
 ;;^DIST(.404,.403031,40,14,0)
 ;;=5^PAGE COORDINATE^2
 ;;^DIST(.404,.403031,40,14,2)
 ;;=7,21^7^7,4
 ;;^DIST(.404,.403031,40,14,3)
 ;;=!M
 ;;^DIST(.404,.403031,40,14,3.1)
 ;;=S Y=$G(DDGFTLC0)
 ;;^DIST(.404,.403031,40,14,4)
 ;;=1
 ;;^DIST(.404,.403031,40,14,20)
 ;;=DD^^.4031,2
 ;;^DIST(.404,.403031,40,14,23)
 ;;=S DDGFTLC=X
 ;;^DIST(.404,.403031,40,15,0)
 ;;=7^LOWER RIGHT COORDINATE^2
 ;;^DIST(.404,.403031,40,15,2)
 ;;=8,67^7^8,43
 ;;^DIST(.404,.403031,40,15,3)
 ;;=!M
 ;;^DIST(.404,.403031,40,15,3.1)
 ;;=S Y=$G(DDGFLRC0)
 ;;^DIST(.404,.403031,40,15,13)
 ;;=I DDSOLD=""!(X="") D PUT^DDSVALF("IS THIS A POP UP PAGE?","","",$S(X="":"",1:1),"I") N PG,NP,PP S NP="NEXT PAGE",PP="PREVIOUS PAGE" F PG=NP,PP D UNED^DDSUTL(PG,"","",$E(1,X]"")) D:X]"" PUT^DDSVAL(DIE,.DA,PG)
 ;;^DIST(.404,.403031,40,15,20)
 ;;=DD^^.4031,6
 ;;^DIST(.404,.403031,40,15,23)
 ;;=S DDGFLRC=X
 ;;^DIST(.404,.403031,40,16,0)
 ;;=3^PAGE NAME^2
 ;;^DIST(.404,.403031,40,16,2)
 ;;=4,21^30^4,10
 ;;^DIST(.404,.403031,40,16,3)
 ;;=!M
 ;;^DIST(.404,.403031,40,16,3.1)
 ;;=S Y=$G(DDGFPNM0)
 ;;^DIST(.404,.403031,40,16,4)
 ;;=1
 ;;^DIST(.404,.403031,40,16,20)
 ;;=DD^^.4031,7
 ;;^DIST(.404,.403031,40,16,23)
 ;;=S DDGFPNM=X
 ;;^DIST(.404,.403041,0)
 ;;=DDGF PAGE SELECT^.4031
 ;;^DIST(.404,.403041,40,0)
 ;;=^.4044I^1^1
 ;;^DIST(.404,.403041,40,1,0)
 ;;=1^Select PAGE^2
 ;;^DIST(.404,.403041,40,1,2)
 ;;=1,14^30^1,1
 ;;^DIST(.404,.403041,40,1,3)
 ;;=!M
 ;;^DIST(.404,.403041,40,1,3.1)
 ;;=S Y=$P(^DIST(.403,+DDGFFM,40,DDGFPAGE,0),U)
 ;;^DIST(.404,.403041,40,1,12)
 ;;=S DDACT="EX"
 ;;^DIST(.404,.403041,40,1,20)
 ;;=P^^DIST(.403,+DDGFFM,40,:QEAMZF
 ;;^DIST(.404,.403041,40,1,23)
 ;;=S DDGFPAGE=X
 ;;^DIST(.404,.403051,0)
 ;;=DDGF FORM EDIT^.403
 ;;^DIST(.404,.403051,40,0)
 ;;=^.4044I^11^11
 ;;^DIST(.404,.403051,40,1,0)
 ;;=1^ Form Properties ^1
 ;;^DIST(.404,.403051,40,1,2)
 ;;=^^1,29
 ;;^DIST(.404,.403051,40,2,0)
 ;;=2^NAME^3
 ;;^DIST(.404,.403051,40,2,1)
 ;;=.01
 ;;^DIST(.404,.403051,40,2,2)
 ;;=3,20^30^3,14
 ;;^DIST(.404,.403051,40,2,4)
 ;;=1
 ;;^DIST(.404,.403051,40,3,0)
 ;;=4^PRE ACTION^3
 ;;^DIST(.404,.403051,40,3,1)
 ;;=11
 ;;^DIST(.404,.403051,40,3,2)
 ;;=6,20^54^6,8
 ;;^DIST(.404,.403051,40,4,0)
 ;;=5^POST ACTION^3
 ;;^DIST(.404,.403051,40,4,1)
 ;;=12
 ;;^DIST(.404,.403051,40,4,2)
 ;;=7,20^54^7,7
 ;;^DIST(.404,.403051,40,5,0)
 ;;=8^DESCRIPTION^3
 ;;^DIST(.404,.403051,40,5,1)
 ;;=15
 ;;^DIST(.404,.403051,40,5,2)
 ;;=11,20^1^11,7
 ;;^DIST(.404,.403051,40,6,0)
 ;;=6^DATA VALIDATION^3
 ;;^DIST(.404,.403051,40,6,1)
 ;;=20
 ;;^DIST(.404,.403051,40,6,2)
 ;;=8,20^54^8,3
 ;;^DIST(.404,.403051,40,7,0)
 ;;=9^RECORD SELECTION PAGE^3
 ;;^DIST(.404,.403051,40,7,1)
 ;;=21
 ;;^DIST(.404,.403051,40,7,2)
 ;;=11,69^5^11,46
 ;;^DIST(.404,.403051,40,8,0)
 ;;=7^POST SAVE^3
 ;;^DIST(.404,.403051,40,8,1)
 ;;=14
 ;;^DIST(.404,.403051,40,8,2)
 ;;=9,20^54^9,9
 ;;^DIST(.404,.403051,40,9,0)
 ;;=3^TITLE^3
 ;;^DIST(.404,.403051,40,9,1)
 ;;=6