| [613] | 1 | XUMFXR ;ISS/RAM - MFS param pre/post update;04/15/02
|
|---|
| 2 | ;;8.0;KERNEL;**299**;Jul 10, 1995
|
|---|
| 3 | ;
|
|---|
| 4 | Q
|
|---|
| 5 | ;
|
|---|
| 6 | NULL ; -- do nothing
|
|---|
| 7 | ;
|
|---|
| 8 | Q
|
|---|
| 9 | ;
|
|---|
| 10 | PRE ; -- pre update
|
|---|
| 11 | ;
|
|---|
| 12 | N ARRAY
|
|---|
| 13 | ;
|
|---|
| 14 | K ^TMP("XUMF PRE",$J)
|
|---|
| 15 | ;
|
|---|
| 16 | D DATA(.ARRAY)
|
|---|
| 17 | ;
|
|---|
| 18 | M ^TMP("XUMF PRE",$J)=ARRAY
|
|---|
| 19 | ;
|
|---|
| 20 | Q
|
|---|
| 21 | ;
|
|---|
| 22 | POST ; -- post update
|
|---|
| 23 | ;
|
|---|
| 24 | N ARRAY,I,X,FLAG
|
|---|
| 25 | ;
|
|---|
| 26 | D DATA(.ARRAY)
|
|---|
| 27 | ;
|
|---|
| 28 | S (FLAG,I)=0
|
|---|
| 29 | F S I=$O(ARRAY(I)) Q:'I D Q:FLAG
|
|---|
| 30 | .I ARRAY(I)'=^TMP("XUMF PRE",$J,I) S FLAG=1 Q
|
|---|
| 31 | ;
|
|---|
| 32 | I FLAG D
|
|---|
| 33 | .S I=0
|
|---|
| 34 | .F S I=$O(ARRAY(I)) Q:'I D
|
|---|
| 35 | ..S X(I+100)=ARRAY(I) K ARRAY(I)
|
|---|
| 36 | .M X=^TMP("XUMF PRE",$J)
|
|---|
| 37 | .D XM(.X,$G(KEY))
|
|---|
| 38 | ;
|
|---|
| 39 | K ^TMP("XUMF PRE",$J)
|
|---|
| 40 | ;
|
|---|
| 41 | Q
|
|---|
| 42 | ;
|
|---|
| 43 | DATA(ARRAY) ; -- array(sequence)=fieldLabel_": "_value
|
|---|
| 44 | ;
|
|---|
| 45 | N SEG,SEQ,FLD,FILE,IENS,FIELD,VALUE,LKUP,IDX
|
|---|
| 46 | ;
|
|---|
| 47 | S SEG="",SEQ=0
|
|---|
| 48 | F S SEQ=$O(^TMP("XUMF MFS",$J,"PARAM","SEQ",SEQ)) Q:'SEQ D
|
|---|
| 49 | .;
|
|---|
| 50 | .S FLD=$O(^TMP("XUMF MFS",$J,"PARAM","SEQ",SEQ,0))
|
|---|
| 51 | .;
|
|---|
| 52 | .I 'FLD D
|
|---|
| 53 | ..S FILE=^TMP("XUMF MFS",$J,"PARAM","SEQ",SEQ,"FILE")
|
|---|
| 54 | ..S IENS=$G(^TMP("XUMF MFS",$J,"PARAM","IENS",SEQ))
|
|---|
| 55 | ..S FIELD=^TMP("XUMF MFS",$J,"PARAM","SEQ",SEQ,"FIELD")
|
|---|
| 56 | ..S LKUP=$G(^TMP("XUMF MFS",$J,"PARAM","SEQ",SEQ,"LKUP"))
|
|---|
| 57 | ..I LKUP S FIELD=FIELD_":"_LKUP
|
|---|
| 58 | ..S VALUE=$$GET1^DIQ(FILE,IENS,FIELD)
|
|---|
| 59 | ..S ARRAY(SEQ)=$$FIELD^XUMF(FILE,$P(FIELD,":"),"LABEL")_": "_VALUE
|
|---|
| 60 | .I FLD D
|
|---|
| 61 | ..S ZDTYP=$G(^TMP("XUMF MFS",$J,"PARAM","SEQ",SEQ,FLD))
|
|---|
| 62 | ..S LKUP=$P(ZDTYP,U,2)
|
|---|
| 63 | ..I LKUP S FLD=FLD_":"_LKUP
|
|---|
| 64 | ..S VALUE=$$GET1^DIQ(IFN,IEN_",",FLD)
|
|---|
| 65 | ..S ARRAY(SEQ)=$$FIELD^XUMF(IFN,$P(FLD,":"),"LABEL")_": "_VALUE
|
|---|
| 66 | ;
|
|---|
| 67 | Q
|
|---|
| 68 | ;
|
|---|
| 69 | MFP ; -- get Master File Parameters from server
|
|---|
| 70 | ;
|
|---|
| 71 | N X
|
|---|
| 72 | ;
|
|---|
| 73 | S EXIT=1
|
|---|
| 74 | S IEN=$$FIND1^DIC(1,,"BX",$P(KEY,HLCS))
|
|---|
| 75 | ;
|
|---|
| 76 | D MAIN^XUMF299
|
|---|
| 77 | ;
|
|---|
| 78 | S X(1)="Query sent to MFS to get "_$P(KEY,HLCS)_" parameters"
|
|---|
| 79 | D XM1(.X)
|
|---|
| 80 | ;
|
|---|
| 81 | Q
|
|---|
| 82 | ;
|
|---|
| 83 | XM(X,XUMFKEY) ; -- MailMan notification
|
|---|
| 84 | ;
|
|---|
| 85 | N GROUP
|
|---|
| 86 | ;
|
|---|
| 87 | S HLCS=$G(HLCS) S:HLCS="" HLCS="~"
|
|---|
| 88 | S XUMFKEY=" "_$P($G(XUMFKEY),HLCS)
|
|---|
| 89 | ;
|
|---|
| 90 | S GROUP=$$GET1^DIQ(4.001,IEN_",",.06)
|
|---|
| 91 | S:GROUP'="" GROUP="G."_GROUP
|
|---|
| 92 | S X(.1)="HL7 message ID: "_$G(HL("MID")),X(.2)=""
|
|---|
| 93 | S X(.3)="PRE UPDATE VALUES:",X(.4)=""
|
|---|
| 94 | S X(99.1)="",X(99.2)="POST UPDATE VALUES:",X(99.3)=""
|
|---|
| 95 | S XMSUB="XUMF MFS UPDATE - "_$$FILE^XUMF(IFN,"NAME")_XUMFKEY
|
|---|
| 96 | S XMY("G.XUMF SERVER")="",XMDUZ=.5
|
|---|
| 97 | S:GROUP'="" XMY(GROUP)=""
|
|---|
| 98 | S XMTEXT="X("
|
|---|
| 99 | ;
|
|---|
| 100 | D ^XMD
|
|---|
| 101 | ;
|
|---|
| 102 | XM1(X) ; -- MailMan notification
|
|---|
| 103 | ;
|
|---|
| 104 | N GROUP
|
|---|
| 105 | ;
|
|---|
| 106 | S GROUP=$$GET1^DIQ(4.001,IEN_",",.06)
|
|---|
| 107 | S:GROUP'="" GROUP="G."_GROUP
|
|---|
| 108 | S X(.1)="HL7 message ID: "_$G(HL("MID")),X(.2)=""
|
|---|
| 109 | S XMSUB="XUMF MFE - "_$$FILE^XUMF(IFN,"NAME")
|
|---|
| 110 | S XMY("G.XUMF SERVER")="",XMDUZ=.5
|
|---|
| 111 | S:GROUP'="" XMY(GROUP)=""
|
|---|
| 112 | S XMTEXT="X("
|
|---|
| 113 | ;
|
|---|
| 114 | D ^XMD
|
|---|
| 115 | ;
|
|---|
| 116 | Q
|
|---|
| 117 | ;
|
|---|
