Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: APCDDLAB

APCDDLAB.m

Go to the documentation of this file.
  1. APCDDLAB ; IHS/CMI/LAB - DISPLAY EXISTING LAB DATA FOR VISIT ;
  1. ;;2.0;IHS PCC SUITE;;MAY 14, 2009
  1. ;
  1. ;called from data entry input templates
  1. ;APCDVSIT must = visit dfn
  1. ;
  1. START ;
  1. I '$D(^AUPNVLAB("AD",APCDVSIT)) W !!?18,"No Lab Tests currently entered for this visit.",! Q
  1. W !!?18,"CURRENT LAB TESTS AND RESULTS FOR THIS VISIT",!,"Visit Date: " S Y=APCDDATE D DD^%DT W Y W ?35,"Patient Name: ",$P(^DPT(AUPNPAT,0),U)
  1. S APCDDLAB("X")=0 F S APCDDLAB("X")=$O(^AUPNVLAB("AD",APCDVSIT,APCDDLAB("X"))) Q:APCDDLAB("X")="" D
  1. . W !,$P(^LAB(60,$P(^AUPNVLAB(APCDDLAB("X"),0),U),0),U),?35,$P(^AUPNVLAB(APCDDLAB("X"),0),U,4)
  1. . Q
  1. K APCDDLAB,Y
  1. Q