Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: VENPCCA

Package: PCC New Encounter Form

Routine: VENPCCA


Information

VENPCCA ; IHS/OIT/GIS - NEW CHECK IN MODULE ;

Source Information

Source file <VENPCCA.m>

Call Graph

Call Graph Total: 13

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  

Caller Graph

Caller Graph Total: 3

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

Entry Points

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

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

Marked Items

Name Field # of Occurrence
$T(MSR^VENPCCAM FILE+3
$T(OB^VENPCC3 FILE+2
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All