Routine: ORQQCN2

Information

ORQQCN2 ; slc/REV - Functions for GUI consult actions ;Sep 09, 2020@13:31:05

Package	Total	Call Graph
Consult Request Tracking	10	SERV1^GMRCASV GUI^GMRCASV1 $$VALID^GMRCAU ($$REAF,GETDEF)^GMRCDRFR RT^GMRCGUIA ($$SCH,$$SFILE,CMT)^GMRCGUIB (EN,GUI)^GMRCP5 PRNT^GMRCP5A $$ANYPENDG^GMRCTIU ($$PROVDX,PREREQ)^GMRCUTL1
Order Entry Results Reporting	3	SVCTREE^ORQQCN2 $$USID^ORWDXC ($$HFS,HFSCLOSE,HFSOPEN,IOVAR,SETITEM)^ORWRP
Toolkit	2	($$GET,ADD,CHG)^XPAR $$SCREEN^XTID
Kernel	1	$$NOW^XLFDT

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 24

Package	Total	Caller Graph
Order Entry Results Reporting	24	ORQQCN ADDCMT ORQQCN ADMIN COMPLETE ORQQCN DEFAULT REQUEST REASON ORQQCN EDIT DEFAULT REASON ORQQCN GET SERVICE IEN ORQQCN GET USER AUTH ORQQCN ISPROSVC ORQQCN MED RESULTS ORQQCN PRINT SF513 ORQQCN PROVDX ORQQCN SF513 WINDOWS PRINT ORQQCN SHOW SF513 ORQQCN SIGFIND ORQQCN STATUS ORQQCN SVC W/SYNONYMS ORQQCN SVCLIST ORQQCN SVCTREE ORQQCN UNRESOLVED ORQQCN2 ORQQCN2 GET CONTEXT ORQQCN2 GET PREREQUISITE ORQQCN2 SAVE CONTEXT ORQQCN2 SCHEDULE CONSULT ORWDXM1

Entry Points

Name	Comments	DBIA/ICR reference
CMT(ORERR,ORIEN,ORCOM,ORALRT,ORALTO,ORDATE)	;Add comment to existing consult without changing status
SCH(ORERR,ORIEN,ORNP,ORDATE,ORALRT,ORALTO,ORCOM)	;Schedule consult and change status
SVCTREE(Y,PURPOSE)	;Returns list of consult service for current ; context, screening for inactive, groupers, and tracking ; PURPOSE: Display=0, Forward=1, Order=1
SVCSYN(ORROOT,ORSTRT,ORWHY,ORSYN,ORIEN)	;;return CSLT services for GUI
STATUS(Y)	; Returns a list of statuses currently in use
MEDRSLT(ORY,GMRCO)	;Returns Medicine results plus TIU results
SHOW513(ORY,GMRCO)
PRT513(Y,GMRCO,GMRCCHT,GMRCDEV)	; Print SF513 to VistA device from GUI
WPRT513(ORY,GMRCO,GMRCCHT)	;Print SF513 to Windows device from GUI
SIGFIND(Y,ORIEN,ORFL,ORCOM,ORALRT,ORALTO,ORDATE)	;Significant findings
ADMCOMPL(Y,ORIEN,ORFL,ORCOM,ORRESP,ORALRT,ORALTO,ORDATE)	; Admin users ; Administrative complete action
SVCLIST(ORY,FROM,DIR)	; Return a set of consult services in long list format ; .ORY=returned list, FROM=text to $O from, DIR=$O direction,
GETCTXT(Y,ORUSER)	; Returns current view context for user
SAVECTXT(Y,ORCTXT)	; Save new view preferences for user
DEFRFREQ(ORY,ORSVC,ORDFN,RESOLVE)	;Return default reason for request for service ; ORSVC=pointer to file 123.5 ; ORDFN=patient, if RESOLVE=1 ; RESOLVE=1 to resolve boilerplate, 0 to not resolve
EDITDRFR(ORY,ORSVC)	; Allow editing of reason for request?
SVCIEN(ORY,ORIEN)	;Given orderable item file entry, return IEN in 123.5, OR -1 IF INACTIVE IN 101.43
PROVDX(ORY,ORIEN)	;Return provisional dx prompting info for service
PREREQ(ORY,ORSVC,ORDFN)	;Returns prequisites for ordering
UNRSLVD(ORY,ORDFN)	;Returns true if unresolved consults for user/pt
ISPROSVC(ORY,ORIEN)	; IS THIS SERVICE PART OF CONSULTS-PROSTHETICS INTERFACE, wat/OR3280
VALID(ORY,GMRCIEN,ORDUZ,ORIFC)	;Return users update authority for a consult

External References

Name	Field # of Occurrence
SERV1^GMRCASV	SVCTREE+5
GUI^GMRCASV1	SVCSYN+14
$$VALID^GMRCAU	VALID+5
$$REAF^GMRCDRFR	EDITDRFR+1
GETDEF^GMRCDRFR	DEFRFREQ+8
RT^GMRCGUIA	MEDRSLT+2
$$SCH^GMRCGUIB	SCH+15
$$SFILE^GMRCGUIB	SIGFIND+1, ADMCOMPL+2
CMT^GMRCGUIB	CMT+13
EN^GMRCP5	PRT513+2
GUI^GMRCP5	SHOW513+1
PRNT^GMRCP5A	WPRT513+13
$$ANYPENDG^GMRCTIU	UNRSLVD+5
$$PROVDX^GMRCUTL1	PROVDX+1
PREREQ^GMRCUTL1	PREREQ+3
SVCTREE^ORQQCN2	SVCLIST+4
$$USID^ORWDXC	SVCIEN+5
$$HFS^ORWRP	WPRT513+5
HFSCLOSE^ORWRP	WPRT513+14
HFSOPEN^ORWRP	WPRT513+6
IOVAR^ORWRP	WPRT513+9
SETITEM^ORWRP	WPRT513+8
$$NOW^XLFDT	CMT+8, SCH+10, SVCIEN+4
$$GET^XPAR	GETCTXT+1, SAVECTXT+2, UNRSLVD+6
ADD^XPAR	SAVECTXT+5
CHG^XPAR	SAVECTXT+4
$$SCREEN^XTID	STATUS+6

RPC Name	Call Tags
ORQQCN ADDCMT	CMT
ORQQCN SVCTREE	SVCTREE
ORQQCN STATUS	STATUS
ORQQCN MED RESULTS	MEDRSLT
ORQQCN SHOW SF513	SHOW513
ORQQCN PRINT SF513	PRT513
ORQQCN SIGFIND	SIGFIND
ORQQCN ADMIN COMPLETE	ADMCOMPL
ORQQCN SVCLIST	SVCLIST
ORQQCN2 GET CONTEXT	GETCTXT
ORQQCN2 SAVE CONTEXT	SAVECTXT
ORQQCN DEFAULT REQUEST REASON	DEFRFREQ
ORQQCN GET SERVICE IEN	SVCIEN
ORQQCN PROVDX	PROVDX
ORQQCN SF513 WINDOWS PRINT	WPRT513
ORQQCN EDIT DEFAULT REASON	EDITDRFR
ORQQCN2 GET PREREQUISITE	PREREQ
ORQQCN2 SCHEDULE CONSULT	SCH
ORQQCN SVC W/SYNONYMS	SVCSYN
ORQQCN UNRESOLVED	UNRSLVD
ORQQCN ISPROSVC	ISPROSVC
ORQQCN GET USER AUTH	VALID

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^GMR(123 - [#123]	CMT+10, SCH+12
^GMR(123.1 - [#123.1]	STATUS+5
^GMR(123.5 - [#123.5]	ISPROSVC+3
^ORD(100.01 - [#100.01]	STATUS+4, STATUS+7
^ORD(101.43 - [#101.43]	SVCTREE+10, SVCSYN+19, SVCIEN+2, SVCIEN+3
^TMP(	WPRT513+4
^TMP("GMRCSLIST"	SVCTREE+7, SVCTREE+8, SVCTREE+9
^TMP("ORCSLT"	SVCSYN+13
^TMP("ORPREREQ"	PREREQ+2
^TMP("ORREQ"	DEFRFREQ+6
^TMP("ORRSLT"	MEDRSLT+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
CNT	SVCLIST+2~, SVCLIST+3*, SVCLIST+7
DIR	SVCLIST~, SVCLIST+7
DUZ	CMT+13, SCH+11, SIGFIND+1, ADMCOMPL+2, SAVECTXT+2, SAVECTXT+4, SAVECTXT+5, UNRSLVD+5, VALID+3
FROM	SVCLIST~, SVCLIST+7*, SVCLIST+8
GMRCCHT	PRT513~, PRT513+2, WPRT513~, WPRT513+13
GMRCDEV	PRT513~, PRT513+2
GMRCDG	SVCTREE+3~, SVCTREE+4*
GMRCIEN	VALID~, VALID+2, VALID+5
GMRCO	MEDRSLT~, MEDRSLT+2, SHOW513~, SHOW513+1, PRT513~, PRT513+2, WPRT513~, WPRT513+13
GMRCOI	SVCTREE+3~, SVCTREE+10*, SVCTREE+11
GMRCORST	STATUS+2~, STATUS+3, STATUS+4, STATUS+5, STATUS+6, STATUS+7
GMRCSVC	SVCTREE+3~, SVCTREE+6, SVCTREE+8, SVCTREE+9
GMRCTO	SVCTREE+3~, SVCTREE+4*
I	CMT+12, SCH+14, SVCTREE+8, SVCTREE+9, SVCTREE+10, SVCTREE+11, SVCSYN+9~, SVCSYN+17, SVCLIST+2~, SVCLIST+3* , SVCLIST+5, SVCLIST+6, SVCLIST+7, SVCLIST+9
IEN	SVCLIST+2~
IO	WPRT513+12
IOF	WPRT513+2~
IOM	WPRT513+2~
IOS	WPRT513+2~
IOSL	WPRT513+2~
IOST	WPRT513+2~
IOT	WPRT513+2~
OI	SVCSYN+9~, SVCSYN+19*, SVCSYN+20
ORAD	CMT+7~, CMT+8, CMT+13, SCH+9~, SCH+10, SCH+15
ORALRT	CMT~, CMT+11, SCH~, SCH+13, SIGFIND~, SIGFIND+1, ADMCOMPL~, ADMCOMPL+2
ORALTO	CMT~, CMT+12, SCH~, SCH+14, SIGFIND~, SIGFIND+1, ADMCOMPL~, ADMCOMPL+2
ORCOM	CMT~, CMT+9, CMT+13, SCH~, SCH+15, SIGFIND~, SIGFIND+1, ADMCOMPL~, ADMCOMPL+2
ORCTXT	SAVECTXT~, SAVECTXT+4, SAVECTXT+5
ORDATE	CMT~, CMT+8, SCH~, SCH+10, SIGFIND~, SIGFIND+1, ADMCOMPL~, ADMCOMPL+2
ORDFN	DEFRFREQ~, DEFRFREQ+5, DEFRFREQ+8, PREREQ~, PREREQ+1, PREREQ+3, UNRSLVD~, UNRSLVD+5
ORDUZ	CMT+7~, CMT+13, SCH+9~, SCH+15, VALID~, VALID+3*, VALID+5
ORDUZ(	CMT+12, SCH+14
ORERR	CMT~, CMT+8, CMT+9, CMT+10, SCH~, SCH+10, SCH+12, SCH+15
ORFL	SIGFIND~, SIGFIND+1, ADMCOMPL~, ADMCOMPL+2
ORHANDLE	WPRT513+1~, WPRT513+3*, WPRT513+6, WPRT513+14
ORHFS	WPRT513+1~, WPRT513+5*, WPRT513+6, WPRT513+14
ORIEN	CMT~, CMT+10, CMT+13, SCH~, SCH+12, SCH+15, SVCSYN~, SVCSYN+14, SIGFIND~, SIGFIND+1 , ADMCOMPL~, ADMCOMPL+2, SVCIEN~, SVCIEN+2, SVCIEN+3, SVCIEN+5, PROVDX~, PROVDX+1, ISPROSVC~, ISPROSVC+3
ORIFC	VALID~, VALID+4*, VALID+5
ORIO	WPRT513+1~, WPRT513+3*, WPRT513+9
ORNP	CMT+7~, CMT+8, SCH~, SCH+11, SCH+15
ORRESP	ADMCOMPL~, ADMCOMPL+2
ORROOT	SVCSYN~, SVCSYN+13*, SVCSYN+14, SVCSYN+16, SVCSYN+17, SVCSYN+18, SVCSYN+20
ORSTATUS	PRT513+1~, PRT513+2, PRT513+3, WPRT513+1~
ORSTR	SVCLIST+2~, SVCLIST+8*, SVCLIST+9
ORSTRT	SVCSYN~, SVCSYN+10*, SVCSYN+14
ORSUB	WPRT513+1~, WPRT513+3*, WPRT513+4
ORSVC	SVCSYN+9~, SVCSYN+15, SVCSYN+17, SVCSYN+18, SVCSYN+20, SVCLIST+2~, SVCLIST+3, SVCLIST+5, SVCLIST+6, DEFRFREQ~ , DEFRFREQ+4, DEFRFREQ+8, EDITDRFR~, EDITDRFR+1, PREREQ~, PREREQ+1, PREREQ+3
ORSYN	SVCSYN~, SVCSYN+12*, SVCSYN+14
ORTMP	SVCLIST+2~
ORTMP(	SVCLIST+6*, SVCLIST+7, SVCLIST+8
ORUSER	GETCTXT~
ORWHY	SVCSYN~, SVCSYN+11*, SVCSYN+14
ORY	MEDRSLT~, MEDRSLT+1, MEDRSLT+2, SHOW513~, SHOW513+1, WPRT513~, WPRT513+4, SVCLIST~, DEFRFREQ~, DEFRFREQ+6* , DEFRFREQ+8, DEFRFREQ+9, EDITDRFR~, EDITDRFR+1, SVCIEN~, SVCIEN+2, SVCIEN+4, SVCIEN+5, PROVDX~, PROVDX+1* , PREREQ~, PREREQ+2, PREREQ+3, PREREQ+4, UNRSLVD~, UNRSLVD+5, UNRSLVD+6, ISPROSVC~, ISPROSVC+2, ISPROSVC+3* , VALID~, VALID+2, VALID+5, VALID+6*
ORY(	SVCLIST+9*
>> POP	WPRT513+7
PURPOSE	SVCTREE~, SVCTREE+4
RESOLVE	DEFRFREQ~, DEFRFREQ+5, DEFRFREQ+7*, DEFRFREQ+8
ROOT	WPRT513+1~, WPRT513+3*, WPRT513+8
TMP	SAVECTXT+1~, SAVECTXT+2*, SAVECTXT+3
U	SVCTREE+10, SVCTREE+11, SVCSYN+19, SVCSYN+20, STATUS+7, SVCLIST+5, SVCIEN+5, UNRSLVD+5, UNRSLVD+6
X	CMT+7~, CMT+12, SCH+9~, SCH+14, SVCSYN+9~, SVCSYN+18*, SVCSYN+19, SVCSYN+20
X1	SVCIEN+1~, SVCIEN+3*, SVCIEN+4
Y	SVCTREE~, STATUS~, PRT513~, PRT513+3, SIGFIND~, SIGFIND+1, ADMCOMPL~, ADMCOMPL+2, SVCLIST+2~, SVCLIST+4 , GETCTXT~, GETCTXT+1, SAVECTXT~
Y(	SVCTREE+9, SVCTREE+10, SVCTREE+11, STATUS+7*, SVCLIST+5, SVCLIST+6
Y(1	SVCTREE+7*
Y(999	STATUS+3, STATUS+5
ZTQUEUED	WPRT513+1~

Customize PDF page

Package: Order Entry Results Reporting