Routine: BHSPL

Information

BHSPL ;IHS/MSC/MGH - Health Summary for Problem list ;18-Sep-2013 09:44;DU

Source Information

Source file <BHSPL.m>

Call Graph

Call Graph Total: 8

Package	Total	Call Graph
GUI Objects	2	$$CONCEPT^BGOPAUD DETAIL^BGOPRDD
Health Summary	2	REGDT4^GMTSU CKP^GMTSUP
Health Summary Components	1	(GETNARR,GETPLICD,GETSITE,PRTICD,PRTTXT)^BHSUTL
Kernel	1	$$FMTE^XLFDT
Patient Care Component Reports	1	($$LASTNAP,$$LASTPLR,$$LASTPLU)^APCLAPI6
VA Fileman	1	$$GET1^DIQ

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
Health Summary Components	1	BHSPLST

Entry Points

Name	Comments	DBIA/ICR reference
PROBDSP	; ; <SETUP PROBLEM>
RECON(PROB)	;Find when this problem was reconciled
IPROB
NOTEDSP	; DISPLAY NOTES UNDER BHSPRBLEM
QUAL(IEN)	;Get any qualifiers for this problem
DSPN	; DISPLAY SINGLE NOTE
APROB
PROBSCH	;
COMMON1	;additional stuff for review IHS/MSC/MGH
TMPGBL()	;EP
DSPFACN	; DISPLAY NOTES FOR SELECTED APSHCFACILITY
INPROB	;DISPLAY PROBLEM DETAILS OF INACTIVE PROBLEMS
COMMON	;
PROBX
PROB	; EP ******************** PROBLEM / NOTES * 9000011 *********
PLDETAIL	;DISPLAY PROBLEM DETAILS IN HELATH SUMMARY

External References

Name	Field # of Occurrence
$$LASTNAP^APCLAPI6	COMMON1+9
$$LASTPLR^APCLAPI6	COMMON1+2
$$LASTPLU^APCLAPI6	COMMON1+5
$$CONCEPT^BGOPAUD	QUAL+9
DETAIL^BGOPRDD	PLDETAIL+12, INPROB+13
GETNARR^BHSUTL	PROBDSP+5
GETPLICD^BHSUTL	PROBDSP+4
GETSITE^BHSUTL	PROBDSP+6, DSPFACN+2
PRTICD^BHSUTL	PROBDSP+18
PRTTXT^BHSUTL	DSPN+8
$$GET1^DIQ	PROBDSP+3, RECON+6, RECON+7, QUAL+8
REGDT4^GMTSU	PROBDSP+9, PROBDSP+10, PROBDSP+12, DSPN+3
CKP^GMTSUP	COMMON+7, COMMON+9, COMMON1+3, COMMON1+6, COMMON1+10, PROBDSP+16, DSPN+7, PLDETAIL+6, PLDETAIL+15, INPROB+7 , INPROB+16
$$FMTE^XLFDT	COMMON1+4, COMMON1+7, COMMON1+11

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ?13,"ENT. MODIFIED",! Line Location: COMMON+10
Function Call: WRITE	Prompt: !,"Problem List Reviewed On: ",?36,$$FMTE^XLFDT($P(BHSX,U,1)) Line Location: COMMON1+4
Function Call: WRITE	Prompt: ?51,"By: ",?54,$E($S($P(BHSX,U,3):$P($G(^VA(200,$P(BHSX,U,3),0)),U),1:""),1,25),! Line Location: COMMON1+4
Function Call: WRITE	Prompt: "Problem List Updated On: ",?36,$$FMTE^XLFDT($P(BHSX,U,1)) Line Location: COMMON1+7
Function Call: WRITE	Prompt: ?51,"By: ",?54,$E($S($P(BHSX,U,3):$P($G(^VA(200,$P(BHSX,U,3),0)),U),1:""),1,25),! Line Location: COMMON1+7
Function Call: WRITE	Prompt: ?51,"By: ",$E($S($P(BHSX,U,3):$P($G(^VA(200,$P(BHSX,U,3),0)),U),1:""),1,25),! Line Location: COMMON1+11
Function Call: WRITE	Prompt: BHSPLN Line Location: PROBDSP+18
Function Call: WRITE	Prompt: ?10,BHSFCN_" Note "_$P(BHSN,U) Line Location: DSPN+7
Function Call: WRITE	Prompt: !,"Active Problem List",! Line Location: PLDETAIL+15
Function Call: WRITE	Prompt: !,"Inactive Problem List",! Line Location: INPROB+16
Function Call: WRITE	Prompt: !,?10,"QUALIFIERS",! Line Location: QUAL+19
Function Call: WRITE	Prompt: ?10,STRING,! Line Location: QUAL+20
Function Call: WRITE	Prompt: ?10,STRING2,! Line Location: QUAL+21
Function Call: WRITE	Prompt: ?10,STRING3,! Line Location: QUAL+22

FileNo	Call Tags
^AUPNPROB - [#9000011]	GET1^DIQ
90461.632	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNPROB - [#9000011]	PROBSCH+3, PROBDSP+2, NOTEDSP+1, DSPFACN+1, DSPFACN+2, DSPFACN+3, PLDETAIL+9, INPROB+10, QUAL+2, QUAL+6
^AUPNPROB("AA"	COMMON+5, PROBSCH+1, PROBSCH+2
^AUPNPROB("AC"	PLDETAIL+7, INPROB+8
^BEHOCIR("G"	RECON+3, RECON+4
^TMP("BHSPL"	TMPGBL+1!
^VA(200 - [#200]	COMMON1+4, COMMON1+7, COMMON1+11

Name	Line Occurrences
$$TMPGBL	INPROB+5
COMMON	APROB
DSPFACN	NOTEDSP+1
DSPN	DSPFACN+3
NOTEDSP	PROBDSP+19
PROBDSP	COMMON+11
PROBSCH	COMMON+5
PROBX	COMMON+7
QUAL	PROBDSP+20
RECON	PROBDSP+21

Name	Field # of Occurrence
^(	DSPFACN+3
^($J	TMPGBL+1
^(0	DSPFACN+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
AIEN	RECON+1~, RECON+5, RECON+6, RECON+7, QUAL+1~, QUAL+7, QUAL+8
BHSDFN	COMMON+11, PROBX!, PROBSCH+2, PROBSCH+3, PROBDSP+2, PROBDSP+3, PROBDSP+20, PROBDSP+21, NOTEDSP+1, DSPFACN+1 , DSPFACN+2, DSPFACN+3
BHSDFT	COMMON+4!, PROBX!
BHSDFT(	COMMON+11, PROBSCH+3*
BHSDOO	PROBX!, PROBDSP+12, PROBDSP+13, PROBDSP+14
BHSDTM	PROBX!, PROBDSP+9*, PROBDSP+15
BHSDTN	PROBX!, PROBDSP+10*, PROBDSP+15
BHSFAC	COMMON+1~, COMMON+5*, PROBX!, PROBSCH+1, PROBSCH+2, PROBSCH+3
BHSFCN	PROBX!, DSPFACN+2, DSPN+6, DSPN+7
BHSFPP	COMMON+1~, COMMON+11*, PROBX!
BHSICD	PROBX!, PROBDSP+4*
BHSICL	PROBX+1!, PROBDSP+18, DSPN+8
BHSILN	PROBX+1!, PROBDSP+18*
BHSITE	PROBX+2!, PROBDSP+6, DSPFACN+2
BHSN	PROBX+1!, PROBDSP+2, PROBDSP+4, PROBDSP+5, PROBDSP+6, PROBDSP+7, PROBDSP+9, PROBDSP+10, PROBDSP+11, DSPFACN+3 , DSPN+1, DSPN+2, DSPN+7
BHSNAB	PROBX+2!, PROBDSP+8, DSPFACN+2
BHSNAR	PROBX+1!, DSPN+2, DSPN+4, DSPN+8
BHSNDF	COMMON+4, COMMON+10, PROBX!, PROBSCH+3, DSPFACN+3*
BHSNFL	PROBX+2!
BHSNFP	PROBX!, NOTEDSP+1*, DSPFACN+1, DSPFACN+2, DSPFACN+3
BHSNRQ	PROBX!, PROBDSP+5, PROBDSP+17
BHSNSH	PROBX+2!
BHSNTE	PROBX+1!, PROBDSP+14*
BHSPAT	COMMON+1~, COMMON+2*, COMMON+5, COMMON1+2, COMMON1+5, COMMON1+9, PROBSCH+1, PROBSCH+2
BHSPBN	PROBX!
BHSPLN	PROBX!, PROBDSP+15*, PROBDSP+18
BHSPNM	PROBX!, PROBDSP+7, PROBDSP+8, PROBDSP+15
BHSPRB	PROBX!, PROBSCH+1*, PROBSCH+2, PROBSCH+3
BHSQ	COMMON+1~, COMMON+5, COMMON+11, PROBX+1!, PROBSCH+1, NOTEDSP+1, DSPFACN+3, DSPN+6
BHSSNO	PROBX+1!, PROBDSP+3*, PROBDSP+17
BHSTAT	APROB, IPROB, COMMON1+8, PROBX!, PROBSCH+3
BHSTXT	PROBX+1!, DSPN+8*
BHSVSC	PROBX+2!
BHSX	COMMON+1~, COMMON1+2, COMMON1+4, COMMON1+5, COMMON1+7, COMMON1+9*, COMMON1+11
BY	RECON+1~, RECON+7*, RECON+8, QUAL+1~
CNT	PLDETAIL+1~, PLDETAIL+5, INPROB+1~, INPROB+6
>> DFN	COMMON+2, PLDETAIL+7, PLDETAIL+12, INPROB+8, INPROB+13
DT	COMMON1+2, COMMON1+5, COMMON1+9
FNUM	QUAL+1~, QUAL+5*, QUAL+8
>> GMTSNPG	PROBDSP+16, PLDETAIL+15, INPROB+16
>> GMTSQIT	COMMON+7, COMMON+9, COMMON1+3, COMMON1+6, COMMON1+10, PROBDSP+16, DSPN+7, PLDETAIL+6, PLDETAIL+15, INPROB+7 , INPROB+16
I	PLDETAIL+1~, INPROB+1~
IEN	RECON+1~, RECON+4*, RECON+5, QUAL~, QUAL+2, QUAL+6, QUAL+7
IEN2	QUAL+1~, QUAL+6*, QUAL+7
LINE	PLDETAIL+1~, PLDETAIL+13, PLDETAIL+14, PLDETAIL+16, INPROB+1~, INPROB+14, INPROB+15, INPROB+17
>> NUM	PLDETAIL+3, PLDETAIL+12, INPROB+4, INPROB+13
PRIEN	PLDETAIL+1~, PLDETAIL+5, PLDETAIL+7, PLDETAIL+9, PLDETAIL+12, INPROB+1~, INPROB+6, INPROB+8, INPROB+10, INPROB+13
PROB	PLDETAIL+1~, INPROB+1~, RECON~, RECON+3, RECON+4
Q	QUAL+1~, QUAL+8, QUAL+9, QUAL+11, QUAL+12, QUAL+14, QUAL+15, QUAL+17, QUAL+18
REC	RECON+1~, RECON+2, RECON+3, RECON+4, RECON+5
RET	PLDETAIL+1~, PLDETAIL+4, PLDETAIL+12, PLDETAIL+14, PLDETAIL+16, PLDETAIL+17!, INPROB+1~, INPROB+5, INPROB+13, INPROB+15 , INPROB+17, INPROB+18!
STAT	PLDETAIL+1~, PLDETAIL+9, PLDETAIL+10, PLDETAIL+11, INPROB+1~, INPROB+10, INPROB+11, INPROB+12
STRING	QUAL+1~, QUAL+3, QUAL+11, QUAL+12, QUAL+17, QUAL+18*, QUAL+19, QUAL+20
STRING2	QUAL+1~, QUAL+3, QUAL+14, QUAL+15*, QUAL+19, QUAL+21
STRING3	QUAL+1~, QUAL+3*, QUAL+19, QUAL+22
TYPE	PLDETAIL+1~, PLDETAIL+2, PLDETAIL+11, INPROB+2, INPROB+12
U	COMMON1+4, COMMON1+7, COMMON1+11, PROBSCH+3, PROBDSP+4, PROBDSP+5, PROBDSP+6, PROBDSP+7, PROBDSP+9, PROBDSP+10 , PROBDSP+11, DSPN+1, DSPN+2, DSPN+7, PLDETAIL+9, INPROB+10
WHEN	RECON+1~, RECON+6*, RECON+8, QUAL+1~
X	PROBX+2!, PROBDSP+9, PROBDSP+10, PROBDSP+11, PROBDSP+12, PROBDSP+13, DSPN+2, DSPN+3, DSPN+4, QUAL+1~ , QUAL+4, QUAL+5, QUAL+6, QUAL+10, QUAL+13, QUAL+16
Y	PROBX+2!, PLDETAIL+1~, INPROB+1~

Customize PDF page

Package: Health Summary Components

Routine: BHSPL

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: