source: FOIAVistA/trunk/r/CONTROLLED_SUBSTANCES-PSD/PSDHLK.m@ 1757

Last change on this file since 1757 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 863 bytes
Line 
1PSDHLK ;BIR/LTL-HL7 inteface for Control Subs invoked by post init ; 21 Feb 95
2 ;;3.0; CONTROLLED SUBSTANCES ;;13 Feb 97
3CHECK ;check for Narcotic Dispensing Equipment System/HL7 interface
4 N DA,DIC,DIE,DLAYGO,DR,PSD,PSDC,PSDN,X,Y
5 D:XPDQUES("POS1")=1 G:XPDQUES("POS1")'=1 END
6 .D MES^XPDUTL(" Updating FACILITY NAME for PSD-CS entry in file #771.")
7 .S DIC="^DIC(4,",DR=99,DA=+$P($G(^XMB(1,1,"XUS")),U,17),DIQ="PSD"
8 .D EN^DIQ1 S PSD=PSD(4,DA,99) K DIC,DR,DIQ,DA
9 .S DIE="^HL(771,",DA=$O(^HL(771,"B","PSD-CS",0))
10 .S DR="3////"_PSD
11 .D ^DIE K DIE,DR,DA,PSD
12PROTO ;Picked HLLP or X3.28 protocol
13 G:XPDQUES("POS2")="X" ^PSDHLY
14HLLP D:XPDQUES("POS2")="H"
15 .S DIE="^HLCS(869.2,",DA=$O(^HLCS(869.2,"B","PSD-NDES HLLP",0))
16 .D MES^XPDUTL(" Updating DEVICE for PSD-NDES HLLP entry in file #869.2.")
17 .S DR="200.01////"_+$G(XPDQUES("POS4")) D ^DIE
18 K DA,DIE,DR
19END Q
Note: See TracBrowser for help on using the repository browser.