| 1 | IB20PT2 ;ALB/CJM - CREATE FILE ENTRIES NEEDED BY THE ENCOUNTER FORM UTILITIES ;AUG 20,1993
|
|---|
| 2 | ;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
|
|---|
| 3 | ;
|
|---|
| 4 | ; - make an entry in the PACKAGE file for the import/export utility
|
|---|
| 5 | D MAKEPKG
|
|---|
| 6 | ;
|
|---|
| 7 | ; - make two required entries in the ENCOUNTER FORM file (#357)
|
|---|
| 8 | D MAKEFORM
|
|---|
| 9 | Q
|
|---|
| 10 | ;
|
|---|
| 11 | ;
|
|---|
| 12 | MAKEPKG ; if the package entry for the import/export utility does not
|
|---|
| 13 | ; already exist this will create one
|
|---|
| 14 | ;
|
|---|
| 15 | N NAME,PKG
|
|---|
| 16 | S NAME="IB ENCOUNTER FORM IMP/EXP"
|
|---|
| 17 | Q:$O(^DIC(9.4,"B",NAME,0))
|
|---|
| 18 | ;
|
|---|
| 19 | W !!,">>> Creating a PACKAGE (#9.4) file entry for the Encounter Form",!?4,"Import/Export Utility... "
|
|---|
| 20 | ;
|
|---|
| 21 | K DIC,DD,D0,DINUM S DIC="^DIC(9.4,",DIC(0)="",X=NAME
|
|---|
| 22 | D FILE^DICN K DIC,DIE,DA S PKG=+Y
|
|---|
| 23 | I PKG<0 W "Unable to create entry -- please call your supporting ISC." Q
|
|---|
| 24 | ;
|
|---|
| 25 | ;hard code the record
|
|---|
| 26 | ;
|
|---|
| 27 | S ^DIC(9.4,PKG,0)="IB ENCOUNTER FORM IMP/EXP^IBDE^The import/export utilities for encounter forms."
|
|---|
| 28 | S ^DIC(9.4,PKG,4,0)="^9.44PA^10^10"
|
|---|
| 29 | S ^DIC(9.4,PKG,4,1,0)="358"
|
|---|
| 30 | S ^DIC(9.4,PKG,4,1,222)="y^n^^n^^^y^o^n"
|
|---|
| 31 | S ^DIC(9.4,PKG,4,2,0)="358.1"
|
|---|
| 32 | S ^DIC(9.4,PKG,4,2,222)="y^n^^n^^^y^o^n"
|
|---|
| 33 | S ^DIC(9.4,PKG,4,3,0)="358.2"
|
|---|
| 34 | S ^DIC(9.4,PKG,4,3,222)="y^n^^n^^^y^o^n"
|
|---|
| 35 | S ^DIC(9.4,PKG,4,4,0)="358.3"
|
|---|
| 36 | S ^DIC(9.4,PKG,4,4,222)="y^n^^n^^^y^o^n"
|
|---|
| 37 | S ^DIC(9.4,PKG,4,5,0)="358.4"
|
|---|
| 38 | S ^DIC(9.4,PKG,4,5,222)="y^n^^n^^^y^o^n"
|
|---|
| 39 | S ^DIC(9.4,PKG,4,6,0)="358.5"
|
|---|
| 40 | S ^DIC(9.4,PKG,4,6,222)="y^n^^n^^^y^o^n"
|
|---|
| 41 | S ^DIC(9.4,PKG,4,7,0)="358.6"
|
|---|
| 42 | S ^DIC(9.4,PKG,4,7,222)="y^n^^n^^^y^o^n"
|
|---|
| 43 | S ^DIC(9.4,PKG,4,8,0)="358.7"
|
|---|
| 44 | S ^DIC(9.4,PKG,4,8,222)="y^n^^n^^^y^o^n"
|
|---|
| 45 | S ^DIC(9.4,PKG,4,9,0)="358.8"
|
|---|
| 46 | S ^DIC(9.4,PKG,4,9,222)="y^n^^n^^^y^o^n"
|
|---|
| 47 | S ^DIC(9.4,PKG,4,10,0)="358.91"
|
|---|
| 48 | S ^DIC(9.4,PKG,4,10,222)="y^n^^n^^^y^o^n"
|
|---|
| 49 | S ^DIC(9.4,PKG,5)="ALBANY"
|
|---|
| 50 | S ^DIC(9.4,PKG,11)="358^358.1"
|
|---|
| 51 | S ^DIC(9.4,PKG,22,0)="^9.49I^1^1"
|
|---|
| 52 | S ^DIC(9.4,PKG,22,1,0)="2.0^2930818^2930820"
|
|---|
| 53 | S ^DIC(9.4,PKG,"VERSION")="2.0"
|
|---|
| 54 | ;
|
|---|
| 55 | ;now index the package entry
|
|---|
| 56 | ;
|
|---|
| 57 | K DIK,DA S DIK="^DIC(9.4,",DA=PKG D IX1^DIK K DIK,DA
|
|---|
| 58 | W "done."
|
|---|
| 59 | Q
|
|---|
| 60 | MAKEFORM ;creates two required tool kit forms - GARBAGE, and TOOL KIT
|
|---|
| 61 | ;
|
|---|
| 62 | N NAME,NODE
|
|---|
| 63 | S NAME="TOOL KIT",NODE="TOOL KIT^^Contains all of the tool kit blocks.^0^^^1^^132^80^4"
|
|---|
| 64 | D FORM
|
|---|
| 65 | S NAME="GARBAGE",NODE="GARBAGE^^Used as temporary storage for blocks while they are being edited.^0^^^1^^132^200^5"
|
|---|
| 66 | D FORM
|
|---|
| 67 | Q
|
|---|
| 68 | ;
|
|---|
| 69 | FORM ;create the form - NAME and NODE should be defined
|
|---|
| 70 | N FORM
|
|---|
| 71 | ;if the form already exists, don't create another
|
|---|
| 72 | Q:$O(^IBE(357,"B",NAME,0))
|
|---|
| 73 | W !!,">>> Creating an entry in the ENCOUNTER FORM file (#357) required by the",!?4,"Encounter Form Utilities... "
|
|---|
| 74 | K DIC,DD,DO,DINUM S DIC="^IBE(357,",X=NAME,DIC(0)=""
|
|---|
| 75 | D FILE^DICN K DIC,DIE S FORM=+Y
|
|---|
| 76 | I FORM<0 W "Unable to create entry -- please call your supporting ISC." Q
|
|---|
| 77 | ;
|
|---|
| 78 | ;copy old 0 node into the new form
|
|---|
| 79 | S ^IBE(357,FORM,0)=NODE
|
|---|
| 80 | ;
|
|---|
| 81 | ;now index it
|
|---|
| 82 | K DIK,DA S DA=FORM,DIK="^IBE(357," D IX1^DIK K DIK,DA
|
|---|
| 83 | W "done"
|
|---|
| 84 | Q
|
|---|
