PSOERALL ;ALB/MR - eRx Patient Allergies ; 8/3/2016 5:14pm
Source file <PSOERALL.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
EN | ; -- main entry point for PSO ERX HOLDING QUEUE
|
|
LMHDR | ; ListMan Header Code
|
|
HDR | ; -- header code
|
|
INIT | ;
|
|
HELP | ; -- help code
|
|
EXIT | ; -- exit code
|
|
EXPND | ; -- expand code
|
|
VPA | ; Vista Patient Allergies
|
|
ALLERGY(ERXIEN,DFN) | ; VistA Patient Allergy and Adverse Reaction information
; Input: ERXIEN - Pointer to ERX HOLDING QUEUE file (#52.49) ; DFN - Pointer to PATIENT File(#2) |
|
ADDFRTXT(TEXT,RS2C,SIZE,ARRAY,ARRLN,PFIX,HIGH) | ; Wraps FreeText and adds to existing array
|
|
C2S(STR) | ; Replaces commas with spaces (for auto-wrap to work) - Arbitrarily using '@' (not likely to be on the string)
|
|
S2C(STR) | ; Replaces spaces with commas (for auto-wrap to work)
|
|
SORT(STR) | ; Sorts a comma (,) separated list alphabetically
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
FileNo | Call Tags |
---|---|
^PS(52.46 - [#52.46] | GETS^DIQ |
^PS(52.49 - [#52.49] | GET1^DIQ |
^PS(59.7 - [#59.7] | GET1^DIQ |