Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: APSKAMN0

Package: IHS Changes To Pharmacy

Routine: APSKAMN0


Information

APSKAMN0 ;IHS/ANMC/SFB/MRS - GET VITAL STATS & CALC LBW;[ 09/28/94 10:23 AM ]

Source Information

Source file <APSKAMN0.m>

Call Graph

Call Graph Total: 4

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

Caller Graph

Caller Graph Total: 3

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
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All