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

FBCTV2.m

Go to the documentation of this file.

FBCTV2 ; ;06/29/07

 S X=DG(DQ),DIC=DIE

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

 S X=DG(DQ),DIC=DIE

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

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

FBCTV2    ; ;06/29/07

 +1        SET X=DG(DQ)

           SET DIC=DIE

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

 +3        SET X=DG(DQ)

           SET DIC=DIE

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