QAQPKGVR ;HISC/DAD-QM PACKAGES RUNNING AT YOUR SITE ;12/7/94 08:14
;;1.7;QM Integration Module;;07/25/1995
K %ZIS S %ZIS="QM" W ! D ^%ZIS G:POP EXIT I $D(IO("Q")) S ZTRTN="ENTSK^QAQPKGVR",ZTDESC="QM packages installed report" D ^%ZTLOAD G EXIT
ENTSK ;
S QAQVER=$S($D(^QA(740,1,"VER"))#2:^("VER"),1:""),QAQQUIT=0,PAGE=1,%DT="",X="T" D ^%DT X ^DD("DD") S TODAY=Y K QAQPKG,UNDL S $P(UNDL,"-",81)=""
F QA=1:1 S PKG=$P($T(PKG+QA),";;",2) Q:PKG="" S VER=$P(QAQVER,"^",QA),QAQPKG(PKG)=$S(VER:"Version "_VER,1:"Not installed")
U IO D HDR S PKG=""
F S PKG=$O(QAQPKG(PKG)) Q:PKG=""!QAQQUIT W !!,PKG,?40,QAQPKG(PKG) D:$Y>(IOSL-6) HEAD
EXIT ;
W ! D ^%ZISC
K %DT,%ZIS,DIR,PAGE,PKG,QA,QAQPKG,QAQQUIT,QAQVER,TODAY,UNDL,VER,X,Y,ZTDESC,ZTRTN
S:$D(ZTQUEUED) ZTREQ="@"
Q
HEAD ;
I $E(IOST)="C" K DIR S DIR(0)="E" D ^DIR S QAQQUIT=$S(Y'>0:1,1:0) Q:QAQQUIT
HDR W:($E(IOST)="C")!(PAGE>1) @IOF
W !,UNDL,!?14,"QM Packages Installed at Your Site as of ",TODAY,?72,"Page: ",PAGE,!,UNDL S PAGE=PAGE+1
Q
PKG ;;PACKAGE NAMES - in same order as ^QA(740,1,"VER") node pieces
;;Occurrence Screen
;;Clinical Monitoring System
;;Survey Generator
;;Credentials Tracking
;;QM Integration Module
;;Incident Reporting
;;Patient Representative
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HQAQPKGVR 1254 printed Dec 13, 2024@02:31:25 Page 2
QAQPKGVR ;HISC/DAD-QM PACKAGES RUNNING AT YOUR SITE ;12/7/94 08:14
+1 ;;1.7;QM Integration Module;;07/25/1995
+2 KILL %ZIS
SET %ZIS="QM"
WRITE !
DO ^%ZIS
if POP
GOTO EXIT
IF $DATA(IO("Q"))
SET ZTRTN="ENTSK^QAQPKGVR"
SET ZTDESC="QM packages installed report"
DO ^%ZTLOAD
GOTO EXIT
ENTSK ;
+1 SET QAQVER=$SELECT($DATA(^QA(740,1,"VER"))#2:^("VER"),1:"")
SET QAQQUIT=0
SET PAGE=1
SET %DT=""
SET X="T"
DO ^%DT
XECUTE ^DD("DD")
SET TODAY=Y
KILL QAQPKG,UNDL
SET $PIECE(UNDL,"-",81)=""
+2 FOR QA=1:1
SET PKG=$PIECE($TEXT(PKG+QA),";;",2)
if PKG=""
QUIT
SET VER=$PIECE(QAQVER,"^",QA)
SET QAQPKG(PKG)=$SELECT(VER:"Version "_VER,1:"Not installed")
+3 USE IO
DO HDR
SET PKG=""
+4 FOR
SET PKG=$ORDER(QAQPKG(PKG))
if PKG=""!QAQQUIT
QUIT
WRITE !!,PKG,?40,QAQPKG(PKG)
if $Y>(IOSL-6)
DO HEAD
EXIT ;
+1 WRITE !
DO ^%ZISC
+2 KILL %DT,%ZIS,DIR,PAGE,PKG,QA,QAQPKG,QAQQUIT,QAQVER,TODAY,UNDL,VER,X,Y,ZTDESC,ZTRTN
+3 if $DATA(ZTQUEUED)
SET ZTREQ="@"
+4 QUIT
HEAD ;
+1 IF $EXTRACT(IOST)="C"
KILL DIR
SET DIR(0)="E"
DO ^DIR
SET QAQQUIT=$SELECT(Y'>0:1,1:0)
if QAQQUIT
QUIT
HDR if ($EXTRACT(IOST)="C")!(PAGE>1)
WRITE @IOF
+1 WRITE !,UNDL,!?14,"QM Packages Installed at Your Site as of ",TODAY,?72,"Page: ",PAGE,!,UNDL
SET PAGE=PAGE+1
+2 QUIT
PKG ;;PACKAGE NAMES - in same order as ^QA(740,1,"VER") node pieces
+1 ;;Occurrence Screen
+2 ;;Clinical Monitoring System
+3 ;;Survey Generator
+4 ;;Credentials Tracking
+5 ;;QM Integration Module
+6 ;;Incident Reporting
+7 ;;Patient Representative
