ACRFTRIG.m

ACRFTRIG ;IHS/PHXAO/AEF - TRIGGER LOGIC FOR ARMS FIELDS [ 02/23/2005  4:24 PM ]

 ;;2.1;ADMIN RESOURCE MGT SYSTEM;**16**;DEC 17, 2004

 ; **** NEW ROUTINE AS OF ACR*2.1*16.12 IM15665

 ;THIS ROUTINE CONTAINS TRIGGER LOGIC FOR VARIOUS ARMS

 ;FIELDS

 ;

ORN17(D0)          ;EP

 ;----- TRIGGER FOR ORIGINAL REQUEST NUMBER FIELD #17 OF

 ;      THE FMS DOCUMENT FILE TO ENTER A NEW EXPANDED

 ;      DOCUMENT NUMBER INTO THE EXPANDED DOCUMENT NUMBER

 ;      FIELD #.011 OF THE FMS DOCUMENT FILE WHENEVER

 ;      THE DOCUMENT NUMBER IS CHANGED

 ;

 ;      INPUT: 

 ;      X  =  DOCUMENT IEN

 ;

 ;      OUTPUT:

 ;      Y  =  EXPANDED DOCUMENT NUMBER

 ;

 N (D0)

 D ^XBKVAR

 N DA,DIE,DR,X,Y

 S Y=$P($G(^ACRDOC(D0,"X")),U)

 I D0 D

 . S DA=D0

 . S DIE="^ACRDOC("

 . S DR=".011///^S X=""@"""

 . D ^DIE

 . ;

 . S Y=$$EXPDN^ACRFUTL(D0)

 Q Y

ACRFTRIG  ;IHS/PHXAO/AEF - TRIGGER LOGIC FOR ARMS FIELDS [ 02/23/2005  4:24 PM ]

 +1       ;;2.1;ADMIN RESOURCE MGT SYSTEM;**16**;DEC 17, 2004

 +2       ; **** NEW ROUTINE AS OF ACR*2.1*16.12 IM15665

 +3       ;THIS ROUTINE CONTAINS TRIGGER LOGIC FOR VARIOUS ARMS

 +4       ;FIELDS

 +5       ;

ORN17(D0) ;EP

 +1       ;----- TRIGGER FOR ORIGINAL REQUEST NUMBER FIELD #17 OF

 +2       ;      THE FMS DOCUMENT FILE TO ENTER A NEW EXPANDED

 +3       ;      DOCUMENT NUMBER INTO THE EXPANDED DOCUMENT NUMBER

 +4       ;      FIELD #.011 OF THE FMS DOCUMENT FILE WHENEVER

 +5       ;      THE DOCUMENT NUMBER IS CHANGED

 +6       ;

 +7       ;      INPUT: 

 +8       ;      X  =  DOCUMENT IEN

 +9       ;

 +10      ;      OUTPUT:

 +11      ;      Y  =  EXPANDED DOCUMENT NUMBER

 +12      ;

 +13       NEW (D0)

 +14       DO ^XBKVAR

 +15       NEW DA,DIE,DR,X,Y

 +16       SET Y=$PIECE($GET(^ACRDOC(D0,"X")),U)

 +17       IF D0

               Begin DoDot:1

 +18               SET DA=D0

 +19               SET DIE="^ACRDOC("

 +20               SET DR=".011///^S X=""@"""

 +21               DO ^DIE

 +22      ;

 +23               SET Y=$$EXPDN^ACRFUTL(D0)

               End DoDot:1

 +24       QUIT Y