| 1 | ENCTUTL ;(WASH ISC)/RGY-Bar Code Task Handler ;1-19-93
|
|---|
| 2 | ;;7.0;ENGINEERING;;Aug 17, 1993
|
|---|
| 3 | ;Copy of PRCTUTL ;DH-WASH ISC
|
|---|
| 4 | PRO ;Enter/edit barcode program
|
|---|
| 5 | S DIC="^PRCT(446.4,",DIC(0)="QEAML" D ^DIC G:+Y<0 Q1 S DIE=DIC,DR="[ENCT PROGRAM ENTER/EDIT]",DA=+Y D ^DIE
|
|---|
| 6 | Q1 K DIC,DIE,DA,DR Q
|
|---|
| 7 | PARAM ;Edit barcode parameters
|
|---|
| 8 | S DIC="^PRCT(446.4,",DIC(0)="QEAM" D ^DIC G:+Y<0 Q2 S DIE=DIC,DR="[ENCT PARAMETER ENTER/EDIT]",DA=+Y D ^DIE
|
|---|
| 9 | Q2 K DIC,DIE,DA,DR Q
|
|---|
| 10 | DATA ;Enter/Edit/View barcode data
|
|---|
| 11 | S DIC="^PRCT(446.4,",DIC(0)="QEAM" D ^DIC G:+Y<0 Q3 S DIE=DIC,DR="[ENCT DATA ENTER/EDIT/VIEW]",DA=+Y D ^DIE
|
|---|
| 12 | Q3 K DIC,DIE,DA,DR Q
|
|---|
| 13 | IDENT ; Called by input transform for IDENTIFIER (446.4,.02)
|
|---|
| 14 | I $D(^PRCT(446.4,"C",X)),$O(^(X,""))'=DA S X=$O(^("")) W !,"This IDENTIFIER alread exists for ",$S($D(^PRCT(446.4,+X,0)):$P(^(0),"^"),1:X)," !" K X Q
|
|---|
| 15 | I '$D(^DIC(9.4,"C",$E(X,1,$L(X)-2))) W !,"The PACKAGE NAME SPACE '",$E(X,1,$L(X)-2),"' does not exist !" K X
|
|---|
| 16 | Q
|
|---|
| 17 | RTN ; Called by input transform for 446.4,.03 and 446.4,.04
|
|---|
| 18 | S:X'["-" X="-"_X I $D(^DD("OS"))#2,$D(^("OS",^DD("OS"),18)) S ENCT1=X,X=$P(ENCT1,"-",2) X ^(18) S X=ENCT1 K ENCT1 I '$T W " ... routine does not exist" K X
|
|---|
| 19 | Q
|
|---|
| 20 | PROG ; Called by the input transform for 446.52,1
|
|---|
| 21 | I $S('$D(DUZ)#2:1,'$D(^VA(200,DUZ,0)):1,1:0) K X W " ... Sorry, Your DUZ (user value) is not defined" Q
|
|---|
| 22 | I '$D(DUZ(0))#2 K X W " ... Sorry, your FileMan access is not defined" Q
|
|---|
| 23 | I DUZ(0)'="@" K X W " ... Sorry, only programmers can use this field" Q
|
|---|
| 24 | D ^DIM W:'$D(X) " ... MUMPS code has an error" Q
|
|---|
| 25 | INQ ;Call to inquire on FILEMAN report
|
|---|
| 26 | S DIC="^PRCT(446.5,",DIC(0)="QEAM",DR="0:2" D ^DIC G:Y<0 Q4 S DA=+Y D EN^DIQ G INQ
|
|---|
| 27 | Q4 K DIC,DA Q
|
|---|
