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 |  Local Variables |  All
Print Page as PDF
Routine: VENPCCIC

Package: PCC New Encounter Form

Routine: VENPCCIC


Information

VENPCCIC ; IHS/OIT/GIS - INSTALLATION TOOLS: ADD A NEW TEMPLATE FOR VER 2.5 ENTER/EDIT PCC+ CLINICS ;

Source Information

Source file <VENPCCIC.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
VA Fileman 5 ^DIC  YN^DICN  ^DIE  ^DIK  ^DIR  
IHS VA Utilities 1 ^XBFMK  

Entry Points

Name Comments DBIA/ICR reference
ADD1
HS ; HEALTH SUMMARY
LKUP() ; EP - LOOK UP A PCC+ CLINIC
DIV
SET
OLD
PRV1
DHS
PRV ; DEFAULT PROVIDER
PG ; PRINT GROUP
DIE(DA) ; EP - UPDATE FILEMAN FIELDS
CC ; CHIEF COMPLAINT
ADD
HS1
DTMPL ; DEFAULT TEMPLATE
CSTOP ; GET CLINIC STOP
NAME1 ; GET PCC+ CLINIC NAME
MRD ; MEDICAL RECORD DIVISION
FIN
NAME ; ENTER CLINIC NAME
QT ; DESTINATION QUEUE TYPE
OG ; PRINT OUTGUIDE?
NCI ; NURSE CHECK IN
DC(CIEN)

External References

Name Field # of Occurrence
^DIC QT+2, CSTOP+5, MRD+5, PG+6, ADD+1, PRV+17, PRV1+1, DTMPL+7, DHS+8, HS1+5
, LKUP+5
YN^DICN DIV+1, HS+6, OG+6, NCI+5, DC+5
^DIE DIE+8
^DIK DC+8, DC+10
^DIR OLD+2, NAME1+4, PRV+8, CC+8
^XBFMK OLD+3, FIN, LKUP+8, DC+6, DC+12

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Is the new clinic outside of your local facility and/or in a",!,"different RPMS 'division'"
  • Line Location: DIV+0
Function Call: WRITE
  • Prompt: !!,"The first step is to name the clinic.",!?3
  • Line Location: NAME+1
Function Call: WRITE
  • Prompt: "Use the format '<LOCATION> - <CLINIC>'; e.g 'ANMC - PODIATRY'"
  • Line Location: NAME+2
Function Call: WRITE
  • Prompt: "Use a descriptive name for the clinic like 'PEDIATRICS EAST' or 'PODIATRY'"
  • Line Location: NAME+3
Function Call: WRITE
  • Prompt: !
  • Line Location: NAME1+4
Function Call: WRITE
  • Prompt: " ??",!,DIR("?")
  • Line Location: NAME1+6
Function Call: WRITE
  • Prompt: !,"This clinic already exits. Try another name...",!!!
  • Line Location: NAME1+9
Function Call: WRITE
  • Prompt: !,"Session terminated..."
  • Line Location: QT+2
Function Call: WRITE
  • Prompt: !
  • Line Location: CSTOP+5
Function Call: WRITE
  • Prompt: !,"Session terminated..."
  • Line Location: CSTOP+5
Function Call: WRITE
  • Prompt: !
  • Line Location: MRD+5
Function Call: WRITE
  • Prompt: !,"Session terminated..."
  • Line Location: MRD+5
Function Call: WRITE
  • Prompt: !!,"Select the print group associated with this clinic.",!,"You may add a new one if necessary..."
  • Line Location: PG+1
Function Call: WRITE
  • Prompt: !,"Naming convention: '<FACILITY>_<LOCATION>'; e.g., 'PIMC_PODIATRY'"
  • Line Location: PG+2
Function Call: WRITE
  • Prompt: !
  • Line Location: PG+6
Function Call: WRITE
  • Prompt: !,"Session terminated..."
  • Line Location: PG+6
Function Call: WRITE
  • Prompt: !,"PCC+ clinic not added..."
  • Line Location: ADD+1
Function Call: WRITE
  • Prompt: !!,"Next, enter the default provider for this clinic."
  • Line Location: PRV+4
Function Call: WRITE
  • Prompt: !?3,"1. Create a new 'virtual provider'"
  • Line Location: PRV+5
Function Call: WRITE
  • Prompt: !?3,"2. Use an existing provider or virtual provider"
  • Line Location: PRV+6
Function Call: WRITE
  • Prompt: !?3,"3. Don't assign a default provider at this time"
  • Line Location: PRV+7
Function Call: WRITE
  • Prompt: !!?3,"Naming convention for a virtual provider: <LASTNAME,FIRSTNAME>"
  • Line Location: PRV+21
Function Call: WRITE
  • Prompt: !?3,"where the lastname = facility abbreviation, and firstname = specialty."
  • Line Location: PRV+22
Function Call: WRITE
  • Prompt: !?3,"Examples: 'PIMC,PREDIATRICIAN' or 'ANMC,PODIATRIST'"
  • Line Location: PRV+23
Function Call: WRITE
  • Prompt: !,"No default provider identified. Please do this later"
  • Line Location: PRV1+3
Function Call: WRITE
  • Prompt: !
  • Line Location: DTMPL+1
Function Call: WRITE
  • Prompt: !!,"Should a PCC+ health summary be printed for this clinic"
  • Line Location: HS+2
Function Call: WRITE
  • Prompt: !!,"Should an outguide be printed for this clinic"
  • Line Location: OG+2
Function Call: WRITE
  • Prompt: !!,"Will the nurse check in module be used in this clinic"
  • Line Location: NCI+1
Function Call: WRITE
  • Prompt: !!,?20,"!!!Congratulations!!!",!,"You have successfully defined the properties of ",CNM,"..."
  • Line Location: SET+1
Function Call: WRITE
  • Prompt: !,"Since you have entered a new print group, please run the PGS"
  • Line Location: SET+3
Function Call: WRITE
  • Prompt: !,"option on the PCC+ install menu to insure synchronization"
  • Line Location: SET+4
Function Call: WRITE
  • Prompt: "PCC+ Clinic: "
  • Line Location: LKUP+4
Function Call: WRITE
  • Prompt: !,"Are you sure you want to completely delete this PCC+ clinic"
  • Line Location: DC+2
Function Call: WRITE
  • Prompt: !,"Nothing deleted..."
  • Line Location: DC+6
Function Call: WRITE
  • Prompt: !,"PCC+ clinic deleted..."
  • Line Location: DC+11
Routine Call
  • DIE
  • Line Location:
    • DIE+8
Routine Call
  • DIC
  • Line Location:
    • QT+2
    • CSTOP+5
    • MRD+5
    • PG+6
    • ADD+1
    • PRV+17
    • PRV1+1
    • DTMPL+7
    • DHS+8
    • HS1+5
    • LKUP+5
Routine Call
  • DIR
  • Line Location:
    • OLD+2
    • NAME1+4
    • PRV+8
    • CC+8

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.41 - [#19707.41] Classic Fileman Calls
^VEN(7.95 - [#19707.95] Classic Fileman Calls
^VA(200 - [#200] Classic Fileman Calls
^DIC(4 - [#4] Classic Fileman Calls
^DIC(40.7 - [#40.7] Classic Fileman Calls
^APCHSCTL - [#9001015] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^APCHSCTL - [#9001015] DHS+5
^APCHSCTL("B" DHS+6
^DIC(4 - [#4] MRD+4
^DIC(40.7 - [#40.7] CSTOP+4
^VA(200 - [#200] PRV+2, PRV+3, PRV+16
^VEN(7.22 - [#19707.22] DC+9
^VEN(7.4 - [#19707.4] PG+5, HS1+4
^VEN(7.41 - [#19707.41] DTMPL+5
^VEN(7.95 - [#19707.95] OLD+4, DIV+4, NAME1+8, CSTOP+4, MRD+4, PG+5, PRV+3, PRV+14, DTMPL+3, HS+4
, DHS+3, HS1+2, OG+4, NCI+3, CC+5, CC+7, DIE+8, DC+4

Label References

Name Line Occurrences
$$LKUP OLD+4
ADD1 PG+9
CSTOP OLD+6
DC OLD+5
DIE ADD1, SET
DTMPL PRV+10, PRV+11, PRV+12, HS+8, DHS+10
FIN DIV+2, NAME1+5, QT+2, CSTOP+5, MRD+5, PG+6, ADD+1, PRV+9, PRV1+1, DTMPL+8
, HS+7, DHS+9, HS1+6, OG+7, NCI+6, CC+9, SET+2
HS PRV1+3, HS1+7
HS1 OG+8
NAME1 NAME1+6, NAME1+9
NCI CC+10
OG HS+10, NCI+7
OLD OLD+5, FIN+1
PG CSTOP+7, PRV1+2
PRV DTMPL+9
PRV1 PRV+2, PRV+3
SET NCI+9

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% VENPCCIC+5~, DIV+1*, DIV+3, DIV+4*, PRV+2*, PRV+3*, PRV+14*, PRV+15*, PRV+16, DTMPL+3*
, DTMPL+4*, DTMPL+5, HS+3*, HS+4*, HS+5*, HS+9, HS+10, DHS+3*, DHS+4*, DHS+5
, DHS+6*, DHS+7, HS1+2*, HS1+3*, HS1+4, OG+3*, OG+4*, OG+5*, OG+9, NCI+2*
, NCI+3*, NCI+4*, NCI+8, NCI+9, CC+7*, DC+1~, DC+3*, DC+6
%Y VENPCCIC+5~, DIV+2, HS+7, HS+8, OG+7, OG+8, NCI+6, NCI+7
CIEN VENPCCIC+5~, OLD+4*, OLD+5, NAME1+10*, CSTOP+4, MRD+4, PG+5, PG+9, ADD+2*, ADD1
, PRV+3, PRV+14, DTMPL+3, HS+4, DHS+3, HS1+2, OG+4, NCI+3, CC+5, CC+7
, SET, LKUP+1~, LKUP+6*, LKUP+7*, LKUP+9, DC~, DC+4, DC+7
CLNAME DC+1~, DC+4*, DC+9
CNM VENPCCIC+5~, OLD+4*, NAME1+7*, NAME1+8, QT+1, ADD, SET+1
DA VENPCCIC+5~, DIE~, DIE+8, DC+1~, DC+7*, DC+9*, DC+10
DIC VENPCCIC+5~, QT+1*, CSTOP+1!, CSTOP+2*, MRD+1!, MRD+2*, PG+3*, ADD!*, PRV+1!, PRV+13*
, PRV1*, DTMPL+1!, DTMPL+6*, HS+1!, DHS!, DHS+1*, HS1!, HS1+1*, OG+1!, LKUP+1~
, LKUP+2*
DIC("A" CSTOP+3*, MRD+3*, PG+4*, PRV1*, DTMPL+2*, DHS+2*, HS1+1*
DIC("B" CSTOP+4*, MRD+4*, PG+5*, PRV+2*, PRV+3*, PRV+16*, DTMPL+5*, DHS+5*, DHS+7*, HS1+4*
DIC("DR" PRV1*
DIC(0 QT+1*, CSTOP+2*, MRD+2*, PG+3*, ADD*, PRV+13*, PRV1*, DTMPL+6*, DHS+1*, HS1+1*
, LKUP+3*
DIE VENPCCIC+5~, DIE+1~, DIE+2*
DIK VENPCCIC+5~, DC+7*, DC+10*
DIR OLD!, OLD+2!, NAME1+1!, CC+1!
DIR("?" NAME1+2*, NAME1+6
DIR("A" OLD+1*, NAME1+3*, PRV+8*, CC+2*
DIR("B" PRV+8*, CC+3*, CC+6*
DIR(0 OLD+1*, NAME1+3*, PRV+8*, CC+2*
DIVFLAG VENPCCIC+5~, OLD+7*, DIV+3*, DIV+4*, NAME+2, CSTOP+7
>> DLAYGO QT+1*, PG+3*, ADD*, PRV1*
DR VENPCCIC+5~, DIE+1~, DIE+3*, DIE+5*, DIE+6*
>> DTOUT PRV1+1
DUZ(2 DIV+4
FLD VENPCCIC+5~, DIE+3*, DIE+4*, DIE+6, DIE+9!
FLD( QT+3*, CSTOP+6*, MRD+6*, PG+7*, PRV+2, PRV+15, PRV+18*, PRV1+4*, DTMPL+4, DTMPL+10*
, HS+5, HS+9*, DHS+4, DHS+11*, HS1+3, HS1+8*, OG+5, OG+9*, NCI+4, NCI+8*
, CC+4, CC+11*, CC+12*, DIE+4
NEWPG VENPCCIC+5~, PG+7*, SET+2
U OLD+4, DIV+4, CSTOP+4, MRD+4, PG+5, PG+7, PRV+2, PRV+3, PRV+14, PRV+16
, DTMPL+3, DTMPL+5, DTMPL+9, HS+4, HS+8, DHS+3, DHS+5, DHS+10, HS1+2, HS1+4
, HS1+7, OG+4, OG+8, NCI+3, NCI+7, CC+5, CC+7, CC+10, DC+4
X VENPCCIC+5~, DIV+4*, NAME1+6*, QT+1*, ADD*, PRV1+1, PRV1+2, DTMPL+8, DTMPL+9, DHS+9
, DHS+10, HS1+6, HS1+7, LKUP+1~
Y VENPCCIC+5~, OLD!, OLD+3, OLD+4, OLD+5, OLD+6, NAME1+5, NAME1+6, NAME1+7, QT+2
, QT+3, CSTOP+5, CSTOP+6, MRD+5, MRD+6, PG+6, PG+7, ADD+1, ADD+2, PRV+9
, PRV+10, PRV+11, PRV+12, PRV+17, PRV+18, PRV1+3, PRV1+4, DTMPL+10, DHS+11, HS1+8
, CC+9, CC+10, CC+11, CC+12, LKUP+1~, LKUP+6, LKUP+7
Z VENPCCIC+5~, NAME1+8*, NAME1+9, NAME1+10, CSTOP+4*, MRD+4*, PG+5*, HS+4*, HS+5*, OG+4*
, OG+5*, NCI+3*, NCI+4*, CC+4*, CC+5*, CC+6, CC+7
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All