source: WorldVistAEHR/trunk/r/ICR_IMMUNOLOGY_CASE_REGISTRY-IMR/IMRCD4.m@ 975

Last change on this file since 975 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 763 bytes
Line 
1IMRCD4 ;HCIOFO-FAI/SPS - HANDLE CHECKING OF CD4 VALUE INPUT ;05/11/00 06:49
2 ;;2.1;IMMUNOLOGY CASE REGISTRY;**9,5**;Feb 09, 1998
3EN ; IMREDIT Entry Point
4 D LIST,EDIT
5 Q
6LIST ; List CD4 values
7 ; also called from IMR CDC4 input template
8 D ^IMRLTST
9 W !!
10 Q
11EDIT ; Edit CD4 Value
12LAST ; Get Last CD4 Value
13 K DR S DIE=158,DR="102.01;102.02;102.05;102.06;112.09;112.1;4;3.4;3.6;3.3;3.5;122" D ^DIE
14NEWVL ; enter new viral load tests
15 K DIR S DIR("A")="Want to add a new VIRAL LOAD test for this patient"
16 S DIR(0)="Y" D ^DIR K DIR
17 Q:$D(DIRUT)!(Y=0)
18 K DR S DIE=158,DR="122" D ^DIE
19 W !!,"You may enter another Viral Load Test, by entering the name below"
20 K DR S DIE=158,DR="122" D ^DIE
21 Q
22GETVALS ; Get Lab Test Results
23 D ^IMRLTST
24 Q
25CD4 ;
26PERCNT ;
27 D LIST
28 Q
Note: See TracBrowser for help on using the repository browser.