source: WorldVistAEHR/trunk/r/REGISTRATION-DGQE-DG-DPT-GRPX-VAD-VAF-VAS-VAT-VAU--VA-VIC--DGBT--DGJ--DGYA--VALM/VAFHPOST.m@ 724

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

initial load of WorldVistAEHR

File size: 3.6 KB
Line 
1VAFHPOST ;ALB/JRP,PKE - VAFH POST INIT DRIVER;04-JUN-1996
2 ;;5.3;Registration;**91**;AUG 14, 1993
3 ;
4CHKPTS ;Create check points for post-init
5 ;Input : All variables set by KIDS
6 ;Output : None
7 ;
8 ;Declare variables
9 N TMP,X,Y,%,%H
10 ;Create check points
11 ;
12 ;Fix server protocol
13 ;;;S TMP=$$NEWCP^XPDUTL("VAFH01","FIXSRVR^VAFHPST1") KIDS CANDO
14 ;Fix client protocol
15 ;;;S TMP=$$NEWCP^XPDUTL("VAFH02","FIXCLNT^VAFHPST1") KIDS CANDO
16 ;
17 ;Set Faciltiy name in VAFH,C PIMS, HL7 APPLICATION - File #771
18 S TMP=$$NEWCP^XPDUTL("VAFH02","FACILITY^VAFHPST1")
19 ;Set PIVOT
20 S TMP=$$NEWCP^XPDUTL("VAFH03","PARA^VAFHPST1")
21 ;Recompile templates
22 S TMP=$$NEWCP^XPDUTL("VAFH04","COMPILE^VAFHPST1")
23 ;Disable old philly application
24 S TMP=$$NEWCP^XPDUTL("VAFH05","DISABLE^VAFHPST1")
25 ;Done
26 Q
27 ;setup fields not available in HL7 toolkit.
28SETUP W !?3
29 W "For VAFH entries........"
30 W !!?3
31 W "You may change NAME of the VAFHL7 TEMPLATE entry"
32 W !?3
33 W "in the HL7 APPLICATION file to the NAME of the Receiving Application,"
34 W !!?3
35 W "and the NAME of the VAFH-SEND entry in the HL LOWER LEVEL PROTOCOL PARAMETER "
36 W !?3
37 W "file #869.2,"
38 W !!?3
39 W "and the NAME of the VAFH-SEND entry in the HL LOGICAL LINK file #870."
40 W !
41 ;
42 W !!?3,"Editing HL7 APPLICATION File #771"
43 S (DIC,DIE)="^HL(771,",DIC("B")="VAFHL7 TEMPLATE",DIC(0)="QEAM" D ^DIC
44 I Y<0 Q
45 S DA=+Y,DR=".01//" D ^DIE
46 ;
47 W !!?3,"Editing HL LOWER LEVEL PROTOCOL PARAMETER File #869.2"
48 S (DIC,DIE)="^HLCS(869.2,",DIC("B")="VAFH-SEND",DIC(0)="QEAM" D ^DIC
49 I Y<0 Q
50 S DA=+Y,DR=".01//" D ^DIE
51 ;
52 W !!?3,"Editing HL LOGICAL LINK File #870"
53 S (DIC,DIE)="^HLCS(870,",DIC("B")="VAFH-SEND",DIC(0)="QEAM" D ^DIC
54 I Y<0 Q
55 S DA=+Y,DR=".01//" D ^DIE
56 ;
57 W !!?3,"ok..."
58 W !
59KILL K D0,DIC,DIE,DA,DR,DTOUT,DUOUT,DISYS,%
60 Q
61 ;setup fields not available in HL7 toolkit.
62SETUP23 W !?3
63 W "For VAFC entries........"
64 W !!?3
65 W "You may change NAME of the VAFCHL7TEMPLATE entry"
66 W !?3
67 W "in the HL7 APPLICATION file to the NAME of the Receiving Application,"
68 W !!?3
69 W "and the NAME of the VAFC-SEND entry in the HL LOWER LEVEL PROTOCOL PARAMETER "
70 W !?3
71 W "file #869.2,"
72 W !!?3
73 W "and the NAME of the VAFC-SEND entry in the HL LOGICAL LINK file #870."
74 W !
75 ;
76 W !!?3,"Editing HL7 APPLICATION File #771"
77 S (DIC,DIE)="^HL(771,",DIC("B")="VAFCHL7TEMPLATE",DIC(0)="QEAM" D ^DIC
78 I Y<0 Q
79 S DA=+Y,DR=".01//" D ^DIE
80 ;
81 W !!?3,"Editing HL LOWER LEVEL PROTOCOL PARAMETER File #869.2"
82 S (DIC,DIE)="^HLCS(869.2,",DIC("B")="VAFC-SEND",DIC(0)="QEAM" D ^DIC
83 I Y<0 Q
84 S DA=+Y,DR=".01//" D ^DIE
85 ;
86 W !!?3,"Editing HL LOGICAL LINK File #870"
87 S (DIC,DIE)="^HLCS(870,",DIC("B")="VAFC-SEND",DIC(0)="QEAM" D ^DIC
88 I Y<0 Q
89 S DA=+Y,DR=".01//" D ^DIE
90 ;
91 W !!?3,"ok..."
92 W !
93 D KILL
94 Q
95 ;
96SEND N SET S SET=$$EDIT(1) I SET W !?3,"SEND PIMS HL7 v2.2 MESSAGES is set to SEND" Q
97 E W !?3,$P(SET,"^",2) Q
98 ;
99STOP N SET S SET=$$EDIT(0) I SET W !?3,"SEND PIMS HL7 v2.2 MESSAGES is set to STOP" Q
100 E W !?3,$P(SET,"^",2) Q
101 ;
102EDIT(ON) ;
103 N DIC,DIE,DR,DA,X,Y
104 D DT^DICRW
105 S (DIC,DIE)="^DG(43,",X=1,DIC(0)=""
106 D ^DIC I Y<1 Q "0^Failed to find MAS Parameter file"
107 ;
108 S DA=+Y,DR="391.7012///"_ON_";"
109 L +^DG(43,1):5 I '$T Q "0^MAS Parameters being edited"
110 D ^DIE
111 L -^DG(43,1)
112 Q 1
113 ;
114SEND23 N SET S SET=$$EDIT23(1) I SET W !?3,"SEND PIMS HL7 v2.3 MESSAGES is set to SEND" Q
115 E W !?3,$P(SET,"^",2) Q
116 ;
117STOP23 N SET S SET=$$EDIT23(0) I SET W !?3,"SEND PIMS HL7 v2.3 MESSAGES is set to STOP" Q
118 E W !?3,$P(SET,"^",2) Q
119 ;
120EDIT23(ON) ;
121 N DIC,DIE,DR,DA,X,Y
122 D DT^DICRW
123 S (DIC,DIE)="^DG(43,",X=1,DIC(0)=""
124 D ^DIC I Y<1 Q "0^Failed to find MAS Parameter file"
125 ;
126 S DA=+Y,DR="391.7013///"_ON_";"
127 L +^DG(43,1):5 I '$T Q "0^MAS Parameters being edited"
128 D ^DIE
129 L -^DG(43,1)
130 Q 1
Note: See TracBrowser for help on using the repository browser.