source: FOIAVistA/trunk/r/CONTROLLED_SUBSTANCES-PSD/PSDTER1.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: 1.2 KB
Line 
1PSDTER1 ;BIR/LTL-Barcode Terminal Type/Device Loader (cont'd) ; 26 Nov 93
2 ;;3.0; CONTROLLED SUBSTANCES ;;13 Feb 97
3 ;An IRM utility to stuff barcoding
4 ;data into fields in the DEVICE & TERMINAL TYPE files.
5TRAK ;Trakker update
6 D G:'$G(PSDALL) BEG^PSDTER Q
7 .I $G(PSDALL) D Q:Y<1
8 ..S DIC="^%ZIS(2,",DIC(0)="L",DLAYGO=3.2,X="C-VT420 (9440)"
9 ..D ^DIC K DIC Q:Y<1 S PSDTERM=$P(Y,U,2),PSDTERM(1)=+Y
10 ..I '$P(Y,U,3) S DIC="^%ZIS(2,",DA=+Y W !,"Current settings:",! D EN^DIQ
11 ..S DIR(0)="Y",DIR("A",1)=PSDTERM(4),DIR("?")=PSDTERM(6),DIR("B")="No"
12 ..S DIR("A")="into the "_PSDTERM_" Terminal Type" W ! D ^DIR K DIR
13 .S DIE="^%ZIS(2,",DA=PSDTERM(1)
14 .W !!,"Updating ",PSDTERM,"."
15 .S DR="1////80;2////#;3////9999;6////W $C(0);99////TRAKKER 9440 TO AUX PORT OF VT420;110////W $C(27)_""[5i"";111////W $C(27)_""[4i"""
16 .D ^DIE K DIE,DA,DR
17 .S DIR(0)="Y",DIR("A")=PSDTERM(2),DIR("B")="No",DIR("?")=PSDTERM(3)
18 .W ! D ^DIR K DIR Q:Y<1
19 .S DIC="^%ZIS(1,",DIC(0)="AEMQL",DLAYGO=3.5,DIC("B")="TRAKKERSL"
20 .W ! D ^DIC K DIC Q:Y<1 S DIE="^%ZIS(1,",DA=+Y
21 .S DR=".02//SLAVED 9440 FROM VT420 AUX PORT;1////0;2///TERMINAL;3////^S X=PSDTERM(1);9////80;10////#;11////9999;12////$C(8)" D ^DIE
Note: See TracBrowser for help on using the repository browser.