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

XUMF4L2.m

Go to the documentation of this file.
  1. XUMF4L2 ;OIFO-OAK/RAM - Load IMF ;02/21/02
  1. ;;8.0;KERNEL;**217**;Jul 10, 1995
  1. ;
  1. ; $$PARAM^HLCS2 call supported by IA #3552
  1. ;
  1. LOCAL ; -- status message to site
  1. ;
  1. I '$$ADD,'$$DEL,'$$MOD Q
  1. ;
  1. N XMSUB,TEXT,XMDUZ,XMY,XMTEXT,I,ZIN
  1. ;
  1. S ZIN="NAME^STATION NUMBER^STATUS^FACILITY TYPE^OFFICIAL VA NAME"
  1. S ZIN=ZIN_"^INACTIVE FACILITY FLAG^STATE^VISN^PARENT FACILITY"
  1. ;
  1. S I=0
  1. ;
  1. S I=I+1,TEXT(I)="A backgroud job just updated your Institution file"
  1. S I=I+1,TEXT(I)="with data from the Institution Master File (IMF)"
  1. S I=I+1,TEXT(I)="on FORUM."
  1. S I=I+1,TEXT(I)=""
  1. S I=I+1,TEXT(I)="This job was a special task to insure sites that"
  1. S I=I+1,TEXT(I)="have already run the cleanup are up-to-date with"
  1. S I=I+1,TEXT(I)="all updates."
  1. S I=I+1,TEXT(I)=""
  1. S I=I+1,TEXT(I)="These updates were broadcast previously, but your"
  1. S I=I+1,TEXT(I)="site may not have received them due to enabling"
  1. S I=I+1,TEXT(I)="and/or disabling broadcasting to sites for various"
  1. S I=I+1,TEXT(I)="reasons."
  1. S I=I+1,TEXT(I)=""
  1. S I=I+1,TEXT(I)="This message has three sections (in addition to this"
  1. S I=I+1,TEXT(I)="initial text.) The first section lists entries that"
  1. S I=I+1,TEXT(I)="have been added to your file. The second section"
  1. S I=I+1,TEXT(I)="lists existing entries that have modified. The third"
  1. S I=I+1,TEXT(I)="section lists entries that have had their STATUS (#11)"
  1. S I=I+1,TEXT(I)="changed from National to Local and their STATION"
  1. S I=I+1,TEXT(I)="NUMBER (#99) removed (was never a valid sta #.)"
  1. S I=I+1,TEXT(I)=""
  1. S I=I+1,TEXT(I)="The lists are in Station Number order and are up-arrow"
  1. S I=I+1,TEXT(I)="delimited strings in the HL7 Institution segment"
  1. S I=I+1,TEXT(I)="format. The values correspond to the FileMan fields"
  1. S I=I+1,TEXT(I)=""
  1. S I=I+1,TEXT(I)=ZIN
  1. S I=I+1,TEXT(I)=""
  1. ;
  1. S I=I+1,TEXT(I)="SECTION ONE"
  1. S I=I+1,TEXT(I)="The following entries were ADDED:"
  1. S I=I+1,TEXT(I)=""
  1. I $$ADD=0 S I=I+1,TEXT(I)="None.",I=I+1,TEXT(I)=""
  1. I $$ADD D
  1. .N STA S STA=""
  1. .F S STA=$O(^TMP("XUMF ADD",$J,STA)) Q:STA="" D
  1. ..S I=I+1,TEXT(I)=$P(^TMP("XUMF ADD",$J,STA),U,2,10)
  1. ;
  1. S I=I+1,TEXT(I)=""
  1. S I=I+1,TEXT(I)="SECTION TWO"
  1. S I=I+1,TEXT(I)="The following entries were MODIFIED (old/new value):"
  1. S I=I+1,TEXT(I)=""
  1. I $$MOD=0 S I=I+1,TEXT(I)="None.",I=I+1,TEXT(I)=""
  1. I $$MOD D
  1. .N STA S STA=""
  1. .F S STA=$O(^TMP("XUMF MOD",$J,STA)) Q:STA="" D
  1. ..S I=I+1,TEXT(I)=^TMP("XUMF MOD",$J,STA,"OLD")
  1. ..S I=I+1,TEXT(I)=^TMP("XUMF MOD",$J,STA,"NEW")
  1. ..S I=I+1,TEXT(I)=""
  1. ;
  1. S I=I+1,TEXT(I)=""
  1. S I=I+1,TEXT(I)="SECTION THREE"
  1. S I=I+1,TEXT(I)="The following STATION NUMBERS were removed:"
  1. S I=I+1,TEXT(I)=""
  1. I $$DEL=0 S I=I+1,TEXT(I)="None.",I=I+1,TEXT(I)=""
  1. I $$DEL D
  1. .N STA S STA=""
  1. .F S STA=$O(^TMP("XUMF DEL",$J,STA)) Q:STA="" D
  1. ..S I=I+1,TEXT(I)=" STA: "_STA_" IEN: "_$O(^TMP("XUMF DEL",$J,STA,0))
  1. .S I=I+1,TEXT(I)=""
  1. .S I=I+1,TEXT(I)="Note: Just the STATION NUMBER (#99) was removed"
  1. .S I=I+1,TEXT(I)="and the STATUS (#11) changed to Local. The entry"
  1. .S I=I+1,TEXT(I)="itself was NOT deleted."
  1. ;
  1. S XMSUB="IFR/cleanup/updates at "_$$SITE
  1. S XMDUZ=$S(DUZ:DUZ,1:.5)
  1. S XMTEXT="TEXT("
  1. S XMY("G.XUMF INSTITUTION")=""
  1. S:$P($$PARAM^HLCS2,U,3)'="T" XMY("G.XUMF INSTITUTION@FORUM")=""
  1. D ^XMD
  1. Q
  1. ;
  1. NVS ; -- status message to NVS
  1. ;
  1. N XMSUB,TEXT,XMDUZ,XMY,XMTEXT
  1. ;
  1. S TEXT(1)=$$SITE
  1. S TEXT(2)=""
  1. S TEXT(3)="Station numbers added: "_$$ADD
  1. S TEXT(4)=" deleted: "_$$DEL
  1. S TEXT(5)="File entries modified: "_$$MOD
  1. ;
  1. S XMSUB="IFR/cleanup/status at "_$$SITE
  1. S XMDUZ=$S(DUZ:DUZ,1:.5)
  1. S XMTEXT="TEXT("
  1. S XMY("G.XUMF INSTITUTION")=""
  1. S:$P($$PARAM^HLCS2,U,3)'="T" XMY("G.XUMF INSTITUTION@FORUM")=""
  1. D ^XMD
  1. ;
  1. Q
  1. ;
  1. SITE() ; -- facility name and sta # string
  1. ;
  1. Q $P($G(^DIC(4,+DUZ(2),0)),U)_" Sta#: "_$P($G(^DIC(4,+DUZ(2),99)),U)
  1. ;
  1. ADD() ; -- added sta #
  1. ;
  1. N STA,CNT
  1. S STA="",CNT=0
  1. F S STA=$O(^TMP("XUMF ADD",$J,STA)) Q:STA="" S CNT=CNT+1
  1. Q CNT
  1. ;
  1. MOD() ; -- modified entries
  1. ;
  1. N STA,CNT
  1. S STA="",CNT=0
  1. F S STA=$O(^TMP("XUMF MOD",$J,STA)) Q:STA="" S CNT=CNT+1
  1. Q CNT
  1. ;
  1. DEL() ; -- removed sta #
  1. ;
  1. N STA,CNT
  1. S STA="",CNT=0
  1. F S STA=$O(^TMP("XUMF DEL",$J,STA)) Q:STA="" S CNT=CNT+1
  1. Q CNT
  1. ;