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 |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: VENPCCM3

Package: PCC New Encounter Form

Routine: VENPCCM3


Information

VENPCCM3 ; IHS/OIT/GIS - PRINT GROUP SYNCHRONIZATION - ;

Source Information

Source file <VENPCCM3.m>

Call Graph

Call Graph Total: 9

Package Total Call Graph
VA Fileman 5 ^DIC  YN^DICN  ^DIE  ^DIK  ^DIR  
PCC New Encounter Form 3 $$VAR^VENPCCM1  $$PGRP^VENPCCM2  $$CFG^VENPCCU  
IHS VA Utilities 1 ^XBFMK  

Entry Points

Name Comments DBIA/ICR reference
VAR
BAD
CADD ; EP-ADD A NEW CLINIC
QCK ; EP-CHECK QUEUE TYPE FILE
NEW
MIS ; MISSING QUEUE TYPES
DQ ; DESTINATION QUEUE TYPE
DQ1
MISS
RPMS ; RPMS PRINT GROUPS
ADDMR ; DEFINE THE MED REC PRINT GRP
ONE ; EP-CHECK ONE PRINT GROUP
CDFIN
C1
MR() ; MED REC PRINT GROUP
ADD
PG2
PG1
DUP
UNI ; EP-CHK VALIDITY OF UNIQUE CLINIC STATUS
FIN
PG(NAME) ; EP-VALIDATE AND SYNCHRONIZE INDIVIDUAL PRINT GROUPS
ALL ; EP-CHECK ALL PRINT GROUPS ON PRINT SERVER #1
OK
CFIN
CDEL ; EP-DELETE A CLINIC

External References

Name Field # of Occurrence
^DIC ADD+3, MIS+9, C1+1, DQ+3, CDEL+5
YN^DICN ADD+2, ADD+7, DUP+4, MIS+7, C1+16, CDEL+8, UNI+10
^DIE ADDMR+1, C1+4, C1+6, C1+8, C1+10, C1+12, C1+14, C1+17, DQ1+1
^DIK BAD+2, DUP+5, CDEL+10, CDEL+12
^DIR ONE+1
$$VAR^VENPCCM1 VAR
$$PGRP^VENPCCM2 PG1, PG2+1, ALL+6
$$CFG^VENPCCU ALL+3, UNI+2
^XBFMK ONE+5, ALL+8, FIN+2, CFIN, CDFIN

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"There are no Print Groups entered on Print Server #1",!,"You must enter Print Groups on both print servers"
  • Line Location: PG1+1
Function Call: WRITE
  • Prompt: !,"There are no Print Groups entered on Print Server #2",!,"You must enter Print Groups on both print servers"
  • Line Location: PG2+2
Function Call: WRITE
  • Prompt: !,"Print Groups entered on Print Server #2 don't match those on Print Server #1",!,"You must enter identical sets of Print Groups on both Print Servers"
  • Line Location: PG2+3
Function Call: WRITE
  • Prompt: !,"'",NAME,"' has not been entered on the Print Server yet",!,"You must enter this Print Group before going on"
  • Line Location: MISS+0
Function Call: WRITE
  • Prompt: !,"Unable to delete ",NAME
  • Line Location: BAD+1
Function Call: WRITE
  • Prompt: !,NAME," has been deleted from the RPMS Server!!"
  • Line Location: BAD+3
Function Call: WRITE
  • Prompt: !,"'",NAME,"' has not been regestered on the RPMS server yet!"
  • Line Location: ADD+0
Function Call: WRITE
  • Prompt: !,"Do you want to do this now"
  • Line Location: ADD+1
Function Call: WRITE
  • Prompt: !,NAME," entered on the RPMS Server!!"
  • Line Location: ADD+5
Function Call: WRITE
  • Prompt: !,NAME," has been designated as the Medical Records Print Group"
  • Line Location: ADDMR+1
Function Call: WRITE
  • Prompt: !,"One moment please..."
  • Line Location: ONE+3
Function Call: WRITE
  • Prompt: !,"Unable to find an IP address for Print Server #1"
  • Line Location: ALL+3
Function Call: WRITE
  • Prompt: !,"Checking all templates on Print Server #1......."
  • Line Location: ALL+4
Function Call: WRITE
  • Prompt: !,"One moment please..."
  • Line Location: ALL+5
Function Call: WRITE
  • Prompt: "Unable to locate any Print Groups on Print Server #1"
  • Line Location: ALL+6
Function Call: WRITE
  • Prompt: !,"Checking ",NAME
  • Line Location: ALL+7
Function Call: WRITE
  • Prompt: !!,"Checking the QUEUE TYPE file..."
  • Line Location: QCK+1
Function Call: WRITE
  • Prompt: !,"The file VEN EHP QUE TYPE has duplicate records that may cause problems",!,"Want to delete the duplicates"
  • Line Location: DUP+3
Function Call: WRITE
  • Prompt: !,"Duplicates removed!!"
  • Line Location: DUP+6
Function Call: WRITE
  • Prompt: !,"The following clinics are not found in the QUEUE TYPE file =>"
  • Line Location: MIS+4
Function Call: WRITE
  • Prompt: !?5,$P(MISS,U,%)
  • Line Location: MIS+5
Function Call: WRITE
  • Prompt: !!,"Want to add these to the QUEUE TYPE file"
  • Line Location: MIS+6
Function Call: WRITE
  • Prompt: !?5,$P(Y,U,2)," added to the QUEUE TYPE file"
  • Line Location: MIS+9
Function Call: WRITE
  • Prompt: !,"The QUEUE TYPE file has been validated!!"
  • Line Location: FIN+1
Function Call: WRITE
  • Prompt: !!?20,"***** ADD / EDIT A PCC+ CLINIC *****"
  • Line Location: CADD+2
Function Call: WRITE
  • Prompt: !!,"To add a new clinic, answer the following questions"
  • Line Location: CADD+3
Function Call: WRITE
  • Prompt: !,"At any time, you may enter '??' to see the choices",!!
  • Line Location: CADD+4
Function Call: WRITE
  • Prompt: !,"Enter the name of the new clinic. It should be in the format:",!!?3,"{SITE} - {CLINIC} e.g., ANMC - PEDIATRICS or CROW - DENTAL",!
  • Line Location: CADD+5
Function Call: WRITE
  • Prompt: !!,"Enter the name of the DEPARTMENT (CLINIC STOP) associated with this clinic"
  • Line Location: C1+3
Function Call: WRITE
  • Prompt: !!,"Enter the name of this clinic's DEFAULT ENCOUNTER FORM used during check-in"
  • Line Location: C1+5
Function Call: WRITE
  • Prompt: !!,"Enter the name of this clinic's DEFAULT HEALTH SUMMARY used during check-in"
  • Line Location: C1+7
Function Call: WRITE
  • Prompt: !!,"Enter the name of this clinic's DEFAULT PROVIDER used during check-in"
  • Line Location: C1+9
Function Call: WRITE
  • Prompt: !!,"Enter the name of this clinic's HEALTH SUMMARY PRINT GROUP"
  • Line Location: C1+11
Function Call: WRITE
  • Prompt: !!,"Enter the name of this clinic's ENCOUNTER FORM PRINT GROUP"
  • Line Location: C1+13
Function Call: WRITE
  • Prompt: !!,"Does this clinic ever require an outguide request during check-in"
  • Line Location: C1+15
Function Call: WRITE
  • Prompt: !!,"Enter the name of another clinic"
  • Line Location: DQ1+2
Function Call: WRITE
  • Prompt: !!
  • Line Location: CDEL+2
Function Call: WRITE
  • Prompt: !,"Are you sure you want to delete ",$P(Y,U,2)
  • Line Location: CDEL+7
Function Call: WRITE
  • Prompt: !,"Clinic deleted!!"
  • Line Location: CDEL+10
Function Call: WRITE
  • Prompt: !,"The QUEUE TYPE '",NAME,"' has also been deleted"
  • Line Location: CDEL+12
Function Call: WRITE
  • Prompt: !,"Invalid unique clinic! Configuration file has been automatically repaired."
  • Line Location: UNI+6
Function Call: WRITE
  • Prompt: !,"The there is more than one PCC+ clinic registered!!",!,"Do you want to delete the unique clinic in the configuration file"
  • Line Location: UNI+9
Routine Call
  • DIE
  • Line Location:
    • ADDMR+1
    • C1+4
    • C1+6
    • C1+8
    • C1+10
    • C1+12
    • C1+14
    • C1+17
    • DQ1+1
Routine Call
  • DIC
  • Line Location:
    • ADD+3
    • MIS+9
    • C1+1
    • DQ+3
    • CDEL+5
Routine Call
  • DIR
  • Line Location:
    • ONE+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VEN(7.22 - [#19707.22] Classic Fileman Calls
^VEN(7.4 - [#19707.4] Classic Fileman Calls
^VEN(7.95 - [#19707.95] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^VEN(7.22 - [#19707.22] DUP+1, MIS+2, FIN, DQ+1, CDEL+11
^VEN(7.4 - [#19707.4] RPMS+2, BAD+1, ADDMR+1, MR+2
^VEN(7.5 - [#19707.5] ALL+3, UNI+3, UNI+5*, UNI+11*
^VEN(7.95 - [#19707.95] MIS+2, FIN*, C1+4, C1+6, C1+8, C1+10, C1+12, C1+14, C1+17, DQ1+1
, UNI+4, UNI+8

Label References

Name Line Occurrences
$$MR RPMS+6
C1 DQ1+2
CDFIN CDEL+5, CDEL+8
CFIN C1+1, DQ+3
DQ C1+16
DQ1 DQ+1
FIN MIS+3, MIS+7
MIS DUP+2, DUP+4
PG ONE+4, ALL+7

Naked Globals

Name Field # of Occurrence
^( MR+2, DUP+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% NEW~, ADD+2*, ADD+7*, MR+1~, MR+2*, DUP+4*, MIS+5*, MIS+6*, MIS+7, CADD+1~
, C1+16*, CDEL+1~, CDEL+8*, UNI+1~, UNI+8*, UNI+10*, UNI+11
%Y CDEL+1~
BAD NEW+1~
C QCK+2~, MIS+1*, MIS+2*
CFG UNI+1~, UNI+2*, UNI+3, UNI+5, UNI+11
CIEN QCK+2~, FIN*
>> CNO MIS+9*
D QCK+2~, DUP+1*
DA NEW~, BAD+1*, ADD+3*, ADD+7, ONE+1!, DUP+5*, CADD+1~, C1+2*, DQ1*, CDEL+1~
, CDEL+6*, CDEL+11*, CDEL+12
DIC NEW~, ADD+3*, QCK+2~, QCK+3*, MIS+8*, CADD+1~, C1*, C1+2, DQ+2*, CDEL+1~
, CDEL+4*, CDEL+9
DIC("A" C1*, CDEL+3*
DIC(0 ADD+3*, MIS+8*, C1*, DQ+2*, CDEL+4*
DIE NEW~, ADDMR+1*, CADD+1~, C1+2*, DQ1*
DIEN CADD+1~, C1+2*, DQ1
DIK BAD+2*, QCK+2~, QCK+3*, CDEL+1~, CDEL+9*, CDEL+12*
DIR ONE+1!
DIR("A" ONE+1*
DIR(0 ONE+1*
DLAYGO ADD+3*, MIS+8*, CADD+1~, C1*, DQ+2*, CDEL+4*
DNO QCK+2~, DUP+5*
DR NEW~, ADDMR+1*, CADD+1~, C1+4*, C1+6*, C1+8*, C1+10*, C1+12*, C1+14*, C1+17*
, DQ1*
DUP QCK+2~, DUP*, DUP+1*, DUP+2, DUP+5, DUP+6!, FIN+1
FSTG NEW~
I NEW+1~
IP NEW~, PG1, PG2, OK, ALL+1~, ALL+2*, ALL+3*, ALL+6
>> IP1 ALL+2
IPA NEW~, PG2, PG2+1, OK
MISS QCK+2~, MIS+1*, MIS+2*, MIS+3, MIS+5, MIS+9, MIS+10!, FIN+1
MR NEW~, RPMS+6*, ADD+6, MR+1~, MR+2*, MR+3
N QCK+2~, DUP+1*
NAME PG~, PG+1, OK, MISS, BAD, BAD+1, BAD+3, ADD, ADD+3, ADD+5
, ADDMR+1, ALL+1~, ALL+7*, QCK+2~, FIN*, CADD+1~, C1+2*, DQ+1, DQ+2, CDEL+6*
, CDEL+11, CDEL+12
OK NEW+1~
PCE NEW+1~
PG1 NEW~, PG1*, PG1+1, PG2+2, PG2+3, PG2+5*, OK, MISS
PG2 NEW~, PG2+1*, PG2+3
PGN ALL+1~, ALL+7*
PIEN NEW+1~, RPMS+1*, RPMS+2*
POP CADD+1~
PS1 NEW+1~
PS2 NEW+1~
PSN NEW+1~
PSTG NEW~
Q QCK+2~, DUP*, DUP+1*
QIEN QCK+2~, FIN*
RPMS NEW~, NEW+1~, RPMS+1*, RPMS+2*, RPMS+3*, RPMS+4*, OK, MISS, BAD
SOCK NEW~
STG NEW+1~, ALL+1~, ALL+6*, ALL+7
STOP NEW~, NEW+1~, PG2*, PG2+2*, PG2+3*
U RPMS+2, RPMS+3, PG2+5, OK, MISS, BAD, ALL+3, ALL+7, MR+2, DUP+1
, DUP+5, MIS+2, MIS+5, MIS+9, FIN, C1+2, CDEL+6, CDEL+7, UNI+3, UNI+5
, UNI+11
UNI UNI+1~, UNI+3*, UNI+4
WARN NEW+1~
X NEW~, NEW+1~, RPMS+2*, RPMS+4, ADD+3*, MR+1~, MR+2*, QCK+2~, MIS+9*, CADD+1~
, DQ+2*, CDEL+1~
Y NEW~, NEW+1~, ADD+3, ADD+4, ONE+2, ONE+4, QCK+2~, MIS+9, CADD+1~, C1+1
, C1+2, DQ+1*, DQ+3, DQ1, CDEL+1~, CDEL+5, CDEL+6, CDEL+7
Z NEW~
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All