- XUMF4L2 ;OIFO-OAK/RAM - Load IMF ;02/21/02
- ;;8.0;KERNEL;**217**;Jul 10, 1995
- ;
- ; $$PARAM^HLCS2 call supported by IA #3552
- ;
- LOCAL ; -- status message to site
- ;
- I '$$ADD,'$$DEL,'$$MOD Q
- ;
- N XMSUB,TEXT,XMDUZ,XMY,XMTEXT,I,ZIN
- ;
- S ZIN="NAME^STATION NUMBER^STATUS^FACILITY TYPE^OFFICIAL VA NAME"
- S ZIN=ZIN_"^INACTIVE FACILITY FLAG^STATE^VISN^PARENT FACILITY"
- ;
- S I=0
- ;
- S I=I+1,TEXT(I)="A backgroud job just updated your Institution file"
- S I=I+1,TEXT(I)="with data from the Institution Master File (IMF)"
- S I=I+1,TEXT(I)="on FORUM."
- S I=I+1,TEXT(I)=""
- S I=I+1,TEXT(I)="This job was a special task to insure sites that"
- S I=I+1,TEXT(I)="have already run the cleanup are up-to-date with"
- S I=I+1,TEXT(I)="all updates."
- S I=I+1,TEXT(I)=""
- S I=I+1,TEXT(I)="These updates were broadcast previously, but your"
- S I=I+1,TEXT(I)="site may not have received them due to enabling"
- S I=I+1,TEXT(I)="and/or disabling broadcasting to sites for various"
- S I=I+1,TEXT(I)="reasons."
- S I=I+1,TEXT(I)=""
- S I=I+1,TEXT(I)="This message has three sections (in addition to this"
- S I=I+1,TEXT(I)="initial text.) The first section lists entries that"
- S I=I+1,TEXT(I)="have been added to your file. The second section"
- S I=I+1,TEXT(I)="lists existing entries that have modified. The third"
- S I=I+1,TEXT(I)="section lists entries that have had their STATUS (#11)"
- S I=I+1,TEXT(I)="changed from National to Local and their STATION"
- S I=I+1,TEXT(I)="NUMBER (#99) removed (was never a valid sta #.)"
- S I=I+1,TEXT(I)=""
- S I=I+1,TEXT(I)="The lists are in Station Number order and are up-arrow"
- S I=I+1,TEXT(I)="delimited strings in the HL7 Institution segment"
- S I=I+1,TEXT(I)="format. The values correspond to the FileMan fields"
- S I=I+1,TEXT(I)=""
- S I=I+1,TEXT(I)=ZIN
- S I=I+1,TEXT(I)=""
- ;
- S I=I+1,TEXT(I)="SECTION ONE"
- S I=I+1,TEXT(I)="The following entries were ADDED:"
- S I=I+1,TEXT(I)=""
- I $$ADD=0 S I=I+1,TEXT(I)="None.",I=I+1,TEXT(I)=""
- I $$ADD D
- .N STA S STA=""
- .F S STA=$O(^TMP("XUMF ADD",$J,STA)) Q:STA="" D
- ..S I=I+1,TEXT(I)=$P(^TMP("XUMF ADD",$J,STA),U,2,10)
- ;
- S I=I+1,TEXT(I)=""
- S I=I+1,TEXT(I)="SECTION TWO"
- S I=I+1,TEXT(I)="The following entries were MODIFIED (old/new value):"
- S I=I+1,TEXT(I)=""
- I $$MOD=0 S I=I+1,TEXT(I)="None.",I=I+1,TEXT(I)=""
- I $$MOD D
- .N STA S STA=""
- .F S STA=$O(^TMP("XUMF MOD",$J,STA)) Q:STA="" D
- ..S I=I+1,TEXT(I)=^TMP("XUMF MOD",$J,STA,"OLD")
- ..S I=I+1,TEXT(I)=^TMP("XUMF MOD",$J,STA,"NEW")
- ..S I=I+1,TEXT(I)=""
- ;
- S I=I+1,TEXT(I)=""
- S I=I+1,TEXT(I)="SECTION THREE"
- S I=I+1,TEXT(I)="The following STATION NUMBERS were removed:"
- S I=I+1,TEXT(I)=""
- I $$DEL=0 S I=I+1,TEXT(I)="None.",I=I+1,TEXT(I)=""
- I $$DEL D
- .N STA S STA=""
- .F S STA=$O(^TMP("XUMF DEL",$J,STA)) Q:STA="" D
- ..S I=I+1,TEXT(I)=" STA: "_STA_" IEN: "_$O(^TMP("XUMF DEL",$J,STA,0))
- .S I=I+1,TEXT(I)=""
- .S I=I+1,TEXT(I)="Note: Just the STATION NUMBER (#99) was removed"
- .S I=I+1,TEXT(I)="and the STATUS (#11) changed to Local. The entry"
- .S I=I+1,TEXT(I)="itself was NOT deleted."
- ;
- S XMSUB="IFR/cleanup/updates at "_$$SITE
- S XMDUZ=$S(DUZ:DUZ,1:.5)
- S XMTEXT="TEXT("
- S XMY("G.XUMF INSTITUTION")=""
- S:$P($$PARAM^HLCS2,U,3)'="T" XMY("G.XUMF INSTITUTION@FORUM")=""
- D ^XMD
- Q
- ;
- NVS ; -- status message to NVS
- ;
- N XMSUB,TEXT,XMDUZ,XMY,XMTEXT
- ;
- S TEXT(1)=$$SITE
- S TEXT(2)=""
- S TEXT(3)="Station numbers added: "_$$ADD
- S TEXT(4)=" deleted: "_$$DEL
- S TEXT(5)="File entries modified: "_$$MOD
- ;
- S XMSUB="IFR/cleanup/status at "_$$SITE
- S XMDUZ=$S(DUZ:DUZ,1:.5)
- S XMTEXT="TEXT("
- S XMY("G.XUMF INSTITUTION")=""
- S:$P($$PARAM^HLCS2,U,3)'="T" XMY("G.XUMF INSTITUTION@FORUM")=""
- D ^XMD
- ;
- Q
- ;
- SITE() ; -- facility name and sta # string
- ;
- Q $P($G(^DIC(4,+DUZ(2),0)),U)_" Sta#: "_$P($G(^DIC(4,+DUZ(2),99)),U)
- ;
- ADD() ; -- added sta #
- ;
- N STA,CNT
- S STA="",CNT=0
- F S STA=$O(^TMP("XUMF ADD",$J,STA)) Q:STA="" S CNT=CNT+1
- Q CNT
- ;
- MOD() ; -- modified entries
- ;
- N STA,CNT
- S STA="",CNT=0
- F S STA=$O(^TMP("XUMF MOD",$J,STA)) Q:STA="" S CNT=CNT+1
- Q CNT
- ;
- DEL() ; -- removed sta #
- ;
- N STA,CNT
- S STA="",CNT=0
- F S STA=$O(^TMP("XUMF DEL",$J,STA)) Q:STA="" S CNT=CNT+1
- Q CNT
- ;
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HXUMF4L2 4287 printed Jan 18, 2025@03:11:35 Page 2
- XUMF4L2 ;OIFO-OAK/RAM - Load IMF ;02/21/02
- +1 ;;8.0;KERNEL;**217**;Jul 10, 1995
- +2 ;
- +3 ; $$PARAM^HLCS2 call supported by IA #3552
- +4 ;
- LOCAL ; -- status message to site
- +1 ;
- +2 IF '$$ADD
- IF '$$DEL
- IF '$$MOD
- QUIT
- +3 ;
- +4 NEW XMSUB,TEXT,XMDUZ,XMY,XMTEXT,I,ZIN
- +5 ;
- +6 SET ZIN="NAME^STATION NUMBER^STATUS^FACILITY TYPE^OFFICIAL VA NAME"
- +7 SET ZIN=ZIN_"^INACTIVE FACILITY FLAG^STATE^VISN^PARENT FACILITY"
- +8 ;
- +9 SET I=0
- +10 ;
- +11 SET I=I+1
- SET TEXT(I)="A backgroud job just updated your Institution file"
- +12 SET I=I+1
- SET TEXT(I)="with data from the Institution Master File (IMF)"
- +13 SET I=I+1
- SET TEXT(I)="on FORUM."
- +14 SET I=I+1
- SET TEXT(I)=""
- +15 SET I=I+1
- SET TEXT(I)="This job was a special task to insure sites that"
- +16 SET I=I+1
- SET TEXT(I)="have already run the cleanup are up-to-date with"
- +17 SET I=I+1
- SET TEXT(I)="all updates."
- +18 SET I=I+1
- SET TEXT(I)=""
- +19 SET I=I+1
- SET TEXT(I)="These updates were broadcast previously, but your"
- +20 SET I=I+1
- SET TEXT(I)="site may not have received them due to enabling"
- +21 SET I=I+1
- SET TEXT(I)="and/or disabling broadcasting to sites for various"
- +22 SET I=I+1
- SET TEXT(I)="reasons."
- +23 SET I=I+1
- SET TEXT(I)=""
- +24 SET I=I+1
- SET TEXT(I)="This message has three sections (in addition to this"
- +25 SET I=I+1
- SET TEXT(I)="initial text.) The first section lists entries that"
- +26 SET I=I+1
- SET TEXT(I)="have been added to your file. The second section"
- +27 SET I=I+1
- SET TEXT(I)="lists existing entries that have modified. The third"
- +28 SET I=I+1
- SET TEXT(I)="section lists entries that have had their STATUS (#11)"
- +29 SET I=I+1
- SET TEXT(I)="changed from National to Local and their STATION"
- +30 SET I=I+1
- SET TEXT(I)="NUMBER (#99) removed (was never a valid sta #.)"
- +31 SET I=I+1
- SET TEXT(I)=""
- +32 SET I=I+1
- SET TEXT(I)="The lists are in Station Number order and are up-arrow"
- +33 SET I=I+1
- SET TEXT(I)="delimited strings in the HL7 Institution segment"
- +34 SET I=I+1
- SET TEXT(I)="format. The values correspond to the FileMan fields"
- +35 SET I=I+1
- SET TEXT(I)=""
- +36 SET I=I+1
- SET TEXT(I)=ZIN
- +37 SET I=I+1
- SET TEXT(I)=""
- +38 ;
- +39 SET I=I+1
- SET TEXT(I)="SECTION ONE"
- +40 SET I=I+1
- SET TEXT(I)="The following entries were ADDED:"
- +41 SET I=I+1
- SET TEXT(I)=""
- +42 IF $$ADD=0
- SET I=I+1
- SET TEXT(I)="None."
- SET I=I+1
- SET TEXT(I)=""
- +43 IF $$ADD
- Begin DoDot:1
- +44 NEW STA
- SET STA=""
- +45 FOR
- SET STA=$ORDER(^TMP("XUMF ADD",$JOB,STA))
- if STA=""
- QUIT
- Begin DoDot:2
- +46 SET I=I+1
- SET TEXT(I)=$PIECE(^TMP("XUMF ADD",$JOB,STA),U,2,10)
- End DoDot:2
- End DoDot:1
- +47 ;
- +48 SET I=I+1
- SET TEXT(I)=""
- +49 SET I=I+1
- SET TEXT(I)="SECTION TWO"
- +50 SET I=I+1
- SET TEXT(I)="The following entries were MODIFIED (old/new value):"
- +51 SET I=I+1
- SET TEXT(I)=""
- +52 IF $$MOD=0
- SET I=I+1
- SET TEXT(I)="None."
- SET I=I+1
- SET TEXT(I)=""
- +53 IF $$MOD
- Begin DoDot:1
- +54 NEW STA
- SET STA=""
- +55 FOR
- SET STA=$ORDER(^TMP("XUMF MOD",$JOB,STA))
- if STA=""
- QUIT
- Begin DoDot:2
- +56 SET I=I+1
- SET TEXT(I)=^TMP("XUMF MOD",$JOB,STA,"OLD")
- +57 SET I=I+1
- SET TEXT(I)=^TMP("XUMF MOD",$JOB,STA,"NEW")
- +58 SET I=I+1
- SET TEXT(I)=""
- End DoDot:2
- End DoDot:1
- +59 ;
- +60 SET I=I+1
- SET TEXT(I)=""
- +61 SET I=I+1
- SET TEXT(I)="SECTION THREE"
- +62 SET I=I+1
- SET TEXT(I)="The following STATION NUMBERS were removed:"
- +63 SET I=I+1
- SET TEXT(I)=""
- +64 IF $$DEL=0
- SET I=I+1
- SET TEXT(I)="None."
- SET I=I+1
- SET TEXT(I)=""
- +65 IF $$DEL
- Begin DoDot:1
- +66 NEW STA
- SET STA=""
- +67 FOR
- SET STA=$ORDER(^TMP("XUMF DEL",$JOB,STA))
- if STA=""
- QUIT
- Begin DoDot:2
- +68 SET I=I+1
- SET TEXT(I)=" STA: "_STA_" IEN: "_$ORDER(^TMP("XUMF DEL",$JOB,STA,0))
- End DoDot:2
- +69 SET I=I+1
- SET TEXT(I)=""
- +70 SET I=I+1
- SET TEXT(I)="Note: Just the STATION NUMBER (#99) was removed"
- +71 SET I=I+1
- SET TEXT(I)="and the STATUS (#11) changed to Local. The entry"
- +72 SET I=I+1
- SET TEXT(I)="itself was NOT deleted."
- End DoDot:1
- +73 ;
- +74 SET XMSUB="IFR/cleanup/updates at "_$$SITE
- +75 SET XMDUZ=$SELECT(DUZ:DUZ,1:.5)
- +76 SET XMTEXT="TEXT("
- +77 SET XMY("G.XUMF INSTITUTION")=""
- +78 if $PIECE($$PARAM^HLCS2,U,3)'="T"
- SET XMY("G.XUMF INSTITUTION@FORUM")=""
- +79 DO ^XMD
- +80 QUIT
- +81 ;
- NVS ; -- status message to NVS
- +1 ;
- +2 NEW XMSUB,TEXT,XMDUZ,XMY,XMTEXT
- +3 ;
- +4 SET TEXT(1)=$$SITE
- +5 SET TEXT(2)=""
- +6 SET TEXT(3)="Station numbers added: "_$$ADD
- +7 SET TEXT(4)=" deleted: "_$$DEL
- +8 SET TEXT(5)="File entries modified: "_$$MOD
- +9 ;
- +10 SET XMSUB="IFR/cleanup/status at "_$$SITE
- +11 SET XMDUZ=$SELECT(DUZ:DUZ,1:.5)
- +12 SET XMTEXT="TEXT("
- +13 SET XMY("G.XUMF INSTITUTION")=""
- +14 if $PIECE($$PARAM^HLCS2,U,3)'="T"
- SET XMY("G.XUMF INSTITUTION@FORUM")=""
- +15 DO ^XMD
- +16 ;
- +17 QUIT
- +18 ;
- SITE() ; -- facility name and sta # string
- +1 ;
- +2 QUIT $PIECE($GET(^DIC(4,+DUZ(2),0)),U)_" Sta#: "_$PIECE($GET(^DIC(4,+DUZ(2),99)),U)
- +3 ;
- ADD() ; -- added sta #
- +1 ;
- +2 NEW STA,CNT
- +3 SET STA=""
- SET CNT=0
- +4 FOR
- SET STA=$ORDER(^TMP("XUMF ADD",$JOB,STA))
- if STA=""
- QUIT
- SET CNT=CNT+1
- +5 QUIT CNT
- +6 ;
- MOD() ; -- modified entries
- +1 ;
- +2 NEW STA,CNT
- +3 SET STA=""
- SET CNT=0
- +4 FOR
- SET STA=$ORDER(^TMP("XUMF MOD",$JOB,STA))
- if STA=""
- QUIT
- SET CNT=CNT+1
- +5 QUIT CNT
- +6 ;
- DEL() ; -- removed sta #
- +1 ;
- +2 NEW STA,CNT
- +3 SET STA=""
- SET CNT=0
- +4 FOR
- SET STA=$ORDER(^TMP("XUMF DEL",$JOB,STA))
- if STA=""
- QUIT
- SET CNT=CNT+1
- +5 QUIT CNT
- +6 ;