- DIFMEDT1 ;O-OIFO/BI - FM23 Extensible Data Types ;27-Oct-2015
- ;;22.2;VA FileMan;**2,10**;Jan 05, 2016;Build 11
- ;;Per VA Directive 6402, this routine should not be modified.
- 0 ;
- S DIC="^DOPT(""DIFMEDT"","
- G OPT:$D(^DOPT("DIFMEDT",3)) S ^(0)="EXTENSIBLE DATA TYPE OPTIONS^1.01" K ^("B")
- F X=1:1:3 S ^DOPT("DIFMEDT",X,0)=$P($T(@X),";;",2)
- S DIK=DIC D IXALL^DIK
- OPT ;
- S DIC(0)="AEQIZ" D ^DIC G Q:Y<0 S DI=+Y D EN G 0
- ;
- EN ;Entry point for all options
- D @DI W !!
- Q K %,DI,DIC,DIK,X,Y Q
- ;
- 1 ;;ENTER OR EDIT DATA TYPE FILE
- G ENP81^DIFMEDT1
- ;
- 2 ;;ENTER OR EDIT DATA TYPE METHOD FILE
- G ENP87^DIFMEDT1
- ;
- 3 ;;ENTER OR EDIT DATA TYPE PROPERTY FILE
- G ENP86^DIFMEDT1
- ;
- ;
- ENP81 ; Entry Point to Enter or Edit DATA TYPE FILE (#.81)
- D MAIN(.81) Q
- ;
- ENP86 ; Entry Point to Enter or Edit DATA TYPE PROPERTY FILE (#.86)
- D MAIN(.86) Q
- ;
- ENP87 ; Entry Point to Enter or Edit DATA TYPE METHOD FILE (#.87)
- D MAIN(.87) Q
- ;
- MAIN(FILE) ; Private Entry Point
- N DIC,DIR,SCREEN,Y
- S SCREEN=0
- ;
- ; Ask about using Screen-Mode
- S DIR(0)="Y"
- S DIR("A")="Do you want to use the screen-mode version"
- S DIR("B")="YES"
- D ^DIR
- S:Y>0 SCREEN=1
- ;
- SELECT ; Private Loop for user input
- ; Select Prompt
- S DIC="^DI("_FILE_",",DIC(0)="AELMQ" D ^DIC
- ;
- ; Exit if nothing is selected
- Q:Y<1
- ;
- ; Use Screen-Mode
- D:SCREEN
- . N DIC,DIE,DR,DA,DDSPARM,DDSFILE,DDSPAGE
- . S DA=+Y,DDSFILE=FILE,DR="[DIP"_$P(FILE,".",2)_"S]",DDSPAGE=1
- . D ^DDS
- ;
- ; Use Roll-And-Scroll Mode
- D:'SCREEN
- . S DIE="^DI("_FILE_",",DA=+Y,DR="[DIP"_$P(FILE,".",2)_"IT]" D ^DIE
- . W !!
- G SELECT
- Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDIFMEDT1 1621 printed Mar 13, 2025@21:52:40 Page 2
- DIFMEDT1 ;O-OIFO/BI - FM23 Extensible Data Types ;27-Oct-2015
- +1 ;;22.2;VA FileMan;**2,10**;Jan 05, 2016;Build 11
- +2 ;;Per VA Directive 6402, this routine should not be modified.
- 0 ;
- +1 SET DIC="^DOPT(""DIFMEDT"","
- +2 if $DATA(^DOPT("DIFMEDT",3))
- GOTO OPT
- SET ^(0)="EXTENSIBLE DATA TYPE OPTIONS^1.01"
- KILL ^("B")
- +3 FOR X=1:1:3
- SET ^DOPT("DIFMEDT",X,0)=$PIECE($TEXT(@X),";;",2)
- +4 SET DIK=DIC
- DO IXALL^DIK
- OPT ;
- +1 SET DIC(0)="AEQIZ"
- DO ^DIC
- if Y<0
- GOTO Q
- SET DI=+Y
- DO EN
- GOTO 0
- +2 ;
- EN ;Entry point for all options
- +1 DO @DI
- WRITE !!
- Q KILL %,DI,DIC,DIK,X,Y
- QUIT
- +1 ;
- 1 ;;ENTER OR EDIT DATA TYPE FILE
- +1 GOTO ENP81^DIFMEDT1
- +2 ;
- 2 ;;ENTER OR EDIT DATA TYPE METHOD FILE
- +1 GOTO ENP87^DIFMEDT1
- +2 ;
- 3 ;;ENTER OR EDIT DATA TYPE PROPERTY FILE
- +1 GOTO ENP86^DIFMEDT1
- +2 ;
- +3 ;
- ENP81 ; Entry Point to Enter or Edit DATA TYPE FILE (#.81)
- +1 DO MAIN(.81)
- QUIT
- +2 ;
- ENP86 ; Entry Point to Enter or Edit DATA TYPE PROPERTY FILE (#.86)
- +1 DO MAIN(.86)
- QUIT
- +2 ;
- ENP87 ; Entry Point to Enter or Edit DATA TYPE METHOD FILE (#.87)
- +1 DO MAIN(.87)
- QUIT
- +2 ;
- MAIN(FILE) ; Private Entry Point
- +1 NEW DIC,DIR,SCREEN,Y
- +2 SET SCREEN=0
- +3 ;
- +4 ; Ask about using Screen-Mode
- +5 SET DIR(0)="Y"
- +6 SET DIR("A")="Do you want to use the screen-mode version"
- +7 SET DIR("B")="YES"
- +8 DO ^DIR
- +9 if Y>0
- SET SCREEN=1
- +10 ;
- SELECT ; Private Loop for user input
- +1 ; Select Prompt
- +2 SET DIC="^DI("_FILE_","
- SET DIC(0)="AELMQ"
- DO ^DIC
- +3 ;
- +4 ; Exit if nothing is selected
- +5 if Y<1
- QUIT
- +6 ;
- +7 ; Use Screen-Mode
- +8 if SCREEN
- Begin DoDot:1
- +9 NEW DIC,DIE,DR,DA,DDSPARM,DDSFILE,DDSPAGE
- +10 SET DA=+Y
- SET DDSFILE=FILE
- SET DR="[DIP"_$PIECE(FILE,".",2)_"S]"
- SET DDSPAGE=1
- +11 DO ^DDS
- End DoDot:1
- +12 ;
- +13 ; Use Roll-And-Scroll Mode
- +14 if 'SCREEN
- Begin DoDot:1
- +15 SET DIE="^DI("_FILE_","
- SET DA=+Y
- SET DR="[DIP"_$PIECE(FILE,".",2)_"IT]"
- DO ^DIE
- +16 WRITE !!
- End DoDot:1
- +17 GOTO SELECT
- +18 QUIT
