Routine: PRCFAC0J

Customize PDF page

Select the objects that you wish to see in the downloaded PDF

Information

PRCFAC0J ;WISC/CLH-JUSTIFICATION DISPLAY ;2/20/92 2:04 PM

Source Information

Source file <PRCFAC0J.m>

Call Graph

Call Graph Total: 3

Package	Total	Call Graph
IFCAP	2	HILO^PRCFQ DIWP^PRCUTL
VA FileMan	1	^DIWW

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 2

Package	Total	Caller Graph
IFCAP	2	PRCFAC0 PRCFFMO

Entry Points

Name	Comments	DBIA/ICR reference
V	;;5.1;IFCAP;;Oct 20, 2000
DIS	;DISPLAY JUSTIFICATION OFF 2237
HANG	;PAUSE ON SCREEN

External References

Name	Field # of Occurrence
^DIWW	DIS+4
HILO^PRCFQ	V+2
DIWP^PRCUTL	DIS+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: IOINHI,"Justification(s): ",IOINORM,!! Line Location: V+3
Function Call: WRITE	Prompt: ?15,IOINHI,$C(7),"No Justification Information shown.",!!,IOINORM Line Location: V+5
Function Call: WRITE	Prompt: ?5,"Transaction Number: ",IOINHI,$P(^PRCS(410,PRCFA("JUST"),0),"^"),!!,IOINORM Line Location: DIS+1
Function Call: WRITE	Prompt: ! Line Location: DIS+5
Function Call: READ	Timeout: $S($D(DTIME):DTIME,1:60) Line Location: HANG+1
Function Call: WRITE	Prompt: @IOF Line Location: HANG+2

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PRC(442 - [#442]	V+4
^PRCS(410 - [#410]	V+4, DIS+1, DIS+3
^UTILITY($J	DIS+2!

Label References

Name	Line Occurrences
DIS	V+4
HANG	DIS+2, DIS+3

Naked Globals

Name	Field # of Occurrence
^(	DIS+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> DA	DIS+3
>> DIWF	DIS+2*
>> DIWL	DIS+2*
>> DIWR	DIS+2*
DTIME	HANG+1
IOF	HANG+2
>> IOINHI	V+3, V+5, DIS+1
>> IOINORM	V+3, V+5, DIS+1
IOSL	DIS+2, DIS+3
IOST	HANG+1
>> J	V+4*
>> L	DIS+3*
>> PRCFA("J1"	DIS+3*
>> PRCFA("JUST"	V+4*, DIS+1, DIS+3
>> PRCFA("NO"	Press return to continue:V+4, V+5, DIS+5
>> PRCFA("PODA"	V+4
>> PRCFA("XX"	DIS+3*, DIS+4
PRCFAX	DIS+2!, DIS+3, HANG+1!*
>> X	DIS+3*
>> XX	HANG+1*