Routine: GMRCSLM

Information

GMRCSLM ;SLC/DCM,JFR - List Mgr routine for consult tracking list ;9/8/99 14:52

Source Information

Source file <GMRCSLM.m>

Call Graph

Call Graph Total: 18

Package	Total	Call Graph
Consult Request Tracking	10	EN^GMRCACTM ASRV^GMRCASV EN^GMRCMENU ^GMRCREXT SELPT^GMRCS AD^GMRCSLM1 EXIT^GMRCSLMA RESET^GMRCSLMV ^GMRCSPD DEM^GMRCU
Registration	3	EN^VALM FULL^VALM1 SET^VALM10
VA Fileman	2	^DIC ^DIR
General Medical Record - Vitals	1	EN6^GMRVUTL
Kernel	1	$$LOW^XLFSTR
Order Entry Results Reporting	1	$$CWAD^ORQPT2

Caller Graph

Caller Graph Total: 11

Package	Total	Caller Graph
Consult Request Tracking	11	GMRC IFC RPT CONSULTS BY PT GMRC SERVICE TRACKING GMRCAR GMRCMCP GMRCMP GMRCPX GMRCPZ GMRCSLDT GMRCSLMA GMRCSSP GMRCSTAT

Entry Points

Name	Comments	DBIA/ICR reference
FND(CD)	;status already selected?
EN	; -- main entry point for GMRC CONSULT TRACKING
END
HELP	; -- help code
STS	;Select a status for view. i.e., only active, pendings, DC'd, etc.
HDR2(GMRCX)	;format VALMHDR(2) with patient weight
SS	;Select A New Service or ALL SERVICES to Display Patient Consults
PHYEN	;Entry Point When Provider's service is known and only needs to look at consults for that service
HDR1	;format VALMHDR(1) with patient information
INIT	; -- init variables and list array
SPK	;Kill variables
EXIT	; -- exit code
SPQ	;New patient has not been selected - keep current patient
SP	;;Select a new patient and return DFN and GMRCSSNM to display consults and requested Service.
SPD	;Enter a date range for serching consults; null entry selects all consults and does not exclude by date
STCK(RES)
HDR	; -- header code

External References

Name	Field # of Occurrence
^DIC	PHYEN+2
^DIR	EN+8, STS+11
EN^GMRCACTM	SS+7
ASRV^GMRCASV	SP+9, SS+3
EN^GMRCMENU	SP+11, SS+7
^GMRCREXT	EXIT+3
SELPT^GMRCS	SP+3
AD^GMRCSLM1	PHYEN+6, SPD+4, SS+5
EXIT^GMRCSLMA	HELP+10
RESET^GMRCSLMV	SP+6, SS+8, STS+14, STS+17
^GMRCSPD	SPD+1
DEM^GMRCU	HDR1+5
EN6^GMRVUTL	HDR1+3
$$CWAD^ORQPT2	HDR1+16
EN^VALM	EN+11, PHYEN+7, PHYEN+8
FULL^VALM1	HELP+1, SP+1, SS+2, STS+1
SET^VALM10	INIT+3
$$LOW^XLFSTR	STS+13

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Enter the display number of the item you wish to act on, or select an action." Line Location: HELP+2
Function Call: WRITE	Prompt: !!,"If you'd like another view of the consults, enter CV." Line Location: HELP+3
Function Call: WRITE	Prompt: !!,"Status key:",!?5,"'a' - active",?27,"'c' - complete",?50,"'dc' - discontinued",!?5,"'p' - pending",?27,"'x' - cancelled",?50,"'pr' - partial results",!?5,"'s' - scheduled",?27,"'e' - expired" Line Location: HELP+4
Function Call: WRITE	Prompt: !!,"Enter ?? to see a list of actions available for navigating the list." Line Location: HELP+5
Function Call: WRITE	Prompt: !!,"Press <return> to continue ..." Line Location: HELP+6
Function Call: WRITE	Prompt: " "_GMRCPNM Line Location: SPQ+2
Function Call: WRITE	Prompt: $C(7),!,"Already selected" Line Location: STCK+10
Routine Call	VALM Line Location: EN+11 PHYEN+7 PHYEN+8
Routine Call	DIC Line Location: PHYEN+2
Routine Call	DIR Line Location: EN+8 STS+11

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DIC(49 - [#49]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("XY"	HELP+9
^DIC(42 - [#42]	HDR1+8
^GMR(123.5 - [#123.5]	PHYEN+2, SP+10, SS+4
^SC - [#44]	HDR1+10
^TMP("GMRC"	INIT+6
^TMP("GMRCR"	INIT+1!, INIT+3, EXIT+1!
^VA(200 - [#200]	PHYEN+1, PHYEN+2

Label References

Name	Line Occurrences
$$FND	STCK+10
END	PHYEN+4, PHYEN+7, PHYEN+8, STS+12, STS+13
EXIT	PHYEN+4, PHYEN+7, PHYEN+8
HDR	SS+5
HDR1	HDR+3
HDR2	HDR+4
INIT	SS+5
SP	EN+10, PHYEN+3
SPD	PHYEN+4
SPK	SP+3, SP+4, SP+5, SP+8, SPD+2
STCK	STS+13
STS	STS+18

Naked Globals

Name	Field # of Occurrence
^(	INIT+3
^("MENU"	INIT+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
CD	FND~, FND+1, FND+2, FND+3
CODE	STCK+1~, STCK+3, STCK+4, STCK+5, STCK+6, STCK+7, STCK+8, STCK+9*, STCK+10, STCK+11 , STCK+12
DATA	INIT+2, INIT+3, INIT+5!
>> DFN	HDR1+16, SP+2, SP+3, SP+5, SPQ+1, SPQ+2*
DIC	PHYEN+2*!
DIC(0	PHYEN+2*
DIR	EN+5~, STS+3~, END!
DIR("A"	EN+7, STS+6, STS+9*
DIR("B"	STS+7*, STS+10!
DIR(0	EN+6, STS+4, STS+5*
DIROUT	SP+9!
DIRUT	EN+5~, EN+8
DSPLINE	INIT+2, INIT+3, INIT+5!
DTIME	HELP+6
DTOUT	EN+5~, SP+9!, STS+12
DUOUT	EN+5~, SP+9!, STS+12
DUZ	PHYEN+1, PHYEN+2
DX	HELP+1~, HELP+9*
DY	HELP+1~, HELP+9*
>> GMRC("NMBR"	SP+6!, SS+8!, STS+13, STS+14, STS+15!, STS+17!
>> GMRCAGE	HDR1+15
GMRCBM	SPK+2!
GMRCDFN1	SP+2*, SP+3, SP+5, SPD+5!, SPQ+1!, SPQ+2!, SPQ+3!, SPK+2!
>> GMRCDG	SP+10, SS+4
>> GMRCDOB	HDR1+15
GMRCEN	EN+2*, EN+4!, EN+10!, SPD+2
GMRCERR	STS+2*, END!
GMRCFL	PHYEN+3*, PHYEN+5!, SP+8
GMRCIS	EN+4!, EN+9*, HDR+2
>> GMRCLOC	HDR1+8*, HDR1+9, HDR1+10
GMRCOER	EN+1!, SPD+3, SS+1
>> GMRCPNM	HDR1+6, SPQ+2
>> GMRCQIT	SP+9*
GMRCQUT	EN+2!, EN+4!, EN+8, EN+10!, PHYEN+3, PHYEN+4, SP+2!, SP+3, SP+4, SP+5 , SP+9, SPD+1, SPQ+1, SPQ+3*, SS+1!, SS+3
>> GMRCRB	HDR1+12
>> GMRCSN	HDR1+6
>> GMRCSS	PHYEN+2, SP+10, SS+4*
>> GMRCSSNM	PHYEN+2, PHYEN+7, SP+10, SS+4*
>> GMRCSTCK	SP+10, STS+8, STS+13, STCK+2, STCK+10, STCK+11, STCK+12, FND+1, FND+2, FND+3
GMRCTM	SPK+2!
GMRCVP	SS+1!
>> GMRCWARD	SP+7
>> GMRCWLI	HDR1+8
>> GMRCWRD	SP+7*
>> GMRCWT	HDR+4, HDR1+4*, HDR2+1
GMRCX	HDR1+1~, HDR1+14*, HDR1+17, HDR2~, HDR2+1
GMRCX1	HDR1+1~, HDR1+6*, HDR1+14
GMRCX2	HDR1+1~, HDR1+9, HDR1+10, HDR1+11, HDR1+12, HDR1+14
GMRCX3	HDR1+1~, HDR1+15, HDR1+16, HDR1+17
GMRVSTR	HDR1+1~, HDR1+3*
>> IOBM	STS+1
>> IOSTBM	STS+1
>> IOTM	STS+1
L	HDR1+10~*, HDR1+11
LINE	INIT+3*, INIT+5!
>> LNCT	INIT+3, INIT+4, SPD+5, SS+6
RES	STCK~, STCK+2, STCK+3, STCK+4, STCK+5, STCK+6, STCK+7, STCK+8, STCK+9
TIUCWAD	HDR1+1~, HDR1+16*
U	HDR1+4, HDR1+10, HDR1+11, STS+5
>> VALM	SP+1
>> VALM("TITLE"	HDR+2*
>> VALMAR	INIT+2*
VALMBCK	HELP+7, EXIT+2!, SPD+5, SPQ+3, SS+6
VALMCNT	INIT+4, EXIT+2!, SPD+5, SS+6*
>> VALMHDR(1	HDR1+17*
>> VALMHDR(2	HDR1+18!, HDR2+1*
VALMPGE	INIT+4, EXIT+2!, SPD+5
X	HDR1+1~, HDR1+4, HELP+1~, HELP+6, PHYEN+2, SP+4, STS+3~
>> XQAID	HDR1+8
>> XQORM("A"	INIT+4*
>> XQORM("HIJACK"	INIT+6*
Y	EN+5~, EN+9, PHYEN+2, SP+4, SP+5, STS+3~, STS+12, STS+13, END!

Customize PDF page

Package: Consult Request Tracking

Routine: GMRCSLM

Call Graph Total: 18

Caller Graph Total: 11