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

DDGFORD.m

Go to the documentation of this file.
  1. DDGFORD ;SFISC/MKO-REORDER THE FIELDS ON BLOCK ;07:13 AM 25 May 1994
  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. ;In: DDGFBK = Block number
  1. ; DDGFPG = Page number
  1. ; DDGFFM = Form number^Form name
  1. ; DDGFREF = Global reference
  1. ;
  1. EN(DDGFBK) ;
  1. N DDO,DA,DIK
  1. N DDGFLN,DDGFLIST,DDGFR,DDGFC,DDGFN,DDGFO
  1. ;
  1. D MSG^DDGF("Reordering ...")
  1. ;Loop through all fields in DDGFREF and put into DDGFLIST array
  1. S DDO="" F S DDO=$O(@DDGFREF@("F",DDGFPG,DDGFBK,DDO)) Q:DDO="" D
  1. . S DDGFLN=@DDGFREF@("F",DDGFPG,DDGFBK,DDO)
  1. . I $P(DDGFLN,U,8)>0 S DDGFLIST(+$P(DDGFLN,U,5),+$P(DDGFLN,U,6),DDO)=""
  1. . E I $P(DDGFLN,U,4)]"" S DDGFLIST(+$P(DDGFLN,U),+$P(DDGFLN,U,2),DDO)=""
  1. ;
  1. K ^DIST(.404,DDGFBK,40,"B")
  1. S DDGFN=0
  1. S DDGFR="" F S DDGFR=$O(DDGFLIST(DDGFR)) Q:DDGFR="" D
  1. . S DDGFC="" F S DDGFC=$O(DDGFLIST(DDGFR,DDGFC)) Q:DDGFC="" D
  1. .. S DDO="" F S DDO=$O(DDGFLIST(DDGFR,DDGFC,DDO)) Q:DDO="" D
  1. ... S DDGFN=DDGFN+1
  1. ... S DDGFO=$P(^DIST(.404,DDGFBK,40,DDO,0),U)
  1. ... S:DDGFO'=DDGFN $P(^DIST(.404,DDGFBK,40,DDO,0),U)=DDGFN
  1. ;
  1. S DIK="^DIST(.404,DDGFBK,40,",DA(1)=DDGFBK,DIK(1)=".01^B"
  1. D ENALL^DIK
  1. D MSG^DDGF("Reordering completed.") H 1
  1. D MSG^DDGF()
  1. Q