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

APCDR13.m

Go to the documentation of this file.
  1. APCDR13 ; IHS/CMI/LAB - V EXAM REVIEW ;
  1. ;;2.0;IHS PCC SUITE;;MAY 14, 2009
  1. EXAM ; Exam Code -- Char Pos 49-50
  1. S APCDXAM=$P(^AUPNVXAM(APCDEDFN,0),U) I APCDXAM="" S APCDE="E012" D ERR G XIT
  1. I '$D(^AUTTEXAM(APCDXAM,0)) S APCDE="E012" D ERR G XIT
  1. I $P(^AUTTEXAM(APCDXAM,0),U,2)="" S APCDE="E012" D ERR G XIT
  1. I $P(^AUTTEXAM(APCDXAM,0),U,2)=15,AUPNSEX="M" S APCDE="E049" D ERR G XIT
  1. ;
  1. XIT ;
  1. K APCDXAM,APCDE
  1. Q
  1. ERR ;
  1. S APCDE("FILE")=9000010.13,APCDE("ENTRY")=APCDEDFN
  1. D ERR^APCDRV
  1. Q