- ORY206 ;SLC/PKS -- postinit rtn for OR*3*206;10/3/2003 06:25 [10/23/03 9:40am]
- ;;3.0;ORDER ENTRY/RESULTS REPORTING;**206**;Dec 17, 1997
- ;
- Q
- ;
- PRE ; -- preinit
- ;
- Q
- ;
- POST ; -- postinit
- ;
- N VER
- ;
- S VER=$P($T(VERSION^ORY206),";",3)
- I +$$PATCH^XPDUTL("TIU*1.0*112") D SURGREG
- D MAIL
- ;
- Q
- ;
- SURGREG ; Register TIU SURGERY RPCs if TIU*1.0*112 present
- N MENU,RPC
- S MENU="OR CPRS GUI CHART"
- F RPC="TIU IS THIS A SURGERY?","TIU IDENTIFY SURGERY CLASS","TIU LONG LIST SURGERY TITLES","TIU GET DOCUMENTS FOR REQUEST" D INSERT(MENU,RPC)
- Q
- ;
- INSERT(OPTION,RPC) ; Call FM Updater with each RPC
- ; Input -- OPTION Option file (#19) Name field (#.01)
- ; RPC RPC sub-file (#19.05) RPC field (#.01)
- ; Output -- None
- N FDA,FDAIEN,ERR,DIERR
- S FDA(19,"?1,",.01)=OPTION
- S FDA(19.05,"?+2,?1,",.01)=RPC
- D UPDATE^DIE("E","FDA","FDAIEN","ERR")
- Q
- ;
- MAIL ; send bulletin of installation time
- N COUNT,DIFROM,I,START,TEXT,XMDUZ,XMSUB,XMTEXT,XMY
- S COUNT=0
- S XMSUB="Version "_$P($T(VERSION),";;",2)_" Installed"
- S XMDUZ="CPRS PACKAGE"
- F I="G.CPRS GUI INSTALL@ISC-SLC.DOMAIN.EXT",DUZ S XMY(I)=""
- S XMTEXT="TEXT("
- ;
- S X=$P($T(VERSION),";;",2)
- D LINE("Version "_X_" has been installed.")
- D LINE(" ")
- D LINE("Install complete: "_$$FMTE^XLFDT($$NOW^XLFDT()))
- ;
- D ^XMD
- Q
- ;
- LINE(DATA) ; set text into array
- S COUNT=COUNT+1
- S TEXT(COUNT)=DATA
- Q
- ;
- VERSION ;;22.16
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HORY206 1451 printed Jan 18, 2025@03:40:15 Page 2
- ORY206 ;SLC/PKS -- postinit rtn for OR*3*206;10/3/2003 06:25 [10/23/03 9:40am]
- +1 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**206**;Dec 17, 1997
- +2 ;
- +3 QUIT
- +4 ;
- PRE ; -- preinit
- +1 ;
- +2 QUIT
- +3 ;
- POST ; -- postinit
- +1 ;
- +2 NEW VER
- +3 ;
- +4 SET VER=$PIECE($TEXT(VERSION^ORY206),";",3)
- +5 IF +$$PATCH^XPDUTL("TIU*1.0*112")
- DO SURGREG
- +6 DO MAIL
- +7 ;
- +8 QUIT
- +9 ;
- SURGREG ; Register TIU SURGERY RPCs if TIU*1.0*112 present
- +1 NEW MENU,RPC
- +2 SET MENU="OR CPRS GUI CHART"
- +3 FOR RPC="TIU IS THIS A SURGERY?","TIU IDENTIFY SURGERY CLASS","TIU LONG LIST SURGERY TITLES","TIU GET DOCUMENTS FOR REQUEST"
- DO INSERT(MENU,RPC)
- +4 QUIT
- +5 ;
- INSERT(OPTION,RPC) ; Call FM Updater with each RPC
- +1 ; Input -- OPTION Option file (#19) Name field (#.01)
- +2 ; RPC RPC sub-file (#19.05) RPC field (#.01)
- +3 ; Output -- None
- +4 NEW FDA,FDAIEN,ERR,DIERR
- +5 SET FDA(19,"?1,",.01)=OPTION
- +6 SET FDA(19.05,"?+2,?1,",.01)=RPC
- +7 DO UPDATE^DIE("E","FDA","FDAIEN","ERR")
- +8 QUIT
- +9 ;
- MAIL ; send bulletin of installation time
- +1 NEW COUNT,DIFROM,I,START,TEXT,XMDUZ,XMSUB,XMTEXT,XMY
- +2 SET COUNT=0
- +3 SET XMSUB="Version "_$PIECE($TEXT(VERSION),";;",2)_" Installed"
- +4 SET XMDUZ="CPRS PACKAGE"
- +5 FOR I="G.CPRS GUI INSTALL@ISC-SLC.DOMAIN.EXT",DUZ
- SET XMY(I)=""
- +6 SET XMTEXT="TEXT("
- +7 ;
- +8 SET X=$PIECE($TEXT(VERSION),";;",2)
- +9 DO LINE("Version "_X_" has been installed.")
- +10 DO LINE(" ")
- +11 DO LINE("Install complete: "_$$FMTE^XLFDT($$NOW^XLFDT()))
- +12 ;
- +13 DO ^XMD
- +14 QUIT
- +15 ;
- LINE(DATA) ; set text into array
- +1 SET COUNT=COUNT+1
- +2 SET TEXT(COUNT)=DATA
- +3 QUIT
- +4 ;
- VERSION ;;22.16