TIU347P.m

TIU347P ;SPFO/AJB - Clinical Contact Center Titles ;Aug 04, 2021@09:40:28

 ;;1.0;TEXT INTEGRATION UTILITIES;**347**;Jun 20, 1997;Build 2

 ;

 ; BMES^XPDUTL     ICR # 10141

 ; FIND1^DIC       ICR # 2051

 Q

 ;

POST ;

 N DATA,TITLE,X

 ; install new parent document class

 S TITLE="CLINICAL CONTACT CENTER PROGRESS NOTES"

 S DATA=$$CRDD^TIUCRDD(TITLE,"DC",11,"PROGRESS NOTES")

 I '+DATA,$P(DATA,U,2)'["already exists" D BMES^XPDUTL($P(DATA,U,2)) Q

 D BMES^XPDUTL($S(+DATA:TITLE_" created successfully.",1:TITLE_" already exists in 8925.1."))

 ; install titles

 F X=1:1 S DATA=$P($T(TITLES+X),";;",2) Q:DATA=""  D

 . N RESULT S RESULT=$$CRDD^TIUCRDD($P(DATA,U),"DOC",11,TITLE,$P(DATA,U,2))

 . I '+RESULT D BMES^XPDUTL($P(RESULT,U,2)) Q

 . D BMES^XPDUTL($P(DATA,U)_" created successfully.")

 Q

 ;

LU(FILE,NAME,FLAGS,SCREEN,INDEXES) ;

 Q $$FIND1^DIC(FILE,"",$G(FLAGS),NAME,$G(INDEXES),$G(SCREEN))

 ;

TITLES ; local title^enterprise standard title

 ;;CCC: SCHEDULING ADMINISTRATION^ADMINISTRATIVE NOTE

 ;;CCC: PHARMACY I^PHARMACY NOTE

 ;;CCC: PHARMACY II^PHARMACY NOTE

 ;;CCC: CLINICAL TRIAGE^RN PROGRESS NOTE

 ;;CCC: VIRTUAL CLINIC VISITS^PHYSICIAN NOTE

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---TIU347P   1180     printed  Apr 09, 2024@21:41:45                                                                                                                                                                                                     Page 2

TIU347P   ;SPFO/AJB - Clinical Contact Center Titles ;Aug 04, 2021@09:40:28

 +1       ;;1.0;TEXT INTEGRATION UTILITIES;**347**;Jun 20, 1997;Build 2

 +2       ;

 +3       ; BMES^XPDUTL     ICR # 10141

 +4       ; FIND1^DIC       ICR # 2051

 +5        QUIT 

 +6       ;

POST      ;

 +1        NEW DATA,TITLE,X

 +2       ; install new parent document class

 +3        SET TITLE="CLINICAL CONTACT CENTER PROGRESS NOTES"

 +4        SET DATA=$$CRDD^TIUCRDD(TITLE,"DC",11,"PROGRESS NOTES")

 +5        IF '+DATA

               IF $PIECE(DATA,U,2)'["already exists"

                   DO BMES^XPDUTL($PIECE(DATA,U,2))

                   QUIT 

 +6        DO BMES^XPDUTL($SELECT(+DATA:TITLE_" created successfully.",1:TITLE_" already exists in 8925.1."))

 +7       ; install titles

 +8        FOR X=1:1

               SET DATA=$PIECE($TEXT(TITLES+X),";;",2)

               if DATA=""

                   QUIT 

               Begin DoDot:1

 +9                NEW RESULT

                   SET RESULT=$$CRDD^TIUCRDD($PIECE(DATA,U),"DOC",11,TITLE,$PIECE(DATA,U,2))

 +10               IF '+RESULT

                       DO BMES^XPDUTL($PIECE(RESULT,U,2))

                       QUIT 

 +11               DO BMES^XPDUTL($PIECE(DATA,U)_" created successfully.")

               End DoDot:1

 +12       QUIT 

 +13      ;

LU(FILE,NAME,FLAGS,SCREEN,INDEXES) ;

 +1        QUIT $$FIND1^DIC(FILE,"",$GET(FLAGS),NAME,$GET(INDEXES),$GET(SCREEN))

 +2       ;

TITLES    ; local title^enterprise standard title

 +1       ;;CCC: SCHEDULING ADMINISTRATION^ADMINISTRATIVE NOTE

 +2       ;;CCC: PHARMACY I^PHARMACY NOTE

 +3       ;;CCC: PHARMACY II^PHARMACY NOTE

 +4       ;;CCC: CLINICAL TRIAGE^RN PROGRESS NOTE

 +5       ;;CCC: VIRTUAL CLINIC VISITS^PHYSICIAN NOTE

 +6        QUIT