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

PSN193P.m

Go to the documentation of this file.

PSN193P ;;BIR/RMS - CREATE NEW VA DRUG CLASS CROSS-REFERENCE ; 5/7/09 9:28am

 ;;4.0; NATIONAL DRUG FILE;**193**; 30 Oct 98;Build 4

EN N DIK

 S DIK="^PS(50.605," ;VA DRUG CLASS FILE (#50.605)

 S DIK(1)=2 ;PARENT CLASS FIELD (#2)

 D ENALL^DIK ;THIS CALL WILL CREATE (SET ONLY) THE "AC" X-REF

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPSN193P   300     printed  Apr 09, 2024@21:25:12                                                                                                                                                                                                      Page 2

PSN193P   ;;BIR/RMS - CREATE NEW VA DRUG CLASS CROSS-REFERENCE ; 5/7/09 9:28am

 +1       ;;4.0; NATIONAL DRUG FILE;**193**; 30 Oct 98;Build 4

EN         NEW DIK

 +1       ;VA DRUG CLASS FILE (#50.605)

           SET DIK="^PS(50.605,"

 +2       ;PARENT CLASS FIELD (#2)

           SET DIK(1)=2

 +3       ;THIS CALL WILL CREATE (SET ONLY) THE "AC" X-REF

           DO ENALL^DIK

 +4        QUIT