Routine: ORCNOTE

Information

ORCNOTE ; SLC/MKB - Progress Note actions ;25-JAN-2001 16:18:00

Source Information

Source file <ORCNOTE.m>

Call Graph

Call Graph Total: 18

Package	Total	Call Graph
Text Integration Utility	14	($$DEVICE,QUE)^TIUDEV $$ASKSIG^TIULA1 ($$ISADDNDM,$$PNAME,$$PTNAME)^TIULC1 SETPARM^TIULE ($$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
Registration	2	EN^VALM (CLEAR,FULL)^VALM1
Kernel	1	^%ZISC
Order Entry Results Reporting	1	($$ORDERS,TAB)^ORCHART

Entry Points

Name	Comments	DBIA/ICR reference
BROWSE	; -- browse document
ELSIGX
PRINTX
CHARTANY(ORNMBR)	; Evaluate selected documents for chart print
SIGNERS	; -- Identify additional signers
SIGN	; -- sign notes
EDIT	; -- edit notes
PRINTN	; Loop through selected doc's & invoke print code as appropriate
ACCEPT(ORPICK,NMBR)	; Adds item(s) to signature list
EX	; -- exit action
ELSIG	; Sign rec
PRINT	; Print selected documents
ADDENDUM	; -- make addendum
COPY	; -- copy notes
DELETE	; -- delete notes

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+40
$$ISADDNDM^TIULC1	ADDENDUM+6, PRINTN+21
$$PNAME^TIULC1	ELSIG+13
$$PTNAME^TIULC1	ELSIG+28
SETPARM^TIULE	ELSIG+2
$$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+44
$$READ^TIUU	ELSIG+23, ELSIG+34, ADDENDUM+8, PRINTN+13
EN^VALM	ELSIG+36
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," 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+36

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
^TMP("OR"	ELSIG+10, ELSIG+43, SIGN+4, ADDENDUM+4, EDIT+4, COPY+4, DELETE+4, SIGNERS+4, CHARTANY+4, PRINTN+6 , BROWSE+4, EX+2
^TMP("TIUPR"	PRINTN+1!

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

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
DIROUT	PRINT+1~, PRINTN+4
DUZ	ELSIG+25, ELSIG+29
IDX	ELSIG+1~, ELSIG+10, ELSIG+11, ELSIG+43, 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+42, ELSIG+43, ELSIG+44, 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+42, 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+37, ELSIG+39, ELSIG+42, ELSIG+45, ELSIG+46, ACCEPT~, ACCEPT+2
ORQUIT	ELSIG+1~, ELSIG+8, ELSIG+42, 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
ORY	PRINTN+1~, PRINTN+37
ORY(	PRINTN+33, PRINTN+34, PRINTN+36
POP	PRINT+1~
TIU	ELSIG+35~
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+43, ELSIG+44 , 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+40*, ELSIG+41, ELSIG+44
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+35~
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+38, ELSIG+41, ELSIG+45, ELSIG+46
VALMY	ELSIGX!, PRINTX+1!
X	ELSIG+1~
X1	ELSIG+1~
>> XQORM("HIJACK"	EX+2*
Y	ELSIG+1~
>> ZTQUEUED	PRINTN+13

Customize PDF page

Package: Order Entry Results Reporting

Routine: ORCNOTE

Information

Source Information

Call Graph

Call Graph Total: 18

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: