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

ORWGAPIP.m

Go to the documentation of this file.
  1. ORWGAPIP ; SLC/STAFF - Graph Parameters ;11/20/06 08:59
  1. ;;3.0;ORDER ENTRY/RESULTS REPORTING;**215,260,243**;Dec 17, 1997;Build 242
  1. ;
  1. ALLVIEWS(DATA,VTYPE,USER) ; from ORWGAPI
  1. N CNT,ENT,NUM,NUM1,PARAM,PROF,RESULT,TEST,TG,TGNUM,TGNAME,TMP,VIEW,VNUM K PROF,VIEW
  1. D RETURN^ORWGAPIW(.TMP,.DATA)
  1. S CNT=0
  1. I VTYPE=-2 D
  1. . S ENT="SYS"
  1. . S USER=0
  1. I VTYPE=-1 D
  1. . S ENT="USR"
  1. . I USER S ENT="USR.`"_USER
  1. I VTYPE=-3 D Q
  1. . ;LAB GROUPS
  1. . I 'USER S USER=DUZ
  1. . D TG^ORWLRR(.PROF,USER)
  1. . S NUM=0
  1. . F S NUM=$O(PROF(NUM)) Q:NUM<1 D
  1. .. S TG=PROF(NUM)
  1. .. S TGNUM=+TG
  1. .. S TGNAME=$P(TG,U,2)
  1. .. ;I TGNAME[") " S TGNAME=$P(TGNAME,") ",2,99)
  1. .. S VNUM=CNT+1
  1. .. S RESULT="-3^V^"_VNUM_U_TGNAME_"^^^"_USER
  1. .. D SETUP^ORWGAPIW(.DATA,RESULT,TMP,.CNT)
  1. .. K VIEW
  1. .. D ATG^ORWLRR(.VIEW,TGNUM,USER)
  1. .. S NUM1=0
  1. .. F S NUM1=$O(VIEW(NUM1)) Q:NUM1<1 D
  1. ... S TEST=VIEW(NUM1)
  1. ... S RESULT="-3^C^"_VNUM_U_$P(TEST,U,2)_"^63^"_+TEST_U
  1. ... D SETUP^ORWGAPIW(.DATA,RESULT,TMP,.CNT)
  1. D XGETLST^ORWGAPIX(.PROF,ENT,"ORWG GRAPH VIEW")
  1. S NUM=0
  1. F S NUM=$O(PROF(NUM)) Q:NUM<1 D
  1. . S PARAM=$P(PROF(NUM),U)
  1. . S VNUM=CNT+1
  1. . S RESULT=VTYPE_"^V^"_VNUM_U_PARAM_"^^^"_USER
  1. . D SETUP^ORWGAPIW(.DATA,RESULT,TMP,.CNT)
  1. . K VIEW
  1. . D XGETWP^ORWGAPIX(.VIEW,ENT,"ORWG GRAPH VIEW",PARAM)
  1. . D DEFVIEWS(.DATA,.VIEW,VTYPE,VNUM,TMP,.CNT)
  1. Q
  1. ;
  1. DATES(DAT,REPORTID) ; from ORWGAPI
  1. N BEGIN,END,INFO,NEXT,PARAM1,PARAM2,RPT,START,STOP
  1. S RPT=+$O(^ORD(101.24,"AC",+$G(REPORTID),0))
  1. I 'RPT Q ; RPT=1150 is exported graph report
  1. S PARAM1=$P($G(^ORD(101.24,RPT,2)),U)
  1. S PARAM2=$P($G(^ORD(101.24,RPT,2)),U,2)
  1. S INFO=$$XGET^ORWGAPIX("ALL","ORWRP TIME/OCC LIMITS INDV",RPT,"I")
  1. S BEGIN=$P(INFO,";"),START=$$DATE^ORWGAPIX(BEGIN)
  1. S END=$P(INFO,";",2),STOP=$$DATE^ORWGAPIX(END)
  1. I START<1 Q
  1. I STOP<1 Q
  1. S NEXT=1+$O(DAT(""),-1)
  1. S DAT(NEXT)=U_BEGIN_" to "_END_"^^^"_INFO_U_START_U_STOP_U_PARAM1_U_PARAM2
  1. Q
  1. ;
  1. DEFVIEWS(DATA,VIEW,VTYPE,VNUM,TMP,CNT) ;
  1. N FIRST,NUM,PIECE,RESULT,RESULT1,SECOND,VALUE
  1. S NUM=""
  1. F S NUM=$O(VIEW(NUM)) Q:NUM="" D
  1. . S RESULT=$G(VIEW(NUM,0))
  1. . S PIECE=0
  1. . F S PIECE=PIECE+1 S VALUE=$P(RESULT,"|",PIECE) D:$L(VALUE) Q:'$L($P(RESULT,"|",PIECE+1,999))
  1. .. S FIRST=$P(VALUE,"~"),SECOND=$P(VALUE,"~",2)
  1. .. I FIRST=0 D
  1. ... I $E(SECOND,1,5)="63AP;" S RESULT1=VTYPE_"^C^"_VNUM_U_"Anatomic Path: "_$$ITEMPRFX^ORWGAPIU($E(SECOND,3,6))_" <any>"_U_SECOND_"^0^" Q
  1. ... I $E(SECOND,1,5)="63MI;" S RESULT1=VTYPE_"^C^"_VNUM_U_"Microbiology: "_$$ITEMPRFX^ORWGAPIU($E(SECOND,3,6))_" <any>"_U_SECOND_"^0^" Q
  1. ... S RESULT1=VTYPE_"^C^"_VNUM_U_$$FILENAME^ORWGAPIT(SECOND)_" <any>"_U_SECOND_"^0^"
  1. .. I FIRST'=0 S RESULT1=VTYPE_"^C^"_VNUM_U_$$EVALUE^ORWGAPIU(SECOND,FIRST)_U_FIRST_U_SECOND_U
  1. .. D SETUP^ORWGAPIW(.DATA,RESULT1,TMP,.CNT)
  1. Q
  1. ;
  1. DELVIEWS(DATA,NAME,PUBLIC) ; from ORWGAPI
  1. N ERR,TMP
  1. D RETURN^ORWGAPIW(.TMP,.DATA)
  1. S ERR=0
  1. I '$L(NAME) S ERR=1
  1. I 'ERR D
  1. . S NAME=$$UP^ORWGAPIX(NAME)
  1. . I PUBLIC D XDEL^ORWGAPIX("SYS","ORWG GRAPH VIEW",NAME,.ERR)
  1. . I 'PUBLIC D XDEL^ORWGAPIX("USR","ORWG GRAPH VIEW",NAME,.ERR)
  1. I TMP S ^TMP(DATA,$J)=ERR,^TMP(DATA,$J,1)=ERR
  1. I 'TMP S DATA=ERR,DATA(1)=ERR
  1. Q
  1. ;
  1. GETPREF(DATA) ; from ORWGAPI
  1. N CNT,NUM,PROF,RESULT,TMP,VAL K PROF
  1. I '$O(^PXRMINDX(63,"PI","")) Q ; graphing is not used if no indexes
  1. S VAL=$$XGET^ORWGAPIX("PKG","ORWG GRAPH SETTING",1,"I")
  1. I '$L(VAL) Q ; graphing not used if no pkg param on settings
  1. D RETURN^ORWGAPIW(.TMP,.DATA)
  1. S PROF(2)=1
  1. I '$L($G(^XTMP("ORGRAPH",0))) S PROF(2)=-1
  1. S VAL=$$XGET^ORWGAPIX("DIV^SYS^PKG","ORWG GRAPH SETTING",1,"I")
  1. S PROF(1)=VAL
  1. S VAL=$$XGET^ORWGAPIX("ALL","ORWG GRAPH SETTING",1,"I")
  1. S PROF(0)=VAL
  1. S CNT=0
  1. S NUM=""
  1. F S NUM=$O(PROF(NUM)) Q:NUM="" D
  1. . S RESULT=$G(PROF(NUM))
  1. . D SETUP^ORWGAPIW(.DATA,RESULT,TMP,.CNT)
  1. Q
  1. ;
  1. GETSIZE(DATA) ; from ORWGAPI
  1. N CNT,NUM,PROF,RESULT,TMP K PROF
  1. D RETURN^ORWGAPIW(.TMP,.DATA)
  1. D XGETLST^ORWGAPIX(.PROF,"USR","ORWG GRAPH SIZING")
  1. S CNT=0
  1. S NUM=""
  1. F S NUM=$O(PROF(NUM)) Q:NUM="" D
  1. . S RESULT=$G(PROF(NUM))
  1. . D SETUP^ORWGAPIW(.DATA,RESULT,TMP,.CNT)
  1. Q
  1. ;
  1. ;GETVIEWS(DATA,ALL,PUBLIC,EXT,USER) ; from ORWGAPI
  1. ;N CNT,NUM,PROF,RESULT,TMP,USERPRM K PROF
  1. ;D RETURN^ORWGAPIW(.TMP,.DATA)
  1. ;I PUBLIC D
  1. ;. I ALL=1 D XGETLST^ORWGAPIX(.PROF,"SYS","ORWG GRAPH VIEW") ; get list of public views
  1. ;. I ALL'=1 D XGETWP^ORWGAPIX(.PROF,"SYS","ORWG GRAPH VIEW",ALL) ; get a public view definition
  1. ;I 'PUBLIC D
  1. ;. S USERPRM="USR"
  1. ;. I USER S USERPRM="USR.`"_USER
  1. ;. I ALL=1 D XGETLST^ORWGAPIX(.PROF,USERPRM,"ORWG GRAPH VIEW") ; get list of personal views
  1. ;. I ALL'=1 D XGETWP^ORWGAPIX(.PROF,USERPRM,"ORWG GRAPH VIEW",ALL) ; get a personal view definition
  1. ;S CNT=0
  1. ;I 'EXT D Q
  1. ;. S NUM=""
  1. ;. F S NUM=$O(PROF(NUM)) Q:NUM="" D
  1. ;.. I ALL=1 S RESULT=$P($G(PROF(NUM)),U)
  1. ;.. I ALL'=1 S RESULT=$G(PROF(NUM,0))
  1. ;.. D SETUP^ORWGAPIW(.DATA,RESULT,TMP,.CNT)
  1. ;D DEFVIEWS(.DATA,.PROF,"",TMP,.CNT)
  1. ;Q
  1. ;
  1. GETVIEWS(DATA,ALL,PUBLIC,EXT,USER) ; from ORWGAPI
  1. N CNT,FIRST,NUM,PIECE,PROF,RESULT,RESULT1,SECOND,TMP,VALUE K PROF
  1. D RETURN^ORWGAPIW(.TMP,.DATA)
  1. I PUBLIC D
  1. . I ALL=1 D XGETLST^ORWGAPIX(.PROF,"SYS","ORWG GRAPH VIEW") ; get list of public views
  1. . I ALL'=1 D XGETWP^ORWGAPIX(.PROF,"SYS","ORWG GRAPH VIEW",ALL) ; get a public view definition
  1. I 'PUBLIC D
  1. . S USERPRM="USR"
  1. . I USER S USERPRM="USR.`"_USER
  1. . I ALL=1 D XGETLST^ORWGAPIX(.PROF,USERPRM,"ORWG GRAPH VIEW") ; get list of personal views
  1. . I ALL'=1 D XGETWP^ORWGAPIX(.PROF,USERPRM,"ORWG GRAPH VIEW",ALL) ; get a personal view definition
  1. S CNT=0
  1. I 'EXT D Q
  1. . S NUM=""
  1. . F S NUM=$O(PROF(NUM)) Q:NUM="" D
  1. .. I ALL=1 S RESULT=$P($G(PROF(NUM)),U)
  1. .. I ALL'=1 S RESULT=$G(PROF(NUM,0))
  1. .. D SETUP^ORWGAPIW(.DATA,RESULT,TMP,.CNT)
  1. S NUM=""
  1. F S NUM=$O(PROF(NUM)) Q:NUM="" D
  1. . S RESULT=$G(PROF(NUM,0))
  1. . S PIECE=0
  1. . F S PIECE=PIECE+1 S VALUE=$P(RESULT,"|",PIECE) D:$L(VALUE) Q:'$L($P(RESULT,"|",PIECE+1,999))
  1. .. S FIRST=$P(VALUE,"~"),SECOND=$P(VALUE,"~",2)
  1. .. I FIRST=0 S CNT=CNT+1,RESULT1="0^"_SECOND_U_$$FILENAME^ORWGAPIT(SECOND)_" <any>"
  1. .. I FIRST'=0 S CNT=CNT+1,RESULT1=FIRST_U_SECOND_U_$$EVALUE^ORWGAPIU(SECOND,FIRST)
  1. .. D SETUP^ORWGAPIW(.DATA,RESULT1,TMP,.CNT)
  1. Q
  1. ;
  1. INISET ; from ORWGAPIU initial setup of package parameters
  1. N ERR,RPTNUM
  1. S RPTNUM=1150
  1. D SETPREF(.ERR,"63;53.79;55;55NVA;52;70;120.5|BCEFGHIKN|1|4|90|1|100||",9) ; default public settings
  1. I '$D(^ORD(101.24,RPTNUM,0)) D ; make sure report has been added
  1. . L +^ORD(101.24,0):20 I '$T Q
  1. . S $P(^ORD(101.24,0),U,3)=RPTNUM,$P(^(0),U,4)=$P(^(0),U,4)+1
  1. . S ^ORD(101.24,RPTNUM,0)="ORWG GRAPHING^OR_GRAPHS^^2^^^1^R^^^^G^^T"
  1. . S ^ORD(101.24,RPTNUM,2)="^^Graphing (local only)^Graphing"
  1. . L -^ORD(101.24,0)
  1. . D INDEX^ORWGAPIX("^ORD(101.24,",RPTNUM)
  1. D XEN^ORWGAPIX("PKG","ORWRP REPORT LIST",12,RPTNUM)
  1. Q
  1. ;
  1. PUBLIC(USER) ; from ORWGAPI
  1. N ERR,IDX,ORSRV,USRCLASS,VAL K USRCLASS
  1. S VAL=0
  1. I '$G(USER) Q VAL
  1. S ORSRV=$$GET1^DIQ(200,DUZ,29,"I")
  1. D XGETLST1^ORWGAPIX(.USRCLASS,"SYS","ORWG GRAPH PUBLIC EDITOR CLASS","Q",.ERR)
  1. I ERR Q VAL
  1. S IDX=0
  1. F S IDX=$O(USRCLASS(IDX)) Q:'IDX D Q:VAL
  1. . I $$ISA^ORWGAPIA(USER,$P(USRCLASS(IDX),U,2),.ERR) S VAL=1
  1. Q VAL
  1. ;
  1. RPTPARAM(IEN) ; from ORWGAPI
  1. N DATES,NODE,VAL
  1. S IEN=+$G(IEN)
  1. S VAL=""
  1. S NODE=$$UP^XLFSTR($P($G(^ORD(101.24,IEN,2)),U,1,2))
  1. I $L(NODE)<2 Q VAL
  1. Q NODE
  1. ;
  1. SETPREF(DATA,VAL,PUBLIC) ; from ORWGAPI
  1. N ERR,TMP
  1. D RETURN^ORWGAPIW(.TMP,.DATA)
  1. S ERR=0
  1. I '$L(VAL) S ERR=1
  1. I 'ERR D
  1. . S VAL=$$UP^ORWGAPIX(VAL)
  1. . I PUBLIC=9 D XEN^ORWGAPIX("PKG","ORWG GRAPH SETTING",1,VAL,.ERR) ; only on postinit
  1. . I PUBLIC D XEN^ORWGAPIX("SYS","ORWG GRAPH SETTING",1,VAL,.ERR)
  1. . I 'PUBLIC D XEN^ORWGAPIX("USR","ORWG GRAPH SETTING",1,VAL,.ERR)
  1. I TMP S ^TMP(DATA,$J)=ERR,^TMP(DATA,$J,1)=ERR
  1. I 'TMP S DATA=ERR,DATA(1)=ERR
  1. Q
  1. ;
  1. SETSIZE(DATA,VAL) ; from ORWGAPI
  1. N ERR,NAME,NUM,VALUE,VALUES,TMP
  1. D RETURN^ORWGAPIW(.TMP,.DATA)
  1. S ERR=0
  1. I '$L($O(VAL(0))) S ERR=1
  1. I 'ERR D
  1. . S NUM=0
  1. . F S NUM=$O(VAL(NUM)) Q:NUM<1 D Q:ERR
  1. .. S VALUES=VAL(NUM)
  1. .. S VALUES=$$UP^ORWGAPIX(VALUES)
  1. .. S NAME=$P(VALUES,U)
  1. .. S VALUE=$P(VALUES,U,2)
  1. .. D XEN^ORWGAPIX("USR","ORWG GRAPH SIZING",NAME,VALUE,.ERR)
  1. I TMP S ^TMP(DATA,$J)=ERR,^TMP(DATA,$J,1)=ERR
  1. I 'TMP S DATA=ERR,DATA(1)=ERR
  1. Q
  1. ;
  1. SETVIEWS(DATA,NAME,PUBLIC,VAL) ; from ORWGAPI
  1. N ERR,TMP
  1. D RETURN^ORWGAPIW(.TMP,.DATA)
  1. S ERR=0
  1. I '$L(NAME) S ERR=1
  1. I '$L($O(VAL(""))) S ERR=1
  1. I 'ERR D
  1. . S NAME=$$UP^ORWGAPIX(NAME)
  1. . S VAL=NAME
  1. . I PUBLIC D XEN^ORWGAPIX("SYS","ORWG GRAPH VIEW",NAME,.VAL,.ERR)
  1. . I 'PUBLIC D XEN^ORWGAPIX("USR","ORWG GRAPH VIEW",NAME,.VAL,.ERR)
  1. I TMP S ^TMP(DATA,$J)=ERR,^TMP(DATA,$J,1)=ERR
  1. I 'TMP S DATA=ERR,DATA(1)=ERR
  1. Q
  1. ;