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

IBDE.m

Go to the documentation of this file.
  1. IBDE ;ALB/CJM - ENCOUNTER FORM - IMP/EXP UTILITY ;AUG 12,1993
  1. ;;3.0;AUTOMATED INFO COLLECTION SYS;;APR 24, 1997
  1. ;
  1. MAIN ;
  1. N FORMLIST,BLKLIST,FORMCNT,BLKCNT,IBTKBLK,SCREEN
  1. S SCREEN="F" ;a flag that indicates wheter user is looking at the block screen(=B) or the form screen(=F)
  1. S IBTKBLK=0 ;if 1 overrides check preventing deletion of tk blocks
  1. K XQORS,VALMEVL
  1. D EN^VALM("IBDE IMP/EXP FORMS")
  1. Q
  1. HDR ;
  1. S VALMHDR(1)="LIST OF FORMS READY FOR IMPORT OR EXPORT"
  1. S VALMHDR(3)="(** there are "_$S($O(^IBE(358.1,"D",0)):"also",1:"no")_" toolkit blocks in the work space **)"
  1. Q
  1. ONENTRY ;
  1. S FORMLIST="^TMP(""IBDF"",$J,""IMP/EXP WS"",""FORMS"")"
  1. S BLKLIST="^TMP(""IBDF"",$J,""IMP/EXP WS"",""BLOCKS"")"
  1. D IDXBLKS^IBDE3,IDXFORMS
  1. Q
  1. ONEXIT ;
  1. K ^TMP("IBDF",$J,"IMP/EXP WS"),VALMY,VALMBCK,X,Y,I,DA,D0
  1. Q
  1. ;
  1. IDXFORMS ;build an array of forms used by IBCLINIC for the list processor
  1. N FORM,NODE
  1. K @FORMLIST
  1. S (FORM,VALMCNT)=0 F S FORM=$O(^IBE(358,FORM)) Q:'FORM D
  1. .I $D(^IBE(358,FORM,0)) D
  1. ..S VALMCNT=VALMCNT+1,@FORMLIST@(VALMCNT,0)=$$DISPLAY(FORM,VALMCNT),@FORMLIST@("IDX",VALMCNT,VALMCNT)=FORM D FLDCTRL^VALM10(VALMCNT) ;set video for ID column
  1. S FORMCNT=VALMCNT
  1. Q
  1. ;
  1. DISPLAY(FORM,ID) ;
  1. N NODE,RET
  1. S RET=$J(ID,3)_" "
  1. S NODE=$G(^IBE(358,FORM,0))
  1. S RET=RET_$$PADRIGHT^IBDFU($P(NODE,"^",1),30)_" "_$P(NODE,"^",3)
  1. Q RET