FHWOR71 ; HISC/CAH - Diet Profile for CPRS ;1/30/97 08:54
Source file <FHWOR71.m>
Package | Total | Caller Graph |
---|---|---|
Dietetics | 1 | FHWOR72 |
Order Entry Results Reporting | 1 | ORCXPNDR |
Name | Comments | DBIA/ICR reference |
---|---|---|
F0 | ; Display Diet
|
|
F1 | ||
F2 | ||
F3 | ||
W1 | ||
SP1 | ||
SP | ||
A0 | ||
SPACNG(FHI,FHX) | ;Multiple spacing before next line of text in ^TMP global
|
|
LP | ||
P(DFN) | ;Dietetics Profile for CPRS
; INPUT: DFN = Patient file #2 internal record number ; OUTPUT: -1^displayable error text (if invalid DFN or no profile) ; with version 5.5 selection of outpatients is allowed ; 1 if successful, and displayable data in ; ^TMP($J,"FHPROF",DFN,n) = line of text ; where n = sequential number |
|
TEST | ; FOR TESTING ONLY - DFN must be defined
|
|
W0 |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DPT - [#2] | F0+2 |
^DPT("CN" | F0+4 |
^FH(115.2 - [#115.2] | SP |
^FH(118 - [#118] | F2+3 |
^FH(118.1 - [#118.1] | F2+1 |
^FH(118.2 - [#118.2] | LP+2 |
^FH(119.4 - [#119.4] | A0+1 |
^FHPT - [#115] | F0+5, F0+6, A0, F1+1, F1+8, F1+11, F2 |
^TMP($J | P+12!, F0+7*, F0+8*, F0+9*, F0+10*, A0+1*, F1*, F1+2*, F1+5*, F1+6* , F1+10*, F1+12*, F1+13*, F2+1*, F2+2*, F2+4*, LP+2*, W0*, W0+1*, W1* , W1+2*, SPACNG+1*, TEST+1 |
Name | Line Occurrences |
---|---|
$$SPACNG | F0+7, F0+8, F0+9, F0+10, F0+11, F0+13, A0+1, F1, F1+2, F1+4 , F1+6, F1+10, F1+12, F1+13, F2+1, F2+4, LP+2, W0+2 |
A0 | F0+7 |
F0 | P+12 |
F1 | A0 |
F2 | F1+7 |
F3 | F2+1 |
LP | F1+11 |
SP | F0+6 |
SP1 | SP+2 |
W0 | F0+11, W0+2 |
W1 | W0, W0+1 |
Name | Field # of Occurrence |
---|---|
^( | F0+6, F1+11, F2+2, W1+2 |
^(1 | F1+1 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
% | P+10~, F0+1 |
%H | P+10~ |
%I | P+10~ |
%T | P+10~ |
%ZIS | P+10~ |
A1 | P+10~ |
ADM | P+10~, F0+4*, F0+5, A0, F1+1, F1+8, F1+11, F2 |
AGE | P+10~ |
ALG | P+10~ |
ALL | P+10~ |
BAG | P+10~ |
BID | P+11~ |
C | P+10~ |
CAL | P+10~, F1+9*, F1+12 |
COM | P+10~, F1+1*, F1+2, F1+9*, F1+13 |
CON | P+10~ |
CT | P+10~ |
D3 | P+10~ |
DA | P+10~ |
DAS | P+10~, SP*, SP1, SP1+1 |
DFN | P~, P+8, P+9, P+12, F0+2, F0+4, F0+7, F0+8, F0+9, F0+10 , A0+1, F1, F1+2, F1+5, F1+6, F1+10, F1+12, F1+13, F2+1, F2+2 , F2+4, LP+2, W0, W0+1, W1, W1+2, SPACNG+1, TEST+1 |
DOB | P+10~ |
DT | F0+1* |
DTP | P+10~, F1+6*, F1+9*, F1+10, F2+2* |
>> FHDFN | P+9, F0+5, F0+6, A0, F1+1, F1+8, F1+11, F2 |
FHDU | P+10~ |
FHI | P+10~, SPACNG~, SPACNG+1 |
FHLD | P+10~ |
FHOR | P+10~ |
FHORD | P+10~, F1+1 |
FHPV | P+10~ |
FHQ | P+10~, P+12*, P+13, F0+4*, F0+5* |
FHWF | P+10~ |
FHX | P+10~, P+12*, F0+7*, F0+8*, F0+9*, F0+10*, F0+11*, F0+13*, A0+1*, F1* , F1+2*, F1+4*, F1+5, F1+6*, F1+10*, F1+12*, F1+13*, F2+1*, F2+2, F2+4* , LP+2*, W0, W0+1, W0+2*, W1, W1+2, SPACNG~, SPACNG+1*, SPACNG+2*, SPACNG+3 |
FHY | P+10~, W0*, W0+1*, W1* |
>> FHZ115 | P+9* |
I | P+10~, SPACNG+1~*, TEST+1* |
IOP | P+10~ |
K | P+10~, F0+6*, F2+3*, SP1+1 |
K1 | P+10~, F2+3*, F2+4* |
K2 | P+10~, F2+3* |
KK | P+10~, SP*, SP+1, SP1, SP1+1, W1+1*, W1+2 |
L | P+10~, F0+13!, F2+1*, F2+3* |
L1 | P+10~, SP*, SP+1*, SP1, SP1+1 |
LST | P+10~ |
M | F0+6*, F0+13!, SP+2, SP+3, SP+4 |
M1 | F0+10*, F0+11, F0+12, F0+13!, SP*, SP+2*, SP+3*, SP+4*, SP1, SP1+1 |
M2 | F0+10*, F0+11, F0+12*, F0+13! |
MEAL | P+10~ |
MM | F0+10*, F0+13! |
N | P+10~, F0+6!, F0+13! |
N( | F0+10, F0+11, F2+3*, F2+4, SP1*, SP1+1* |
N("" | F0+7 |
NO | P+10~, F2*, F2+1 |
NOW | P+10~, F0+1* |
P1 | F0+6*, F0+11*, F0+13!, SP1, SP1+1* |
P2 | F0+11*, F0+13! |
PID | P+11~ |
POP | P+11~ |
Q | P+11~, F2+3*, SP+1* |
QT | P+11~, F0+1* |
QTY | P+11~ |
QUA | P+11~, LP*, LP+1*, LP+2 |
>> QUAFI | LP+1* |
>> QUASE | LP+1* |
RM | P+11~ |
SEX | P+11~ |
ST1 | P+11~, F0+9!*, F1+12!* |
ST2 | P+11~, W0!*, W0+1!* |
STR | P+11~, LP*, LP+2 |
TF | P+11~, F1+7*, F1+8, F1+11 |
TF2 | P+11~, F1+11* |
TIM | P+11~ |
TQU | P+11~, F1+9*, F1+12 |
TUN | P+11~, LP*, LP+2 |
TYP | P+11~, F1+3*, F1+5 |
U | F2+3 |
WARD | P+11~, F0+2*, F0+4 |
X | P+11~, F0+6*, A0*, A0+1, F1+3, SP, SP+1, W0*, W0+1*, W1* , W1+1, W1+2* |
X(0 | A0*, F1+6, F1+7, F2 |
X1 | P+11~, F0+11*, W0*, W0+2 |
X2 | P+11~, F0+11*, W0+1*, W0+2 |
XY | P+11~, F1+11*, LP |
Y | P+11~, F1, F1+1, F1+8*, F1+9, F2*, F2+1, F2+2, F2+3 |
YN | P+11~ |
Z | P+11~, F2+3*, SP* |
Z1 | P+11~, SP+3*, SP+4* |