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

APCDDISP.m

Go to the documentation of this file.
  1. APCDDISP ; IHS/CMI/LAB - DISPLAY VISIT ;
  1. ;;2.0;IHS PCC SUITE;**7**;MAY 14, 2009
  1. ;
  1. D GETPAT
  1. I APCDPAT="" W !!,"No PATIENT selected!" D EOJ Q
  1. D GETVISIT
  1. I APCDVSIT="" W !!,"No VISIT selected!" D EOJ Q
  1. D DSPLY
  1. D EOJ
  1. Q
  1. ;
  1. ENB ;EP - entry point for limited lab display
  1. S APCDLIML=1
  1. G APCDDISP
  1. GETPAT ;EP GET- PATIENT
  1. W !
  1. S AUPNLK("INAC")=""
  1. S APCDPAT=""
  1. S DIC("A")="Enter PATIENT NAME: ",DIC="^AUPNPAT(",DIC(0)="AEMQ" D ^DIC K DIC
  1. Q:Y<0
  1. S APCDPAT=+Y
  1. Q
  1. ;
  1. GETVISIT ;EP - this entry point called by the BVP package (View patient record)
  1. S APCDLOOK="",APCDVSIT=""
  1. K APCDVLK
  1. D ^APCDVLK
  1. K APCDLOOK
  1. Q
  1. ;
  1. DSPLY ;EP
  1. D ^APCDVD
  1. Q
  1. ;
  1. EOJ ; EP - EOJ HOUSE KEEPING - this ep called by the BVP package (View patient record)
  1. K AUPNLK("INAC")
  1. K %,%DT,%X,%Y,C,DIYS,X,Y
  1. K APCDCLN,APCDCAT,APCDDATE,APCDLOC,APCDPAT,APCDVSIT,APCDLOOK,APCDTYPE
  1. D KILL^AUPNPAT
  1. Q