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

OOPSGUIS.m

Go to the documentation of this file.
  1. OOPSGUIS ;WIOFO/LLH-RPC Broker calls for GUI ;03/25/04
  1. ;;2.0;ASISTS;**8,11**;Jun 03, 2002
  1. ;
  1. STA(RESULTS) ; Get listing of Stations from Edit Site Parameter
  1. ;
  1. ; Output: RESULTS contains a listing or all stations listed in the
  1. ; Edit Site Parameter file. This list will be used for
  1. ; selecting a station from any field that expects an entry
  1. ; from the Institution file. If no stations exist, then
  1. ; a call will automatically be made to GETINST^OOPSGUI7
  1. ; to use the rpc to get all the stations.
  1. ;
  1. N ARR,CN,FAC,IFLAG,SNAME,SNUM,SP,STA,VAL
  1. K ^TMP("OOPSINST",$J)
  1. S (CN,SP)=0
  1. F S SP=$O(^OOPS(2262,SP)) Q:SP="" S STA=0 D
  1. .F S STA=$O(^OOPS(2262,SP,STA)) Q:STA'>0 S IEN=0 D
  1. ..F S IEN=$O(^OOPS(2262,SP,STA,IEN)) Q:IEN'>0 D
  1. ...S FAC=$P($G(^OOPS(2262,SP,STA,IEN,0)),U,1)
  1. ...I '$G(FAC) Q
  1. ...; have station #, now go to the institution file and get the info
  1. ...I $$GET1^DIQ(4,FAC,101)=1 Q ; FAC inactive, don't get
  1. ...S SNAME=$$GET1^DIQ(4,FAC,.01) I $G(SNAME)="" Q
  1. ...S SNUM=$$GET1^DIQ(4,FAC,99)
  1. ...S VAL=SNAME_" = "_SNUM
  1. ...S CN=CN+1,^TMP("OOPSINST",$J,CN)=FAC_":"_VAL_$C(10)
  1. S CN=CN+1,^TMP("OOPSINST",$J,CN)="999999:All Stations"
  1. I CN=1 D GETINST^OOPSGUI7(.ARR) Q ; if only entry = all get all
  1. S RESULTS=$NA(^TMP("OOPSINST",$J))
  1. Q
  1. ;
  1. SIGNCA7(RESULTS,INPUT,SIGN) ; Validates Electronic Signature and creates
  1. ; validation code to ensure data not changed
  1. ; Input: INPUT - FILE^FIELD^IEN where File and Field are the file
  1. ; and field the data is being filed into and IEN
  1. ; is the internal record number.
  1. ; SIGN - the electronic signature to be encrypted
  1. ; Output: RESULTS - is an array containing a list of fields that did
  1. ; not pass data validation prior to applying the ES.
  1. ;
  1. N CALL,CHKSUM,IEN,ESIG,FILE,FLD,FLD48,FLD84,FLD95,FLD96,FLD97,REC,REC1
  1. N SIGNBLK,VALID,VER,DR,DA,DIE
  1. S RESULTS="SIGNED"
  1. S FILE=$P($G(INPUT),U),FLD=$P($G(INPUT),U,2),IEN=$P($G(INPUT),U,3)
  1. I '$G(IEN)!('$G(FILE))!('$G(FLD)) S RESULTS(1)="Invalid Parameters" Q
  1. I $G(SIGN)="" S RESULTS="No signature passed in" Q
  1. S CALL=$S(FLD=48:"E",FLD=84:"W",1:"")
  1. I CALL="" S RESULTS="Invalid field number" Q
  1. ; S VALID=0 D CHKFLD(IEN,CALL.VALID) I 'VALID Q
  1. S ESIG=$$HASH($$DECRYP^XUSRB1(SIGN))
  1. I $G(ESIG)=""!(ESIG'=$P($G(^VA(200,DUZ,20)),U,4)="") D Q
  1. . S RESULTS="Invalid Electronic Signature"
  1. S SIGNBLK=$P($G(^VA(200,DUZ,20)),U,2)
  1. I SIGNBLK="" S RESULTS="No signature block on file" Q
  1. K DR S DIE="^OOPS("_FILE_",",DA=IEN
  1. D NOW^%DTC S DTIME=%
  1. I CALL="E" D
  1. .S REC=$G(^OOPS(FILE,IEN,0)),REC1=$G(^OOPS(FILE,IEN,"CA7S2"))
  1. .S CHKSUM=$$SUM(IEN_U_REC_U_REC1)
  1. .S FLD48=$$ENCODE(SIGNBLK,DUZ,CHKSUM),FLD96=1
  1. .S FLD95=$$SUM(SIGNBLK)
  1. .S DR="47////^S X=+DUZ;48////^S X=FLD48;49////^S X=DTIME"
  1. .S DR=DR_";95////^S X=FLD95;96////^S X=FLD96"
  1. I CALL="W" D
  1. .S REC=$G(^OOPS(FILE,IEN,"CA7S10")),REC1=$G(^OOPS(FILE,IEN,"CA7S13"))
  1. .S CHKSUM=$$SUM(IEN_U_REC_U_REC1)
  1. .S FLD84=$$ENCODE(SIGNBLK,DUZ,CHKSUM)
  1. .S FLD97=$$SUM(SIGNBLK)
  1. .S DR="83////^S X=+DUZ;84////^S X=FLD84;85////^S X=DTIME"
  1. .S DR=DR_";97////^S X=FLD97"
  1. D ^DIE
  1. I $G(Y)'="" S RESULTS="Problem filing E-Signature" Q
  1. ; patch 11 - send bulletin when employee signs CA7
  1. I CALL="E" D
  1. .N GRP,X0,STR
  1. .S X0=$P($G(^OOPS(2264,IEN,0)),U,5)
  1. .S STR=$G(^OOPS(2260,X0,0)) K XMY
  1. .S XMB(1)=$$GET1^DIQ(2260,X0,4)
  1. .S XMB(2)=$P(STR,U,1)
  1. .S XMB="OOPS EMPSIGNCA7"
  1. .S GRP="OOPS WCP"
  1. .D MFAC^OOPSMBUL
  1. .D ^XMB K XMB,XMY,XMM,XMDT
  1. Q
  1. HASH(X) ;
  1. D HASH^XUSHSHP
  1. Q X
  1. ENCODE(X,X1,X2) ; X=SIGN BLK, X1=DUZ, X2=CHKSUM CRITICAL FIELDS
  1. D EN^XUSHSHP
  1. Q X
  1. DECODE(RESULTS,IEN,CALL,FORM) ;
  1. ; Call to return electronic signature to readable form
  1. ; Input: IEN - internal record number of CA7 case
  1. ; CALL - call menu - either E (Employee) or W (Workers Comp)
  1. ; FORM - form - right now only expects CA7
  1. ; Output: RESULTS - readable electronic signature
  1. ;
  1. N FILE,NODE,REC,REC1,VAL,VALID,VER,X,X1,X2
  1. S RESULTS="",VALID=1
  1. I '$G(IEN)!($G(CALL)="")!($G(FORM)="") Q
  1. S (NODE,FILE,VER)=""
  1. I FORM="CA7" S FILE=2264
  1. S NODE=$S(CALL="E":"CA7S7",CALL="W":"CA7S15",1:"")
  1. I FILE=""!(NODE="") Q
  1. S VER=$P($G(^OOPS(FILE,IEN,"CA7S7")),U,5) I VER'=1 Q
  1. I CALL="E" D
  1. .S VAL=$P($G(^OOPS(FILE,IEN,"CA7S7")),U,4) I VAL="" S VALID=0
  1. .S REC=$G(^OOPS(FILE,IEN,0)),REC1=$G(^OOPS(FILE,IEN,"CA7S2"))
  1. I CALL="W" D
  1. .S VAL=$P($G(^OOPS(FILE,IEN,"CA7S15")),U,11) I VAL="" S VALID=0
  1. .S REC=$G(^OOPS(FILE,IEN,"CA7S10")),REC1=$G(^OOPS(FILE,IEN,"CA7S13"))
  1. ;
  1. I 'VALID Q
  1. S X=$P($G(^OOPS(FILE,IEN,NODE)),U,2) I X="" Q ; ES VALIDATION #
  1. S X1=$P($G(^OOPS(FILE,IEN,NODE)),U,1) ; USER NUMBER
  1. S X2=$$SUM(IEN_U_REC_U_REC1) ; CHECKSUM
  1. D DE^XUSHSHP
  1. ; I $$SUM(X)'=VAL S X="DECODING FAILED"
  1. S RESULTS=X
  1. Q
  1. ;
  1. SUM(X) ;CALCULATE CHECKSUM VALUE FOR STRING
  1. N I,Y
  1. S Y=0 F I=1:1:$L(X) S Y=$A(X,I)*I+Y
  1. Q Y
  1. CLRES(IEN,CALL,FORM) ; Clear signature from CA7, if necessary
  1. ; Input: IEN - record IEN for CA7
  1. ; CALL - calling menu - either E (EMP) or W (Workers comp)
  1. ; FORM - form where ES should be removed (now only CA7)
  1. N FILE,SIG,NODE,FIELD
  1. S (FILE,SIG,NODE,FIELD)="",RESULTS="FAILED"
  1. I ('$G(IEN)),($G(CALL)=""),($G(FORM)="") Q
  1. I FORM="CA7" S FILE=2264
  1. I FILE=2264 D
  1. .I CALL="E" S SIG="CA7S7;1,5"
  1. .I CALL="W" S SIG="CA7S15;1,3"
  1. S NODE=$P(SIG,";") Q:NODE=""
  1. S FIELD=$P(SIG,";",2)
  1. I '$D(^OOPS(FILE,IEN,NODE)) Q
  1. F I=$P(FIELD,","):1:$P(FIELD,",",2) S $P(^OOPS(FILE,IEN,NODE),U,I)=""
  1. Q
  1. GETDLOC(RESULTS,INPUT) ; Get Detail Loc for specific incident setting
  1. ; Input: INPUT - File _"^"_Station IEN from a station in the
  1. ; site par file_"^"_rec ien from file to retrieve
  1. ; subfile information for.
  1. ; Output: RESULTS - listing of valid sub file data
  1. ;
  1. N CN,FIEN,FILE,I,REC,STA
  1. S CN=0
  1. S FILE=$P($G(INPUT),U,1),STA=$P($G(INPUT),U,2),FIEN=$P($G(INPUT),U,3)
  1. I FILE=""!(STA="")!(FIEN="") D Q
  1. . S ^TMP($J,"DLOC",CN)="MISSING PARAMETERS",RESULTS=$NA(^TMP($J,"DLOC"))
  1. S REC=$O(^OOPS(FILE,FIEN,1,"B",STA,""))
  1. I '$G(REC) S ^TMP($J,"DLOC",CN)="NO DETAIL LOCATIONS LOADED",RESULTS=$NA(^TMP($J,"DLOC")) Q
  1. I '$D(^OOPS(FILE,"F",REC,FIEN)) D Q
  1. .S ^TMP($J,"DLOC",CN)="NO DETAIL LOCATIONS LOADED",RESULTS=$NA(^TMP($J,"DLOC"))
  1. S DATA=""
  1. F S DATA=$O(^OOPS(FILE,"F",REC,FIEN,DATA)) Q:DATA="" S DATAIEN=0 D
  1. .S DATAIEN=$O(^OOPS(FILE,"F",REC,FIEN,DATA,DATAIEN))
  1. .S ^TMP($J,"DLOC",CN)=DATA_U_DATAIEN,CN=CN+1
  1. S RESULTS=$NA(^TMP($J,"DLOC"))
  1. Q