Name | Value | ||||
---|---|---|---|---|---|
NUMBER | 255 | ||||
IA # | 255 | ||||
GLOBAL ROOT | DD(301.5, | ||||
DATE CREATED | 1993/07/28 | ||||
CUSTODIAL PACKAGE | VA FILEMAN | ||||
CUSTODIAL ISC | San Francisco | ||||
USAGE | Private | ||||
TYPE | File | ||||
DBIC APPROVAL STATUS | APPROVED | ||||
NAME | DBIA255 | ||||
ORIGINAL NUMBER | 255 | ||||
GENERAL DESCRIPTION | IVM is granted permission from FM Integration to make the following calls: Permission to add cross-references to the PATIENT file. The cross- references have set and kill logic as follows: S IVMX=X,X="IVMPXFR" X ^%ZOSF("TEST") D:$T DPT^IVMPXFR S X=IVMX K IVMX The code in IVMPXFR looks as follows: DPT ; Update transmit status if patient file fields are updated ; N DFN S DFN=+DA I '$D(^DPT(DFN,0)) Q D IVM Q ; IVM ; check to see if patient needs to be retransmitted N DA,I,NODE,X Q:'$D(^IVM(301.5,"B",DFN)) F DA=0:0 S DA=$O(^IVM(301.5,"B",DFN,DA)) Q:'DA D .S X=$G(^IVM(301.5,DA,0)) .S $P(^IVM(301.5,DA,0),"^",3)=0 .F I=0:0 S I=$O(^DD(301.5,.03,1,I)) Q:'I I $G(^(I,0))'["TRIGGER" D ..S X=1 X ^DD(301.5,.03,1,I,2) ; kill xfr ..S X=0 X ^DD(301.5,.03,1,I,1) ; set xfr Q Permission is also given to execute the DD nodes. At this point, there is a single MUMPS cross-reference on the .03 field (TRANSMISSION STATUS) of the IVM PATIENT file (301.5). Its logic is: set I X=0 S ^IVM(301.5,"ATR",0,DA)="" kill I X=0 K ^IVM(301.5,"ATR",0,DA) The purpose is just to flag the record as needing to be transmitted and have the cross-reference only set for those that require transmission. |
||||
STATUS | Active | ||||
DURATION | Till Otherwise Agreed | ||||
ID | DD(301.5, | ||||
SUBSCRIBING PACKAGE |
|