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

BDMFLM.m

Go to the documentation of this file.
  1. BDMFLM ; cmi/anch/maw - LIST MANAGER API'S ;
  1. ;;2.0;DIABETES MANAGEMENT SYSTEM;;AUG 11, 2006
  1. ;; ;
  1. DOC ;Documentation APIs for BDMLM Generic Display
  1. ;This utility uses the Veterans Administration List Manager (VALM)
  1. ;
  1. ; APIs
  1. ;
  1. ; FILE^BDMFLM("Directory","File Name") Displays file indicated
  1. ;
  1. ; SFILE^BDMFLM Selection of host file
  1. ; for display
  1. ;
  1. ; VIEWR^BDMFLM("TAG^ROUTINE","Header") Displays printout of the
  1. ; routine. (non - FM, using IO)
  1. ; VIEWD^BDMFLM("Tag^Routine","Header") Displays printout of the
  1. ; routine. (FM - using EN1^DIP)
  1. ; DIQ^BDMFLM("DIC","DA") Displays EN1^DIQ for the DIC,DA
  1. ; ARRAY^BDMFLM("array(","Header") Displays the array(..,n,0)
  1. ; (%RCR notation)
  1. ;
  1. ;
  1. EN ; -- main entry point for BDM DISPLAY
  1. D EN^VALM("BDM DISPLAY")
  1. Q
  1. ;
  1. HDR ;EP; -- header code
  1. I BDMHDR]"" S VALMHDR(1)=BDMHDR
  1. Q
  1. ;
  1. INIT ;EP; -- init variables and list array
  1. MARKERS I $G(BDMLMARK) F I=10:10 Q:'$D(@VALMAR@(I)) D
  1. . F J=10:10:80 D CNTRL^VALM10(I,J,1,IORVON,IORVOFF)
  1. K BDMLMARK
  1. S VALMCNT=$O(^TMP("BDMVR",$J,+$G(BDMNODE),""),-1)
  1. Q
  1. ;
  1. HELP ;EP; -- help code
  1. S X="?"
  1. D DISP^XQORM1
  1. W !!
  1. Q
  1. ;
  1. EXIT ;EP; -- exit code
  1. K ^TMP("BDMVR",$J)
  1. K ;
  1. K BDMAR,BDMDIR,BDMFL,BDMFN,BDMHDR,BDMI,BDMROU,BDMDIR
  1. I '$G(XQORS) D CLEAR^VALM1
  1. Q
  1. ;
  1. EXPND ; -- expand code
  1. Q
  1. ;
  1. FILE(BDMDIR,BDMFN) ;PEP pull up a file into the TMP global for display
  1. I '$D(BDMHDR) S BDMHDR=""
  1. N Y,X,I,BDMNODE
  1. S BDMNODE=$G(XQORS)+1
  1. S Y=$$OPEN^%ZISH(BDMDIR,BDMFN,"R")
  1. I Y W !,*7,"CANNOT OPEN (OR ACCESS) FILE '",BDMDIR,BDMFN,"'." G EFILE
  1. K ^TMP("BDMVR",$J,+$G(BDMNODE))
  1. ;THE READ STATEMENT BELOW IS A READ FROM A HOST FILE WHICH REQUIRES A
  1. ;DIRECT READ VS AN FM CALL
  1. F I=1:1 U IO R X:DTIME S X=$$STRIP(X) S ^TMP("BDMVR",$J,+$G(BDMNODE),I,0)=X Q:$$STATUS^%ZISH=-1
  1. D ^%ZISC
  1. S VALMCNT=$O(^TMP("BDMVR",$J,+$G(BDMNODE),""),-1)
  1. D EN
  1. K ^TMP("BDMVR",$J,+$G(BDMNODE))
  1. EFILE ;
  1. Q
  1. ;
  1. VIEWR(BDMROU,BDMHDR) ;PEP USING BDMROU print to a host file for viewing
  1. I '$D(BDMHDR) S BDMHDR=""
  1. U IO(0)
  1. S Y=$$PWD^%ZISH(.BDMDIR)
  1. S BDMDIR=$S($G(BDMDIR(1))]"":BDMDIR(1),1:"C:\Inetpub\Ftproot\Pub\")
  1. S BDMFN="BDM"_$J
  1. S X=$$OPEN^%ZISH(BDMDIR,BDMFN,"W")
  1. I IO="" S BDMQUIT="" Q
  1. S IOST="P-DEC",IOST(0)=$O(^%ZIS(2,"B","P-DEC",0))
  1. S IOSL=6000
  1. S IOF="#"
  1. U IO
  1. D @BDMROU
  1. D ^%ZISC
  1. D HOME^%ZIS
  1. D FILE(BDMDIR,BDMFN)
  1. S X=$$DEL^%ZISH(BDMDIR,BDMFN)
  1. K BDMDIR,BDMFN,BDMHDR,BDMNODE,BDMDIR,BDMFN
  1. Q
  1. ;
  1. VIEWD(BDMROU) ;PEP ** USING BDMROU print to a host file for viewing
  1. U IO(0)
  1. S Y=$$PWD^%ZISH(.BDMDIR)
  1. S BDMDIR=$S($G(BDMDIR(1))]"":BDMDIR(1),1:"C:\Inetpub\Ftproot\Pub\")
  1. S BDMFN="BDM"_$J
  1. D DF^%ZISH(.BDMDIR)
  1. S X=$$OPEN^%ZISH(BDMDIR,BDMFN,"W")
  1. S IOP=IO_";P-DEC;"_IOM_";"_IOSL
  1. D ^%ZISC
  1. S IOST="P-DEC",IOST(0)=$O(^%ZIS(2,"B","P-DEC",0))
  1. S IOSL=6000
  1. S IOF="#"
  1. S %ZIS("IOPAR")="("""_BDMDIR_BDMFN_""":""W"")"
  1. D @BDMROU
  1. D ^%ZISC
  1. D HOME^%ZIS
  1. D FILE^BDMFLM(BDMDIR,BDMFN)
  1. S X=$$DEL^%ZISH(BDMDIR,BDMFN)
  1. K BDMDIR,BDMFN,BDMNODE,BDMDIR,BDMFN
  1. Q
  1. ;
  1. ARRAY(BDMAR,BDMHDR) ;PEP Display an array that has (...,n,0) structure
  1. I '$D(BDMHDR) S BDMHDR=""
  1. N Y,X,I,BDMNODE
  1. S BDMNODE=$G(XQORS)+1
  1. K ^TMP("BDMVR",$J,BDMNODE)
  1. S %X=BDMAR,%Y="^TMP(""BDMLM"","_$J_","_BDMNODE_","
  1. D %XY^%RCR
  1. D EN
  1. K ^TMP("BDMVR",$J,+$G(BDMNODE))
  1. K BDMNODE,BDMDIR,BDMFN
  1. ARRAYE ;
  1. Q
  1. ;
  1. STRIP(Z) ;REMOVE CONTROLL CHARACTERS
  1. N I
  1. F I=1:1:$L(Z) I (32>$A($E(Z,I))) S Z=$E(Z,1,I-1)_" "_$E(Z,I+1,999)
  1. Q Z
  1. ;