- DICATTD7 ;SFISC/GFT-POINTERS ;03:29 PM 15 Dec 1998
- ;;22.2;VA FileMan;;Jan 05, 2016;Build 42
- ;;Per VA Directive 6402, this routine should not be modified.
- ;;Submitted to OSEHRA 5 January 2015 by the VISTA Expertise Network.
- ;;Based on Medsphere Systems Corporation's MSC FileMan 1051.
- ;;Licensed under the terms of the Apache License, Version 2.0.
- ;
- POST7 ;
- N F
- S F=$$G(84)
- S DICATTMN=$G(^DD(DICATTA,DICATTF,3))
- S DICATT2N="P",DICATT5N="Q",DICATTLN=9,DICATT2N="P"_F_$E("'",'$$G(85))
- I F,$D(^DIC(F,0,"GL")) S DICATT3N=$P(^("GL"),U,2)
- BRANCH I '$D(DICATTSC),DUZ(0)="@" S DICATTSC=7,DDSBR="65^DICATT SCREEN^6" Q
- D SCREEN^DICATTD3
- I $G(DICATT5N(12.1))]"" S DICATT5N=DICATT5N(12.1)_" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X"
- Q
- ;
- G(I) Q $$GET^DDSVALF(I,"DICATT7",2.7,"I","")
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDICATTD7 803 printed Mar 13, 2025@21:50:28 Page 2
- DICATTD7 ;SFISC/GFT-POINTERS ;03:29 PM 15 Dec 1998
- +1 ;;22.2;VA FileMan;;Jan 05, 2016;Build 42
- +2 ;;Per VA Directive 6402, this routine should not be modified.
- +3 ;;Submitted to OSEHRA 5 January 2015 by the VISTA Expertise Network.
- +4 ;;Based on Medsphere Systems Corporation's MSC FileMan 1051.
- +5 ;;Licensed under the terms of the Apache License, Version 2.0.
- +6 ;
- POST7 ;
- +1 NEW F
- +2 SET F=$$G(84)
- +3 SET DICATTMN=$GET(^DD(DICATTA,DICATTF,3))
- +4 SET DICATT2N="P"
- SET DICATT5N="Q"
- SET DICATTLN=9
- SET DICATT2N="P"_F_$EXTRACT("'",'$$G(85))
- +5 IF F
- IF $DATA(^DIC(F,0,"GL"))
- SET DICATT3N=$PIECE(^("GL"),U,2)
- BRANCH IF '$DATA(DICATTSC)
- IF DUZ(0)="@"
- SET DICATTSC=7
- SET DDSBR="65^DICATT SCREEN^6"
- QUIT
- +1 DO SCREEN^DICATTD3
- +2 IF $GET(DICATT5N(12.1))]""
- SET DICATT5N=DICATT5N(12.1)_" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X"
- +3 QUIT
- +4 ;
- G(I) QUIT $$GET^DDSVALF(I,"DICATT7",2.7,"I","")
