PXAPIIB ;ISA/AAS - SUPPORTED REFERENCES FOR AICS ; 1/5/07 4:59pm ; Compiled January 18, 2007 10:03:16
Source file <PXAPIIB.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
DSPLYED(IEN) | ; -- function, returns .01 field of entry ien
; -- output transform for Education Topics (file #9999999.09) ; -- example of use: S Y=$$DSPLYED^PXAPIIB(Y) |
|
DSPLYIM(IEN) | ; -- function, returns .01 field of entry ien
; -- output transform for Immunizations (file #9999999.14) |
|
DSPLYEX(IEN) | ; -- function, returns .01 field of entry ien
; -- output transform for EXAMS (file #9999999.15) |
|
DSPLYTR(IEN) | ; -- function, returns .01 field of entry ien
; -- output transform for TREATMENTS (file #9999999.17) |
|
DSPLYSK(IEN) | ; -- function, returns .01 field of entry ien
; -- output transform for Education Topics (file #9999999.28) |
|
DSPLYHF(IEN) | ; -- function, returns .01 field of entry ien
; -- output transform for Health Factors (file #9999999.64) |
|
TESTEDT | ; -- does X point to a valid Education Topic? Kills X if not.
; input X := pointer to 9999999.09 ; output := if valid x=x,y="" ; := if entry not exist x is killed, y="" ; := if entry exist but inactive x is killed, y=.01 field ; |
|
TESTIMM | ; -- does X point to a valid Immunization? Kills X if not.
; input X := pointer to 9999999.14 ; output := if valid x=x,y="" ; := if entry not exist x is killed, y="" ; := if entry exist but inactive x is killed, y=.01 field |
|
TESTEXM | ; -- does X point to a valid EXAM? Kills X if not.
; input X := pointer to 9999999.15 ; output := if valid x=x,y="" ; := if entry not exist x is killed, y="" ; := if entry exist but inactive x is killed, y=.01 field |
|
TESTTRT | ; -- does X point to a valid Treatment? Kills X if not.
; input X := pointer to 9999999.17 ; output := if valid x=x,y="" ; := if entry not exist x is killed, y="" ; := if entry exist but inactive x is killed, y=.01 field |
|
TESTSK | ; -- does X point to a valid Skin Test? Kills X if not.
; input X := pointer to 9999999.28 ; output := if valid x=x,y="" ; := if entry not exist x is killed, y="" ; := if entry exist but inactive x is killed, y=.01 field |
|
TESTHF | ; -- does X point to a valid Health Factor? Kills X if not.
; input X := pointer to 9999999.64 ; output := if valid x=x,y="" ; := if entry not exist x is killed, y="" ; := if entry exist but inactive x is killed, y=.01 field |
|
POV(VISIT,ARRAY) | ;
; -- return purpose of visit for a visit pointer ; Input Visit := visit pointer ; Array := call by reference the array to put the POV into ; Output Array |
|
POVQ |