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 Nov 22, 2024@17:55:39 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","")
