Routine: ORCSIGN

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

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

Label References

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

Naked Globals

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: