Routine: ORCSIGN

Call Graph

Call Graph Total: 22

Package	Total	Call Graph
Order Entry Results Reporting	16	EN^OCXOERR $$XQAKILL^ORB3F1 $$ORDITEM^ORCACT $$VALID^ORCACT0 LTRAY^ORCDFH $$ORDERS^ORCHART FREEZE^ORCMENU ($$LOCATION,ORDCHK)^ORCMENU1 EN^ORCSEND (BHS,BTS)^ORMBLD $$LOC^ORMEVNT $$PKG^ORMPS1 PRINT^ORPR02 ($$CHART,$$SIGSTS)^ORX1 ($$LOCK,$$LOCK1,UNLK1,UNLOCK)^ORX2 $$MSG^ORXD
Kernel	4	$$NOW^XLFDT $$LOW^XLFSTR (DELETE,DELETEA)^XQALERT SIG^XUSESIG
Toolkit	1	$$GET^XPAR
VA Fileman	1	^DIR

Package	Total	Caller Graph
Order Entry Results Reporting	11	ORCACT01 ORCACT1 ORCACT2 ORCB ORCMENU2 ORCSAVE2 ORCSEND OREVNT1 ORMLR1 ORWD ORWORB

Package

Total

Caller Graph

Order Entry Results Reporting

ORCACT01 ORCACT1 ORCACT2 ORCB ORCMENU2 ORCSAVE2 ORCSEND OREVNT1
ORMLR1 ORWD ORWORB

Entry Points

Name	Comments	DBIA/ICR reference
NATURE()	; -- Returns nature of order/activity
ENQ0
EN	; -- start here
ENQ
NOTIF	; -- Trigger unsigned orders notification
ESIG()	; -- Get electronic signature
FINDLOC()	; -- Determine location from selected orders
CHART	; -- Trigger chart signature notification
SELSIG()	; -- Select type of signature &/or release [ORELSE holders only]
WORK(NATR)	; -- Returns 1 or 0, to print work copies for NATR
VALID	; -- validate ORDER for signature/release
EN1
EN2
EN3
ONCHART()	; -- Signed on Chart?
UNLOCK	; -- Unlock orders in ORES(ORDER)
READ	; -- Press return to continue
UNOTIF	; -- Undo unsigned orders notification
CKAUTH(SIGN,NOT)	; -- Ck authorization needed
STATUS(ORD)	; -- return [release] status of order ORD
SETPRINT	; -- Set print arrays

External References

Name	Field # of Occurrence
^DIR	EN3+5, ONCHART+5, SELSIG+8, NATURE+5, READ+3
EN^OCXOERR	CHART+2, NOTIF+2
$$XQAKILL^ORB3F1	UNOTIF+4
$$ORDITEM^ORCACT	EN2+7, EN2+9, VALID+2, VALID+3, VALID+6
$$VALID^ORCACT0	VALID+2
LTRAY^ORCDFH	EN2+12
$$ORDERS^ORCHART	EN+4
FREEZE^ORCMENU	EN+5
$$LOCATION^ORCMENU1	EN+6
ORDCHK^ORCMENU1	EN1+1
EN^ORCSEND	EN2+4
BHS^ORMBLD	EN1+12
BTS^ORMBLD	EN2+14
$$LOC^ORMEVNT	EN3
$$PKG^ORMPS1	VALID+5
PRINT^ORPR02	EN3+6, EN3+7
$$CHART^ORX1	EN1+10
$$SIGSTS^ORX1	EN1+8
$$LOCK^ORX2	EN+3
$$LOCK1^ORX2	VALID+3
UNLK1^ORX2	EN2+4, EN2+5, UNLOCK+2
UNLOCK^ORX2	ENQ
$$MSG^ORXD	VALID+6
$$NOW^XLFDT	EN2+11
$$LOW^XLFSTR	STATUS+3
$$GET^XPAR	EN1+9, EN1+11, ONCHART+2, SELSIG+4
DELETE^XQALERT	UNOTIF+5
DELETEA^XQALERT	UNOTIF+6
SIG^XUSESIG	ESIG+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Insufficient privilege!" Line Location: EN+1
Function Call: WRITE	Prompt: !!,$C(7),$P(ORPTLK,U,2) Line Location: EN+3
Function Call: WRITE	Prompt: !,"These order(s) do not require a signature." Line Location: EN1+4
Function Call: WRITE	Prompt: !,"Nothing signed or released!" Line Location: EN1+5
Function Call: WRITE	Prompt: !!,"Processing orders ..." Line Location: EN1+12
Function Call: WRITE	Prompt: !!,$$ORDITEM^ORCACT(ORDER)_" "_$$STATUS(ORDER) Line Location: EN2+7
Function Call: WRITE	Prompt: !,$$ORDITEM^ORCACT(ORIFN)_" (LB #"_+^OR(100,ORIFN,4)_")" Line Location: EN2+9
Function Call: WRITE	Prompt: "." Line Location: EN2+13
Function Call: WRITE	Prompt: $C(7),!,"You do not have an electronic signature code." Line Location: ESIG+3
Function Call: WRITE	Prompt: !,"Please contact your IRM office." Line Location: ESIG+4
Function Call: WRITE	Prompt: !!,$S($G(ES):" ES Electronic Signature ",1:"")_" OC Signed on Chart RS Release w/o MD Signature",! Line Location: SELSIG+7
Function Call: WRITE	Prompt: !!,"Cannot sign "_$$ORDITEM^ORCACT(ORDER),!," >> "_ORERR Line Location: VALID+2
Function Call: WRITE	Prompt: !!,"Cannot sign "_$$ORDITEM^ORCACT(ORDER),!," >> "_$P(ORLK,U,2) Line Location: VALID+3
Function Call: WRITE	Prompt: !!,"Cannot release "_$$ORDITEM^ORCACT(ORDER),!," >> "_$P(OROUT,U,2) Line Location: VALID+6
Routine Call	DIR Line Location: EN3+5 ONCHART+5 SELSIG+8 NATURE+5 READ+3

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC(9.4 - [#9.4]	EN+9
^OR(100 - [#100]	EN+15, EN+16, EN2+1, EN2+9, CKAUTH+5, SETPRINT+1, UNOTIF+1, VALID+4, VALID+5, STATUS+1 , STATUS+3, FINDLOC+4
^ORD(100.01 - [#100.01]	STATUS+3
^ORD(100.02 - [#100.02]	WORK+1, WORK+2
^ORD(100.9 - [#100.9]	UNOTIF+3, UNOTIF+6
^ORD(100.98 - [#100.98]	EN2+10
^ORD(101.41 - [#101.41]	VALID+7
^SC - [#44]	EN3+2, EN3+4
^TMP("OR"	EN+11, CKAUTH+3, FINDLOC+3
^TMP("ORNEW"	EN2+5, ENQ
^VA(200 - [#200]	ESIG+2
^XUSEC("ORELSE"	EN+1, EN+7
^XUSEC("OREMAS"	EN+1, EN+7
^XUSEC("ORES"	EN+1, EN+7, EN1+11

Name	Line Occurrences
$$ESIG	EN1+6, EN1+8
$$FINDLOC	EN+6
$$NATURE	EN+8
$$ONCHART	EN1+7
$$SELSIG	EN+7
$$STATUS	EN2+7
$$WORK	EN3+7
CKAUTH	SELSIG+2
ENQ	EN+6, EN+7, EN1, EN1+2, EN1+5
ENQ0	EN1+1
READ	ENQ
SETPRINT	EN2+13
UNLOCK	EN1+2, EN1+5
UNOTIF	ENQ0
VALID	EN+14

Name	Field # of Occurrence
^(	EN2+5!
^(0	EN2+1, VALID+4
^(7	VALID+7
^(8	EN2+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ACT	CKAUTH+1~, CKAUTH+4*
CODE	ESIG+1~, ESIG+2*
DIR	EN3+1~, ONCHART+1~, SELSIG+1~, NATURE+1~, READ+1~
DIR("?"	EN3+4, ONCHART+4, SELSIG+5, SELSIG+6, NATURE+4*
DIR("A"	EN3+2, EN3+3, ONCHART+3, SELSIG+3, NATURE+1, READ+2
DIR("B"	EN3+1, ONCHART+2, SELSIG+4, NATURE+2
DIR(0	EN3+1, ONCHART+1, SELSIG+3, NATURE+3, READ+2*
DT	EN2+12
>> DTOUT	ONCHART+5, SELSIG+8, NATURE+5
>> DUOUT	ONCHART+5, SELSIG+8, NATURE+5
DUZ	EN+1, EN+7, EN1+11, ESIG+2, NATURE+2
ELSE	SELSIG+1~, SELSIG+2
ES	SELSIG+1~, SELSIG+2, SELSIG+3, SELSIG+4, SELSIG+5, SELSIG+7
I	CKAUTH+1~, CKAUTH+2*
IDX	EN+2~, EN+11*
IFN	CKAUTH+1~, CKAUTH+3, CKAUTH+4, CKAUTH+5
N	CKAUTH+1~, CKAUTH+2*, CKAUTH+3
NATR	WORK~, WORK+1*, WORK+2
NMBR	EN+2~, EN+10*, EN+11
NOT	CKAUTH~, CKAUTH+1, CKAUTH+6
OR0	EN+2~, EN2+1*, EN2+9, EN2+10
ORA0	EN+2~, EN2+1*, EN2+2, EN2+3, EN2+9, EN2+10, SETPRINT+2
ORACT	EN+2~, EN+7*, EN+8, EN1+6, EN1+7, EN1+8, VALID+2
ORB	CHART+1~, CHART+2, NOTIF+1~, NOTIF+2
ORCCNAT	EN+2~, EN1+10*, SETPRINT+4
ORCHART	EN+2~, EN1+10, EN3+6, SETPRINT+4
ORCHART(	SETPRINT+4*
ORCHART(0	EN3, EN3+6
ORCL	EN+2~, EN3*, EN3+2, EN3+5
ORD	STATUS~, STATUS+1, STATUS+3
ORDA	EN+2~, EN+13, EN+16, EN2+2, EN2+5, VALID+5, VALID+7
ORDATE	EN2+11~, EN2+12*
ORDER	EN+2~, EN+11, EN+12, EN+13, EN+14, EN2*, EN2+1, EN2+2, EN2+4, EN2+7 , SETPRINT+3, SETPRINT+4, VALID+2, VALID+3, VALID+6
ORDIALOG	VALID+1~, VALID+4*, VALID+6, VALID+7
OREBUILD	EN+5!, ENQ0*
OREL	EN+2~, EN1+3, EN1+5, EN1+6, EN1+7, EN1+8, EN2+4
ORERR	EN+2~, EN2+4, EN2+6, EN2+8, VALID+2
ORES	EN+2~
ORES(	EN+14*, EN2, UNLOCK+2
ORES("ES"	EN+16*, EN1+3
ORES("LAB"	EN+15*, EN1+12, EN2+14
ORES(0	EN1, EN1+1
ORI	EN+2~, EN+9, EN+10, FINDLOC+1~, FINDLOC+2*
ORIFN	EN+2~, EN+13, EN+15, EN+16, EN2+2, EN2+4, EN2+5, EN2+9, SETPRINT+1, CHART+1 , NOTIF+1, VALID+3, VALID+4, VALID+5, UNLOCK+1~, UNLOCK+2, FINDLOC+1~, FINDLOC+3*, FINDLOC+4
>> ORL	EN+6, EN3, EN3+4, EN3+5, EN3+6, EN3+7
ORLAB	EN+2~, EN1+11*, EN2+9
ORLK	VALID+1~, VALID+3*
ORLR	EN+2~
ORLR(	EN+9*, EN+15
ORLR("LR"	EN1+11
ORN	FINDLOC+1~, FINDLOC+2*, FINDLOC+3
ORNATR	EN+2~, EN+8, EN1+7, EN1+8, EN1+10, EN2+3*, EN2+4, EN3+7, VALID+2
ORNIFN	UNOTIF+2~, UNOTIF+3*, UNOTIF+4, UNOTIF+5, UNOTIF+6
>> ORNMBR	EN+4*, EN+10, CKAUTH+2, FINDLOC+2
ORNP	EN2+2~*, NATURE+2, CHART+1, NOTIF+1
OROLDSTS	EN+2~, EN2+1*, EN2+9, EN2+10
OROUT	VALID+1~, VALID+6*
ORPKG	VALID+1~, VALID+4*, VALID+5
ORPRINT	EN+2~, EN1+9, EN3+7, SETPRINT+3
ORPRINT(	SETPRINT+3*
ORPRINT(0	EN3, EN3+7
ORPRNT	EN+2~, EN1+9*, SETPRINT+4
ORPTLK	EN+2~, EN+3*
ORQUIT	EN+2~, EN+13!, EN+14, EN1!, EN1+2, VALID+2, VALID+3, VALID+6*
ORSIG	EN+2~, EN1+3, EN1+4, EN1+5, EN1+6, EN1+7, EN1+8, EN2+4, SETPRINT+4
ORSTRT	EN2+11~*
>> ORTAB	EN+11, CKAUTH+3, FINDLOC+3
>> ORVP	EN+3, EN1+12, EN2+14, EN3+6, EN3+7, ENQ, CHART+1, NOTIF+1, UNOTIF+1, UNOTIF+6
ORWAIT	EN+2~, EN1!, EN2+6, EN2+9, ENQ, VALID+2, VALID+3, VALID+6*
ORWORK	EN+2~
ORX	FINDLOC+1~, FINDLOC+4*, FINDLOC+5
ORY	FINDLOC+1~, FINDLOC+2, FINDLOC+4, FINDLOC+5*, FINDLOC+6
SIGN	CKAUTH~, CKAUTH+1, CKAUTH+5
STS	STATUS+1~*, STATUS+2
U	EN+3, EN+11, EN+15, EN+16, EN2+1, EN2+2, EN2+3, EN2+8, EN2+9, EN2+10 , EN3+2, EN3+4, ESIG+2, CKAUTH+3, CKAUTH+5, SETPRINT+1, SETPRINT+2, WORK+2, CHART+1, NOTIF+1 , UNOTIF+6, VALID+3, VALID+4, VALID+5, VALID+6, STATUS+1, STATUS+3, FINDLOC+4
>> VALMBCK	EN+5*
X	EN+2~, EN+9, EN+15, EN3+1~, ESIG+1~, ONCHART+1~, SELSIG+1~, SELSIG+8, NATURE+1~, STATUS+1~ , STATUS+3*, READ+1~
X1	ESIG+1~, ESIG+5
XQAID	UNOTIF+5, UNOTIF+6*!
XQAKILL	UNOTIF+2~, UNOTIF+4*
Y	EN3+1~, EN3+5, ESIG+1~, ESIG+2, ESIG+5, ESIG+6, ONCHART+1~, ONCHART+5, ONCHART+6, SELSIG+1~ , SELSIG+8, SELSIG+9, NATURE+1~, NATURE+5, NATURE+6, SETPRINT+2~, SETPRINT+3, SETPRINT+4, STATUS+1~, STATUS+2* , STATUS+3*, STATUS+4, READ+1~

Customize PDF page

Package: Order Entry Results Reporting

Routine: ORCSIGN

Information

Source Information

Call Graph

Call Graph Total: 22

Caller Graph

Caller Graph Total: 11

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: