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: APCHS61

Package: Patient Care Component

Routine: APCHS61


Information

APCHS61 ; IHS/CMI/LAB - PART 6 OF APCHS -- SUMMARY PRODUCTION COMPONENTS 18 Jun 2008 10:07 AM ;

Source Information

Source file <APCHS61.m>

Call Graph

Call Graph Total: 8

Package Total Call Graph
Patient Care Component 2 $$DATE^APCHSMU  (GETICDDX,PRTICD,PRTTXT)^APCHSUTL  
VA Fileman 2 $$GET1^DIQ  ^DIWP  
IHS Patient 1 ($$CONCPT,$$DESCPT,$$PNPROB)^AUPNVUTL  
IHS VA Utilities 1 ($$VAL,$$VALI)^XBDIQ1  
Kernel 1 $$REPEAT^XLFSTR  
Patient Care Component Reports 1 $$LASTITEM^APCLAPIU  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Clinical Scheduling for Windows 1 BSDX41F  
Patient Care Component 1 APCHS6  

Entry Points

Name Comments DBIA/ICR reference
AMI ;EP - called from health summary AMI component
FMHX
WRITEAMI ;
WPSTR ;
FMH2 ;
FMH1
WRITEST ;
STROKE ;EP - called from component
FHDSP
LDM(I) ;get last date modified of Family History or relation
AMIX
FMH ;EP - ******* FAMILY HISTORY * 9000014 *******
; <SETUP>
WP ;
STROKEX
PWH ;EP - called from component Patient wellness Handout
; <SETUP>
WT(V) ;IS THERE A WEIGHT ON THIS DATE?

External References

Name Field # of Occurrence
$$DATE^APCHSMU PWH+12
GETICDDX^APCHSUTL FHDSP+13
PRTICD^APCHSUTL FHDSP+31
PRTTXT^APCHSUTL WRITEAMI+16, WRITEAMI+27, WRITEST+13, WRITEST+39
$$LASTITEM^APCLAPIU WT+8
$$CONCPT^AUPNVUTL WRITEST+11
$$DESCPT^AUPNVUTL WRITEAMI+15, WRITEST+12
$$PNPROB^AUPNVUTL FHDSP+16
$$GET1^DIQ WRITEAMI+4, WRITEAMI+5, WRITEAMI+8, WRITEAMI+15, WRITEAMI+18, WRITEAMI+26, WRITEAMI+28, WRITEAMI+30, WRITEAMI+31, WRITEST+4
, WRITEST+12, WRITEST+15, WRITEST+16, WRITEST+21, WRITEST+32, WRITEST+38, WRITEST+40, WRITEST+42, WRITEST+43
^DIWP WP+6, WPSTR+6
$$VAL^XBDIQ1 FMH+9, FMH+11, FMH1+5, FHDSP+4, FHDSP+5, FHDSP+8, FHDSP+10, FHDSP+21, PWH+9, WT+10
$$VALI^XBDIQ1 WT+2, WT+6
$$REPEAT^XLFSTR PWH+16

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: "Date Last Mod",?14,"Relation/Status/Diagnosis"
  • Line Location: FMH1+9
Function Call: WRITE
  • Prompt: !,APCHTDAT,?14,APCHZ," Status: "
  • Line Location: FHDSP+1
Function Call: WRITE
  • Prompt: APCHSTAT,!
  • Line Location: FHDSP+6
Function Call: WRITE
  • Prompt: ?14,"Age at Death: ",$$VAL^XBDIQ1(9000014.1,APCHR,.05)," Cause of Death: ",$S($P(^AUPNFHR(APCHR,0),U,6)]"":$P(^AUPNFHR(APCHR,0),U,6),1:"Data Not Available"),!
  • Line Location: FHDSP+8
Function Call: WRITE
  • Prompt: ?14,"Multiple Birth: "_$$VAL^XBDIQ1(9000014.1,APCHR,.07)_$S($P(^AUPNFHR(APCHR,0),U,7)="Y":" Multiple Birth Type: "_$$VAL^XBDIQ1(9000014.1,APCHR,.08),1:""),!
  • Line Location: FHDSP+10
Function Call: WRITE
  • Prompt: !,APCHSDAT
  • Line Location: FHDSP+17
Function Call: WRITE
  • Prompt: "No Patient Wellness Handouts given to this patient.",!
  • Line Location: PWH+14
Function Call: WRITE
  • Prompt: ?2,"PATIENT WELLNESS HANDOUT TYPE",?34,"# given",?42,"Dates Last 4 Given to Patient",!
  • Line Location: PWH+15
Function Call: WRITE
  • Prompt: $$REPEAT^XLFSTR("-",79),!
  • Line Location: PWH+16
Function Call: WRITE
  • Prompt: ?42,$P(O,U,N)," ",$P(O,U,N-1)," ",$P(O,U,N-2)," ",$P(O,U,N-3),!
  • Line Location: PWH+20
Function Call: WRITE
  • Prompt: !
  • Line Location: WP+2
Function Call: WRITE
  • Prompt: ?3,"Fibrinolytic therapy started at: ",$$GET1^DIQ(9000010.62,APCHX,.11)," by ",$$GET1^DIQ(9000010.62,APCHX,.13),!
  • Line Location: WRITEAMI+28
Function Call: WRITE
  • Prompt: !
  • Line Location: WPSTR+2
Function Call: WRITE
  • Prompt: ?6,"Weight: ",$P(APCHY,U)," lbs ("_$P(APCHY,U,2),")",!
  • Line Location: WRITEST+27
Function Call: WRITE
  • Prompt: ?3,"Fibrinolytic therapy started at: ",$$GET1^DIQ(9000010.63,APCHX,.11)," by ",$$GET1^DIQ(9000010.3,APCHX,.13),!
  • Line Location: WRITEST+40

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^AUPNVAMI - [#9000010.62] GET1^DIQ
9000010.6213 GET1^DIQ
9000010.6214 GET1^DIQ
^AUPNVSTR - [#9000010.63] GET1^DIQ
9000010.6313 GET1^DIQ
9000010.6314 GET1^DIQ
9000010.6315 GET1^DIQ
9000010.632 GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^APCHPWHL - [#9001027] PWH+7, PWH+12
^APCHPWHL("AA" PWH+5, PWH+6
^AUPNFH - [#9000014] FMH+7, FMH+8, LDM+2, LDM+5, LDM+6, LDM+7, FHDSP+4, FHDSP+12, FHDSP+21
^AUPNFH("AC" FMH+2, FMH+6
^AUPNFH("AE" FMH1+3
^AUPNFHR - [#9000014.1] FMH+11, FMH+12, FMH1+5, FMH1+6, FMH1+8, LDM+5, FHDSP+5, FHDSP+7, FHDSP+8, FHDSP+9
, FHDSP+10
^AUPNFHR("AA" FMH+2, FMH1+2
^AUPNVAMI - [#9000010.62] AMI+12, AMI+13, WP+2, WP+5, WP+6, WRITEAMI+11, WRITEAMI+13, WRITEAMI+23, WRITEAMI+25, WRITEAMI+28
, WRITEAMI+29
^AUPNVAMI("AA" AMI+3, AMI+8, AMI+9, AMI+11
^AUPNVSIT - [#9000010] WT+4, WT+5
^AUPNVSTR - [#9000010.63] STROKE+12, STROKE+13, WPSTR+2, WPSTR+5, WPSTR+6, WRITEST+8, WRITEST+10, WRITEST+19, WRITEST+30, WRITEST+35
, WRITEST+37, WRITEST+40, WRITEST+41
^AUPNVSTR("AA" STROKE+3, STROKE+8, STROKE+9, STROKE+11
^AUTTRLSH - [#9999999.36] FMH+12, FMH1+6
^UTILITY($J WP+1!, WP+8, WP+10, WP+12!, WPSTR+1!, WPSTR+8, WPSTR+10, WPSTR+12!

Label References

Name Line Occurrences
$$LDM FMH1
$$WT WRITEST+26
FHDSP FMH2+6
FMH1 FMH+9
FMH2 FMH1+10
WP WRITEAMI+7
WRITEAMI AMI+15
WRITEST STROKE+15

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
A FHDSP+18*, FHDSP+21*, FHDSP+27, WT+1~, WT+2*, WT+3, WT+4, WT+5
APCHARR AMI+7*, AMI+8*, AMI+9, AMI+11, AMIX!, STROKE+7*, STROKE+8*, STROKE+9, STROKE+11, STROKEX!
>> APCHC FMH2+1*, FMH2+5*, FHDSP*, FHDSP+1, FHDSP+6, FHDSP+8, FHDSP+10
APCHD FMHX!, FMH2+5*, FMH2+6
>> APCHIEN PWH+6*, PWH+7, PWH+9, PWH+12
APCHNODE STROKEX!, WPSTR+2, WPSTR+5, WPSTR+6
>> APCHO FMH1+10*, FMH2+1, FMH2+2, FMH2+3, FMH2+4, FMH2+5, FMH2+6
APCHORD AMIX!, STROKEX!
>> APCHQIT WRITEST+30
APCHR FMHX!, FMH2+3*, FMH2+4, FMH2+5, FMH2+6, FHDSP+3, FHDSP+5, FHDSP+7, FHDSP+8, FHDSP+9
, FHDSP+10
APCHS FMHX!, FMH2+1*, FMH2+2, FMH2+3, FMH2+4, FMH2+5, FMH2+6
>> APCHSBRK FMH+3, PWH+2, AMI+4, STROKE+4
>> APCHSCKP FMH+3, FHDSP+17, PWH+2, AMI+6, WP+9, WRITEAMI+2, WRITEAMI+17, WRITEAMI+21, WRITEAMI+24, STROKE+6
, WPSTR+9, WRITEST+2, WRITEST+14, WRITEST+18, WRITEST+25, WRITEST+31, WRITEST+33, WRITEST+36
>> APCHSCVD FMH2+4
APCHSDAT FMHX!
APCHSDFN FMH+6*, FMH+7, FMH+8, FMH+9, FMH1, FMHX!, FMH2+6*, FHDSP+3, FHDSP+4, FHDSP+11
, FHDSP+12, FHDSP+21
>> APCHSDLM PWH+5, AMI+7, AMI+9, STROKE+7, STROKE+9
>> APCHSDLZ AMI+7*, AMI+8, STROKE+7*, STROKE+8
APCHSICD FMHX!, FHDSP+13*
APCHSICL FMHX!, FHDSP+30*, AMIX!, WRITEAMI+16*, WRITEAMI+27*, STROKEX!, WRITEST+13*, WRITEST+39*
>> APCHSIVD PWH+5*, PWH+6, AMI+9*, AMI+11, WRITEAMI+1*, WRITEAMI+3, STROKE+9*, STROKE+11, WRITEST+1*, WRITEST+3
APCHSN FMHX!, FHDSP+12*, FHDSP+13, FHDSP+15, PWH+7*, PWH+8, PWH+17*, PWH+18, PWH+20, PWH+22!
>> APCHSNPG FMH+3, PWH+2
APCHSNRQ FMHX!, FHDSP+15*, FHDSP+16*, FHDSP+20*, FHDSP+26, FHDSP+30*, AMIX!, WRITEAMI+16*, WRITEAMI+27*, STROKEX!
, WRITEST+13*, WRITEST+39*
>> APCHSPAT FMH+2, FMH+6, FMH1+2, PWH+5, PWH+6, AMI+3, AMI+8, AMI+9, AMI+11, STROKE+3
, STROKE+8, STROKE+9, STROKE+11
>> APCHSQIT FMH+3, FMH2+1, FMH2+2, FMH2+3, FMH2+5, FMH2+6, FHDSP+17, PWH+2, PWH+17, AMI+6
, WP+8, WP+9, WRITEAMI+1, WRITEAMI+2, WRITEAMI+3, WRITEAMI+11, WRITEAMI+17, WRITEAMI+21, WRITEAMI+23, WRITEAMI+24
, STROKE+6, WPSTR+8, WPSTR+9, WRITEST+1, WRITEST+2, WRITEST+3, WRITEST+8, WRITEST+14, WRITEST+18, WRITEST+19
, WRITEST+25, WRITEST+31, WRITEST+33, WRITEST+35, WRITEST+36
>> APCHSTAT FHDSP+2*, FHDSP+4*, FHDSP+5*, FHDSP+6
APCHSTXA AMI+1!, AMIX!, STROKE+1!, STROKEX!
APCHSTXA("DATE" AMI+14*, WRITEAMI+1, WRITEAMI+3, STROKE+14*, WRITEST+1, WRITEST+3
APCHSTXT AMIX!, WRITEAMI+16*, WRITEAMI+27*, STROKEX!, WRITEST+13*, WRITEST+39*
>> APCHTD FMH2+4*
>> APCHTDAT FMH2+4*, FHDSP+1
APCHTFH FMH+5!, FMHX!, PWH+4!, PWH+14, PWH+22!
APCHTFH( FMH1*, FMH1+8*, FMH1+10, FMH2+1, FMH2+2, FMH2+3, FMH2+4, FMH2+5, FMH2+6, PWH+10*
, PWH+11, PWH+12*, PWH+17, PWH+18, PWH+20
>> APCHX WP+2, WP+5, WP+6, WRITEAMI+3*, WRITEAMI+4, WRITEAMI+5, WRITEAMI+8, WRITEAMI+11, WRITEAMI+13, WRITEAMI+15
, WRITEAMI+18, WRITEAMI+23, WRITEAMI+25, WRITEAMI+26, WRITEAMI+28, WRITEAMI+29, WRITEAMI+30, WRITEAMI+31, WPSTR+2, WPSTR+5
, WPSTR+6, WRITEST+3*, WRITEST+4, WRITEST+8, WRITEST+10, WRITEST+12, WRITEST+15, WRITEST+16, WRITEST+19, WRITEST+21
, WRITEST+26, WRITEST+30, WRITEST+32, WRITEST+35, WRITEST+37, WRITEST+38, WRITEST+40, WRITEST+41, WRITEST+42, WRITEST+43
APCHY WP+3~, WP+4*, WP+5*, WP+6, WP+12!, WRITEAMI+11*, WRITEAMI+13, WRITEAMI+15, WRITEAMI+18, WRITEAMI+23*
, WRITEAMI+25, WRITEAMI+26, WPSTR+3~, WPSTR+4*, WPSTR+5*, WPSTR+6, WPSTR+12!, WRITEST+8*, WRITEST+10, WRITEST+12
, WRITEST+15, WRITEST+16, WRITEST+19*, WRITEST+21, WRITEST+26*, WRITEST+27, WRITEST+30*, WRITEST+32, WRITEST+35*, WRITEST+37
, WRITEST+38
APCHZ FMHX!, FMH2+2*, FMH2+3, FMH2+4, FMH2+5, FMH2+6, FHDSP+1, WRITEAMI+13*, WRITEAMI+15, WRITEAMI+25*
, WRITEST+10*, WRITEST+11, WRITEST+12, WRITEST+19*, WRITEST+20*, WRITEST+21*, WRITEST+22, WRITEST+37*
B WT+1~
C WT+1~, WT+8*, WT+9, WT+10
D LDM+3~, LDM+4*, LDM+5*, LDM+6*, LDM+7*, LDM+8, AMI+13*, AMI+14, STROKE+13*, STROKE+14
, WT+1~, WT+5*, WT+8
DIWF WP+11!, WPSTR+11!
DIWL WP+5*, WP+8, WP+10, WP+11!, WPSTR+5*, WPSTR+8, WPSTR+10, WPSTR+11!
DIWR WP+5*, WP+11!, WPSTR+5*, WPSTR+11!
E LDM+3~, LDM+6*, LDM+7*
I LDM~, LDM+1, LDM+2, LDM+5, LDM+6, LDM+7
J LDM+3~, LDM+5*
>> N FHDSP+18*, PWH+9*, PWH+10, PWH+11, PWH+12, PWH+19*, PWH+20
>> O FMH+9*, FMH+12*, FMH+13*, FMH1, FMH1+6*, FMH1+7*, FMH1+8, PWH+18*, PWH+19, PWH+20
P FHDSP+18*, PWH+11*, PWH+12, WT+1~, WT+6*, WT+7, WT+8
>> R FMH+8*, FMH+9*, FMH+11, FMH+12, FMH1, FMH1+4*, FMH1+5, FMH1+6, FMH1+8, FHDSP+18*
>> S FMH+9*, FMH+10*, FMH+11*, FMH1, FMH1+5*, FMH1+8, FHDSP+18*
U FMH+8, FMH+11, FMH+12, FMH1+5, FMH1+6, FMH1+8, LDM+5, LDM+6, LDM+7, FHDSP+4
, FHDSP+5, FHDSP+7, FHDSP+8, FHDSP+9, FHDSP+10, FHDSP+13, FHDSP+15, FHDSP+21, PWH+10, PWH+11
, PWH+12, PWH+18, PWH+19, PWH+20, AMI+12, WRITEAMI+15, WRITEAMI+28, WRITEAMI+29, STROKE+12, WRITEST+11
, WRITEST+12, WRITEST+27, WRITEST+40, WRITEST+41, WT+5, WT+10
V WT~, WT+2, WT+6
>> X FMH1+2*, FHDSP+18*, FHDSP+26*, FHDSP+27*, FHDSP+30, AMI+11*, AMI+12, AMI+13, AMI+14, WP+6*
, WRITEAMI+15*, WRITEAMI+16, WRITEAMI+26*, WRITEAMI+27, STROKE+11*, STROKE+12, STROKE+13, STROKE+14, WPSTR+6*, WRITEST+12*
, WRITEST+13, WRITEST+38*, WRITEST+39
>> Y FMH1+2*, FMH1+3, FMH1+4, FMH2+4*
Z FMH+9*, FMH+10*, FMH+11*, FMH1, FMH1+5*, FMH1+8, WP+8*, WP+10, WP+11!, WPSTR+8*
, WPSTR+10, WPSTR+11!
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