source: FOIAVistA/trunk/r/INTEGRATED_BILLING-IB-PRQ--IBD--IBQ--PRQS/IB20PT2.m@ 1327

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

initial load of FOIAVistA 6/30/08 version

File size: 2.8 KB
Line 
1IB20PT2 ;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 ;
12MAKEPKG ; 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
60MAKEFORM ;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 ;
69FORM ;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
Note: See TracBrowser for help on using the repository browser.