Print Page as PDF
DBIA192 ICR (192)

DBIA192    ICR (192)

Name Value
NUMBER 192
IA # 192
GLOBAL ROOT DD(
DATE CREATED 2005/06/20
CUSTODIAL PACKAGE 1
CUSTODIAL ISC San Francisco
USAGE Private
TYPE File
NAME DBIA192
ORIGINAL NUMBER 192
GENERAL DESCRIPTION
FileMan agrees that Quality Improvement Checklist can
call the following routine occurrences of ^DD references:

ROUTINE OCCURRENCES OF ^DD REFERENCES:

QIPEXT+2:  I $D(QIPCUS) W !!,"This option displays the report
specifications",!,"for the QUIC",$P($P(";"_$P
(^DD(738.1,1,0),"^",3),";"_QIPCUS_":",2)," ;")," extract report(s).",! G EN

QIPEXTR+9:  I $D(QIPCUS) S PNAME=$P($P(";"_$P(^DD(738.1,1,0),"^",3), CUS_":
",2),";")

QIPEXTR+18:  K LOC,NAME,PM,PNAME S LOC=^QIP(738.1,OPTN,0),NAME=$P
(LOC,"^"),PM=$P(LOC,"^",2),PNAME=$P($P(";"_$P(^DD(738.1,1,0),"^",3),
";"_PM_":",2),"; ")

QIPEXTU1+21:  W !?10,$J(CNT,2),". ",NAME,"  -  ",$P($P(";"_$P(^DD
(738.1,1,0),"^",3),";"_PM_":",2),";")_$S($G(^QIP(738.1,OPTN,"NA"))
&(QIP'="V"):"  <<NOT AVAILABLE>>",1:"")

GLOBAL LISTINGS OF THE REFERENCED DDs:

^DD("42",".03","0")="SERVICE^RSX^M:MEDICINE;S:SURGERY;P:PSYCHIATRY;
NH:NHCU;NE:NEUROLOGY;I:INTERMEDIATE MED;R:REHAB MEDICINE;SCI:SPINAL CORD
INJURY;D:DOMICILIARY;B:BLIND REHAB;NC:NON-COUNT;^0;3^Q"

^DD("738.1","1","0")="PARENT MENU^RS^L:LABORATORY;M:MAS;N:NURSING;
P:PHARMACY;S:SURGERY;Q:QUALITY MANAGEMENT;R:RADIOLOGY;^0;2^Q"


STATUS Retired
DURATION Till Otherwise Agreed
ID DD(
SUBSCRIBING PACKAGE
SUBSCRIBING PACKAGE ISC
QUALITY IMPROVEMENT CHECKLIST Birmingham