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 ---[H[J[2J[HTIU347P 1180 printed Nov 22, 2024@17:48:37 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
