source: WorldVistAEHR/trunk/r/PCE_PATIENT_CARE_ENCOUNTER-AUTN-EFDP-PX-VSIT--PXRM/VSIT0.m@ 699

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

initial load of WorldVistAEHR

File size: 1.5 KB
Line 
1VSIT0 ;ISL/JVS,dee - Front End Check to Visit Tracking ;7/29/96
2 ;;1.0;PCE PATIENT CARE ENCOUNTER;**76**;Aug 12, 1996
3 ; Patch PX*1*76 changes the 2nd line of all VSIT* routines to reflect
4 ; the incorporation of the module into PCE. For historical reference,
5 ; the old (VISIT TRACKING) 2nd line is included below to reference VSIT
6 ; patches.
7 ;
8 ;;2.0;VISIT TRACKING;;Aug 12, 1996
9 Q
10 ;
11GETPKG(VSITPKG) ;Pass in packaga name space and returns a pointer
12 ; to that package in the Visit Tracking paramaters file.
13 N VSITIEN,VSITPIEN
14 S VSITPIEN=$$PKG2IEN($G(VSITPKG))
15 Q:VSITPIEN<1 -1
16 S VSITIEN=""
17 S VSITIEN=$O(^DIC(150.9,1,3,"B",VSITPIEN,VSITIEN)) ;Parameter file IEN
18 Q $S(VSITIEN<1:-1,1:VSITIEN)
19 ;
20ACTIVE(VSITPKGP) ;Pass pointer to that package in the Visit Tracking
21 ; paramaters file and returns active flag.
22 Q $P($G(^DIC(150.9,1,3,+VSITPKGP,3)),U,1)
23 ;
24PKG2IEN(VSITPKG) ;
25 N XQOPT,X,Y,DA,DIC,DIE,DR
26 I $G(VSITPKG)="" Q -1 ;Calling package name must be passed
27 S X=VSITPKG
28 S DIC="^DIC(9.4,",DIC(0)="MX"
29 D ^DIC
30 Q +Y
31 ;
32PKG(PKG,VALUE) ; -- Install package into multiple and add active flag
33 I PKG=""!(VALUE="") Q -1
34 N X,Y,DA,DIC,DIE,DR
35 S X=PKG
36 S DA(1)=1,DIC="^DIC(150.9,1,3,",DIC(0)="MXL",DIC("P")="150.93P"
37 S DLAYGO=150.9
38 D ^DIC
39 I Y=-1 Q -1
40 S DIE=DIC
41 K DA
42 S DA=+Y
43 S DR="4///^S X=VALUE"
44 D ^DIE
45 Q 1_"^"_$P($G(^DIC(150.9,1,3,DA,3)),"^",1)
46 ;
47PKGON(PKG) ; -- Check value of ACTIVE FLAG
48 I PKG="" Q -1
49 N X,Y,DA,DIC
50 S X=PKG
51 S DA(1)=1
52 S DIC="^DIC(150.9,1,3,"
53 S DIC(0)="MX"
54 S DIC("P")="150.93P"
55 D ^DIC
56 I Y=-1 Q -1
57 Q $P($G(^DIC(150.9,1,3,+Y,3)),"^",1)
58 ;
Note: See TracBrowser for help on using the repository browser.