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

ACDPCCLC.m

Go to the documentation of this file.
  1. ACDPCCLC ;IHS/ADC/EDE/KML - ENVIRONMENT CHECK FOR PCC LINK;
  1. ;;4.1;CHEMICAL DEPENDENCY MIS;;MAY 11, 1998
  1. ;
  1. START ;
  1. NEW ACDPCCLC,Y,Z
  1. S ACDPCCLC=0
  1. D ICDCHK ; check for required icd codes
  1. D LOCCHK ; check CDMIS LOCATION file
  1. D EOJ
  1. Q
  1. ;
  1. ICDCHK ; CHECK FOR V65.4 & V70.8 ICD CODE FOR PCC LINK
  1. S Y=$O(^ICD9("AB","V65.4",0))
  1. I 'Y S ACDPCCLC=1 D ERROR^ACDPCCL("Cannot find ICD9 code V65.4 - without it you cannot run the PCC link.")
  1. S Y=$O(^ICD9("AB","V70.8",0))
  1. I 'Y S ACDPCCLC=1 D ERROR^ACDPCCL("Cannot find ICD9 code V70.8 - without it you cannot run the PCC link.")
  1. Q
  1. ;
  1. LOCCHK ; CHECK CDMIS LOCATION FILE FOR PCC LOCATION ENTRIES
  1. S (Y,Z)=0
  1. F S Y=$O(^ACDLOT(Y)) Q:'Y D:'$P($G(^(Y,0)),U,4)
  1. . D ERROR^ACDPCCL("No PCC LOCATION for CDMIS LOCATION: "_$P(^ACDLOT(Y,0),U))
  1. . S Z=1
  1. . Q
  1. I Z S ACDPCCLC=1 D ERROR^ACDPCCL("Without PCC LOCATION values you cannot run the PCC link.")
  1. Q
  1. ;
  1. EOJ ;
  1. I ACDPCCLC K X H 3
  1. Q