QAQPKGVR.m

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 ---QAQPKGVR   1254     printed  Apr 09, 2024@21:33:51                                                                                                                                                                                                    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