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 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

Caller Graph Total: 11

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~
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All