RA90PST.m

RA90PST ;HCIOFO/SG - PATCH RA*5*90 INSTALLATION CODE ; 4/3/08 10:10am

 ;;5.0;Radiology/Nuclear Medicine;**90**;Mar 16, 1998;Build 20

 ;

 Q

 ;

POST ;

 N IEN,IN,MSG,NAME,RAFDA,RAMSG

 D BMES^RAKIDS("Updating records of file #79.7...")

 F NAME="RA-PSCRIBE-TCP","RA-TALKLINK-TCP","RA-SCIMAGE-TCP","RA-RADWHERE-TCP"  D  D MES^RAKIDS(MSG)

 . S MSG=$$LJ^XLFSTR(NAME,20)

 . S IEN=$$FIND1^DIC(79.7,,"X",NAME,"B",,"RAMSG")

 . I IEN'>0  S MSG=MSG_$S(IEN=0:"Not found",1:"Error (FIND1^DIC)")  Q

 . S RAFDA(79.7,IEN_",",1.3)="S"  ; APPLICATION TYPE

 . D FILE^DIE(,"RAFDA","RAMSG")

 . S MSG=MSG_$S($G(DIERR):"Error (FILE^DIE)",1:"Ok")

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---RA90PST   639     printed  Apr 09, 2024@21:40:56                                                                                                                                                                                                      Page 2

RA90PST   ;HCIOFO/SG - PATCH RA*5*90 INSTALLATION CODE ; 4/3/08 10:10am

 +1       ;;5.0;Radiology/Nuclear Medicine;**90**;Mar 16, 1998;Build 20

 +2       ;

 +3        QUIT 

 +4       ;

POST      ;

 +1        NEW IEN,IN,MSG,NAME,RAFDA,RAMSG

 +2        DO BMES^RAKIDS("Updating records of file #79.7...")

 +3        FOR NAME="RA-PSCRIBE-TCP","RA-TALKLINK-TCP","RA-SCIMAGE-TCP","RA-RADWHERE-TCP"

               Begin DoDot:1

 +4                SET MSG=$$LJ^XLFSTR(NAME,20)

 +5                SET IEN=$$FIND1^DIC(79.7,,"X",NAME,"B",,"RAMSG")

 +6                IF IEN'>0

                       SET MSG=MSG_$SELECT(IEN=0:"Not found",1:"Error (FIND1^DIC)")

                       QUIT 

 +7       ; APPLICATION TYPE

                   SET RAFDA(79.7,IEN_",",1.3)="S"

 +8                DO FILE^DIE(,"RAFDA","RAMSG")

 +9                SET MSG=MSG_$SELECT($GET(DIERR):"Error (FILE^DIE)",1:"Ok")

               End DoDot:1

               DO MES^RAKIDS(MSG)

 +10       QUIT