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

WVRAD.m

Go to the documentation of this file.
  1. WVRAD ;HCIOFO/FT,JR IHS/ANMC/MWR - UTIL: MOSTLY PATIENT DATA ;7/22/98 09:46
  1. ;;1.0;WOMEN'S HEALTH;;Sep 30, 1998
  1. ;;* MICHAEL REMILLARD, DDS * ALASKA NATIVE MEDICAL CENTER *
  1. ;; EDIT WV MAMMOGRAM DIAG CODE TRANSLATIONS FILE.
  1. ;; PRINT WV MAMMOGRAM DIAG CODE TRANSLATIONS FILE.
  1. ;
  1. ;
  1. EDIT ;---> MATCH WV RESULTS/DIAGNOSES WITH RADIOLOGY DIAGNOSTIC CODES.
  1. ;---> CALLED BY OPTION "WV EDIT DIAG TRANSLATION".
  1. D SETVARS^WVUTL5
  1. F D Q:$G(Y)<0
  1. .D TITLE^WVUTL5("EDIT WV DIAGNOSTIC CODE TRANSLATION FILE")
  1. .D DIC^WVFMAN(790.32,"QEMAL",.Y," Select RESULT/DIAGNOSIS: ")
  1. .Q:Y<0
  1. .D DIE^WVFMAN(790.32,".01;.02",+Y,.WVPOP)
  1. D EXIT
  1. Q
  1. ;
  1. SCREEN ;
  1. ;---> SCREEN CALLED BY FILEMAN ^DD(790.32,.01
  1. ;---> SCREEN ONLY FOR RESULTS/DIAGNOSES THAT APPLY TO MAMMOGRAMS.
  1. ;---> HARDCODED FOR MAM IENS=25, 26 OR 28. CALLED BY ^DIC.
  1. N I
  1. F I=3:1:19 I $P(^(0),U,I)=25!($P(^(0),U,I)=26)!($P(^(0),U,I)=28) Q
  1. Q
  1. ;
  1. ;
  1. PRINT ;EP
  1. ;---> CALLED BY OPTION "WV PRINT DIAG TRANSLATION".
  1. S DIC="^WV(790.32,"
  1. S FLDS="[WV PRINT DIAG CODE TRANSLATION]"
  1. S BY=.01,FR="AAAA",TO="ZZZZ"
  1. K IO("Q") S %ZIS="Q" D ^%ZIS I POP D EXIT Q
  1. S IOP=ION I $D(IO("Q")) S IOP="Q;"_ION
  1. K IO("Q") S WVIOST=$E(IOST)
  1. D EN1^DIP
  1. D:$E(WVIOST)="C" DIRZ^WVUTL3
  1. K IOP,WVIOST
  1. D EXIT
  1. Q
  1. ;
  1. EXIT ;EP
  1. D KILLALL^WVUTL8
  1. Q