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 |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: BHSAAP1

Package: Health Summary Components

Routine: BHSAAP1


Information

BHSAAP1 ;IHS/MSC/MGH - Health summmary for asthma action plan;06-May-2010 10:41;MGH

Source Information

Source file <BHSAAP1.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
Kernel 2 $$FMTE^XLFDT  $$REPEAT^XLFSTR  
Health Summary 1 CKP^GMTSUP  
Health Summary Components 1 PRINT^BHSAAP2  
IHS Patient 1 ($$AGE,$$DOB)^AUPNPAT  

Entry Points

Name Comments DBIA/ICR reference
HEAD ;
EHR ; ;EP
RESMED ;
HEAD1 ;
CTR(X,Y) ;EP - Center X in a field Y wide.
REDZONE(P) ;EP - get last recorded red zone instructions
YELZONE(P) ;EP - get last recorded yellow zone instructions
PRINT ;Print out the health summary
RELMED ;

External References

Name Field # of Occurrence
$$AGE^AUPNPAT HEAD1+5
$$DOB^AUPNPAT HEAD1+4
PRINT^BHSAAP2 PRINT+1
CKP^GMTSUP EHR+2
$$FMTE^XLFDT HEAD1+2
$$REPEAT^XLFSTR HEAD1+6

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Patient's chart number is ",$P(^(0),U,2),!
  • Condition for execution: $D(^AUPNPAT(DFN,41,DUZ(2),0))
  • Line Location: EHR+3
Function Call: WRITE
  • Prompt: !
  • Line Location: EHR+3
Function Call: WRITE
  • Prompt: !
  • Line Location: HEAD+1
Function Call: WRITE
  • Prompt: !,$P(^DIC(4,DUZ(2),0),U),?53,"Today's Date: ",$$FMTE^XLFDT(DT),!
  • Line Location: HEAD1+2
Function Call: WRITE
  • Prompt: "Patient Name: ",$P(^DPT(DFN,0),U)
  • Line Location: HEAD1+3
Function Call: WRITE
  • Prompt: ?45,"Birth Date: ",$$DOB^AUPNPAT(DFN,"E")
  • Line Location: HEAD1+4
Function Call: WRITE
  • Prompt: ?71,"Age: ",$$AGE^AUPNPAT(DFN),!
  • Line Location: HEAD1+5
Function Call: WRITE
  • Prompt: $$REPEAT^XLFSTR("_",79),!!
  • Line Location: HEAD1+6

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNPAT - [#9000001] EHR+3
^AUPNVAST - [#9000010.41] REDZONE+7, YELZONE+6
^AUPNVAST("AA" REDZONE+5, REDZONE+6, YELZONE+4, YELZONE+5
^DIC(4 - [#4] HEAD1+2
^DPT - [#2] HEAD1+3

Label References

Name Line Occurrences
$$REDZONE RELMED+1
$$YELZONE RESMED+1
RESMED RELMED+2, RELMED+3

Naked Globals

Name Field # of Occurrence
^(0 EHR+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
BHSRELM EHR+1~, RELMED+1*, RELMED+2
BHSRESM EHR+1~, RESMED+1*, RESMED+2
BHSRZC EHR+1~, RELMED+2*, RELMED+3*
BHSRZY EHR+1~, RESMED+2*, RESMED+3*
D REDZONE+1~, REDZONE+3*, REDZONE+5*, REDZONE+6, REDZONE+7, YELZONE+1~, YELZONE+3*, YELZONE+4*, YELZONE+5, YELZONE+6
>> DFN EHR+3, RELMED+1, RESMED+1, HEAD1+3, HEAD1+4, HEAD1+5
DT HEAD1+2
DUZ(2 EHR+3, HEAD1+2
>> GMTSQIT EHR+2
I REDZONE+1~, REDZONE+6*, REDZONE+7, YELZONE+1~, YELZONE+5*, YELZONE+6
IOM CTR+1
P REDZONE~, REDZONE+5, REDZONE+6, YELZONE~, YELZONE+4, YELZONE+5
R REDZONE+1~, REDZONE+2*, REDZONE+5, REDZONE+6, REDZONE+7*, REDZONE+10, YELZONE+1~, YELZONE+2*, YELZONE+4, YELZONE+5
, YELZONE+6*, YELZONE+9
S REDZONE+1~, REDZONE+4*, REDZONE+7*, REDZONE+10, YELZONE+3*, YELZONE+6*, YELZONE+9
U EHR+3, RELMED+1, RESMED+1, REDZONE+7, REDZONE+10, YELZONE+6, YELZONE+9, HEAD1+2, HEAD1+3
X CTR~, CTR+1
Y CTR~, CTR+1
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All