Routine: VENPCCW

Package	Total	Call Graph
PCC New Encounter Form	8	$$PACK^VENPCC ERR^VENPCC1 PRINT^VENPCC10 HS^VENPCC2A ($$VCN,$$VISIT)^VENPCC3 (EN1,QUEUE)^VENPCCA ($$CFG,$$NOW,$$PRV)^VENPCCU $$DUP^VENPCCW
Kernel	3	^%ZTER ($$FMADD,$$FMDIFF,$$NOW)^XLFDT $$UP^XLFSTR
IHS VA Utilities	1	^XBKVAR
VA Fileman	1	^%DT

Package	Total	Caller Graph
PCC New Encounter Form	2	VENPCC10 VENPCCW

Entry Points

Name	Comments	DBIA/ICR reference
VDT
CHECKIND(OUT,CKINDT,DFN,PRVIEN,CLIEN,DEFEF,OUTGUIDE,NEWVISIT,OUTMODE)	; EP-debug mode
CVT	; CONVERT DATA ARRYA TO A PREFILL STRING FOR MOJO
QUEUE	; UPDATE THE VEN QUEUE FILE
PEN	; "DIGITALPEN" MODE ; UNLIKE THE TABLET MODE, PEN DATA IS NOT HELD FOR FUTURE USE BECAUSE THE FORM IS BUILT IMMEDIATLY ; THE PRE-FILL DATA ARRAY IS PASSED BACK TO THE RPC AS SOON AS IT IS COLLECTED
VALID	; CHECK TO MAKE SURE ALL REQUIRED PARAMS ARE PRESENT
SECVAR	; MAKE SECONDARY VARIABLES
RED
HDR
DTIME(DEFEF)	; EP - DELAY TIME BEFORE DATA ENTRY IS ALLOWED
SCX(PRV,VISIT,VCN,CSIEN)	; EP-SCHEDULING PKG INTERFACE FROM BSDX
INIT	; INITIALIZE VARIABLES
HSQ
MODE	; ALL PREVIOUS MOJO PROCESSING LEADS TO THIS MAIN DIVISION POINT: TABLET OR PEN
TF	; TRANSFORM FLAGS
GETDATA	; GET DATA FROM PCCPLUS
VISIT
PCCPLUS	; GET DATA STRING FROM PCC+ AND MAKE MOJO ARRAY IF MOJOFLAG IS SET
FID	; ADD FORM INSTANCE ID AND METADATA FIELDS TO THE PREFILL STRING
ERROR	; EP-MUMPS ERROR TRAP
FIN	; ADD END OF FILE MARKER AND QUIT
CHECKIN(OUT,CKINDT,DFN,PRVIEN,CLIEN,DEFEF,OUTGUIDE,NEWVISIT,OUTMODE)	;EP - RPC (VEN CHECKIN): Check in appointment ; MOJO ENABLED! ; CKINDT = Checkin date/time ; DFN = patient IEN ; PRVIEN = Provider IEN ; OUTGUIDE = true/false print OutGuide ; CLIEN = VEN EHP CLINIC IEN ; DEFEF = VEN EHP TEMPLATE IEN ; NEWVISIT = OK TO CREATE A NEW VISIT ; OUTMODE = CLASSICPCC, TABLET, DIGITALPEN (MOJO)
HS(VIEN,DEPTIEN)	; EP-PRINT PCC+ HEALTH SUMMARY WITHIN MOJO (PEN MODE ONLY)
TABLET	; "TABLET" MODE
HARDCODE	; EP-FOR DIGITAL FORMS ONLY, ADD HARD CODED FIELDS TO THE DATA STRING
DUP(DFN,DIEN)	; EP-GIVEN A DFN AND DEPT STOP IEN RETURN VIEN IF DUPLICATE VISIT
META	; DATA THAT MUST PASS THRU FROM THE PRE-FILL TO THE UPLOAD ; FORMAT fieldname1~val1~fieldname2~val2;...
MOJODATA	; EP-MAKE MOJO ARRAY ; IF MOJOFLAG=1, PCC+ DATA MINING PROCESS BRANCHES HERE FOR ITS OUTPUT
ERR(ERRID,ERRTXT)	; EP-Error processing

Name	Field # of Occurrence
^%DT	VDT+2
^%ZTER	ERROR+1
$$PACK^VENPCC	VISIT+7, SCX+17
ERR^VENPCC1	MOJODATA+11
PRINT^VENPCC10	PCCPLUS+1
HS^VENPCC2A	HSQ+12
$$VCN^VENPCC3	VISIT+5
$$VISIT^VENPCC3	VISIT+2
EN1^VENPCCA	SCX+16, SCX+18
QUEUE^VENPCCA	QUEUE+1, SCX+15
$$CFG^VENPCCU	HSQ+2, SCX+7
$$NOW^VENPCCU	DTIME+3
$$PRV^VENPCCU	SCX+6
$$DUP^VENPCCW	VISIT+1
^XBKVAR	INIT+2
$$FMADD^XLFDT	DTIME+4
$$FMDIFF^XLFDT	DUP+7
$$NOW^XLFDT	DUP+7
$$UP^XLFSTR	TF+1, TF+2

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("TRAP"	INIT+2
^APCHCTL("B"	HSQ+9, HSQ+10
^AUPNVSIT - [#9000010]	VISIT+4, HSQ+5
^DPT - [#2]	DUP+1, HSQ+8
^GREG("CKIN"	CHECKIND+1*
^TMP("BSDX"	INIT+4
^TMP("VEN PRNT"	FIN+4!, MOJODATA+5
^VA(200 - [#200]	SCX+11
^VEN(7.2 - [#19707.2]	DUP+5, DUP+6, DUP+9, DUP+11
^VEN(7.41 - [#19707.41]	HARDCODE+1, HARDCODE+2, RED+1, META+1, DTIME+2
^VEN(7.5 - [#19707.5]	SCX+10
^VEN(7.95 - [#19707.95]	SECVAR+3, SECVAR+5, DUP+2, MOJODATA+9, HSQ+6, SCX+10

Name	Line Occurrences
$$DTIME	META+2
ERR	VALID+1, VALID+2, VALID+3, VALID+4, VALID+5, SECVAR+4, SECVAR+6, VISIT+3, VISIT+6, ERROR+4
HS	MOJODATA+8
PEN	MODE+2
QUEUE	GETDATA+2
TABLET	MODE+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	INIT+1~, SECVAR+1, MOJODATA+2~, CVT+6, CVT+7, RED+1, FID+1, HSQ+1~, HSQ+8, HSQ+9* , SCX+1~
%DT	INIT+1~, VDT+2*, SCX+1~
%E	SCX+2~
%Y	SCX+1~
>> %ZTERROR	ERROR+4
APPT	INIT+1~, SECVAR+2, PCCPLUS+1, SCX+1~, SCX+14
>> ASDDT	SCX+14
>> BSDXVEN("CLINIC"	SCX+8
>> BSDXVEN("FORM"	SCX+12
>> BSDXVEN("OUTGUIDE"	SCX+4
CFIGIEN	HSQ+2, SCX+1~, SCX+7, SCX+10
CIEN	SCX+1~
CKINDT	CHECKIND~, CHECKIN~, VDT+1, VDT+2, VALID+1, VISIT+2
CLIEN	CHECKIND~, CHECKIN~, VALID+4, SECVAR+3, SECVAR+5, VISIT+1, VISIT+5, QUEUE+1, PCCPLUS+1, MODE+1
CREF	MOJODATA+2~, MOJODATA+5*, MOJODATA+14, HARDCODE+4, CVT+2, CVT+3
CSIEN	SCX~
CSTOP	INIT+1~, SECVAR+5*, SECVAR+6, VISIT+2
DA	MOJODATA+2~, MOJODATA+5*
DEFEF	CHECKIND~, CHECKIN~, VALID+5, PCCPLUS+1, HARDCODE+1, HARDCODE+2, RED+1, META+1, META+2, DTIME~ , DTIME+2, SCX+1~, SCX+12*, SCX+13
DEFHS	INIT+1~, SECVAR+2, PCCPLUS+1, HSQ+1~, HSQ+6, HSQ+7, HSQ+9, HSQ+10, HSQ+12, SCX+1~ , SCX+14*
DELAY	DTIME+1~, DTIME+2*, DTIME+4
DEPT	DUP+3~, DUP+9*, DUP+10, SCX+1~
DEPTIEN	MOJODATA+8, MOJODATA+9, HS~, HSQ+3, HSQ+6, HSQ+12, SCX+1~, SCX+8*, SCX+9, SCX+10 , SCX+15
DFN	CHECKIND~, CHECKIND+1, CHECKIN~, VALID+2, VISIT+1, VISIT+2, DUP~, DUP+1, DUP+5, HSQ+1~ , HSQ+5*, HSQ+8, HSQ+12, SCX+1~
DHS	INIT+1~
DI	SCX+1~
DIC	SCX+1~
DIEN	DUP~, DUP+2, DUP+10
DIFF	DUP+3~, DUP+7*, DUP+8
DISYS	SCX+1~
DLAYGO	SCX+1~
DT	HSQ+9
DUZ(2	SECVAR+3
EFONLY	HSQ+3, SCX+1~, SCX+14*
ELIG	INIT+1~, SCX+1~
ERR	MOJODATA+2~, MOJODATA+11*
ERRID	ERR~, ERR+3
ERRTXT	ERR~, ERR+3
EXT	INIT+1~, SECVAR+2, PCCPLUS+1, SCX+1~, SCX+14, SCX+17*
FID	MOJODATA+2~, FID+1*, FID+2
FIEN	MOJODATA+2~, HARDCODE+1*, HARDCODE+2
FLD	MOJODATA+2~, HARDCODE+3, HARDCODE+4, CVT+1, CVT+2*, CVT+3, CVT+7, RED, RED+1
HSONLY	SCX+19!
ICD	INIT+1~
ICD9	INIT+1~
IO	SCX+2~
IOF	SCX+2~
IOM	SCX+2~
ION	SCX+2~
IOS	SCX+2~
IOST	SCX+2~
IOT	SCX+2~
IOXY	SCX+2~
JOB	INIT+1~
LOC	INIT+1~, SECVAR+3*, SECVAR+4, VISIT+2, SCX+1~
MOJOFLAG	INIT+1~, GETDATA+3*, FIN+2
MOJOFLAG(1	GETDATA+4*, MOJODATA+7, MODE+1, MODE+2
MP	MOJODATA+2~, MOJODATA+7, MOJODATA+9*, MOJODATA+10, MOJODATA+14
NEWVISIT	CHECKIND~, CHECKIN~, TF+2*
NODE	INIT+1~, INIT+3, FIN+1, FIN+2, FIN+3, MOJODATA+2~, PEN+4, PEN+5, ERR+1, ERR+2 , ERR+3, ERR+4, ERR+5, ERROR+2~, ERROR+3*
>> NOTASK	SCX+16
OGFLAG	INIT+1~, SECVAR+1, QUEUE+1, SCX+3~, SCX+4, SCX+5*
>> OGONLY	HSQ+3
OUT	CHECKIND~, CHECKIN~, INIT+4*, INIT+5, HDR+1, FIN+1, FIN+2, FIN+3, MOJODATA+12, TABLET+5 , PEN+3, PEN+4, PEN+5, ERR+3, ERR+5
OUTGUIDE	CHECKIND~, CHECKIN~, TF+1*, SECVAR+1
OUTMODE	CHECKIND~, CHECKIN~, GETDATA+1*, GETDATA+2, GETDATA+4
PGRP	SCX+1~
POP	SCX+2~
PRV	SCX~, SCX+6, SCX+10, SCX+11, SCX+15
PRVIEN	CHECKIND~, CHECKIN~, VALID+3, QUEUE+1, PCCPLUS+1
QIEN	DUP+3~, DUP+4, DUP+5, DUP+6, DUP+9, DUP+11
RED	MOJODATA+2~, MOJODATA+6*, RED
STG	MOJODATA+2~, MOJODATA+5, CVT+6, CVT+7, RED, RED+1, FID+2, META+1, META+2, MODE+1 , PEN+4*
STOP	DUP+3~, DUP+5, DUP+8, DUP+11
T1	DTIME+1~, DTIME+3*, DTIME+4
T2	DTIME+1~, DTIME+4*, DTIME+5
TAB	MOJODATA+2~, MOJODATA+3, MOJODATA+4, TABLET+1
TIME	DUP+3~, DUP+6*, DUP+7, SCX+1~
TOT	SCX+1~
TQIEN	INIT+1~
U	SECVAR+3, SECVAR+5, VISIT+4, VISIT+5, DUP+9, DUP+11, MOJODATA+3, MOJODATA+9, HARDCODE+3, RED , META+1, DTIME+2, HSQ+5, HSQ+6, HSQ+8, SCX+10, ERR+3
VAL	MOJODATA+2~, HARDCODE+3, HARDCODE+4, CVT+3, CVT+4, CVT+5, CVT+7, RED, RED+1
VARS	INIT+1~, VISIT+7, PCCPLUS+1, SCX+1~, SCX+17
VCN	INIT+1~, VISIT+4, VISIT+5, VISIT+6, PCCPLUS+1, SCX~
VENDEV	INIT+1~
VIEN	INIT+1~, VISIT, VISIT+1, VISIT+2, VISIT+3, VISIT+4, VISIT+5, QUEUE+1, PCCPLUS+1, DUP+4 , DUP+11*, DUP+13, FID+1, HS~, HSQ+3, HSQ+5, HSQ+12
VISIT	MOJODATA+8, SCX~, SCX+15
VPFLAG	SCX+1~, SCX+19!
X	INIT+1~, INIT+2, VDT+2, MOJODATA+2~, HARDCODE+2*, HARDCODE+3, SCX+1~
Y	INIT+1~, VDT+2, SCX+1~

Customize PDF page

Package: PCC New Encounter Form

Routine: VENPCCW

Information

Source Information

Call Graph

Call Graph Total: 13

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Global Variables Directly Accessed

Label References

Local Variables

Legend: