|
Last change
on this file since 1096 was 613, checked in by George Lilly, 15 years ago |
|
initial load of WorldVistAEHR
|
|
File size:
763 bytes
|
| Rev | Line | |
|---|
| [613] | 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.
