XUMF4L2.m

XUMF4L2 ;OIFO-OAK/RAM - Load IMF ;02/21/02 [ 07/29/2004   9:01 AM ]

 ;;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

 ;

XUMF4L2   ;OIFO-OAK/RAM - Load IMF ;02/21/02 [ 07/29/2004   9:01 AM ]

 +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       ;