AZHLSC3.m

AZHLSC3 ; IHS/ADC/GTH:KEU:JN - SAC CHAPTER 3: INTERFACE PROGRAMMING STANDARDS & CONVENTIONS ;  [ 06/05/1998  7:20 AM ]

 ;;5.0;AZHLSC;;JUL 10, 1996

 ;

 W !!!,$P($P($T(+1),";",2),"-",2),!! D TTL^AZHLSC("3.1.3  (5.4)   Help")

 I 'AZHLPIEN D NPKG^AZHLSC Q

 W !,"NOTE: Any following are violations ONLY if DIE is used to edit the fields."

 S %="",$P(%,"-",60)=""

 W !?7,"H = No 'HELP'-PROMPT and no XECUTABLE 'HELP' (?)"

 ; ,!?7,"D = No field DESCRIPTION (??)"

 W !?10,"File",?30,"Field",?50,"Code",!?10,$E(%,1,18),?30,$E(%,1,18),?50,$E(%,1,4)

 NEW F,I

 ;

 S I=0

 F  S I=$O(^DIC(9.4,AZHLPIEN,4,"B",I)) Q:'I  D DD1

 Q

DD1 S F=0

 F  S F=$O(^DD(I,F)) Q:'F  S %=$P(^(F,0),U,2) D

 .I +% D  Q

 ..NEW F,I S I=+% D DD1

 ..Q

 .Q:(%["C")!(%["I")!(%["K")!(%["P")!(%["V")!(%["W")!(%["S")!(%["D")

 .S %="" I '$L($G(^DD(I,F,3))),'$L($G(^(4))) S %="H"

 . ; I '$P($G(^DD(I,F,21,0)),U,3) S %=%_"D"

 . ; Above line checks DESCRIPTION.

 .Q:'$L(%)

 .W !?10,I,?30,F,?50,%

 .Q

 Q

 ;

 ; 2nd piece of 0th node contains:

 ;     C = Computed

 ;     I = Uneditable

 ;     K = MUMPS code

 ;     P = Pointer

 ;     V = Variable Pointer

 ;     W = Word processing

 ;     S = Set of Codes

 ;     D = Date

AZHLSC3   ; IHS/ADC/GTH:KEU:JN - SAC CHAPTER 3: INTERFACE PROGRAMMING STANDARDS & CONVENTIONS ;  [ 06/05/1998  7:20 AM ]

 +1       ;;5.0;AZHLSC;;JUL 10, 1996

 +2       ;

 +3        WRITE !!!,$PIECE($PIECE($TEXT(+1),";",2),"-",2),!!

           DO TTL^AZHLSC("3.1.3  (5.4)   Help")

 +4        IF 'AZHLPIEN

               DO NPKG^AZHLSC

               QUIT 

 +5        WRITE !,"NOTE: Any following are violations ONLY if DIE is used to edit the fields."

 +6        SET %=""

           SET $PIECE(%,"-",60)=""

 +7        WRITE !?7,"H = No 'HELP'-PROMPT and no XECUTABLE 'HELP' (?)"

 +8       ; ,!?7,"D = No field DESCRIPTION (??)"

 +9        WRITE !?10,"File",?30,"Field",?50,"Code",!?10,$EXTRACT(%,1,18),?30,$EXTRACT(%,1,18),?50,$EXTRACT(%,1,4)

 +10       NEW F,I

 +11      ;

 +12       SET I=0

 +13       FOR 

               SET I=$ORDER(^DIC(9.4,AZHLPIEN,4,"B",I))

               IF 'I

                   QUIT 

               DO DD1

 +14       QUIT 

DD1        SET F=0

 +1        FOR 

               SET F=$ORDER(^DD(I,F))

               IF 'F

                   QUIT 

               SET %=$PIECE(^(F,0),U,2)

               Begin DoDot:1

 +2                IF +%

                       Begin DoDot:2

 +3                        NEW F,I

                           SET I=+%

                           DO DD1

 +4                        QUIT 

                       End DoDot:2

                       QUIT 

 +5                IF (%["C")!(%["I")!(%["K")!(%["P")!(%["V")!(%["W")!(%["S")!(%["D")

                       QUIT 

 +6                SET %=""

                   IF '$LENGTH($GET(^DD(I,F,3)))

                       IF '$LENGTH($GET(^(4)))

                           SET %="H"

 +7       ; I '$P($G(^DD(I,F,21,0)),U,3) S %=%_"D"

 +8       ; Above line checks DESCRIPTION.

 +9                IF '$LENGTH(%)

                       QUIT 

 +10               WRITE !?10,I,?30,F,?50,%

 +11               QUIT 

               End DoDot:1

 +12       QUIT 

 +13      ;

 +14      ; 2nd piece of 0th node contains:

 +15      ;     C = Computed

 +16      ;     I = Uneditable

 +17      ;     K = MUMPS code

 +18      ;     P = Pointer

 +19      ;     V = Variable Pointer

 +20      ;     W = Word processing

 +21      ;     S = Set of Codes

 +22      ;     D = Date