source: FOIAVistA/trunk/r/CONTROLLED_SUBSTANCES-PSD/PSDHLP.m@ 812

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

initial load of FOIAVistA 6/30/08 version

File size: 964 bytes
Line 
1PSDHLP ;BIR/LTL-HL7 inteface setup for logical links on protocols ; 21 Feb 95
2 ;;3.0; CONTROLLED SUBSTANCES ;;13 Feb 97
3NONK ;non-kids type call by ^PSDHL7 & ^PSDHLX
4 W !!,"Updating Clients with your selected logical link:",!!
5 I $G(PSD(3)) D Q
6 .S DIC="^ORD(101,",DIC(0)="ML",DLAYGO=101
7 .F PSD(4)=1:1:3 S X="PSD"_PSD(3)_" A0"_PSD(4)_" CLIENT" D ^DIC W $P(Y,U,2),!! M ^ORD(101,+Y)=^ORD(101,+$O(^ORD(101,"B","PSD A0"_PSD(4)_" CLIENT",0))) S $P(^ORD(101,+Y,0),U)=X,DIK=DIC,(DA,PSD(5))=+Y D IX1^DIK D
8 ..S DA=PSD(5),DIE=DIC,DR="770.7////"_$G(PSDL) D ^DIE
9 .K DIC,DLAYGO,DIK,DA,DR,DIE
10 N DIE,DA,DR,PSD S PSD="PSD",DIE="^ORD(101,"
11 F S PSD=$O(^ORD(101,"B",PSD)) Q:PSD']""!($E(PSD,1,3)'="PSD") D:PSD["C"
12 .S DR="770.7////"_$G(PSDL)
13 .W PSD,!! S DA=$O(^ORD(101,"B",PSD,0)) D ^DIE
14DG ;S DIR(0)="Y",DIR("A")="Would you like to add the PSD PAT ADT Protocol to the DGPM Event Driver now",DIR("?")="^N XQH S XQH =""PSD HL7 ADT"" D EN^XQH"
15 ;D ^DIR K DIR D:Y=1 ^PSDONIT
16 Q
Note: See TracBrowser for help on using the repository browser.