Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: ORCSIGN

Package: Order Entry Results Reporting

Routine: ORCSIGN


Information

ORCSIGN ;SLC/MKB-Sign/Release orders ;10/29/01 11:44

Source Information

Source file <ORCSIGN.m>

Call Graph

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  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 15

Package Total Caller Graph
Order Entry Results Reporting 15 ORAM  ORAREN  ORC SIGN ORDERS  ORCACT01  ORCACT1  ORCACT2  ORCB  ORCMENU2  
ORCSAVE2  ORCSEND  ORCSEND2  OREVNT1  ORMLR1  ORWD  ORWORB  

Entry Points

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

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, EN1EN1+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 EN3EN3+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*, EN2UNLOCK+2
ORES("ES" EN+16*, EN1+3
ORES("LAB" EN+15*, EN1+12, EN2+14
ORES(0 EN1EN1+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*, EN3EN3+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 EN3EN3+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, ENQCHART+1, NOTIF+1, UNOTIF+1, UNOTIF+6
ORWAIT EN+2~, EN1!, EN2+6*, EN2+9*, ENQVALID+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~
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All