Routine: APSKAMN0

Package	Total	Call Graph
VA Fileman	3	^%DT ^DIC ^DIR
IHS Changes To Pharmacy	1	CHOICE2^APSKAMN1

Package	Total	Caller Graph
IHS Changes To Pharmacy	3	APSKAMN1 APSKAMN6 APSKAMN7

Entry Points

Name	Comments	DBIA/ICR reference
END	;===>CONTROL IS PASSED TO APSKEND
RR	;EP
WEIGHT
GENDER	;===>CALCULATES MALE LBW
HEIGHT1
HEIGHT2	;===>CONVERTS CENTIMETERS TO INCHES
HEIGHT
START	;EP
DWT2	;===>CALCULATES THE DOSING WEIGHT
DATE	;===>USES VA FILEMAN'S DATE AND TIME CONVERSION ROUTINE
INPUT	;===>USES PATIENT LOOKUP ROUTINE
DWT1	;===>DETERMINES IF LBW IS 10% GREATER THAN ACTUAL WEIGHT
GENDER1	;===>CALCULATES FEMALE LBW

External References

Name	Field # of Occurrence
^%DT	DATE+4
CHOICE2^APSKAMN1	WEIGHT+15, DWT1+9, DWT2+8
^DIC	INPUT+5
^DIR	WEIGHT+3, WEIGHT+13, HEIGHT+2, HEIGHT1+2, HEIGHT2+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: INPUT+2
Function Call: WRITE	Prompt: !! Line Location: DATE+2
Function Call: WRITE	Prompt: ! Line Location: WEIGHT+0
Function Call: WRITE	Prompt: !!!," Lean Body Weight formula will now be calculated. However," Line Location: WEIGHT+5
Function Call: WRITE	Prompt: !,"the formula is undefined for patients under 60 inches (152 centimeters)." Line Location: WEIGHT+6
Function Call: WRITE	Prompt: !,"Recommend you skip Lean Body Weight calculation if your patient" Line Location: WEIGHT+7
Function Call: WRITE	Prompt: !,"does not meet the criteron." Line Location: WEIGHT+8
Function Call: WRITE	Prompt: !! Line Location: WEIGHT+11
Function Call: WRITE	Prompt: ! Line Location: HEIGHT+0
Function Call: WRITE	Prompt: @IOF Line Location: DWT1+4
Function Call: WRITE	Prompt: !,"The Total Body weight - Lean Body weight was LESS than 10% " Line Location: DWT1+5
Function Call: WRITE	Prompt: !,"Lean Body weight. Therefore, the DOSING WEIGHT IS: ",APSKWT," KG, " Line Location: DWT1+6
Function Call: WRITE	Prompt: !,"which is the same as the Total Body weight" Line Location: DWT1+7
Function Call: WRITE	Prompt: @IOF Line Location: DWT2+3
Function Call: WRITE	Prompt: !,"The Total Body weight - the Lean Body weight was GREATER than 10%" Line Location: DWT2+4
Function Call: WRITE	Prompt: !,"Lean Body weight. Therefore, the calculated DOSING WEIGHT IS: ",APSKWT," KG" Line Location: DWT2+5
Function Call: WRITE	Prompt: !,"weight. Therefore, the DOSING WEIGHT IS: ",APSKWT Line Location: DWT2+6
Function Call: WRITE	Prompt: $C(7),!!,"THIS IS A REQUIRED RESPONSE. ENTER '^' TO EXIT" Line Location: RR+1
Routine Call	DIC Line Location: INPUT+5
Routine Call	DIR Line Location: WEIGHT+3 WEIGHT+13 HEIGHT+2 HEIGHT1+2 HEIGHT2+3

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DPT - [#2]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNPAT - [#9000001]	INPUT+8
^DD("DD"	DATE+4

Label References

Name	Line Occurrences
DATE	DATE+5
DWT1	GENDER+4
DWT2	DWT1+3
END	INPUT+6, DATE+4, WEIGHT+3, WEIGHT+13, HEIGHT+2, HEIGHT1+2, HEIGHT2+3
GENDER	HEIGHT1+3
GENDER1	GENDER+2
HEIGHT2	HEIGHT+3
INPUT	INPUT+6
RR	DATE+5
WEIGHT	WEIGHT+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	DATE+3*
>> %DT("A"	DATE+3*
>> APSKC	START+2*
>> APSKC(	START+1*
>> APSKCC	START+3*
>> APSKCHRT	INPUT+8*
>> APSKD	START+2*
>> APSKDATE	DATE+6*
>> APSKDFN	INPUT+7*, INPUT+8
>> APSKDWT	DWT1+2*, DWT1+3
>> APSKDWTT	DWT2+1*, DWT2+2
>> APSKE	START+2*
>> APSKFIN	START+3*
>> APSKH(	START+1*
>> APSKHT	START+2, HEIGHT+3, HEIGHT1+2, HEIGHT2+3, HEIGHT2+4*, GENDER+3, GENDER1+1
>> APSKL	GENDER+3, GENDER1+1, GENDER1+2
>> APSKLBW	GENDER+3, GENDER1+2, DWT1+2, DWT1+3, DWT2+1
>> APSKLBWC	START+2, WEIGHT+14, WEIGHT+15
>> APSKM	START+2*
>> APSKN0	START+3*
>> APSKNAME	INPUT+10*
>> APSKNP	START+3, INPUT+11
>> APSKPL	START+3*
>> APSKPTIN	START+3, INPUT+11
>> APSKQ	START+2*
>> APSKQQ	START+3*
>> APSKS(	START+1*
>> APSKSE	START+2*
>> APSKSEX	INPUT+9*
>> APSKSS	START+3*
>> APSKT(	START+1*
>> APSKWT	START+2, WEIGHT+4, DWT1+2, DWT1+6, DWT2+1, DWT2+2*, DWT2+5, DWT2+6
>> APSKX1	START+1*
>> APSKXX	START+3*
>> APSKZ(	START+1*
>> APSKZ10T	START+5*
>> APSKZ11T	START+5*
>> APSKZ12T	START+5*
>> APSKZ13T	START+5*
>> APSKZ1T	START+4*
>> APSKZ2T	START+4*
>> APSKZ3T	START+4*
>> APSKZ4T	START+4*
>> APSKZ5T	START+4*
>> APSKZ6T	START+4*
>> APSKZ7T	START+4*
>> APSKZ8T	START+4*
>> APSKZ9T	START+5*
>> AUPNSEX	INPUT+9, GENDER+2
DIC	INPUT+3!*
DIC("A"	INPUT+4*
DIC(0	INPUT+3*
DIR	WEIGHT!, WEIGHT+3!, WEIGHT+11!, WEIGHT+13!, HEIGHT!, HEIGHT+2!, HEIGHT1!, HEIGHT1+2!, HEIGHT2+1!, HEIGHT2+3!
DIR("?"	WEIGHT+2*
DIR("A"	WEIGHT+1, WEIGHT+12, HEIGHT+1, HEIGHT1+1, HEIGHT2+2*
DIR(0	WEIGHT, WEIGHT+11, HEIGHT, HEIGHT1, HEIGHT2+1*
>> DIRUT	WEIGHT+13, HEIGHT+2, HEIGHT1+2, HEIGHT2+3
>> DTOUT	INPUT+6, DATE+4, WEIGHT+3
>> DUOUT	INPUT+6, WEIGHT+3
DUZ(2	INPUT+8
IOF	INPUT+2, DWT1+4, DWT2+3
>> X	DATE+4, DATE+5
>> Y	INPUT+6, INPUT+7, INPUT+10, DATE+5, DATE+6, WEIGHT+3, WEIGHT+4, WEIGHT+14, HEIGHT+3, HEIGHT1+2 , HEIGHT2+3

Customize PDF page

Package: IHS Changes To Pharmacy

Routine: APSKAMN0

Information

Source Information

Call Graph

Call Graph Total: 4

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: