PXRMDLED.m

PXRMDLED ;SLC/AGP - DIALOG UTILITIES. ;08/04/2020

 ;;2.0;CLINICAL REMINDERS;**45,71**;Feb 04, 2005;Build 43

 Q

 ;

DICPROMPT(RESULT,GBL,ZERO,PROMPT,SCREEN,NUM) ;

 S DIC=GBL

 S DIC(0)=ZERO

 S DIC("A")=PROMPT

 ;Current dialog type only

 I SCREEN'="" S DIC("S")=SCREEN

 S DIC("??")=U_"D HELP^PXRMDLED("_NUM_")"

 W !

 D ^DIC

 I $D(DIROUT) S DTOUT=1

 I $D(DTOUT)!($D(DUOUT)) Q

 S RESULT=Y

 Q

 ;

DIRPROMPT(RESULT,ZERO,PROMPT,NUM) ;

 S DIR(0)=ZERO

 S DIR("A")=PROMPT

 S DIR("?")=$S(NUM=2:"Enter the name of the template to create.",1:"Enter Y or N. For detailed help type ??")

 S DIR("??")=U_"D HELP^PXRMDLED("_NUM_")"

 W !

 D ^DIR K DIR

 I $D(DIROUT) S DTOUT=1

 I $D(DTOUT)!($D(DUOUT)) Q

 S RESULT=Y

 Q

 ;

EN ;

 N DIEN,DIC,DIR,DNAME,DR,DIROUT,DIRUT,DTOUT,DUOUT,TEMPNAME,TIEN,TNAME,VALUE,X,Y

FINDDIAL ;find dialog name #801.41

 D DICPROMPT(.VALUE,"^PXRMD(801.41,","AEMQ","Select Dialog Definition: ","I $P(^(0),U,4)=""R""",1)

 Q:$D(DTOUT)!($D(DUOUT))

 I +VALUE=-1 Q

 S DIEN=+VALUE

 S DNAME=$P(VALUE,U,2)

 ;

TNAME ;user supply template name #8927.1

 D DIRPROMPT(.TEMPNAME,"F^3:60","Enter template name",2)

 Q:$D(DTOUT)&($D(DUOUT))  G:$D(DUOUT) FINDDIAL

 ;

ATTACH ;attach to a note title

 K VALUE

 D DIRPROMPT(.VALUE,"Y","Link template to Document Title",3)

 Q:$D(DTOUT)&($D(DUOUT))  G:$D(DUOUT) TNAME

 I VALUE=0 D LINK(DNAME,"",TEMPNAME,1) Q

 ;

DOC ;find note title 8927.1

 K VALUE

 D DICPROMPT(.VALUE,"^TIU(8925.1,","AEMQ","Select Document Definition: ","I $P(^(0),U,4)=""DOC""",4)

 Q:$D(DTOUT)&($D(DUOUT))  G:$D(DUOUT) ATTACH

 I +VALUE=-1 G ATTACH

 S TIEN=+VALUE

 S TNAME=$P(VALUE,U,2)

 I $D(^TIU(8927,"AL",TIEN_";TIU(8925.1,")) D  G DOC

 .W !,TNAME_" has an existing template link to it."

 .W !,"Cannot link to this note title."

 D LINK(DNAME,TNAME,TEMPNAME,0)

 Q

 ;

 ;link dialog to template and attach to a note title

LINK(DNAME,TITLE,TEMPNAME,TEMPONLY) ;

 D LINK2TIU^PXRMDUTL(DNAME,TITLE,TEMPNAME,TEMPONLY,"TIU(8925.1,")

 H 1

 Q

 ;

HELP(NUM) ; help prompts

 N HTEXT

 I NUM=1 D

 .S HTEXT(1)="Select the Reminder Dialog Definition to link to a Template."

 I NUM=2 D

 .S HTEXT(1)="Enter the template display name."

 I NUM=3 D

 .S HTEXT(1)="Select No to add the template to the Shared Folder only."

 .S HTEXT(2)="Select Yes to link the tempplate to a document title."

 I NUM=4 D

 .S HTEXT(1)="Select the document title to link the template to."

 D HELP^PXRMEUT(.HTEXT)

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---PXRMDLED   2446     printed  Mar 13, 2025@20:48:29                                                                                                                                                                                                    Page 2

PXRMDLED  ;SLC/AGP - DIALOG UTILITIES. ;08/04/2020

 +1       ;;2.0;CLINICAL REMINDERS;**45,71**;Feb 04, 2005;Build 43

 +2        QUIT 

 +3       ;

DICPROMPT(RESULT,GBL,ZERO,PROMPT,SCREEN,NUM) ;

 +1        SET DIC=GBL

 +2        SET DIC(0)=ZERO

 +3        SET DIC("A")=PROMPT

 +4       ;Current dialog type only

 +5        IF SCREEN'=""

               SET DIC("S")=SCREEN

 +6        SET DIC("??")=U_"D HELP^PXRMDLED("_NUM_")"

 +7        WRITE !

 +8        DO ^DIC

 +9        IF $DATA(DIROUT)

               SET DTOUT=1

 +10       IF $DATA(DTOUT)!($DATA(DUOUT))

               QUIT 

 +11       SET RESULT=Y

 +12       QUIT 

 +13      ;

DIRPROMPT(RESULT,ZERO,PROMPT,NUM) ;

 +1        SET DIR(0)=ZERO

 +2        SET DIR("A")=PROMPT

 +3        SET DIR("?")=$SELECT(NUM=2:"Enter the name of the template to create.",1:"Enter Y or N. For detailed help type ??")

 +4        SET DIR("??")=U_"D HELP^PXRMDLED("_NUM_")"

 +5        WRITE !

 +6        DO ^DIR

           KILL DIR

 +7        IF $DATA(DIROUT)

               SET DTOUT=1

 +8        IF $DATA(DTOUT)!($DATA(DUOUT))

               QUIT 

 +9        SET RESULT=Y

 +10       QUIT 

 +11      ;

EN        ;

 +1        NEW DIEN,DIC,DIR,DNAME,DR,DIROUT,DIRUT,DTOUT,DUOUT,TEMPNAME,TIEN,TNAME,VALUE,X,Y

FINDDIAL  ;find dialog name #801.41

 +1        DO DICPROMPT(.VALUE,"^PXRMD(801.41,","AEMQ","Select Dialog Definition: ","I $P(^(0),U,4)=""R""",1)

 +2        if $DATA(DTOUT)!($DATA(DUOUT))

               QUIT 

 +3        IF +VALUE=-1

               QUIT 

 +4        SET DIEN=+VALUE

 +5        SET DNAME=$PIECE(VALUE,U,2)

 +6       ;

TNAME     ;user supply template name #8927.1

 +1        DO DIRPROMPT(.TEMPNAME,"F^3:60","Enter template name",2)

 +2        if $DATA(DTOUT)&($DATA(DUOUT))

               QUIT 

           if $DATA(DUOUT)

               GOTO FINDDIAL

 +3       ;

ATTACH    ;attach to a note title

 +1        KILL VALUE

 +2        DO DIRPROMPT(.VALUE,"Y","Link template to Document Title",3)

 +3        if $DATA(DTOUT)&($DATA(DUOUT))

               QUIT 

           if $DATA(DUOUT)

               GOTO TNAME

 +4        IF VALUE=0

               DO LINK(DNAME,"",TEMPNAME,1)

               QUIT 

 +5       ;

DOC       ;find note title 8927.1

 +1        KILL VALUE

 +2        DO DICPROMPT(.VALUE,"^TIU(8925.1,","AEMQ","Select Document Definition: ","I $P(^(0),U,4)=""DOC""",4)

 +3        if $DATA(DTOUT)&($DATA(DUOUT))

               QUIT 

           if $DATA(DUOUT)

               GOTO ATTACH

 +4        IF +VALUE=-1

               GOTO ATTACH

 +5        SET TIEN=+VALUE

 +6        SET TNAME=$PIECE(VALUE,U,2)

 +7        IF $DATA(^TIU(8927,"AL",TIEN_";TIU(8925.1,"))

               Begin DoDot:1

 +8                WRITE !,TNAME_" has an existing template link to it."

 +9                WRITE !,"Cannot link to this note title."

               End DoDot:1

               GOTO DOC

 +10       DO LINK(DNAME,TNAME,TEMPNAME,0)

 +11       QUIT 

 +12      ;

 +13      ;link dialog to template and attach to a note title

LINK(DNAME,TITLE,TEMPNAME,TEMPONLY) ;

 +1        DO LINK2TIU^PXRMDUTL(DNAME,TITLE,TEMPNAME,TEMPONLY,"TIU(8925.1,")

 +2        HANG 1

 +3        QUIT 

 +4       ;

HELP(NUM) ; help prompts

 +1        NEW HTEXT

 +2        IF NUM=1

               Begin DoDot:1

 +3                SET HTEXT(1)="Select the Reminder Dialog Definition to link to a Template."

               End DoDot:1

 +4        IF NUM=2

               Begin DoDot:1

 +5                SET HTEXT(1)="Enter the template display name."

               End DoDot:1

 +6        IF NUM=3

               Begin DoDot:1

 +7                SET HTEXT(1)="Select No to add the template to the Shared Folder only."

 +8                SET HTEXT(2)="Select Yes to link the tempplate to a document title."

               End DoDot:1

 +9        IF NUM=4

               Begin DoDot:1

 +10               SET HTEXT(1)="Select the document title to link the template to."

               End DoDot:1

 +11       DO HELP^PXRMEUT(.HTEXT)

 +12       QUIT