Last change
on this file since 724 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
763 bytes
|
Line | |
---|
1 | IMRCD4 ;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
|
---|
3 | EN ; IMREDIT Entry Point
|
---|
4 | D LIST,EDIT
|
---|
5 | Q
|
---|
6 | LIST ; List CD4 values
|
---|
7 | ; also called from IMR CDC4 input template
|
---|
8 | D ^IMRLTST
|
---|
9 | W !!
|
---|
10 | Q
|
---|
11 | EDIT ; Edit CD4 Value
|
---|
12 | LAST ; 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
|
---|
14 | NEWVL ; 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
|
---|
22 | GETVALS ; Get Lab Test Results
|
---|
23 | D ^IMRLTST
|
---|
24 | Q
|
---|
25 | CD4 ;
|
---|
26 | PERCNT ;
|
---|
27 | D LIST
|
---|
28 | Q
|
---|
Note:
See
TracBrowser
for help on using the repository browser.