Routine: VENPCCA

Package	Total	Call Graph
PCC New Encounter Form	9	(,$$DUP,$$PACK,$$PGRP)^VENPCC ERR^VENPCC1 ($$VCN,$$VISIT,OB)^VENPCC3 MSR^VENPCCAM PAT^VENPCCD $$DATES^VENPCCMF KILLTASK^VENPCCP $$UMSG^VENPCCP2 ($$CFG,$$CHART,$$GP,$$NOW)^VENPCCU
VA Fileman	4	NOW^%DTC ^DIC YN^DICN ^DIE

Package	Total	Caller Graph
PCC New Encounter Form	3	VENPCC VENPCCW VENPCCX

Entry Points

External References

Name	Field # of Occurrence
NOW^%DTC	NOW+1
^DIC	PATIENT+12, CLINIC+4, PRV+4, EF+7, HS+6, Q1+2
YN^DICN	UP+3, APPT+2, PULL+7
^DIE	MOJO+2
^VENPCC	NOVISIT+2
$$DUP^VENPCC	SPGRP+6, SPGRP+7
$$PACK^VENPCC	TMAN+1
$$PGRP^VENPCC	SPGRP+3
ERR^VENPCC1	CL1+2, CL1+3, VISIT+13, EN1+3, EN1+8
$$VCN^VENPCC3	VISIT+7, VCN+2
$$VISIT^VENPCC3	VISIT+12
OB^VENPCC3	FILE+2
MSR^VENPCCAM	FILE+3
PAT^VENPCCD	UP+4
$$DATES^VENPCCMF	UP+2
KILLTASK^VENPCCP	STUCK+6
$$UMSG^VENPCCP2	EN1+10
$$CFG^VENPCCU	EN1+6, EXTCKIN+3
$$CHART^VENPCCU	NOW+6
$$GP^VENPCCU	PRV+5
$$NOW^VENPCCU	QSIG+5, QSIG+8

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"A PCC+ form will be generated for ",$P($G(^DPT(PIMSDFN,0)),U) Line Location: PATIENT+3
Function Call: WRITE	Prompt: !,"But first, please answer the following questions...",! Line Location: PATIENT+4
Function Call: WRITE	Prompt: !!,"Patient: " Line Location: PATIENT+7
Function Call: WRITE	Prompt: $P($G(^DPT(PATIENT,0)),U),"// " Line Location: PATIENT+7
Function Call: READ	Timeout: $G(DTIME,600) Variable: X Line Location: PATIENT+8
Function Call: WRITE	Prompt: !,?5,"Enter name (LAST,FIRST - no space after comma), partial name, DOB, or SSN" Line Location: PATIENT+11
Function Call: WRITE	Prompt: !,% Line Location: UP+2
Function Call: WRITE	Prompt: !!,"Internal error! Notify site manager..." Line Location: CL1+2
Function Call: WRITE	Prompt: !!,"Internal error! Notify site manager" Line Location: CL1+3
Function Call: WRITE	Prompt: !,"No valid printer location defined! Request cancelled..." Line Location: SPGRP+3
Function Call: WRITE	Prompt: !!,"This option can only be used to REPRINT forms",!,"You must use the Scheduling Package to print the original!!" Line Location: SPGRP+9
Function Call: WRITE	Prompt: " ("_$P($G(^VA(200,+Y,0)),U)_")" Line Location: PRV+5
Function Call: WRITE	Prompt: !,"Does this patient have an appointment" Line Location: APPT+1
Function Call: WRITE	Prompt: !,"This form is temporarily out of service. Use another form..." Line Location: BEF+0
Function Call: WRITE	Prompt: !,"Warning, this form is not configured to display EHR vital signs!" Line Location: BEF+2
Function Call: WRITE	Prompt: !," Administrative form..." Line Location: BEF+3
Function Call: WRITE	Prompt: !,"Print outguide/Pull chart" Line Location: PULL+6
Function Call: WRITE	Prompt: !,"A valid visit must exist to use the NCI option.",!,"PCC+ can't find a valid visit, so the NCI dialog will be skipped!" Line Location: NOW+3
Function Call: WRITE	Prompt: !,"No visit created!" Line Location: NOW+7
Function Call: WRITE	Prompt: !,"Unable to create a demo form for this patient (missing visit)" Line Location: VISIT+3
Function Call: WRITE	Prompt: !,"This patient has no visits! Request cancelled...",!! Line Location: VISIT+4
Function Call: WRITE	Prompt: !,"Unable to create a demo form for this patient (missing VCN)" Line Location: VISIT+8
Function Call: WRITE	Prompt: !,"This patient has no VCN! Request cancelled...",!! Line Location: VISIT+9
Function Call: WRITE	Prompt: !,"NO VISIT CREATED! Try again..." Line Location: VISIT+11
Function Call: WRITE	Prompt: !,"Internal error! Notify site manager" Line Location: VISIT+13
Function Call: WRITE	Prompt: !,ERR,!,"Request terminated..." Line Location: VCN+3
Function Call: WRITE	Prompt: ! Line Location: RUN+0
Function Call: WRITE	Prompt: "Duplicate encounter! " Condition for execution: VENDEMO=2 Line Location: RUN+0
Function Call: WRITE	Prompt: "No visit created" Line Location: RUN+0
Function Call: WRITE	Prompt: !!,"PCC+ has been temporarily shut down at this clinic.",!,"You may continue to register patients, but no forms will be printed..." Line Location: RUN+1
Function Call: WRITE	Prompt: !!! Line Location: RUN+1
Function Call: WRITE	Prompt: !,"This information will be sent to the clinic..." Line Location: RUN+2
Function Call: WRITE	Prompt: !,"Submitting request for ",$S($G(OGONLY):"OutGuide",$G(EFONLY):"Encounter Form",$G(HSONLY):"Health Summary",1:"Encounter form and Health Summary..."),! Line Location: RUN+3
Function Call: READ	Timeout: 1 Variable: % Line Location: MON+0
Function Call: WRITE	Prompt: !!! Line Location: CLEANUP+10
Routine Call	DIE Line Location: MOJO+2
Routine Call	DIC Line Location: PATIENT+12 CLINIC+4 PRV+4 EF+7 HS+6 Q1+2

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^VEN(7.2 - [#19707.2]	Classic Fileman Calls
^VEN(7.41 - [#19707.41]	Classic Fileman Calls
^VEN(7.95 - [#19707.95]	Classic Fileman Calls
^DPT - [#2]	Classic Fileman Calls
^APCHSCTL - [#9001015]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^APCHSCTL - [#9001015]	HS+2
^AUPNCPG("B"	FILE+2
^AUPNVSIT - [#9000010]	VISIT+5, VISIT+6, VCN, VCN+1, QSIG+1, QSIG+7, Q1+6
^AUPNVSIT("AC"	VISIT+2
^DIC(40.7 - [#40.7]	CL1+2
^DPT - [#2]	PATIENT+3, PATIENT+7, HS+3
^TMP("VEN MON"	MON
^TMP("VEN TASK"	PATIENT+1, CLEANUP+5, CLEANUP+6, STUCK+2, STUCK+3, STUCK+5
^VA(200 - [#200]	PRV+1, PRV+2, PRV+5, EN1+4, EN1+6, EN1+8, INIT+2
^VEN(7.2 - [#19707.2]	MOJO+1, MOJO+2
^VEN(7.22 - [#19707.22]	MRQ+3
^VEN(7.4 - [#19707.4]	PULL+3
^VEN(7.41 - [#19707.41]	EF+3, EF+4, BEF, BEF+2, BEF+3, FILE+1
^VEN(7.5 - [#19707.5]	UP, CLINIC, PULL+5, MON, CLEANUP+4, EN1+6
^VEN(7.95 - [#19707.95]	CLINIC+1, CLINIC+2, CL1+1, CL1+3, CL1+4, SPGRP+10, PRV+2, PRV+8, EF+4, HS+2 , PULL+3, FILE+5, EN1+5, QSIG+3, MRQ, MRQ+2, Q1+5

Label References

Name	Line Occurrences
CL1	CLINIC, CLINIC+1
CLEANUP	TMAN
CLINIC	PATIENT+2, EXTCKIN+5
EF	SPGRP+5, BEF
EN1	TMAN, TMAN+2
FILE	NOW, NOW+4, VISIT
HS	EF+2
MRQ	QSIG+5, QSIG+6
NOW	PRV+8, BEF+3, PULL+1, PULL+3, PULL+4
PATIENT	PATIENT+11, PATIENT+12, CLINIC+4, PRV+6, APPT, EF+8, HS+6, PULL+5, RUN+1, CLEANUP+10
PRV	SPGRP+7
PULL	HS+1
Q1	MRQ+1, MRQ+4
QUEUE	FILE+5
VCN	NOW+2, NOW+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	PATIENT+1, PATIENT+14, UP+2, UP+3, CLINIC, SPGRP+3, SPGRP+4, PRV+2, APPT+2, APPT+3 , EF+4, HS+2, HS+3, PULL+7, PULL+8, NOW+1, FILE+1, KILL!, MON, CLEANUP+5* , CLEANUP+6, QSIG+4~, MRQ+2, MRQ+3, MOJO
%DT	CLEANUP!
%H	KILL!
%I	KILL!
%Y	APPT, PULL+5!
APPT	SPGRP+5, PRV+7, APPT+3*, CLEANUP!
AUPNDAYS	KILL!
AUPNDOB	KILL!
AUPNDOD	KILL!
AUPNPAT	KILL!
AUPNSEX	KILL!
BLOCK	PRV+8~*, RUN+1
CFIGIEN	UP, CLINIC, PULL+5, MON, CLEANUP+4, EXTCKIN+2~, EXTCKIN+3*
CHECKIN	UP, UP+3, UP+6, CLINIC+4, MON+2, CLEANUP+2, EXTCKIN+2~, EXTCKIN+4, EXTCKIN+6, EXTCKIN+7
CLINIC	CL1+1*, CL1+2, SPGRP+3, VISIT+12, KILL!
D	QSIG+4~
D0	QSIG+4~
DA	QSIG+4~, Q1+3*, MOJO+1, MOJO+2
DEFEF	EF+2, EF+3, BEF+1, BEF+2, FILE+1, CLEANUP!, EN1+2, EN1+10
DEFHS	BEF+3, HS+1, HS+7, CLEANUP!, EN1+1, EN1+10
>> DEMODATA	PULL+1
DEPTIEN	CLINIC+2, CL1+1*, CL1+3, CL1+4, SPGRP+6, SPGRP+7, SPGRP+10, PRV+2, PRV+8, EF+4 , HS+2, PULL+3, VISIT+7, VCN+2, FILE+3, FILE+5, CLEANUP!, EN1+2, EN1+5, EN1+10 , QUEUE~, QSIG+3, MRQ+2, Q1+4, Q1+5
DFN	QSIG+4~, QSIG+5, QSIG+6, QSIG+9*, Q1+5
DI	QSIG+4~
DIC	PATIENT+12, PATIENT+13!, CLINIC+4!, PRV+3, PRV+4!, EF+6, EF+7!, HS+5, HS+6!, QSIG+4~ , Q1+1, Q1+3
DIC("A"	CLINIC+2, PRV, EF+5, HS+4
DIC("B"	CLINIC+2, PRV+1, PRV+2, EF+3, EF+4, HS+2, HS+3*
DIC("S"	CLINIC+3*
DIC(0	PATIENT+12, CLINIC+4, PRV+4, EF+6, HS+5, Q1+1
DIE	QSIG+4~, Q1+3*
DIG	QSIG+4~
DIH	QSIG+4~
DISYS	KILL!
DIU	QSIG+4~
DIV	QSIG+4~
DIW	QSIG+4~
DLAYGO	QSIG+4~, Q1+1*
DQ	QSIG+4~
DR	QSIG+4~, Q1+4, Q1+5, Q1+6, MOJO
DT	UP+4, HS+3
DTIME	PATIENT+8
>> DTOUT	APPT
DUZ	SPGRP+5, Q1+4
DUZ(2	CL1+3, NOW+6
EFONLY	UP+1, CL1+4~, BEF+3, HS+1, RUN+3
>> EHRFLAG	SPGRP+6, BEF+2, NOW+2
ELIG	CLEANUP!
>> ERR	CL1+2, CL1+3, VISIT+13, VCN+3, EN1+3, EN1+8
EXT	TMAN+1*, CLEANUP!
FILE	CLEANUP!
HSONLY	UP+1, CLINIC+1, SPGRP+5, EF+1, VISIT, FILE, RUN+2*, RUN+3, MON+1!
I	CLEANUP!
INIT	QSIG+4~, INIT+1~, INIT+3, INIT+4, INIT+5
J	STUCK+1~, STUCK+2*, STUCK+3, STUCK+5
LOC	CL1+3*, VISIT+12, KILL!
M1	STUCK+1~, STUCK+3*, STUCK+6
M2	STUCK+1~, STUCK+5*, STUCK+6
MIEN	QSIG+4~, MRQ*, Q1+4
MODE	EN1~, EN1+9*, EN1+11
>> MOJOFLAG(1	MOJO
>> NCCANCEL	FILE+3, FILE+7, KILL+1
NCIFLAG	NOW+3!, FILE+3, FILE+4, CLEANUP+1!
>> NOTASK	TMAN, CLEANUP+9
NOVISIT	BEF+3, NOW+3, NOW+4, NOVISIT+1~, QSIG+1, QSIG+5
NOW	NOW+1*, NOW+5, VISIT+12, KILL!
OGFLAG	PULL+2!, PULL+4, PULL+8, FILE+5, CLEANUP!, QUEUE~, MRQ+1
>> OGONLY	UP+1, EF+1, HS+1, PULL+4, FILE, RUN+3
PATH	CLEANUP!
PATIENT	PATIENT+5, PATIENT+7, PATIENT+9, PATIENT+13, UP+2, UP+4, SPGRP+6, SPGRP+7, HS+3, NOW+5 , NOW+6, VISIT+2, VISIT+12, FILE+1, FILE+2, KILL!, QSIG+5, EXTCKIN~
>> PIMSDFN	PATIENT+2, PATIENT+3, PATIENT+5, CLINIC+4, CLEANUP+2
PRV	FILE+8, CLEANUP!, EN1+4, EN1+5, EN1+6*, EN1+8, INIT~, INIT+2
PRVIEN	SPGRP+5, PRV+1, PRV+7, FILE+5, FILE+8, KILL!, QUEUE~, QSIG+9*, Q1+6
QTYPE	QSIG+4~, MRQ+1!, MRQ+3, MRQ+4, Q1+4
QUE	QSIG+4~, Q1+3*
>> REPRINT	SPGRP+9, CLEANUP+2
>> SBFLAG	NOW, CLEANUP+2
SEX	KILL!
SILENT	EN1~, EN1+10
SPGRP	SPGRP+4*, CLEANUP!
TIME	QSIG+4~, QSIG+5, QSIG+6, QSIG+8*, Q1+1
TMSG	VENPCCA+6~, PATIENT+1*, CLEANUP+7
TOT	CLEANUP!
TRFLAG	QUEUE~, MRQ+2
TYPE	KILL!
U	PATIENT+3, PATIENT+7, PATIENT+14, UP, CLINIC, CLINIC+2, CL1+1, CL1+3, CL1+4, SPGRP+10 , PRV+1, PRV+2, PRV+5, PRV+8, EF+3, EF+4, BEF, BEF+2, BEF+3, HS+2 , HS+3, PULL+3, PULL+5, NOW+5, VISIT+5, VISIT+7, VCN, VCN+2, FILE+5, MON , CLEANUP+4, CLEANUP+7, EN1+5, EN1+6, QSIG+6, QSIG+9, MRQ+2, MRQ+3, Q1+5, Q1+6 , INIT+3, INIT+4
UPDEM	UP+4*, FILE+5, QUEUE~, Q1+5
VARS	TMAN+1*, CLEANUP!, EN1+10
VCN	NOW+6, VISIT+5, VISIT+6, VISIT+7, VISIT+8, VISIT+9, VCN, VCN+1, VCN+2*, VCN+3 , CLEANUP!, EN1+2, QSIG+4~
VENDEMO	PATIENT+14, SPGRP+8~, VISIT, VISIT+3, VISIT+8, FILE+4, RUN, CLEANUP+3!, QSIG+2
VIEN	SPGRP+6, SPGRP+7, SPGRP+8, NOW+3, NOW+5, VISIT, VISIT+1, VISIT+2, VISIT+3, VISIT+4 , VISIT+5, VISIT+6, VISIT+7, VISIT+9, VISIT+12*, VISIT+13, VCN, VCN+1, VCN+2, FILE+3 , FILE+5, FILE+8, KILL!
VISIT	FILE+8, MON+2, CLEANUP!, EN1+2, QUEUE~, QSIG+1, QSIG+5, QSIG+6*, QSIG+7, Q1+5 , Q1+6
VPFLAG	SPGRP+10*, APPT, EF+1, RUN+2, MON+1!
X	PATIENT+8, PATIENT+9, PATIENT+10, PATIENT+11, CLINIC+4, PRV+5, PRV+6, EF+8, HS+6, KILL! , CLEANUP+6, CLEANUP+7, QSIG+4~, QSIG+7, QSIG+9, Q1+1, INIT+1~, INIT+2, INIT+3, INIT+4
Y	PATIENT+12, PATIENT+13, PATIENT+14, CLINIC, CLINIC+1, CLINIC+4, CL1+1, PRV+5*, PRV+6, PRV+7 , EF+8, BEF, BEF+1, BEF+3, HS+6, HS+7, KILL!, QSIG+4~, Q1+2, Q1+3

Customize PDF page

Package: PCC New Encounter Form

Routine: VENPCCA

Information

Source Information

Call Graph

Call Graph Total: 13

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items

Name	Comments	DBIA/ICR reference
Q1	; EP-MAKE QUEUE FILE ENTRY
EXTCKIN(PATIENT)	; EP-CHECK IN ENTRY POINT FOR EXRTERNAL PACKAGES WHERE PATIENT IS KNOWN. ; IF PCC+ CHECKIN IS SUCCESSFUL, VISIT IEN IS RETURNED
HS	; EP - GET DEFAULT HS
BEF
STUCK	; EP-RESET/RESTART SYSTEM IF IT IS STUCK. NO LOSS OF FILES.
CLEANUP
KILL
FILE
EN1(MODE,SILENT)	; EP-UNIVERSAL ENTRY POINT FOR INITIATING PCC+
MOJO
PULL	; EP - PULL CHART?
PATIENT	; EP-FOR LOOPING TO NEXT PATIENT
APPT
PRV
QSIG	; EP - SIGNATURE EP FOR ANMC
CL1	;
EF	; EP-DEFAULT EF
VISIT
MRQ
VCN
NOVISIT	; EP-ENTRY POINT FOR GENERATING PCC+ FORMS WITHOUT CREATING A VISIT
CLINIC
QUEUE(VISIT,DEPTIEN,OGFLAG,TRFLAG,UPDEM,PRVIEN)	; EP-UPDATE CHECKIN AND QUEUE FILES ; 2.5. ADD PARAMETER FOR PROVIDER
INIT(PRV)	; EP-RETURN THE PROVIDER'S INITIALS
RUN
SPGRP	; PATCHED BY GIS/OIT 1/15/06 ; PCC+ 2.5 PATCH 2 ; CHECK FOR A SPECIAL PRINT GROUP - FOR HS ONLY, TELE TRIAGE & CHART REVIEW ; GET SPGRP = IEN, NULL OR -1 ; SPGRP OVERRIDES THE PGRP IN THE PRINT DEAMON
UP
MON
NOW
TMAN