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 |  All
Print Page as PDF
Routine: VENPCCG

Package: PCC New Encounter Form

Routine: VENPCCG


Information

VENPCCG ; IHS/OIT/GIS - GET ICD PREFERENCES ;

Source Information

Source file <VENPCCG.m>

Call Graph

Call Graph Total: 9

Package Total Call Graph
VA Fileman 4 ^DIC  YN^DICN  ^DIE  ^DIR  
PCC New Encounter Form 3 ST^VENPCCG1  FILE^VENPCCG2  $$CFG^VENPCCU  
IHS VA Utilities 2 ^XBCLS  ^XBFMK  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
PCC New Encounter Form 1 VENPCC1P  

Entry Points

Name Comments DBIA/ICR reference
A ; EP-DRIVER
GETPRV() ; EP-RETURN THE IEN OF THE ACTUAL OR GENERIC PROVIDER
DATES ; GET DATES FOR REPORT
END ;
DEPT ; FILTER RESULTS BY DEPARTMENT
NEWLIST ; EP - NEW WAY TO SAVE DX PREFERENCES
GP ; EP-GET A GENERIC PROVIDER
AC
T1 ; SET FILTER FLAGS
AP
PRV ;
CONF
TYPE ;
CLASS ;

External References

Name Field # of Occurrence
^DIC AP+3, AC, DEPT+5, GETPRV+10, GP+6, NEWLIST+10
YN^DICN CONF+2, NEWLIST+6
^DIE GETPRV+13, GETPRV+23
^DIR DATES+1, TYPE+4, DEPT+2
ST^VENPCCG1 CONF+3
FILE^VENPCCG2 CONF+4
$$CFG^VENPCCU A+4, GETPRV+2
^XBCLS A+6
^XBFMK NEWLIST+7, NEWLIST+10, NEWLIST+12

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Extract most commonly used Diagnoses...",!!
  • Line Location: A+7
Function Call: WRITE
  • Prompt: !,"No provider specified. Request terminated..."
  • Line Location: T1+12
Function Call: WRITE
  • Prompt: !!,"This will take a while..."
  • Line Location: CONF+0
Function Call: WRITE
  • Prompt: !,"BYE!"
  • Line Location: CONF+2
Function Call: WRITE
  • Prompt: !
  • Line Location: DEPT+2
Function Call: WRITE
  • Prompt: !!,"There is no generic provider listed for this institution...",!,"You must enter one now."
  • Line Location: GETPRV+4
Function Call: WRITE
  • Prompt: !,"Enter a name like 'PIMC,GENERIC PROVIDER' OR 'CROWNPOINT,GENERIC PROVIDER'"
  • Line Location: GETPRV+5
Function Call: WRITE
  • Prompt: !,"You can also enter '??' or a partial name like 'PIMC",!,"to see if a suitable name already exists."
  • Line Location: GETPRV+6
Function Call: WRITE
  • Prompt: !,"If you are asked to enter INITIALS, just type them in; e.g., 'GPP'."
  • Line Location: GETPRV+7
Function Call: WRITE
  • Prompt: !,"If you are asked to enter a mail code, press the return key.",!
  • Line Location: GETPRV+8
Function Call: WRITE
  • Prompt: !!,"Preferences will be assigned",!,"to the Default Institutional Provider: ",$P($G(^VA(200,PIEN,0)),U)
  • Line Location: GETPRV+17
Function Call: WRITE
  • Prompt: !!,"There is no generic provider listed for this clinic/department...",!,"You must enter one now."
  • Line Location: GETPRV+20
Function Call: WRITE
  • Prompt: !!,"Preferred diagnoses will be assigned to ",$P($G(^VA(200,PIEN,0)),U)
  • Line Location: GETPRV+27
Function Call: WRITE
  • Prompt: !!,"Preferred diagnoses will be assigned to ",$P($G(^VA(200,PIEN,0)),U)
  • Line Location: GETPRV+31
Function Call: WRITE
  • Prompt: !!,"You must assign a generic provider to represent this group of providers..."
  • Line Location: GETPRV+33
Function Call: WRITE
  • Prompt: !!,"Enter a name like 'PIMC,PEDIATRICIAN' OR 'CROWNPOINT,FAMILY DOCTOR'"
  • Line Location: GP+1
Function Call: WRITE
  • Prompt: !,"You can also enter '??' or a partial name like 'PIMC,'",!,"to see if a suitable name already exists."
  • Line Location: GP+2
Function Call: WRITE
  • Prompt: !,"If you are asked to enter INITIALS, just type them in; e.g., 'FDC'."
  • Line Location: GP+3
Function Call: WRITE
  • Prompt: !,"If you are asked to enter a mail code, press the return key.",!
  • Line Location: GP+4
Function Call: WRITE
  • Prompt: !,"NOTE: In the future, this generic provider can be assigned to other PCC+ forms or clincs",!!
  • Line Location: GP+8
Function Call: WRITE
  • Prompt: !!
  • Line Location: NEWLIST+2
Function Call: WRITE
  • Prompt: ?20,"***** WARNING ****"
  • Line Location: NEWLIST+3
Function Call: WRITE
  • Prompt: !,"This procedure may delete exsiting preferences of selected provider(s)!!!"
  • Line Location: NEWLIST+4
Function Call: WRITE
  • Prompt: !,"Do you want to proceed"
  • Line Location: NEWLIST+5
Routine Call
  • DIE
  • Line Location:
    • GETPRV+13
    • GETPRV+23
Routine Call
  • DIC
  • Line Location:
    • AP+3
    • AC
    • DEPT+5
    • GETPRV+10
    • GP+6
    • NEWLIST+10
Routine Call
  • DIR
  • Line Location:
    • DATES+1
    • TYPE+4
    • DEPT+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VEN(7.33 - [#19707.33] Classic Fileman Calls
^VEN(7.5 - [#19707.5] Classic Fileman Calls
^VEN(7.95 - [#19707.95] Classic Fileman Calls
^VA(200 - [#200] Classic Fileman Calls
^DIC(7 - [#7] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(9000010.06 AP+2
^VA(200 - [#200] GETPRV+17, GETPRV+27, GETPRV+31
^VEN(7.5 - [#19707.5] A+5, GETPRV+3, GETPRV+13, GETPRV+16
^VEN(7.95 - [#19707.95] GETPRV+19, GETPRV+23, GETPRV+26

Label References

Name Line Occurrences
$$GETPRV T1+12
A NEWLIST+13
AC AC+3
AP AP+7
CLASS TYPE+7
DEPT T1+11
GP GETPRV+21, GETPRV+34
PRV TYPE+8
TYPE TYPE+7, TYPE+8

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% CONF+2*, AP+2*, NEWLIST+1~, NEWLIST+6*, NEWLIST+7
%Q A+1~
%T A+1~
%Y A+1~
AGE A+1~
AGEBUK A+1~
AGEGRP A+1~
AGESEX A+1~
AP A+1~
BD A+1~, DATES+1*, T1+2
C A+1~
CC A+1~
CFIGIEN A+1~, A+4*, A+5, GETPRV+1~, GETPRV+2*, GETPRV+3, GETPRV+12, GETPRV+16
CLASS CLASS+1~
DA AP+4!, AC!, DEPT+2!, GETPRV+12*, GETPRV+13, GETPRV+22*, GETPRV+23
DESALL A+1~
DIC PRV+1~, AP+2*, AP+4!, CLASS+1~, AC*!, DEPT+1~, DEPT+4*, GETPRV+9*, GP+5*, NEWLIST+1~
, NEWLIST+9*
DIC("A" AP*, AC*, DEPT+4*, GETPRV+9*, GP+5*, NEWLIST+8*
DIC("B" NEWLIST+8*
DIC(0 AP+1*, AC*, DEPT+4*, GETPRV+9*, GP+5*, NEWLIST+9*
>> DIE GETPRV+12*, GETPRV+22*
DIR A+2~, DATES+1!, TYPE+1!, DEPT+1~, DEPT+2!
DIR("A" DATES+1*, TYPE+3*, DEPT+2*
DIR("B" DEPT+2*
DIR(0 DATES+1*, TYPE+2*, DEPT+2*
>> DIRUT TYPE+5
>> DLAYGO GETPRV+9*, GP+5*, NEWLIST+9*
>> DLOUT DATES+1
DOB A+2~
>> DR GETPRV+12*, GETPRV+22*
DT DATES+2
DUB A+1~
>> DUOUT DATES+1
DXPRV A+2~, T1+12*
ED A+1~, DATES+2*, T1+2
FL A+2~
I A+1~
ICD A+1~
ICDPTR A+1~
MORE PRV+1~, PRV+2*, AP, AP+7*, CLASS+1~*, AC, AC+3*
MOST A+1~
MOSTPNP A+1~
NARR A+2~
NEWDXP T1+12, CONF+1, NEWLIST+1~, NEWLIST+11*
PAT A+2~
PATH A+1~, A+5*
PIEN GETPRV+1~, GETPRV+2*, GETPRV+3, GETPRV+11*, GETPRV+12, GETPRV+15, GETPRV+16*, GETPRV+17, GETPRV+19, GETPRV+21
, GETPRV+22, GETPRV+25, GETPRV+26*, GETPRV+27, GETPRV+29, GETPRV+30*, GETPRV+31, GETPRV+35, GP+7*
PNP A+2~
POP A+2~
PROVFLG A+2~
PROVLG A+2~
PRV PRV+1~
SEX A+2~
TMP A+1~, A+3*, T1+2, T1+4*, T1+5*, T1+8*, T1+9*
TOTPN A+2~
TYPE A+2~, TYPE+6*, TYPE+7, TYPE+8, T1+3, T1+7, GETPRV+3, GETPRV+15, GETPRV+29
U AP+2, GETPRV+3, GETPRV+16, GETPRV+17, GETPRV+19, GETPRV+26, GETPRV+27, GETPRV+31
VD A+2~
VDFN A+2~
>> VEN("PC" TYPE+7!, T1+5, AC+1*, AC+2*
>> VEN("PRV" TYPE+8!, T1+9, AP+5*, AP+6*, GETPRV+29, GETPRV+30
VENDEPT A+1~, DEPT+6*, GETPRV+3, GETPRV+15, GETPRV+19, GETPRV+22, GETPRV+25, GETPRV+26
VENFLNO A+2~
VENT A+2~
VIS A+2~
X PRV+1~, CLASS+1~, DEPT+1~, NEWLIST+1~
Y DATES+1, TYPE+6, PRV+1~, AP+4, AP+5, CLASS+1~, AC, AC+1, DEPT+1~, DEPT+3
, DEPT+5, DEPT+6, GETPRV+10, GETPRV+11, GP+6, GP+7, NEWLIST+1~, NEWLIST+10, NEWLIST+11
Z PRV+1~
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 |  All