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

DINIT902.m

Go to the documentation of this file.
  1. DINIT902 ;GFT/GFT-DIALOG FILE INITS ;Jan 05, 2015
  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(Q+I) Q:X="" S Y=$E($T(Q+I+1),4,999),X=$E(X,4,999) S:$A(Y)=126 I=I+1,Y=$E(Y,2,999)_$E($T(Q+I+1),5,99) S:$A(Y)=61 Y=$E(Y,2,999) S @X=Y
  1. Q Q
  1. ;;^UTILITY(U,$J,.84,7064,3,1,0)
  1. ;;=1^'FIRST' OR 'THEN'
  1. ;;^UTILITY(U,$J,.84,7064,3,2,0)
  1. ;;=2^'FIELD' or similar
  1. ;;^UTILITY(U,$J,.84,7064,5,0)
  1. ;;=^.841^1^1
  1. ;;^UTILITY(U,$J,.84,7064,5,1,0)
  1. ;;=DIP2^2
  1. ;;^UTILITY(U,$J,.84,7065,0)
  1. ;;=7065^2^^2^THIS IS THE ADVERB 'FIRST'
  1. ;;^UTILITY(U,$J,.84,7065,2,0)
  1. ;;=^^1^1^2991028^
  1. ;;^UTILITY(U,$J,.84,7065,2,1,0)
  1. ;;=First
  1. ;;^UTILITY(U,$J,.84,7065,5,0)
  1. ;;=^.841^1^1
  1. ;;^UTILITY(U,$J,.84,7065,5,1,0)
  1. ;;=DIP2^2
  1. ;;^UTILITY(U,$J,.84,7066,0)
  1. ;;=7066^2^^2
  1. ;;^UTILITY(U,$J,.84,7066,1,0)
  1. ;;=^^1^1^2991028^
  1. ;;^UTILITY(U,$J,.84,7066,1,1,0)
  1. ;;=THIS IS THE ADVERB 'THEN'
  1. ;;^UTILITY(U,$J,.84,7066,2,0)
  1. ;;=^^1^1^2991028^
  1. ;;^UTILITY(U,$J,.84,7066,2,1,0)
  1. ;;=Then
  1. ;;^UTILITY(U,$J,.84,7066,5,0)
  1. ;;=^.841^1^1
  1. ;;^UTILITY(U,$J,.84,7066,5,1,0)
  1. ;;=DIP2^2
  1. ;;^UTILITY(U,$J,.84,7068,0)
  1. ;;=7068^2^y^2
  1. ;;^UTILITY(U,$J,.84,7068,2,0)
  1. ;;=^^1^1^2991013^
  1. ;;^UTILITY(U,$J,.84,7068,2,1,0)
  1. ;;=Start with |1|
  1. ;;^UTILITY(U,$J,.84,7068,3,0)
  1. ;;=^.845^1^1
  1. ;;^UTILITY(U,$J,.84,7068,3,1,0)
  1. ;;=1^NAME OF FIELD WHOSE INITAL VALUE WE ARE ASKING FOR
  1. ;;^UTILITY(U,$J,.84,7068,5,0)
  1. ;;=^.841^1^1
  1. ;;^UTILITY(U,$J,.84,7068,5,1,0)
  1. ;;=DIP1
  1. ;;^UTILITY(U,$J,.84,7069,0)
  1. ;;=7069^2^y^2
  1. ;;^UTILITY(U,$J,.84,7069,2,0)
  1. ;;=^^1^1^2991013^
  1. ;;^UTILITY(U,$J,.84,7069,2,1,0)
  1. ;;=Go to |1|
  1. ;;^UTILITY(U,$J,.84,7069,3,0)
  1. ;;=^.845^1^1
  1. ;;^UTILITY(U,$J,.84,7069,3,1,0)
  1. ;;=1^NAME OF FIELD WHOSE LAST VALUE WE ARE ASKING FOR
  1. ;;^UTILITY(U,$J,.84,7069,5,0)
  1. ;;=^.841^1^1
  1. ;;^UTILITY(U,$J,.84,7069,5,1,0)
  1. ;;=DIP1
  1. ;;^UTILITY(U,$J,.84,7070,0)
  1. ;;=7070^2^^2
  1. ;;^UTILITY(U,$J,.84,7070,1,0)
  1. ;;=^^1^1^2991012^
  1. ;;^UTILITY(U,$J,.84,7070,1,1,0)
  1. ;;=As in START WITH: FIRST
  1. ;;^UTILITY(U,$J,.84,7070,2,0)
  1. ;;=^^1^1^2991012^^
  1. ;;^UTILITY(U,$J,.84,7070,2,1,0)
  1. ;;=FIRST
  1. ;;^UTILITY(U,$J,.84,7070,5,0)
  1. ;;=^.841^1^1
  1. ;;^UTILITY(U,$J,.84,7070,5,1,0)
  1. ;;=DIP1
  1. ;;^UTILITY(U,$J,.84,7071,0)
  1. ;;=7071^2^^2
  1. ;;^UTILITY(U,$J,.84,7071,1,0)
  1. ;;=^^1^1^2991012^
  1. ;;^UTILITY(U,$J,.84,7071,1,1,0)
  1. ;;=As in GO TO: LAST
  1. ;;^UTILITY(U,$J,.84,7071,2,0)
  1. ;;=^^1^1^2991012^
  1. ;;^UTILITY(U,$J,.84,7071,2,1,0)
  1. ;;=LAST
  1. ;;^UTILITY(U,$J,.84,7071,5,0)
  1. ;;=^.841^1^1
  1. ;;^UTILITY(U,$J,.84,7071,5,1,0)
  1. ;;=DIP1
  1. ;;^UTILITY(U,$J,.84,7080,0)
  1. ;;=7080^2^^2
  1. ;;^UTILITY(U,$J,.84,7080,2,0)
  1. ;;=^^1^1^2991008^
  1. ;;^UTILITY(U,$J,.84,7080,2,1,0)
  1. ;;=NULL-STRING
  1. ;;^UTILITY(U,$J,.84,7080,5,0)
  1. ;;=^.841^1^1
  1. ;;^UTILITY(U,$J,.84,7080,5,1,0)
  1. ;;=DIWE11
  1. ;;^UTILITY(U,$J,.84,7081,0)
  1. ;;=7081^2^y^2
  1. ;;^UTILITY(U,$J,.84,7081,2,0)
  1. ;;=^^1^1^2991028^^^
  1. ;;^UTILITY(U,$J,.84,7081,2,1,0)
  1. ;;=|1| by |2|
  1. ;;^UTILITY(U,$J,.84,7081,3,0)
  1. ;;=^.845^2^2
  1. ;;^UTILITY(U,$J,.84,7081,3,1,0)
  1. ;;=1^NAME OF FIELD BEING COUNTED IN HISTOGRAM
  1. ;;^UTILITY(U,$J,.84,7081,3,2,0)
  1. ;;=2^NEW OF FIELD SUBTOTALLED IN HISTOGRAM
  1. ;;^UTILITY(U,$J,.84,7081,5,0)
  1. ;;=^.841^1^1
  1. ;;^UTILITY(U,$J,.84,7081,5,1,0)
  1. ;;=DIH
  1. ;;^UTILITY(U,$J,.84,7085,0)
  1. ;;=7085^2^^2
  1. ;;^UTILITY(U,$J,.84,7085,2,0)
  1. ;;=^^1^1^2990903^
  1. ;;^UTILITY(U,$J,.84,7085,2,1,0)
  1. ;;=Deviation
  1. ;;^UTILITY(U,$J,.84,7085,5,0)
  1. ;;=^.841^1^1
  1. ;;^UTILITY(U,$J,.84,7085,5,1,0)
  1. ;;=DIO3
  1. ;;^UTILITY(U,$J,.84,7086,0)
  1. ;;=7086^2^^2
  1. ;;^UTILITY(U,$J,.84,7086,2,0)
  1. ;;=^^1^1^2990903^^
  1. ;;^UTILITY(U,$J,.84,7086,2,1,0)
  1. ;;=Maximum
  1. ;;^UTILITY(U,$J,.84,7086,5,0)
  1. ;;=^.841^1^1
  1. ;;^UTILITY(U,$J,.84,7086,5,1,0)
  1. ;;=DIO3
  1. ;;^UTILITY(U,$J,.84,7087,0)
  1. ;;=7087^2^^2
  1. ;;^UTILITY(U,$J,.84,7087,2,0)
  1. ;;=^^1^1^2990903^
  1. ;;^UTILITY(U,$J,.84,7087,2,1,0)
  1. ;;=Minimum
  1. ;;^UTILITY(U,$J,.84,7087,5,0)
  1. ;;=^.841^1^1
  1. ;;^UTILITY(U,$J,.84,7087,5,1,0)
  1. ;;=DIO3
  1. ;;^UTILITY(U,$J,.84,7088,0)
  1. ;;=7088^2^^2
  1. ;;^UTILITY(U,$J,.84,7088,2,0)
  1. ;;=^^1^1^2990903^
  1. ;;^UTILITY(U,$J,.84,7088,2,1,0)
  1. ;;=Mean
  1. ;;^UTILITY(U,$J,.84,7088,3,0)
  1. ;;=^.845
  1. ;;^UTILITY(U,$J,.84,7088,5,0)
  1. ;;=^.841^2^2
  1. ;;^UTILITY(U,$J,.84,7088,5,1,0)
  1. ;;=DIO3
  1. ;;^UTILITY(U,$J,.84,7088,5,2,0)
  1. ;;=DIH
  1. ;;^UTILITY(U,$J,.84,7089,0)
  1. ;;=7089^2^^2
  1. ;;^UTILITY(U,$J,.84,7089,2,0)
  1. ;;=^^1^1^2990903^
  1. ;;^UTILITY(U,$J,.84,7089,2,1,0)
  1. ;;=Count
  1. ;;^UTILITY(U,$J,.84,7089,5,0)
  1. ;;=^.841^2^2
  1. ;;^UTILITY(U,$J,.84,7089,5,1,0)
  1. ;;=DIO3
  1. ;;^UTILITY(U,$J,.84,7089,5,2,0)
  1. ;;=DIH
  1. ;;^UTILITY(U,$J,.84,7090,0)
  1. ;;=7090^2^^2
  1. ;;^UTILITY(U,$J,.84,7090,2,0)
  1. ;;=^^1^1^2990903^
  1. ;;^UTILITY(U,$J,.84,7090,2,1,0)
  1. ;;=Total
  1. ;;^UTILITY(U,$J,.84,7090,5,0)
  1. ;;=^.841^2^2
  1. ;;^UTILITY(U,$J,.84,7090,5,1,0)
  1. ;;=DIO3
  1. ;;^UTILITY(U,$J,.84,7090,5,2,0)
  1. ;;=DIH
  1. ;;^UTILITY(U,$J,.84,7091,0)
  1. ;;=7091^2^y^2
  1. ;;^UTILITY(U,$J,.84,7091,2,0)
  1. ;;=^^1^1^2990902^^
  1. ;;^UTILITY(U,$J,.84,7091,2,1,0)
  1. ;;=Previous specification: '|1|'
  1. ;;^UTILITY(U,$J,.84,7091,3,0)
  1. ;;=^.845^1^1
  1. ;;^UTILITY(U,$J,.84,7091,3,1,0)
  1. ;;=1^PHRASE DESCRIBING SORT SPECIFICATION , LIKE "DATE null"
  1. ;;^UTILITY(U,$J,.84,7091,5,0)
  1. ;;=^.841^1^1
  1. ;;^UTILITY(U,$J,.84,7091,5,1,0)
  1. ;;=DIP1
  1. ;;^UTILITY(U,$J,.84,7092,0)
  1. ;;=7092^2^y^2
  1. ;;^UTILITY(U,$J,.84,7092,2,0)
  1. ;;=^^1^1^2990902^
  1. ;;^UTILITY(U,$J,.84,7092,2,1,0)
  1. ;;=|1| is null
  1. ;;^UTILITY(U,$J,.84,7092,3,0)
  1. ;;=^.845^1^1
  1. ;;^UTILITY(U,$J,.84,7092,3,1,0)
  1. ;;=1^FIELD NAME
  1. ;;^UTILITY(U,$J,.84,7092,5,0)
  1. ;;=^.841^1^1
  1. ;;^UTILITY(U,$J,.84,7092,5,1,0)
  1. ;;=DIP12
  1. ;;^UTILITY(U,$J,.84,7093,0)
  1. ;;=7093^2^y^2
  1. ;;^UTILITY(U,$J,.84,7093,2,0)
  1. ;;=^^1^1^2990902^^
  1. ;;^UTILITY(U,$J,.84,7093,2,1,0)
  1. ;;= |1| not null
  1. ;;^UTILITY(U,$J,.84,7093,3,0)
  1. ;;=^.845^1^1
  1. ;;^UTILITY(U,$J,.84,7093,3,1,0)
  1. ;;=1^FIELD NAME
  1. ;;^UTILITY(U,$J,.84,7093,5,0)
  1. ;;=^.841^1^1
  1. ;;^UTILITY(U,$J,.84,7093,5,1,0)
  1. ;;=DIP12
  1. ;;^UTILITY(U,$J,.84,7094,0)
  1. ;;=7094^2^^2
  1. ;;^UTILITY(U,$J,.84,7094,2,0)
  1. ;;=^^1^1^2990902^^^
  1. ;;^UTILITY(U,$J,.84,7094,2,1,0)
  1. ;;= (includes null values)
  1. ;;^UTILITY(U,$J,.84,7094,3,0)
  1. ;;=^.845^^0
  1. ;;^UTILITY(U,$J,.84,7094,5,0)
  1. ;;=^.841^1^1
  1. ;;^UTILITY(U,$J,.84,7094,5,1,0)
  1. ;;=DIP12^ALL
  1. ;;^UTILITY(U,$J,.84,7095,0)
  1. ;;=7095^2^y^2
  1. ;;^UTILITY(U,$J,.84,7095,1,0)
  1. ;;=^^1^1^2990823^^
  1. ;;^UTILITY(U,$J,.84,7095,1,1,0)
  1. ;;="Page 1" or whatever, at the top of each output page
  1. ;;^UTILITY(U,$J,.84,7095,2,0)
  1. ;;=^^1^1^2990823^^^
  1. ;;^UTILITY(U,$J,.84,7095,2,1,0)
  1. ;;=PAGE |1|
  1. ;;^UTILITY(U,$J,.84,7095,3,0)
  1. ;;=^.845^1^1
  1. ;;^UTILITY(U,$J,.84,7095,3,1,0)
  1. ;;=1^PAGE NUMBER
  1. ;;^UTILITY(U,$J,.84,7095,5,0)
  1. ;;=^.841^1^1
  1. ;;^UTILITY(U,$J,.84,7095,5,1,0)
  1. ;;=DIP5^EGP
  1. ;;^UTILITY(U,$J,.84,7096,0)
  1. ;;=7096^2^^2
  1. ;;^UTILITY(U,$J,.84,7096,2,0)
  1. ;;=^^1^1^2990531^
  1. ;;^UTILITY(U,$J,.84,7096,2,1,0)
  1. ;;=START at PAGE:
  1. ;;^UTILITY(U,$J,.84,7096,5,0)
  1. ;;=^.841^1^1
  1. ;;^UTILITY(U,$J,.84,7096,5,1,0)
  1. ;;=DIP3
  1. ;;^UTILITY(U,$J,.84,7097,0)
  1. ;;=7097^2^^2
  1. ;;^UTILITY(U,$J,.84,7097,1,0)
  1. ;;=^^1^1^2991024^^^
  1. ;;^UTILITY(U,$J,.84,7097,1,1,0)
  1. ;;=AS IN 'REPLACE : END'
  1. ;;^UTILITY(U,$J,.84,7097,2,0)
  1. ;;=^^1^1^2991024^^
  1. ;;^UTILITY(U,$J,.84,7097,2,1,0)
  1. ;;=END
  1. ;;^UTILITY(U,$J,.84,7097,5,0)
  1. ;;=^.841^1^1
  1. ;;^UTILITY(U,$J,.84,7097,5,1,0)
  1. ;;=DIR2
  1. ;;^UTILITY(U,$J,.84,7098,0)
  1. ;;=7098^2^y^2^SUB
  1. ;;^UTILITY(U,$J,.84,7098,1,0)
  1. ;;=^^1^1^2991008^^
  1. ;;^UTILITY(U,$J,.84,7098,1,1,0)
  1. ;;=TAKES THE WORD 'TOTAL' AND TURNS IT INTO 'SUBTOTAL', 'COUNT' INTO 'SUBCOUNT', ETC
  1. ;;^UTILITY(U,$J,.84,7098,2,0)
  1. ;;=^^1^1^2991008^^
  1. ;;^UTILITY(U,$J,.84,7098,2,1,0)
  1. ;;=Sub-|1|
  1. ;;^UTILITY(U,$J,.84,7098,3,0)
  1. ;;=^.845^1^1
  1. ;;^UTILITY(U,$J,.84,7098,3,1,0)
  1. ;;=1^WORD LIKE 'TOTAL'
  1. ;;^UTILITY(U,$J,.84,7098,5,0)
  1. ;;=^.841^1^1
  1. ;;^UTILITY(U,$J,.84,7098,5,1,0)
  1. ;;=DIO3
  1. ;;^UTILITY(U,$J,.84,7099,0)
  1. ;;=7099^2^^2
  1. ;;^UTILITY(U,$J,.84,7099,1,0)
  1. ;;=^^1^1^2991218^^^^
  1. ;;^UTILITY(U,$J,.84,7099,1,1,0)
  1. ;;=The term for INTERNAL ENTRY NUMBER.
  1. ;;^UTILITY(U,$J,.84,7099,2,0)
  1. ;;=^^1^1^2991218^^^^
  1. ;;^UTILITY(U,$J,.84,7099,2,1,0)
  1. ;;=NUMBER
  1. ;;^UTILITY(U,$J,.84,7099,5,0)
  1. ;;=^.841^5^5
  1. ;;^UTILITY(U,$J,.84,7099,5,1,0)
  1. ;;=DICQ
  1. ;;^UTILITY(U,$J,.84,7099,5,2,0)
  1. ;;=DIP^NUM
  1. ;;^UTILITY(U,$J,.84,7099,5,3,0)
  1. ;;=DIP22^0
  1. ;;^UTILITY(U,$J,.84,7099,5,4,0)
  1. ;;=DICOMP0^N+1
  1. ;;^UTILITY(U,$J,.84,7099,5,5,0)
  1. ;;=DIQ
  1. ;;^UTILITY(U,$J,.84,8000,0)
  1. ;;=8000^2^^2
  1. ;;^UTILITY(U,$J,.84,8000,2,0)
  1. ;;=^^1^1^2991028^