29 lines
763 B
Mathematica
29 lines
763 B
Mathematica
|
IMRCD4 ;HCIOFO-FAI/SPS - HANDLE CHECKING OF CD4 VALUE INPUT ;05/11/00 06:49
|
||
|
;;2.1;IMMUNOLOGY CASE REGISTRY;**9,5**;Feb 09, 1998
|
||
|
EN ; IMREDIT Entry Point
|
||
|
D LIST,EDIT
|
||
|
Q
|
||
|
LIST ; List CD4 values
|
||
|
; also called from IMR CDC4 input template
|
||
|
D ^IMRLTST
|
||
|
W !!
|
||
|
Q
|
||
|
EDIT ; Edit CD4 Value
|
||
|
LAST ; Get Last CD4 Value
|
||
|
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
|
||
|
NEWVL ; enter new viral load tests
|
||
|
K DIR S DIR("A")="Want to add a new VIRAL LOAD test for this patient"
|
||
|
S DIR(0)="Y" D ^DIR K DIR
|
||
|
Q:$D(DIRUT)!(Y=0)
|
||
|
K DR S DIE=158,DR="122" D ^DIE
|
||
|
W !!,"You may enter another Viral Load Test, by entering the name below"
|
||
|
K DR S DIE=158,DR="122" D ^DIE
|
||
|
Q
|
||
|
GETVALS ; Get Lab Test Results
|
||
|
D ^IMRLTST
|
||
|
Q
|
||
|
CD4 ;
|
||
|
PERCNT ;
|
||
|
D LIST
|
||
|
Q
|