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 |  Used in RPC |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: ORCNOTE

Package: Order Entry Results Reporting

Routine: ORCNOTE


Information

ORCNOTE ; SLC/MKB - Progress Note actions ;Aug 24, 2021@09:58:32

Source Information

Source file <ORCNOTE.m>

Call Graph

Call Graph

Call Graph Total: 19

Package Total Call Graph
Text Integration Utility 15 ($$DEVICE,QUE)^TIUDEV  $$ASKSIG^TIULA1  ($$ISADDNDM,$$PNAME,$$PTNAME)^TIULC1  SETPARM^TIULE  $$EMPTYDOC^TIULF  ($$PRNTGRP,$$PRNTHDR,$$PRNTMTHD,$$PRNTNBR)^TIULG  FIXLST^TIULM  ($$CANDO,$$REQCOSIG)^TIULP  
$$FLAG^TIUPRPN3  (BROWS1,EDIT1,PRNTDOC)^TIURA  ($$CHARTONE,ADDEND1,SIGNER)^TIURA1  DEL^TIURB  COPY1^TIURC  ($$ASKCSNR,EDSIG,ES)^TIURS  $$READ^TIUU  
List Manager 2 EN^VALM  (CLEAR,FULL)^VALM1  
Kernel 1 ^%ZISC  
Order Entry Results Reporting 1 ($$ORDERS,TAB)^ORCHART  

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

Package Total Caller Graph
Order Entry Results Reporting 13 ORC AMEND NOTE  ORC EDIT NOTE  ORC SIGN NOTE  ORC TIU BROWSE DOCUMENT  ORC TIU COPY  ORC TIU DELETE DOCUMENT  ORC TIU DESIGNATE SIGNERS  ORC TIU EDIT DOCUMENT  
ORC TIU MAKE ADDENDUM  ORC TIU PRINT DOCUMENT  ORC TIU SIGN ACTION APPROVE  ORC TIU SIGN DOCUMENTS  ORCNOTE GET TOTAL  
Kernel 1 ^ORD(101  

Entry Points

Name Comments DBIA/ICR reference
ELSIG ; Sign rec
ELSIGX
ACCEPT(ORPICK,NMBR) ; Adds item(s) to signature list
SIGN ; -- sign notes
ADDENDUM ; -- make addendum
EDIT ; -- edit notes
COPY ; -- copy notes
DELETE ; -- delete notes
SIGNERS ; -- Identify additional signers
PRINT ; Print selected documents
PRINTX
CHARTANY(ORNMBR) ; Evaluate selected documents for chart print
PRINTN ; Loop through selected doc's & invoke print code as appropriate
BROWSE ; -- browse document
EX ; -- exit action
GETTOT(ORY,DFN) ; --get total count of signed progress notes, not
; counting addendums and child interdisciplinary notes
; ^TIU(8925,"ACLPT",3) refers to progress notes class

External References

Name Field # of Occurrence
^%ZISC PRINTX
$$ORDERS^ORCHART ELSIG+5, SIGN+2, ADDENDUM+2, EDIT+2, COPY+2, DELETE+2, SIGNERS+2, PRINT+3, BROWSE+2
TAB^ORCHART EX+1
$$DEVICE^TIUDEV PRINT+7
QUE^TIUDEV PRINT+9
$$ASKSIG^TIULA1 ELSIG+45
$$ISADDNDM^TIULC1 ADDENDUM+6, PRINTN+21
$$PNAME^TIULC1 ELSIG+13
$$PTNAME^TIULC1 ELSIG+28
SETPARM^TIULE ELSIG+2
$$EMPTYDOC^TIULF ELSIG+36
$$PRNTGRP^TIULG PRINTN+18, PRINTN+30
$$PRNTHDR^TIULG PRINTN+19, PRINTN+31
$$PRNTMTHD^TIULG PRINTN+17, PRINTN+29
$$PRNTNBR^TIULG PRINTN+20, PRINTN+32
FIXLST^TIULM PRINTX
$$CANDO^TIULP ELSIG+15, PRINTN+10
$$REQCOSIG^TIULP ELSIG+25
$$FLAG^TIUPRPN3 PRINT+5
BROWS1^TIURA BROWSE+6
EDIT1^TIURA EDIT+6
PRNTDOC^TIURA PRINTN+37
$$CHARTONE^TIURA1 CHARTANY+6, PRINTN+14
ADDEND1^TIURA1 ADDENDUM+9
SIGNER^TIURA1 SIGNERS+6
DEL^TIURB DELETE+6
COPY1^TIURC COPY+6
$$ASKCSNR^TIURS ELSIG+29
EDSIG^TIURS SIGN+6
ES^TIURS ELSIG+49
$$READ^TIUU ELSIG+23, ELSIG+34, ELSIG+39, ADDENDUM+8, PRINTN+13
EN^VALM ELSIG+41
CLEAR^VALM1 ADDENDUM+9, EDIT+6, PRINT+4, BROWSE+6
FULL^VALM1 ELSIG+6, ELSIG+20, ACCEPT+1, SIGNERS+6

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Electronic signature not yet enabled."
  • Line Location: ELSIG+3
Function Call: WRITE
  • Prompt: !!,"Item #: ",NMBR,!,$P(ASK,U,2),!
  • Line Location: ELSIG+21
Function Call: WRITE
  • Prompt: !,"Removed from signature list.",!
  • Line Location: ELSIG+22
Function Call: WRITE
  • Prompt: !!,"Item #",NMBR,": ",TIUTYPE," for "
  • Line Location: ELSIG+27
Function Call: WRITE
  • Prompt: $$PTNAME^TIULC1($P(TIU0,U,2))," will need cosignature..."
  • Line Location: ELSIG+28
Function Call: WRITE
  • Prompt: !!,"Item #",NMBR,": MUST have a cosigner, before you may sign."
  • Line Location: ELSIG+32
Function Call: WRITE
  • Prompt: !!,"Removed from signature list.",!
  • Line Location: ELSIG+33
Function Call: WRITE
  • Prompt: !!,"Item #",NMBR,": This note contains no text and cannot be signed."
  • Line Location: ELSIG+37
Function Call: WRITE
  • Prompt: !!,"Removed from signature list.",!
  • Line Location: ELSIG+38
Function Call: WRITE
  • Prompt: !,"Item #",NMBR," added to the signature list."
  • Line Location: ACCEPT+3
Function Call: WRITE
  • Prompt: !,$C(7),"You may not make addenda to addenda."
  • Line Location: ADDENDUM+7
Function Call: WRITE
  • Prompt: ""
  • Line Location: ADDENDUM+8
Function Call: WRITE
  • Prompt: !!,"Item #",ORI,": ",!,$P(TIUPRINT,U,2),!
  • Line Location: PRINTN+12
Routine Call
  • VALM
  • Line Location:
    • ELSIG+41

Used in RPC

RPC Name Call Tags
ORCNOTE GET TOTAL GETTOT

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^TIU(8925 - [#8925] ELSIG+11, ELSIG+13, ELSIG+17, PRINTN+7, PRINTN+8, PRINTN+15, PRINTN+22, PRINTN+23, PRINTN+24, PRINTN+25
, PRINTN+26, GETTOT+6, GETTOT+7
^TMP("OR" ELSIG+10, ELSIG+48, SIGN+4, ADDENDUM+4, EDIT+4, COPY+4, DELETE+4, SIGNERS+4, CHARTANY+4, PRINTN+6
, BROWSE+4, EX+2
^TMP("TIUPR" PRINTN+1!

Label References

Name Line Occurrences
$$CHARTANY PRINT+5
ELSIGX ELSIG+3, ELSIG+42
PRINTN PRINT+10
PRINTX PRINT+8, PRINT+9

Naked Globals

Name Field # of Occurrence
^("MENU" EX+2
^(12 ELSIG+11
^(15 ELSIG+11

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ASK ELSIG+1~, ELSIG+15*, ELSIG+16, ELSIG+18*, ELSIG+19, ELSIG+21
COSIGNER ELSIG+26~, ELSIG+29*, ELSIG+30
DFN PRINT+1~, PRINTN+1~, PRINTN+15*, PRINTN+33, PRINTN+34, GETTOT~, GETTOT+5, GETTOT+6, GETTOT+7
DIROUT PRINT+1~, PRINTN+4
DUZ ELSIG+25, ELSIG+29
IDX ELSIG+1~, ELSIG+10*, ELSIG+11, ELSIG+48*, SIGN+1~, SIGN+4*, SIGN+5, ADDENDUM+1~, ADDENDUM+4*, ADDENDUM+5
, EDIT+1~, EDIT+4*, EDIT+5, COPY+1~, COPY+4*, COPY+5, DELETE+1~, DELETE+4*, DELETE+5, SIGNERS+1~
, SIGNERS+4*, SIGNERS+5, CHARTANY+3~, CHARTANY+4*, CHARTANY+5, PRINTN+2~, PRINTN+6*, PRINTN+7, BROWSE+1~, BROWSE+4*
, BROWSE+5
IO PRINT+7, PRINT+8, PRINTN+3, PRINTN+13
IO("Q" PRINT+9
IO(0 PRINTN+13
IOSTBM PRINTX~
NMBR ELSIG+1~, ELSIG+8*, ELSIG+10, ELSIG+21, ELSIG+27, ELSIG+32, ELSIG+37, ELSIG+47*, ELSIG+48, ELSIG+49
, ACCEPT~, ACCEPT+2, ACCEPT+3, SIGN+1~, SIGN+3*, SIGN+4, ADDENDUM+1~, ADDENDUM+3*, ADDENDUM+4, EDIT+1~
, EDIT+3*, EDIT+4, COPY+1~, COPY+3*, COPY+4, DELETE+1~, DELETE+3*, DELETE+4, SIGNERS+1~, SIGNERS+3*
, SIGNERS+4, CHARTANY+1~, CHARTANY+2*, CHARTANY+4, PRINTN+2~, PRINTN+4*, PRINTN+6, BROWSE+1~, BROWSE+3*, BROWSE+4
>> OREBUILD ACCEPT+2*, ADDENDUM+9*, EDIT+6*, COPY+6*, DELETE+6*, BROWSE+7*, EX+1
ORI ELSIG+1~, ELSIG+7*, ELSIG+8, ELSIG+10*, ELSIG+47*, SIGN+1~, SIGN+3*, ADDENDUM+1~, ADDENDUM+3*, EDIT+1~
, EDIT+3*, COPY+1~, COPY+3*, DELETE+1~, DELETE+3*, SIGNERS+1~, SIGNERS+3*, CHARTANY+1~, CHARTANY+2*, PRINTN+2~
, PRINTN+4*, PRINTN+12, PRINTN+33, PRINTN+34, PRINTN+35, BROWSE+1~, BROWSE+3*
ORINDX PRINTN+1~
ORINDX( PRINTN+27, PRINTN+35*
ORNMBR ELSIG+5*, ELSIG+6, ELSIG+8, SIGN+2*, SIGN+3, ADDENDUM+2*, ADDENDUM+3, EDIT+2*, EDIT+3, COPY+2*
, COPY+3, DELETE+2*, DELETE+3, SIGNERS+2*, SIGNERS+3, PRINT+3*, PRINT+5, CHARTANY~, CHARTANY+2, PRINTN+4
, BROWSE+2*, BROWSE+3
ORPICK ELSIG+1~, ELSIG+4*, ELSIG+42, ELSIG+44, ELSIG+47, ELSIG+50, ELSIG+51, ACCEPT~, ACCEPT+2*
ORQUIT ELSIG+1~, ELSIG+8, ELSIG+47, SIGN+1~, SIGN+3, ADDENDUM+1~, ADDENDUM+3, EDIT+1~, EDIT+3, COPY+1~
, COPY+3, DELETE+1~, DELETE+3, SIGNERS+1~, SIGNERS+3, PRINTN+2~, PRINTN+4, BROWSE+1~, BROWSE+3, BROWSE+8*
ORSLT CHARTANY+1~*, CHARTANY+2, CHARTANY+6*, CHARTANY+7
ORTAB COPY+1~, EX+1
ORTIDT GETTOT+3~, GETTOT+6*, GETTOT+7
ORTIFN GETTOT+3~, GETTOT+7*
ORY PRINTN+1~, PRINTN+37, GETTOT~, GETTOT+4*, GETTOT+8*
ORY( PRINTN+33*, PRINTN+34*, PRINTN+36
POP PRINT+1~
TIU ELSIG+40~
TIU0 ELSIG+9~, ELSIG+11*, ELSIG+12, ELSIG+25, ELSIG+28
TIU12 ELSIG+9~, ELSIG+11*, ELSIG+25
TIU15 ELSIG+9~, ELSIG+11*, ELSIG+25
TIUCHNG ADDENDUM+1~, ADDENDUM+9, ADDENDUM+10, EDIT+1~, EDIT+6, COPY+1~, COPY+6, COPY+7, DELETE+1~, DELETE+6
, SIGNERS+1~, PRINTN+2~, BROWSE+1~, BROWSE+7
TIUDA ELSIG+1~, ELSIG+9~, ELSIG+11*, ELSIG+13, ELSIG+15, ELSIG+17, ELSIG+25, ELSIG+29, ELSIG+36, ELSIG+48*
, ELSIG+49, SIGN+1~, SIGN+5*, SIGN+6, ADDENDUM+1~, ADDENDUM+5*, ADDENDUM+6, EDIT+1~, EDIT+5*, COPY+1~
, COPY+5*, DELETE+1~, DELETE+5*, DELETE+6, SIGNERS+1~, SIGNERS+5*, PRINT+1~, CHARTANY+3~, CHARTANY+5*, CHARTANY+6
, PRINTN+2~, PRINTN+7*, PRINTN+8, PRINTN+10, PRINTN+14, PRINTN+15, PRINTN+21, PRINTN+22*, PRINTN+23, PRINTN+24
, PRINTN+25*, PRINTN+26, PRINTN+27, PRINTN+33, PRINTN+34, PRINTN+35, BROWSE+1~, BROWSE+5*
TIUDARR PRINT+1~
TIUDATA PRINT+1~
TIUDE PRINT+1~
TIUDEV PRINT+2~, PRINT+7*, PRINT+8, PRINT+9
TIUDPRM PRINT+1~
TIUDTYP PRINTN+5~, PRINTN+23*, PRINTN+26*, PRINTN+28, PRINTN+29, PRINTN+30, PRINTN+31, PRINTN+32
TIUES ELSIG+1~, ELSIG+45*, ELSIG+46, ELSIG+49
TIUEVNT ELSIG+1~, ELSIG+9~, ELSIG+14*, ELSIG+15
TIUFLAG PRINTN+5~, PRINTN+14*
TIUI ELSIG+1~, PRINT+1~, PRINTN+1~
TIUPFHDR PRINTN+5~, PRINTN+19*, PRINTN+31*, PRINTN+33
TIUPFLG PRINT+1~, PRINT+5*, PRINTN+14
TIUPFNBR PRINTN+5~, PRINTN+20*, PRINTN+32*, PRINTN+33
TIUPGRP PRINTN+5~, PRINTN+18*, PRINTN+30*, PRINTN+33
TIUPMTHD PRINTN+5~, PRINTN+17*, PRINTN+29*, PRINTN+33, PRINTN+34, PRINTN+36*, PRINTN+37
TIUPOP ELSIG+1~, ELSIG+25, ELSIG+31*
TIUPRINT PRINTN+5~, PRINTN+10*, PRINTN+11, PRINTN+12
TIUPRM0 ELSIG+1~, ELSIG+2, ELSIG+3
TIUPRM1 ELSIG+1~
TIUQUIT BROWSE+1~, BROWSE+8
TIUSPG PRINT+2~, PRINT+6*
TIUSTAT ELSIG+9~, ELSIG+12*, ELSIG+14
TIUTYP PRINTN+1~, PRINTN+5~, PRINTN+8*, PRINTN+16, PRINTN+17, PRINTN+18, PRINTN+19, PRINTN+20
TIUTYPE ELSIG+9~, ELSIG+13*, ELSIG+27
TIUY ELSIG+40~
U ELSIG+3, ELSIG+12, ELSIG+19, ELSIG+21, ELSIG+25, ELSIG+28, PRINTN+8, PRINTN+12, PRINTN+15, PRINTN+22
>> VALMBCK ELSIG+4*, ELSIGX*, SIGN+1*, ADDENDUM+1*, ADDENDUM+10*, EDIT+1*, EDIT+7*, COPY+1*, COPY+7*, DELETE+1*
, SIGNERS+1*, SIGNERS+7*, PRINT+3*, PRINTX+1*, BROWSE+1*, BROWSE+7*
>> VALMSG ELSIG+43*, ELSIG+46*, ELSIG+50*, ELSIG+51*
VALMY ELSIGX!, PRINTX+1!
X ELSIG+1~
X1 ELSIG+1~
>> XQORM("HIJACK" EX+2*
Y ELSIG+1~
>> ZTQUEUED PRINTN+13
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Used in RPC |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All