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"
|