- VSIT0 ;ISL/JVS,dee - Front End Check to Visit Tracking ;03/29/2018
- ;;1.0;PCE PATIENT CARE ENCOUNTER;**76,211**;Aug 12, 1996;Build 454
- ; Patch PX*1*76 changes the 2nd line of all VSIT* routines to reflect
- ; the incorporation of the module into PCE. For historical reference,
- ; the old (VISIT TRACKING) 2nd line is included below to reference VSIT
- ; patches.
- ;
- ;;2.0;VISIT TRACKING;;Aug 12, 1996
- Q
- ;
- ;
- GETPKG(VSITPKG) ;Pass in package name space and returns a pointer
- ;to that package in the Visit Tracking Parameters file.
- N VSITIEN,VSITPIEN
- S VSITPIEN=$$PKG2IEN($G(VSITPKG))
- Q:VSITPIEN<1 -1
- S VSITIEN=""
- S VSITIEN=$O(^DIC(150.9,1,3,"B",VSITPIEN,VSITIEN)) ;Parameter file IEN
- Q $S(VSITIEN<1:-1,1:VSITIEN)
- ;
- ACTIVE(VSITPKGP) ;Pass pointer to that package in the Visit Tracking
- ; Parameters file and returns active flag.
- Q $P($G(^DIC(150.9,1,3,+VSITPKGP,3)),U,1)
- ;
- PKG2IEN(VSITPKG) ;VSITPKG can be the name, prefix, or pointer.
- I $G(VSITPKG)="" Q -1
- N IEN,MSG
- S IEN=$$FIND1^DIC(9.4,,"AMX",VSITPKG,"","","MSG")
- Q $S(IEN=0:-1,1:IEN)
- ;
- PKG(PKG,VALUE) ; -- Install package into multiple and add active flag
- I PKG=""!(VALUE="") Q -1
- N X,Y,DA,DIC,DIE,DR
- S X=PKG
- S DA(1)=1,DIC="^DIC(150.9,1,3,",DIC(0)="MXL",DIC("P")="150.93P"
- S DLAYGO=150.9
- D ^DIC
- I Y=-1 Q -1
- S DIE=DIC
- K DA
- S DA=+Y
- S DR="4///^S X=VALUE"
- D ^DIE
- Q 1_"^"_$P($G(^DIC(150.9,1,3,DA,3)),"^",1)
- ;
- PKGON(PKG) ; -- Check value of ACTIVE FLAG
- I PKG="" Q -1
- N X,Y,DA,DIC
- S X=PKG
- S DA(1)=1
- S DIC="^DIC(150.9,1,3,"
- S DIC(0)="MX"
- S DIC("P")="150.93P"
- D ^DIC
- I Y=-1 Q -1
- Q $P($G(^DIC(150.9,1,3,+Y,3)),"^",1)
- ;
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HVSIT0 1662 printed Feb 18, 2025@23:58:41 Page 2
- VSIT0 ;ISL/JVS,dee - Front End Check to Visit Tracking ;03/29/2018
- +1 ;;1.0;PCE PATIENT CARE ENCOUNTER;**76,211**;Aug 12, 1996;Build 454
- +2 ; Patch PX*1*76 changes the 2nd line of all VSIT* routines to reflect
- +3 ; the incorporation of the module into PCE. For historical reference,
- +4 ; the old (VISIT TRACKING) 2nd line is included below to reference VSIT
- +5 ; patches.
- +6 ;
- +7 ;;2.0;VISIT TRACKING;;Aug 12, 1996
- +8 QUIT
- +9 ;
- +10 ;
- GETPKG(VSITPKG) ;Pass in package name space and returns a pointer
- +1 ;to that package in the Visit Tracking Parameters file.
- +2 NEW VSITIEN,VSITPIEN
- +3 SET VSITPIEN=$$PKG2IEN($GET(VSITPKG))
- +4 if VSITPIEN<1
- QUIT -1
- +5 SET VSITIEN=""
- +6 ;Parameter file IEN
- SET VSITIEN=$ORDER(^DIC(150.9,1,3,"B",VSITPIEN,VSITIEN))
- +7 QUIT $SELECT(VSITIEN<1:-1,1:VSITIEN)
- +8 ;
- ACTIVE(VSITPKGP) ;Pass pointer to that package in the Visit Tracking
- +1 ; Parameters file and returns active flag.
- +2 QUIT $PIECE($GET(^DIC(150.9,1,3,+VSITPKGP,3)),U,1)
- +3 ;
- PKG2IEN(VSITPKG) ;VSITPKG can be the name, prefix, or pointer.
- +1 IF $GET(VSITPKG)=""
- QUIT -1
- +2 NEW IEN,MSG
- +3 SET IEN=$$FIND1^DIC(9.4,,"AMX",VSITPKG,"","","MSG")
- +4 QUIT $SELECT(IEN=0:-1,1:IEN)
- +5 ;
- PKG(PKG,VALUE) ; -- Install package into multiple and add active flag
- +1 IF PKG=""!(VALUE="")
- QUIT -1
- +2 NEW X,Y,DA,DIC,DIE,DR
- +3 SET X=PKG
- +4 SET DA(1)=1
- SET DIC="^DIC(150.9,1,3,"
- SET DIC(0)="MXL"
- SET DIC("P")="150.93P"
- +5 SET DLAYGO=150.9
- +6 DO ^DIC
- +7 IF Y=-1
- QUIT -1
- +8 SET DIE=DIC
- +9 KILL DA
- +10 SET DA=+Y
- +11 SET DR="4///^S X=VALUE"
- +12 DO ^DIE
- +13 QUIT 1_"^"_$PIECE($GET(^DIC(150.9,1,3,DA,3)),"^",1)
- +14 ;
- PKGON(PKG) ; -- Check value of ACTIVE FLAG
- +1 IF PKG=""
- QUIT -1
- +2 NEW X,Y,DA,DIC
- +3 SET X=PKG
- +4 SET DA(1)=1
- +5 SET DIC="^DIC(150.9,1,3,"
- +6 SET DIC(0)="MX"
- +7 SET DIC("P")="150.93P"
- +8 DO ^DIC
- +9 IF Y=-1
- QUIT -1
- +10 QUIT $PIECE($GET(^DIC(150.9,1,3,+Y,3)),"^",1)
- +11 ;