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

ONCSAPIU.m

Go to the documentation of this file.
  1. ONCSAPIU ;Hines OIFO/SG - COLLABORATIVE STAGING (UTILITIES) ; 12/7/06 9:08am
  1. ;;2.2;ONCOLOGY;**1**;Jul 31, 2013;Build 8
  1. ;
  1. Q
  1. ;
  1. ;***** RETURNS THE CS WEB-SERVICE URL
  1. ;
  1. ; Return values:
  1. ; <0 Error Descriptor
  1. ; ... The CS URL
  1. ;
  1. GETCSURL() ;
  1. N DIV,HOST,IEN,ONCMSG,PATH,PORT,RC,URL
  1. ;--- Try to get the URL from the site parameters
  1. S DIV=+$G(DUZ(2)),IEN=+$O(^ONCO(160.1,"C",DIV,""))
  1. I IEN'>0 S IEN=+$O(^ONCO(160.1,0)) Q:IEN'>0 $$ERROR^ONCSAPIE(-22)
  1. S URL=$$GET1^DIQ(160.1,IEN,19,,,"ONCMSG")
  1. Q:URL="" $$ERROR^ONCSAPIE(-22)
  1. ;--- Parse the URL and supply the missing parts
  1. S RC=$$PARSE^ONCXURL(URL,.HOST,.PORT,.PATH)
  1. Q:RC<0 $$ERROR^ONCSAPIE(-11,URL)
  1. S:$G(PORT)'>0 PORT=7005
  1. S:$G(PATH)="" PATH="/cgi-bin/CStage"
  1. ;--- Construct the resulting URL
  1. Q $$CREATE^ONCXURL(HOST,PORT,PATH)
  1. ;
  1. ;***** PAUSES THE OUTPUT AT PAGE END
  1. ;
  1. ; Return values:
  1. ; -2 Timeout
  1. ; -1 User entered a '^'
  1. ; 0 Continue
  1. ;
  1. PAGE() ;
  1. I $E(IOST,1,2)'="C-" S $Y=0 Q 0
  1. N DA,DIR,DIROUT,DIRUT,DTOUT,DUOUT,X,Y
  1. S DIR(0)="E" D ^DIR S $Y=0
  1. Q $S($D(DUOUT):-1,$D(DTOUT):-2,1:0)
  1. ;
  1. ;***** UPDATES THE CS WEB-SERVICE URL
  1. ;
  1. ; URL New URL of the CS web-service
  1. ;
  1. ; Return values:
  1. ;
  1. ; <0 Error Descriptor
  1. ; 0 Ok
  1. ;
  1. UPDCSURL(URL) ;
  1. N IEN,IENS,ONCFDA,ONCMSG,RC
  1. Q:$G(URL)?." " $$ERROR^ONCSAPIE(-6,,"URL",$G(URL))
  1. ;--- Lock the ONCOLOGY SITE PARAMETERS file
  1. L +^ONCO(160.1):1 E D Q RC
  1. . S RC=$$ERROR^ONCSAPIE(-15,,"ONCOLOGY SITE PARAMETERS file")
  1. ;--- Update the record(s)
  1. S (IEN,RC)=0
  1. F S IEN=$O(^ONCO(160.1,IEN)) Q:IEN'>0 D Q:RC<0
  1. . S IENS=IEN_"," K ONCFDA,ONCMSG
  1. . S ONCFDA(160.1,IENS,19)=URL
  1. . D FILE^DIE(,"ONCFDA","ONCMSG")
  1. . S:$G(DIERR) RC=$$DBS^ONCSAPIE("ONCMSG",-9,160.1,IENS)
  1. ;--- Cleanup and error processing
  1. L -^ONCO(160.1)
  1. Q $S(RC<0:RC,1:0)
  1. ;
  1. ;***** WRAPS THE STRING AND PRINTS IT
  1. ;
  1. ; X Source string
  1. ; [DIWR] Output width (IOM, by default)
  1. ;
  1. WW(X,DIWR) ;
  1. N DIWF,DIWL,I,TMP
  1. S:$G(DIWR)'>0 DIWR=$G(IOM,80)
  1. K ^UTILITY($J,"W")
  1. ;--- Wrap the string
  1. S DIWL=1,DIWF="|" D ^DIWP
  1. ;--- Print the text
  1. S I=""
  1. F S I=$O(^UTILITY($J,"W",DIWL,I)) Q:I="" D
  1. . S TMP=$G(^UTILITY($J,"W",DIWL,I,0))
  1. . D EN^DDIOL($$TRIM^XLFSTR(TMP,"R"))
  1. ;--- Cleanup
  1. K ^UTILITY($J,"W")
  1. Q
  1. ;
  1. ;***** EMULATES AND EXTENDS THE ZWRITE COMMAND :-)
  1. ;
  1. ; ROR8NODE Closed root of the sub-tree to display
  1. ; (either local array or global variable)
  1. ; [TITLE] Title of the output
  1. ; [NONAME] Do not print node names
  1. ;
  1. ZW(ONC8NODE,TITLE,NONAME) ;
  1. Q:ONC8NODE="" Q:'$D(@ONC8NODE)
  1. N FLT,L,PI W !
  1. W:$G(TITLE)'="" TITLE,!!
  1. S NONAME=+$G(NONAME)
  1. W:$D(@ONC8NODE)#10 ONC8NODE_"="""_@ONC8NODE_"""",!
  1. S L=$L(ONC8NODE) S:$E(ONC8NODE,L)=")" L=L-1
  1. S FLT=$E(ONC8NODE,1,L),PI=ONC8NODE
  1. F S PI=$Q(@PI) Q:$E(PI,1,L)'=FLT D
  1. . W:'NONAME PI_"=" W """"_@PI_"""",!
  1. Q