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

GMTSXA.m

Go to the documentation of this file.
  1. GMTSXA ; SLC/KER - List Parameters ; 02/27/2002
  1. ;;2.7;Health Summary;**47,49**;Oct 20, 1995
  1. Q
  1. ;
  1. ; External References in GMTSXA
  1. ;
  1. ; DBIA 2336 EDITPAR^XPAREDIT
  1. ; DBIA 2336 EDIT^XPAREDIT
  1. ; DBIA 2343 $$ACTIVE^XUSER
  1. ; DBIA 10086 HOME^%ZIS
  1. ;
  1. DISP ; Display User Defaults
  1. G:+($G(DUZ))=.5 DS N GMTSENV,GMTSMGR S GMTSENV=$$ENV Q:+GMTSENV'>0
  1. S GMTSMGR=$$MGR^GMTSXAW3
  1. D:+GMTSMGR>0&(+($G(DUZ))>.9) DM D:+GMTSMGR'>0&(+($G(DUZ))>.9) DU Q
  1. DU ; Display - User Entry Point
  1. N GMTSENV S GMTSENV=$$ENV Q:+GMTSENV'>0 D EN^GMTSXAD Q
  1. DM ; Display - Manager Entry Point
  1. N GMTSENV,GMTSMGR S GMTSENV=$$ENV Q:+GMTSENV'>0
  1. S GMTSMGR=$$MGR^GMTSXAW3 Q:GMTSMGR'>0
  1. S GMTSUSR=$$USR^GMTSXAW3("Display defaults for user: ")
  1. W:+GMTSUSR>0 ! D:+GMTSUSR>0 EN2^GMTSXAD(GMTSUSR) Q
  1. DS ; Display - Manager Entry Point
  1. N GMTSENV,GMTSMGR S GMTSENV=$$ENV Q:+GMTSENV'>0 S GMTSUSR=.5 W !
  1. D EN3^GMTSXAD Q
  1. ;
  1. PREC ; Set Precedence
  1. N GMTSENV,GMTSMGR S GMTSENV=$$ENV Q:+GMTSENV'>0
  1. S GMTSMGR=$$MGR^GMTSXAW3 D:+GMTSMGR>0 PM D:+GMTSMGR'>0 PU Q
  1. PU ; Precedence - User Entry Point
  1. N GMTSENV S GMTSENV=$$ENV Q:+GMTSENV'>0 D EN^GMTSXAP Q
  1. PM ; Precedence - Manager Entry Point
  1. N GMTSENV,GMTSMGR S GMTSENV=$$ENV Q:+GMTSENV'>0
  1. S GMTSMGR=$$MGR^GMTSXAW3 Q:GMTSMGR'>0
  1. S GMTSUSR=$$USR^GMTSXAW3("Set Health Summary Precedence for user: ")
  1. W:+GMTSUSR>0 ! D:+GMTSUSR>0 EN2^GMTSXAP(GMTSUSR) Q
  1. PS ; Precedence - Site
  1. D ADED^GMTSXAR Q
  1. RS ; Resequence Site Precedence
  1. D EN^GMTSXAR Q
  1. ;
  1. METH ; Set Method of Building List
  1. N GMTSENV,GMTSMGR S GMTSENV=$$ENV Q:+GMTSENV'>0
  1. S GMTSMGR=$$MGR^GMTSXAW3 D:+GMTSMGR>0 MM D:+GMTSMGR'>0 MU Q
  1. MU ; Method - User Entry Point
  1. N GMTSENV S GMTSENV=$$ENV Q:+GMTSENV'>0 D EN^GMTSXAO Q
  1. MM ; Method - Manager Entry Point
  1. N GMTSENV,GMTSMGR S GMTSENV=$$ENV Q:+GMTSENV'>0
  1. S GMTSMGR=$$MGR^GMTSXAW3 Q:GMTSMGR'>0
  1. S GMTSUSR=$$USR^GMTSXAW3("Set Method of Building list for user: ")
  1. W:+GMTSUSR>0 ! D:+GMTSUSR>0 EN2^GMTSXAO(GMTSUSR) Q
  1. MS ; Method - Default for Site Wide
  1. N GMTSUSR S GMTSUSR=.5 D EN3^GMTSXAO Q
  1. ;
  1. EDIT ; Edit Type List
  1. N GMTSENV,GMTSMGR S GMTSENV=$$ENV Q:+GMTSENV'>0
  1. S GMTSMGR=$$MGR^GMTSXAW3 D:+GMTSMGR>0 EM D:+GMTSMGR'>0 EU Q
  1. EU ; Edit List - User Entry Point
  1. N GMTSENV S GMTSENV=$$ENV Q:+GMTSENV'>0 D EL(+($G(DUZ))) Q
  1. EM ; Edit List - Manager Entry Point
  1. N GMTSENV,GMTSMGR,GMTSLST S GMTSENV=$$ENV Q:+GMTSENV'>0
  1. S GMTSMGR=$$MGR^GMTSXAW3 Q:GMTSMGR'>0
  1. W ! D EDITPAR^XPAREDIT("ORWRP HEALTH SUMMARY TYPE LIST")
  1. Q
  1. EL(X) ; Edit List
  1. N GMTSENT,GMTSVEN,GMTSPAR,GMTSUSR,GMTSACT S GMTSUSR=+($G(X))
  1. Q:'$L($$UNM^GMTSXAW3(+($G(GMTSUSR))))
  1. S GMTSACT=$$ACTIVE^XUSER(+GMTSUSR)
  1. D:+GMTSACT'>0 DP^GMTSXAP2(+GMTSUSR) Q:+GMTSACT'>0
  1. S GMTSPAR=$$PDI^GMTSXAW3("ORWRP HEALTH SUMMARY TYPE LIST")
  1. Q:+GMTSPAR'>0 S GMTSENT=$$ETI^GMTSXAW3("USR") Q:+GMTSENT'>0
  1. S GMTSVEN=$$UVP^GMTSXAW3(+($G(GMTSUSR)))
  1. W !!,"Edit the CPRS Health Summary Types list on the reports tab"
  1. D EDIT^XPAREDIT(GMTSVEN,(+GMTSPAR_"^GUI Health Summary Type List")) W !
  1. Q
  1. ;
  1. ; Miscellaneous
  1. ENV(X) ; Environment check
  1. D HOME^%ZIS S U="^" Q:'$L($$UNM^GMTSXAW3(+($G(DUZ)))) 0
  1. Q 1
  1. LP ; List Preferences
  1. N GMTSN,GMTSS,GMTSI,GMTSM,GMTSP,GMTSC,GMTSNUM S GMTSN="",GMTSC=0
  1. F S GMTSN=$O(^GMT(142.98,"AB",GMTSN)) Q:GMTSN="" D
  1. . S GMTSI=0 F S GMTSI=$O(^GMT(142.98,"AB",GMTSN,GMTSI)) Q:+GMTSI=0 D
  1. . . S GMTSM=$G(^GMT(142.98,+GMTSI,1)),GMTSP=$P(GMTSM,"^",2)
  1. . . S GMTSM=$S(+GMTSM=1:"Append ",1:"Overwrite")
  1. . . S GMTSNUM=$$NUM^GMTSXAL(+GMTSI) S GMTSC=GMTSC+1 I GMTSC=1 D
  1. . . . W !!,"Health Summary Preferences",!!," Name ",?24," Method"
  1. . . . W ?36," Precedence",?59," Types"
  1. . . . W !," --------------------",?24," ---------"
  1. . . . W ?36," -------------------",?59," -----"
  1. . . . S GMTSD=$$DEF^GMTSXAW
  1. . . . I $L(GMTSD) D
  1. . . . . W !," <default>",?24," Append",?36," ",GMTSD,?59," <all>"
  1. . . W !,?2,$E(GMTSN,1,20),?24," ",GMTSM,?36," ",GMTSP
  1. . . W ?59," ",$J(+GMTSNUM,2)
  1. W !
  1. Q
  1. TRIM(X,Y,I) ; Trim Character
  1. S X=$G(X),Y=$G(Y),I=+($G(I)) Q:'$L(X) X
  1. S:'$L(Y) Y=" " S:I=0 I=3 F Q:$E(X,1)'=Y S X=$E(X,2,$L(X))
  1. I +I>1 F Q:$E(X,$L(X))'=Y S X=$E(X,1,($L(X)-1))
  1. I I>2 F Q:X'[(Y_Y) S X=$P(X,(Y_Y),1)_Y_$P(X,(Y_Y),2,229)
  1. Q X
  1. UP(X) ; Uppercase
  1. Q $TR($G(X),"abcdefghijklmnopqrstuvwxyz","ABCDEFGHIJKLMNOPQRSTUVWXYZ")