Routine: APCDPROB

Package	Total	Call Graph
IHS Patient	1	$$PNPROB^AUPNVUTL
IHS VA Utilities	1	$$VAL^XBDIQ1
Kernel	1	$$FMTE^XLFDT
Patient Care Component Reports	1	($$LASTNAP,$$LASTPLR,$$LASTPLU)^APCLAPI6

Package	Total	Caller Graph
Patient Care Component	1	APCDAPRB

Entry Points

Name	Comments	DBIA/ICR reference
GETNARR	;
DSPFACN	; DISPLAY NOTES FOR SELECTED FACILITY
NOTEDSP	; DISPLAY NOTES UNDER PROBLEM
PRTTXT	; GENERALIZED TEXT PRINTER
PROBDSP	;
PROBSCH	;
DSPN	; DISPLAY SINGLE NOTE
EOP	;end of page
COMMON	;
PROBX
PRTICD	;
GETSITE	;
GETFRAG
PRTTXT2

External References

Name	Field # of Occurrence
$$LASTNAP^APCLAPI6	APCDPROB+12
$$LASTPLR^APCLAPI6	APCDPROB+8
$$LASTPLU^APCLAPI6	APCDPROB+10
$$PNPROB^AUPNVUTL	GETNARR+2
$$VAL^XBDIQ1	PROBDSP+15
$$FMTE^XLFDT	APCDPROB+9, APCDPROB+11, APCDPROB+13

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Problem List Reviewed On: ",?24,$$FMTE^XLFDT($P(APCDSX,U,1)) Line Location: APCDPROB+9
Function Call: WRITE	Prompt: ?51,"By: ",?54,$E($S($P(APCDSX,U,3):$P($G(^VA(200,$P(APCDSX,U,3),0)),U),1:""),1,25),! Line Location: APCDPROB+9
Function Call: WRITE	Prompt: "Problem List Updated On: ",?36,$$FMTE^XLFDT($P(APCDSX,U,1)) Line Location: APCDPROB+11
Function Call: WRITE	Prompt: ?51,"By: ",?54,$E($S($P(APCDSX,U,3):$P($G(^VA(200,$P(APCDSX,U,3),0)),U),1:""),1,25),! Line Location: APCDPROB+11
Function Call: WRITE	Prompt: "No Active Problems Documented On: ",?36,$$FMTE^XLFDT($P(APCDSX,U,1)) Line Location: APCDPROB+13
Function Call: WRITE	Prompt: ?51,"By: ",$E($S($P(APCDSX,U,3):$P($G(^VA(200,$P(APCDSX,U,3),0)),U),1:""),1,25),! Line Location: APCDPROB+13
Function Call: READ	Timeout: DTIME Variable: X Line Location: APCDPROB+17
Function Call: WRITE	Prompt: !!,"Press return to continue " Line Location: APCDPROB+17
Function Call: WRITE	Prompt: !!,"********** No ",$S(APCDTTAT="A":"ACTIVE",1:"INACTIVE/RESOLVED")," Problems on file for this Patient",! Line Location: COMMON+1
Function Call: WRITE	Prompt: !!,"********** No Problems on file for this Patient",! Line Location: COMMON+2
Function Call: WRITE	Prompt: !,"********** No ",$S(APCDTTAT="A":"ACTIVE",1:"INACTIVE/RESOLVED")," Problems on file for this Patient",! Line Location: COMMON+5
Function Call: WRITE	Prompt: !,"********** No ",$S(APCDTTAT["A":"ACTIVE (ALL)",1:"INACTIVE")," Problems on file for this Patient",! Line Location: COMMON+7
Function Call: WRITE	Prompt: !!,"****************",$S(APCDTTAT["A":" ACTIVE (ALL) ",1:" INACTIVE "),"PROBLEMS AND NOTES ******************",!! Line Location: COMMON+8
Function Call: WRITE	Prompt: APCDTPLN Line Location: PROBDSP+14
Function Call: WRITE	Prompt: ?24,"Status: ",$$VAL^XBDIQ1(9000011,APCDTDFN,.12),! Line Location: PROBDSP+15
Function Call: WRITE	Prompt: APCDTPNM,APCDTFCN,$P(APCDTN,U),?12,APCDTDOI,?24,$P(APCDTN,U,3),! Line Location: DSPN+6
Function Call: WRITE	Prompt: ?APCDTICL Line Location: PRTTXT2+3
Function Call: WRITE	Prompt: APCDTF,! Line Location: PRTTXT2+3
Function Call: WRITE	Prompt: !,"Enter return to continue, '^' to exit" Line Location: EOP+1
Function Call: WRITE	Prompt: "??" Line Location: EOP+3

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNPROB - [#9000011]	PROBSCH+1, PROBDSP+1, NOTEDSP+1, DSPFACN+1, DSPFACN+2, DSPFACN+3, DSPFACN+4, DSPN+1
^AUPNPROB("AA"	COMMON+4, PROBSCH+1
^AUPNPROB("AC"	COMMON+2
^AUTTLOC - [#9999999.06]	GETSITE+2
^DIC(4 - [#4]	GETSITE+3
^VA(200 - [#200]	APCDPROB+9, APCDPROB+11, APCDPROB+13

Label References

Name	Line Occurrences
COMMON	APCDPROB+14
DSPFACN	NOTEDSP+1
DSPN	DSPFACN+4
EOP	PROBDSP+12, DSPN+5, PRTTXT2+1, EOP+3
GETFRAG	PRTTXT2
GETNARR	PROBDSP+3
GETSITE	PROBDSP+7, DSPFACN+3
NOTEDSP	PROBDSP+16
PROBDSP	COMMON+9
PROBSCH	COMMON+4
PROBX	APCDPROB+16
PRTICD	PROBDSP+14
PRTTXT	PRTICD+2
PRTTXT2	PRTTXT+3

Naked Globals

Name	Field # of Occurrence
^(	PROBSCH+1
^(0	GETSITE+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	GETSITE+2*, GETSITE+3, GETSITE+4, GETSITE+5
>> APCDPAT	APCDPROB+8, APCDPROB+10, APCDPROB+12, COMMON+2, COMMON+4, PROBSCH+1
APCDQUIT	APCDPROB+3~, APCDPROB+4, APCDPROB+14, APCDPROB+17, COMMON+4, COMMON+9, PROBSCH+1, PROBDSP+12, NOTEDSP+1, DSPFACN+4 , DSPN+5, PRTTXT2+2, EOP+2
APCDSX	APCDPROB+3~, APCDPROB+8, APCDPROB+9, APCDPROB+10, APCDPROB+11, APCDPROB+12*, APCDPROB+13
APCDTC	PRTTXT+4!, GETFRAG+1*, GETFRAG+2
APCDTCVD	APCDPROB+6*, APCDPROB+15!, PROBDSP+5, PROBDSP+10, PROBDSP+11, DSPN+4
APCDTDFN	COMMON+9, PROBX!, PROBSCH+1, PROBDSP+1, PROBDSP+15, NOTEDSP+1, DSPFACN+1, DSPFACN+2, DSPFACN+3, DSPFACN+4 , DSPN+1
APCDTDFT	COMMON+3!, PROBX!
APCDTDFT(	COMMON+9, PROBSCH+1*
APCDTDLT	PRTTXT+1, PRTTXT+4!, PRTTXT2+3
APCDTDOI	PROBX+1!, DSPN+4*, DSPN+6, DSPN+7!
APCDTDOO	PROBX+1!, PROBDSP+5*, PRTTXT+2, PRTTXT+4!
APCDTDTM	PROBX!, PROBDSP+10*, PROBDSP+13
APCDTDTN	PROBX!, PROBDSP+11*
APCDTF	PRTTXT+4!, PRTTXT2+3, GETFRAG, GETFRAG+2
APCDTFAC	COMMON+4*, PROBX!, PROBSCH+1
APCDTFCN	PROBX!, DSPFACN+3, DSPN+3, DSPN+6
APCDTFPP	COMMON+9*, PROBX!
APCDTICD	PROBX!, PRTICD+1*, PRTICD+2
APCDTICL	PROBX!, PROBDSP+14, PRTTXT+1, PRTTXT2+3
APCDTILN	PROBX!, PROBDSP+14, PRTTXT+1, PRTTXT+4!, PRTTXT2+3*, GETFRAG, GETFRAG+1
APCDTITE	PROBX+1!, PROBDSP+6, DSPFACN+3, GETSITE+1*, GETSITE+2, GETSITE+3, GETSITE+4, GETSITE+5
APCDTN	PROBX!, PROBDSP+1, PROBDSP+2, PROBDSP+5, PROBDSP+6, PROBDSP+8, PROBDSP+10, PROBDSP+11, DSPN+1, DSPN+2 , DSPN+4, DSPN+6
APCDTNAB	PROBX+1!, PROBDSP+9, DSPFACN+3, GETSITE+5*
APCDTNDF	COMMON+3, COMMON+7, PROBX!, PROBSCH+1, DSPFACN+4*, DSPN+1
APCDTNFL	PROBX+1!, GETSITE+3*
APCDTNFP	PROBX!, NOTEDSP+1*, DSPFACN+1, DSPFACN+2, DSPFACN+3, DSPFACN+4, DSPN+1
APCDTNRQ	PROBX!, PROBDSP+2, PROBDSP+4, PRTICD+1, PRTTXT+2, PRTTXT+3, GETNARR+2, GETNARR+3*
APCDTNSH	PROBX+1!, GETSITE+4*
APCDTPBN	PROBX!
APCDTPLN	PROBX!, PROBDSP+13*, PROBDSP+14
APCDTPNM	PROBX!, PROBDSP+8, PROBDSP+9, PROBDSP+13, DSPN+6
APCDTPRB	PROBX!, PROBSCH+1*
APCDTQ	APCDPROB+15!, COMMON+4, COMMON+9, PROBSCH+1, NOTEDSP+1, DSPFACN+4, DSPN+3, PRTTXT+3*
APCDTTAT	APCDPROB+14*, COMMON+7, COMMON+8, PROBX!, PROBSCH+1
APCDTTXT	PRTICD+2, PRTTXT+3, PRTTXT+4!, GETFRAG, GETFRAG+1, GETFRAG+2
APCDTVSC	PROBX+1!
DT	APCDPROB+8, APCDPROB+10, APCDPROB+12
DTIME	APCDPROB+17, EOP+1
IOF	APCDPROB+5, EOP+4
IOSL	APCDPROB+17, PROBDSP+12, DSPN+5, PRTTXT2+1
U	APCDPROB+9, APCDPROB+11, APCDPROB+13, PROBSCH+1, PROBDSP+2, PROBDSP+5, PROBDSP+6, PROBDSP+8, PROBDSP+10, PROBDSP+11 , DSPN+2, DSPN+4, DSPN+6, GETSITE+3, GETSITE+4, GETSITE+5
X	APCDPROB+17!, APCDPROB+18!, EOP+1, EOP+2, EOP+3
Y	APCDPROB+15!, PROBDSP+5, PROBDSP+10, PROBDSP+11, DSPN+4

Customize PDF page

Package: Patient Care Component

Routine: APCDPROB

Information

Source Information

Call Graph

Call Graph Total: 4

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: