| [613] | 1 | QAQPKGVR ;HISC/DAD-QM PACKAGES RUNNING AT YOUR SITE ;12/7/94 08:14
|
|---|
| 2 | ;;1.7;QM Integration Module;;07/25/1995
|
|---|
| 3 | 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
|
|---|
| 4 | ENTSK ;
|
|---|
| 5 | 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)=""
|
|---|
| 6 | 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")
|
|---|
| 7 | U IO D HDR S PKG=""
|
|---|
| 8 | F S PKG=$O(QAQPKG(PKG)) Q:PKG=""!QAQQUIT W !!,PKG,?40,QAQPKG(PKG) D:$Y>(IOSL-6) HEAD
|
|---|
| 9 | EXIT ;
|
|---|
| 10 | W ! D ^%ZISC
|
|---|
| 11 | K %DT,%ZIS,DIR,PAGE,PKG,QA,QAQPKG,QAQQUIT,QAQVER,TODAY,UNDL,VER,X,Y,ZTDESC,ZTRTN
|
|---|
| 12 | S:$D(ZTQUEUED) ZTREQ="@"
|
|---|
| 13 | Q
|
|---|
| 14 | HEAD ;
|
|---|
| 15 | I $E(IOST)="C" K DIR S DIR(0)="E" D ^DIR S QAQQUIT=$S(Y'>0:1,1:0) Q:QAQQUIT
|
|---|
| 16 | HDR W:($E(IOST)="C")!(PAGE>1) @IOF
|
|---|
| 17 | W !,UNDL,!?14,"QM Packages Installed at Your Site as of ",TODAY,?72,"Page: ",PAGE,!,UNDL S PAGE=PAGE+1
|
|---|
| 18 | Q
|
|---|
| 19 | PKG ;;PACKAGE NAMES - in same order as ^QA(740,1,"VER") node pieces
|
|---|
| 20 | ;;Occurrence Screen
|
|---|
| 21 | ;;Clinical Monitoring System
|
|---|
| 22 | ;;Survey Generator
|
|---|
| 23 | ;;Credentials Tracking
|
|---|
| 24 | ;;QM Integration Module
|
|---|
| 25 | ;;Incident Reporting
|
|---|
| 26 | ;;Patient Representative
|
|---|
