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

ORWCH.m

Go to the documentation of this file.
  1. ORWCH ; SLC/KCM/SCM - GUI calls specific to CPRS Chart;01:34 PM 15 Dec 1997 [10:52 AM 13 JUN 2002]
  1. ;;3.0;ORDER ENTRY/RESULTS REPORTING;**10,109,149**;Dec 17, 1997
  1. SAVESIZ(ORERR,NAM,VAL) ; save the bounds for a particular control
  1. ; NAM=frmName or frmName.ctrlName VAL=left,top,width,height
  1. D EN^XPAR(DUZ_";VA(200,","ORWCH BOUNDS",NAM,VAL,.ORERR)
  1. Q
  1. LOADSIZ(VAL,NAM) ; return the bounds for a particular control
  1. I NAM="" S VAL="" Q
  1. S VAL=$$GET^XPAR(DUZ_";VA(200,","ORWCH BOUNDS",NAM,"I")
  1. Q
  1. ;
  1. LDFONT(VAL,NAM) ; load the user's preferred font size
  1. S VAL=$$GET^XPAR(DUZ_";VA(200,","ORWCH FONT SIZE",1,"I")
  1. Q
  1. SAVEALL(OK,LST) ; save the list of sizing information
  1. N I,TYP,NAM,VAL,PAR,ORERR
  1. S (I,OK)="" F S I=$O(LST(I)) Q:'I D
  1. . S TYP=$P(LST(I),U),NAM=$P(LST(I),U,2),VAL=$P(LST(I),U,3)
  1. . S PAR="ORWCH "_$S(TYP="B":"BOUNDS",TYP="W":"WIDTH",TYP="C":"COLUMNS")
  1. . D EN^XPAR(DUZ_";VA(200,",PAR,NAM,VAL,.ORERR)
  1. . I ORERR S OK=OK_LST(I)_":"_ORERR_U
  1. ; Other clean up: kill off global for sharing DFN
  1. K ^TMP("ORWCHART",$J),^TMP("ORECALL",$J),^TMP("ORWORD",$J)
  1. K ^TMP("ORWDXMQ",$J)
  1. Q
  1. SAVECOL(OK,COL) ;save report column sizing information
  1. N NAM,VAL,ORERR
  1. S OK="",NAM=$P(COL,"^"),VAL=$P(COL,"^",2)
  1. D EN^XPAR(DUZ_";VA(200,","ORWCH COLUMNS REPORTS",NAM,VAL,.ORERR)
  1. I ORERR S OK=COL_":"_ORERR
  1. Q
  1. LOADALL(LST) ; load all the sizing related paramters
  1. N ORBOUNDS,ORWIDTHS,ORCOLMNS,ILST S ILST=0
  1. D GETLST^XPAR(.ORBOUNDS,DUZ_";VA(200,","ORWCH BOUNDS")
  1. D GETLST^XPAR(.ORWIDTHS,DUZ_";VA(200,","ORWCH WIDTH")
  1. D GETLST^XPAR(.ORCOLMNS,DUZ_";VA(200,","ORWCH COLUMNS")
  1. S ILST=ILST+1,LST(ILST)="~Bounds"
  1. S I="" F S I=$O(ORBOUNDS(I)) Q:'I S ILST=ILST+1,LST(ILST)="i"_ORBOUNDS(I)
  1. S ILST=ILST+1,LST(ILST)="~Widths"
  1. S I="" F S I=$O(ORWIDTHS(I)) Q:'I S ILST=ILST+1,LST(ILST)="i"_ORWIDTHS(I)
  1. S ILST=ILST+1,LST(ILST)="~Columns"
  1. S I="" F S I=$O(ORCOLMNS(I)) Q:'I S ILST=ILST+1,LST(ILST)="i"_ORCOLMNS(I)
  1. Q
  1. SAVFONT(ORERR,VAL) ; save the user's preferred font size
  1. D EN^XPAR(DUZ_";VA(200,","ORWCH FONT SIZE",1,VAL,.ORERR)
  1. Q
  1. ;
  1. CLRUSR ; clear size & position settings for user
  1. ; called from ORW CLEAR SIZES USER
  1. N DIC,DIR,DIK,ORERR,ENT,Y
  1. W !,"Clear GUI size & position settings for selected user -"
  1. S DIC=200,DIC(0)="AEMQ" D ^DIC Q:Y<1
  1. S ENT=+Y_";VA(200,"
  1. S DIR(0)="Y",DIR("A")="Clear sizes for "_$P(Y,U,2),DIR("B")="YES"
  1. D ^DIR Q:Y'=1
  1. D NDEL^XPAR(ENT,"ORWCH BOUNDS",.ORERR) I ORERR W !,ORERR
  1. D NDEL^XPAR(ENT,"ORWCH WIDTH",.ORERR) I ORERR W !,ORERR
  1. D NDEL^XPAR(ENT,"ORWCH COLUMNS",.ORERR) I ORERR W !,ORERR
  1. D DEL^XPAR(ENT,"ORWCH FONT SIZE",1,.ORERR) I ORERR W !,ORERR
  1. W !,"Settings cleared."
  1. Q ;
  1. ; -- are the following calls still used?
  1. ;
  1. GETPOS(VAL) ; returns the position and size information for CPRSChart
  1. ; VAL=WindowState^Size^Position^PageSplit,PageSplit...
  1. N I,ORX
  1. S VAL=$$GET^XPAR(DUZ_";VA(200,","ORWCH MAINFORM STATE",1,"I")_U
  1. S VAL=VAL_$$GET^XPAR(DUZ_";VA(200,","ORWCH MAINFORM SIZE",1,"I")_U
  1. S VAL=VAL_$$GET^XPAR(DUZ_";VA(200,","ORWCH MAINFORM POSITION",1,"I")_U
  1. D GETLST^XPAR(.ORX,DUZ_";VA(200,","ORWCH PAGE SPLIT","Q")
  1. S ORX="",I=0 F S I=$O(ORX(I)) Q:'I S $P(ORX,",",+ORX(I))=$P(ORX(I),U,2)
  1. S VAL=VAL_ORX
  1. Q
  1. SETPOS(OK,X) ; records window size and position info for the current user
  1. ; X=WindowState^Size^Position^PageSplit,PageSplit...
  1. N I,X4,ORERR S OK=1
  1. D EN^XPAR(DUZ_";VA(200,","ORWCH MAINFORM STATE",1,$P(X,U),.ORERR)
  1. D EN^XPAR(DUZ_";VA(200,","ORWCH MAINFORM SIZE",1,$P(X,U,2),.ORERR)
  1. D EN^XPAR(DUZ_";VA(200,","ORWCH MAINFORM POSITION",1,$P(X,U,3),.ORERR)
  1. S X4=$P(X,U,4)
  1. F I=1:1:$L(X4,",") I +$P(X4,",",I) D
  1. . D EN^XPAR(DUZ_";VA(200,","ORWCH PAGE SPLIT",I,$P(X4,",",I),.ORERR)
  1. Q