Routine: VENPCCYR

Package	Total	Call Graph
PCC New Encounter Form	4	PATIENT^VENPCCUR FLUSH^VENPCCYF XDAF^VENPCCYP NEWV^VENPCCYV
VA Fileman	3	^%DT CHK^DIE ^DIK
IHS Electronic Health Record	1	($$VSTR2VIS,VSTR2VIS)^BEHOENCX
IHS VA Utilities	1	^XBFMK
Kernel	1	$$FMADD^XLFDT

Entry Points

Name	Comments	DBIA/ICR reference
ABORT(OUT,IN)	; EP - RPC: VEN CR ABORT A TRANSACTION ; IN = TXIEN, OUT = TXIEN IF TX WAS SUCCESSFULLY DELETED
VALV(OUT,IN)	; EP - VEN CF LIST VISITS ; RETURN THE TX STRING FOR A LIST OF VALID VISITS
SUBMIT(OUT,IN)	; EP - RPC: VEN CF SUBMIT TX STRING ; SUBMIT THE UPDATED STRING FROM THE TRANSACTION ; A VERIFICATION STRING WILL BE RETURNED
CKTX(OUT,IN)	; EP - RPC: VEN CF CHECK TX ; CHECKS TO SEE IF THERE ALREADY IS AN ENTRY IN THE TX FILE FOR THIS PT ; INPUT: DFN\|FORM_IEN\|VISIT_IEN ; OUTUT = 1 OR 0
DEMOPT(OUT,IN)	; EP - RPC: VEN CF GET DEMO PT DFN ; RETRUN THE DEMO PATIENT'S DFN ; RETRUN STRING: DFN;NAME;LOCAL CHART NUMBER
TVAL(OUT,IN)	; EP - RPC: VEN CF VALIDATION TEST
VIEN(OUT,IN)	; EP - RPC: VEN EHR VISIT STUB ; CONVERT EHR ENCOUNTER STUB TO RPMS VISIT STUB ; IN = DFN\|"HLIEN;VDT;A"\|PRVIEN ; IF PERFECT MATCH '> 1 HR, OLD VIEN WILL BE RETURNED
PRVLKUP(OUT,IN)	; EP - RPC: VEN CF LIST PROVIDERS
MODXML(OUT,IN)	; EP RPC: VEN CF GET MODULE DEF XML ; RETURN MODULE DEFINITION AS AN XML ARRAY
DELTX(OUT,IN)	; EP - RPC: VEN CF DELETE TX ; DELETES AN ABORTED TX ; INPUT: DFN\|FORM_IEN\|VISIT_IEN ; OUTUT = 1 OR 0
AV(OUT,IN)	; EP - RPC: VEN CF AV CODES
FLUSH(OUT,IN)	; EP - RPC: VEN CF FLUSH TX FILE ; IN = TXIEN;FILE
CMP(OUT,IN)	; EP - RPC: VEN CF TG STG SHOW COMPONENTS
USER(OUT,IN)	; EP - RPC: VEN CF CURRENT USER ; IN = VIEN\|FIEN\|PRVIEN ; OUT = 1 IF REQUEST WAS SUCCESSFUL. IF NOT, OUT = 0 ; IF PRVIEN IS DEFINED, TX IS ASSIGNED TO THAT PROVIDER. IF NOT, TX IS CLEARED OF ITS USER
KBSEC(OUT,USER)	; EP - RPC: VEN KB PRIVILEGES
GUISEC(OUT,USER)	; EP - RPC:VEN WCM GUI PRIVILEGES
MOD(OUT,IN)	; EP - RPC: VEN CF TG STG GET MODULES
MAP(OUT,IN)	; EP - MAP GUI HEADERS AND COMPONENTS ; RPC = VEN CF GET HEADER MAP ; IN = FORM IEN ; OUT = HEADER NAME^COMPONENT NAME\|COMPONENT IEN~COMPONENT NAME\|COMPONENT IEN...
VAL(OUT,IN)	; EP - RPC: VEN CF VALIDATION MSG
TRIGGER(OUT,IN)	; EP - RPC: VEN CF TRIGGER ; IF A FIELD IN THE TX FILE IS A TRIGGER, SEND THAT QUAD HERE. ; RETURNS UPDATED QUAD STRING WITH ALL TRIGGERED ELEMENTS (INCLUDING TRIGGERED ELEMENTS IN OTHER COMPONENTS)
TX(OUT,IN)	; EP - RPC: VEN CF GET TX STG ; IN = COMPONENT IEN;DFN;VISIT_IEN;MODULE_IEN;FORM_IEN;USER_IEN The VISIT IEN and DFN CAN BE SET TO 0 FOR DEMO MODE. ; OUT = Tx STRING
MODEF(OUT,IN)	; EP - RPC: VEN CF GET MODULE DEFINITION ; RETRUN THE MODULE DEFINITION STRING (MODULE/FORM/COMPONENT)
NEWV(OUT,IN)	; EP - VEN CF CREATE TEST VISIT ; GIVEN SOURCE VISIT IEN AND NEW TIMESTAMP (VIEN;TS), CLONE A VISIT STUB AND PRIMARY V PRV & V POV ENTRIES
TXCLEAN
IEN(X)	; EP - BMX CALL, GENERIC IEN
CLTX(OUT,IN)	; EP - RPC: VEN CF TX SCRUB ; CLEAN OUT ENTIRE TX FILE
VAL1(OUT,IN)	; NEW CODE SUPPORTS MULTIPLE VALIDATION MESSAGES
STG(IN)	; EP - CONVERT AN ARRAY TO A STRING

Name	Field # of Occurrence
^%DT	NEWV+6
$$VSTR2VIS^BEHOENCX	VIEN+11
VSTR2VIS^BEHOENCX	VIEN+2
CHK^DIE	TVAL+9
^DIK	ABORT+6, TXCLEAN+11, CLTX+5
PATIENT^VENPCCUR	DEMOPT+10
FLUSH^VENPCCYF	FLUSH+17
XDAF^VENPCCYP	FLUSH+14
NEWV^VENPCCYV	NEWV+9
^XBFMK	TXCLEAN+12, CLTX+8
$$FMADD^XLFDT	VALV+4

RPC Name	Call Tags
VEN CF LIST VISITS	VALV
VEN KB PRIVELEGES	KBSEC
VEN WCM GUI PRIVELEGES	GUISEC
VEN CF VALIDATION MSG	VAL
VEN CF DELETE TX	DELTX
VEN EHR VISIT STUB	VIEN
VEN KB GUI PRIVELEGES	GUISEC

Name	Line Occurrences (* Changed, ! Killed)
^AUPNPAT - [#9000001]	DEMOPT+9
^AUPNVSIT - [#9000010]	NEWV+4
^DD(	TVAL+11, VAL1+10, VAL1+11, VAL1+12
^DIC - [#1]	FLUSH+8
^DIC(40.7 - [#40.7]	VIEN+7
^DPT - [#2]	VALV+3, VIEN+5
^DPT("B"	DEMOPT+4, DEMOPT+5, DEMOPT+6, DEMOPT+7
^VA(200 - [#200]	CKTX+13, VIEN+10
^VEN(7.66	CKTX+9, CKTX+10!, TXCLEAN, TXCLEAN+1, TXCLEAN+2, TXCLEAN+3, TXCLEAN+5, USER+9, USER+11*, CLTX+5 , CLTX+7!
^VEN(7.68	VAL1+7, VAL1+21
^VEN(7.69	FLUSH+14
^XUSEC("PROVIDER"	GUISEC+6
^XUSEC("VENZDESKTOP"	GUISEC+4
^XUSEC("VENZKBEDIT"	KBSEC+4
^XUSEC("VENZMGUI"	KBSEC+5, GUISEC+7
^XUSEC("VENZPRINT"	GUISEC+5

Name	Line Occurrences
$$STG	SUBMIT+3
VAL1	VAL+7

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	FLUSH+3~, FLUSH+9, FLUSH+10, FLUSH+11, FLUSH+12, CKTX+8, CKTX+9, CKTX+10, DELTX+4~, TXCLEAN+2* , TXCLEAN+4, TXCLEAN+8, USER+5~, USER+9, TVAL+3~, TVAL+6, TVAL+7, TVAL+8, VAL+3~, VAL1+3~ , VAL1+21, VAL1+22, VAL1+23, VAL1+25, VIEN+6*, VIEN+7, VIEN+8, VIEN+9, VIEN+11
%DT	NEWV+2~, NEWV+6*
CIEN	FLUSH+3~, VAL1+3~, VAL1+6*, VAL1+7, VAL1+21
DA	ABORT+3~, ABORT+4, ABORT+5, DELTX+4~, TXCLEAN, TXCLEAN+1, TXCLEAN+2, TXCLEAN+3, TXCLEAN+6, TXCLEAN+7 , TXCLEAN+8, CLTX+3~, CLTX+4, CLTX+5
DATA	CKTX+4~, CKTX+10*, CKTX+11, CKTX+12
DFN	DEMOPT+2~, DEMOPT+4, DEMOPT+5, DEMOPT+6, DEMOPT+7, DEMOPT+8, DEMOPT+9, FLUSH+3~, FLUSH+10, FLUSH+14 , CKTX+4~, CKTX+5, DELTX+5, DELTX+6, VIEN+4~, VIEN+5, VIEN+11
DIC	ABORT+3~, DELTX+4~
DIE	ABORT+3~, DELTX+4~
DIK	ABORT+3~, ABORT+5, DELTX+4~, TXCLEAN+10, CLTX+3~, CLTX+4*
DR	ABORT+3~, DELTX+4~
DT	VALV+4
DUZ(2	DEMOPT+9
EDD	DELTX+4~, TXCLEAN+3*, TXCLEAN+7
F	CKTX+4~, DELTX+4~
FIEN	CKTX+4~, CKTX+5, CKTX+6, CKTX+8, DELTX+4~, DELTX+5, DELTX+6, TXCLEAN, USER+5~, USER+6* , USER+7, USER+9
FILE	TVAL+3~, TVAL+7, TVAL+9, TVAL+11, VAL1+3~, VAL1+4, VAL1+8, VAL1+10, VAL1+11, VAL1+12
FLD	TVAL+3~, TVAL+8, TVAL+9, TVAL+11, VAL1+3~, VAL1+5, VAL1+10, VAL1+11, VAL1+12
FMT	VAL1+3~, VAL1+7, VAL1+8, VAL1+9, VAL1+14, VAL1+15, VAL1+16, VAL1+17, VAL1+18, VAL1+19 , VAL1+20
GBL	FLUSH+3~, FLUSH+8, FLUSH+9, DELTX+4~, TXCLEAN+5, TXCLEAN+6, TXCLEAN+7, TXCLEAN+8
HLIEN	VIEN+4~
HRN	DEMOPT+2~, DEMOPT+9*, DEMOPT+10
IN	DEMOPT~, DEMOPT+4, DEMOPT+5, DEMOPT+6, DEMOPT+7, MOD~, CMP~, PRVLKUP~, TX~, SUBMIT~ , SUBMIT+3, SUBMIT+4, ABORT~, ABORT+4, VALV~, VALV+3, VALV+4, NEWV~, NEWV+4, NEWV+5 , FLUSH~, FLUSH+2, FLUSH+5, FLUSH+6, FLUSH+7, MODEF~, MODXML~, STG~, STG+2, MAP~ , TRIGGER~, CKTX~, CKTX+3, CKTX+5, DELTX~, DELTX+3, DELTX+5, USER~, USER+4, USER+6 , AV~, AV+1, TVAL~, TVAL+2, TVAL+4, TVAL+5, TVAL+6, VAL~, VAL+2, VAL+4 , VAL+6, VAL1~, VAL1+2, VAL1+4, VAL1+5, VAL1+6, CLTX~, VIEN~, VIEN+2, VIEN+5 , VIEN+6, VIEN+10
IN(	STG+4
IN(0	STG+2
MAX	VAL+3~, VAL+4*, VAL+5
MODIEN	FLUSH+3~, FLUSH+11*, FLUSH+14
NVIEN	NEWV+2~, NEWV+9, NEWV+10
OUT	DEMOPT~, DEMOPT+3, DEMOPT+10, MOD~, MOD+1, CMP~, CMP+1, PRVLKUP~, PRVLKUP+1, TX~ , SUBMIT~, SUBMIT+3, ABORT~, ABORT+2, ABORT+5, VALV~, VALV+2, VALV+4, NEWV~, NEWV+3 , NEWV+10, FLUSH~, FLUSH+2, FLUSH+4, FLUSH+16, FLUSH+17, MODEF~, MODXML~, MAP~, TRIGGER~ , CKTX~, CKTX+2, CKTX+9, CKTX+11, CKTX+14, DELTX~, DELTX+2, USER~, USER+3, USER+10* , AV~, AV+1, TVAL~, TVAL+1, TVAL+10, TVAL+11, VAL~, VAL+1, VAL+2, VAL+9* , VAL+10, VAL+12, VAL1~, VAL1+1, VAL1+10, VAL1+11, VAL1+12, VAL1+14, VAL1+15, VAL1+16* , VAL1+17, VAL1+18, VAL1+19, VAL1+21, VAL1+22, VAL1+23, VAL1+24, VAL1+25, VAL1+26, CLTX~ , CLTX+2, CLTX+9, KBSEC~, KBSEC+1, KBSEC+4, KBSEC+5, GUISEC~, GUISEC+1, GUISEC+4, GUISEC+5* , GUISEC+6, GUISEC+7, VIEN~, VIEN+1, VIEN+11
OWNER	FLUSH+3~, FLUSH+7*, FLUSH+17
P	CKTX+4~, CKTX+12, CKTX+13, CKTX+14
PCE	VAL+3~, VAL+5*, VAL+6
PIEN	CKTX+4~, CKTX+5*
PRVIEN	USER+5~, USER+6, USER+11, VIEN+4~, VIEN+10, VIEN+11
RESULT	TVAL+3~, TVAL+9, TVAL+10
STG	STG+1~, STG+3, STG+4, STG+5
TFILE	FLUSH+3~, FLUSH+13, FLUSH+14
TS	NEWV+2~, NEWV+5*, NEWV+6
TXFILE	FLUSH+3~, FLUSH+6*, FLUSH+8, FLUSH+17
TXIEN	FLUSH+3~, FLUSH+5, FLUSH+9, FLUSH+14, FLUSH+17, CKTX+4~, CKTX+9, CKTX+10, USER+5~, USER+9* , USER+11
TXUID	CKTX+4~
U	DEMOPT+9, FLUSH+11, FLUSH+12, CKTX+11, CKTX+12, CKTX+13, TXCLEAN+1, TXCLEAN+3, TXCLEAN+4, USER+11 , TVAL+10, VAL1+7, VAL1+10, VAL1+11, VAL1+22, VAL1+23, VAL1+25
USER	KBSEC~, KBSEC+2, KBSEC+4, KBSEC+5, GUISEC~, GUISEC+2, GUISEC+4, GUISEC+5, GUISEC+6, GUISEC+7
V	CKTX+4~, DELTX+4~
VAL	TVAL+3~, TVAL+5*, TVAL+9
VDT	NEWV+2~, NEWV+3, NEWV+7, NEWV+8, NEWV+9, VIEN+4~, VIEN+9*
VIEN	NEWV+2~, NEWV+4, NEWV+9, FLUSH+3~, FLUSH+12, FLUSH+14, CKTX+4~, CKTX+5, CKTX+6, CKTX+8 , DELTX+4~, DELTX+5, DELTX+6, TXCLEAN, USER+5~, USER+6*, USER+7, USER+9, VIEN+4~
VSTG	VIEN+4~
X	ABORT+3~, NEWV+2~, NEWV+6, FLUSH+3~, STG+1~, STG+3, STG+4, DELTX+4~, USER+5~, TVAL+3~ , VAL+3~, VAL+6, VAL+7, VAL1+3~, CLTX+3~, CLTX+6, CLTX+7, IEN~, IEN+1, VIEN+4~
XDA	FLUSH+3~, FLUSH+14, FLUSH+17
XDA(0	FLUSH+15
Y	ABORT+3~, NEWV+2~, NEWV+6, NEWV+7, FLUSH+3~, DELTX+4~, USER+5~, TVAL+3~, VAL+3~, VAL1+3~ , VIEN+4~
Z	NEWV+2~, FLUSH+3~, USER+5~, TVAL+3~, TVAL+4, VAL+3~, VAL+6, VAL+7, VAL+8*, VAL+10 , VAL1+3~, VIEN+4~

Customize PDF page

Package: PCC New Encounter Form

Routine: VENPCCYR

Information

Source Information

Call Graph

Call Graph Total: 10

Entry Points

External References

Used in RPC

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items

Name	Field # of Occurrence
$T(FLUSH^VENPCCYF	FLUSH+17
$T(VSTR2VIS^BEHOENCX	VIEN+2
$T(XDAF^VENPCCYP	FLUSH+14