Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping
Routine: FBCTV1

FBCTV1.m

Go to the documentation of this file.

FBCTV1 ; ;06/29/07

 S X=DE(15),DIC=DIE

 K ^FBAAV("NPI",$E(X,1,30),DA)

 S X=DE(15),DIC=DIE

 K ^FBAAV("NPIHISTORY",$E(X,1,30),DA)

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HFBCTV1   133     printed  Dec 13, 2024@01:58:13                                                                                                                                                                                                       Page 2

FBCTV1    ; ;06/29/07

 +1        SET X=DE(15)

           SET DIC=DIE

 +2        KILL ^FBAAV("NPI",$EXTRACT(X,1,30),DA)

 +3        SET X=DE(15)

           SET DIC=DIE

 +4        KILL ^FBAAV("NPIHISTORY",$EXTRACT(X,1,30),DA)