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: VENPCCMG

Package: PCC New Encounter Form

Routine: VENPCCMG


Information

VENPCCMG ; IHS/OIT/GIS - GLOBAL EDITING OF DIAGNOSES AND ICD CODES ;

Source Information

Source file <VENPCCMG.m>

Call Graph

Call Graph Total: 8

Package Total Call Graph
VA Fileman 4 ^DIC  WAIT^DICD  YN^DICN  ^DIR  
Kernel 2 ^%ZIS  ^%ZISC  
IHS VA Utilities 1 ^XBFMK  
PCC New Encounter Form 1 $$ICD^VENPCCU  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
PCC New Encounter Form 1 VENPCC1P  

Entry Points

Name Comments DBIA/ICR reference
VUE ; EP-PRINT ALL ICDS AND ASSOCIATED NARRATIVES AND FORMS
RUN ; MAKE CHANGES
LINIT
CHG(PIEN) ; EP-EDIT THE FILE
PROV ; GET PROVIDER NAME
LIST ; EP-PRINT ICD LIST
NOQUE
NARR ; CHANGE NARRATIVE
INTRO
NCHG(PIEN) ; EP-GLOBAL EDIT OF EDIT THE NEW ICD PREF FILE
NEW
LINE ; PAUSE IF NECESSARY
ICD ; CHANGE ICD CODE
FIN
OUT ; OUTPUT USING %ZIS

External References

Name Field # of Occurrence
^%ZIS OUT+2
^%ZISC NOQUE+1
^DIC PROV+6, ICD+2, ICD+7
WAIT^DICD VUE+6
YN^DICN RUN+4, VUE+5
^DIR NARR+2, NARR+7
$$ICD^VENPCCU VUE+21
^XBFMK FIN

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"GLOBAL CHANGE OF SPECIFIED ICD CODES AND NARRATIVES FOR ONE OR MORE PROVIDERS",!!!
  • Line Location: INTRO+0
Function Call: WRITE
  • Prompt: !,"Enter the name of the provider or '*' for ALL: "
  • Line Location: PROV+1
Function Call: READ
  • Timeout: $G(DTIME,60)
  • Variable: NAME
  • Line Location: PROV+2
Function Call: WRITE
  • Prompt: !
  • Line Location: RUN+1
Function Call: WRITE
  • Prompt: !,OLDICD," will be changed to ",NEWICD
  • Line Location: RUN+2
Function Call: WRITE
  • Prompt: !,OLDNAR," will be changed to ",NEWNAR
  • Line Location: RUN+3
Function Call: WRITE
  • Prompt: !!,"Making changes..."
  • Line Location: RUN+5
Function Call: WRITE
  • Prompt: !,"Request cancelled!"
  • Line Location: RUN+6
Function Call: WRITE
  • Prompt: !,"Done!"
  • Line Location: FIN+1
Function Call: WRITE
  • Prompt: "."
  • Line Location: CHG+7
Function Call: WRITE
  • Prompt: "."
  • Line Location: CHG+9
Function Call: WRITE
  • Prompt: "."
  • Line Location: NCHG+5
Function Call: WRITE
  • Prompt: "."
  • Line Location: NCHG+7
Function Call: WRITE
  • Prompt: !,"Want to generate a current list of ICD preferences for this site"
  • Line Location: VUE+4
Function Call: WRITE
  • Prompt: !!
  • Line Location: VUE+6
Function Call: WRITE
  • Prompt: !!,"Done!!"
  • Line Location: NOQUE+2
Function Call: WRITE
  • Prompt: "LIST ALL ICD PREFERENCES AND ASSOCIATED PROVIDER NARRATIVE(S)"
  • Line Location: LINIT+1
Function Call: WRITE
  • Prompt: " (",Y,")",!!
  • Line Location: LINIT+3
Function Call: WRITE
  • Prompt: "ICD",?7,"ICD NARRATIVE",?35,"PROVIDER NARRATIVE"
  • Line Location: LINIT+4
Function Call: WRITE
  • Prompt: "------",?7,"--------------------------",?35,"----------------------------------"
  • Line Location: LINIT+5
Function Call: WRITE
  • Prompt: ICD,?7,$E(TXT,1,27),?35,NARR
  • Line Location: LINIT+9
Function Call: WRITE
  • Prompt: !
  • Line Location: LINE+2
Function Call: READ
  • Timeout: $G(DTIME,60)
  • Variable: X
  • Line Location: LINE+8
Function Call: WRITE
  • Prompt: "<>"
  • Line Location: LINE+8
Function Call: WRITE
  • Prompt: $C(13),?79,$C(13)
  • Line Location: LINE+10
Routine Call
  • DIC
  • Line Location:
    • PROV+6
    • ICD+2
    • ICD+7
Routine Call
  • DIR
  • Line Location:
    • NARR+2
    • NARR+7
Routine Call
  • %ZIS
  • Line Location:
    • OUT+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ICD9 - [#80] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" LINIT+3
^ICD9 - [#80] VUE+22
^VEN( VUE+9, VUE+10
^VEN(7.1 - [#19707.1] RUN+10, CHG+2, CHG+5!, CHG+6*, CHG+10*
^VEN(7.34 - [#19707.34] RUN+9, NCHG+2, NCHG+8*, VUE+15

Label References

Name Line Occurrences
CHG RUN+8, RUN+10
FIN RUN+7, RUN+8
ICD PROV+4
LINE LINIT+1, LINIT+4, LINIT+5, LINIT+9
LIST NOQUE
NARR ICD+3
NCHG RUN+7, RUN+9
RUN NARR+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% NEW~, RUN+4*, VUE+1~, VUE+5*
%Y NEW~, VUE+1~
>> %ZIS OUT+1*
AICDWD2 NEW~
CIEN CHG+1~, CHG+2*, CHG+5, CHG+6, CHG+10, NCHG+1~, NCHG+2*, NCHG+8, VUE+1~, VUE+14*
, VUE+15*, VUE+18*, VUE+19*, VUE+23
CLASS VUE+1~
CODE VUE+1~
DA NARR+1!, NARR+6!, CHG+1~, NCHG+1~
DIC NEW~, PROV+6*!, ICD+1*
DIC("A" ICD+1*, ICD+6*
DIC("S" PROV+5*
DIC(0 PROV+6*, ICD+1*
DIK CHG+1~, NCHG+1~
DIR NARR+2!, NARR+7!, OUT+3!, NOQUE+3!
DIR("A" NARR+1*, NARR+6*
DIR(0 NARR+1*, NARR+6*
>> DIROUT NARR+4, NARR+8
DIRUT OUT+3!, NOQUE+3!
DO NEW~
DT LINIT+2
DTIME PROV+2, LINE+8
DTOUT NARR+4, NARR+8, OUT+3!, NOQUE+3!
DUOUT NARR+4, NARR+8, OUT+3!, NOQUE+3!
I VUE+1~, VUE+15*, VUE+16, VUE+19
ICD VUE+1~, VUE+12*, VUE+21, VUE+23, LIST+4~, LINIT+6*, LINIT+7, LINIT+9
IEN VUE+1~, VUE+8*, VUE+9*, VUE+10, VUE+15
IIEN VUE+1~, VUE+21*, VUE+22
IOST LINE+3, LINE+4
IPC VUE+1~, VUE+2*, VUE+3*, VUE+12
LINE LIST+4~, LINIT*, LINE+5*, LINE+6, LINE+7*
NAME NEW~, PROV+2*, PROV+3, PROV+4, PROV+6
NARR VUE+1~, VUE+13*, VUE+23, LIST+4~, LINIT+6*, LINIT+7, LINIT+9
>> NEWFLAG RUN+7, RUN+9, VUE+3, VUE+14, VUE+15
NEWICD NEW~, ICD+8*, RUN+2, CHG+4, CHG+6, NCHG+4
NEWNAR NEW~, NARR+9*, RUN+3, CHG+9, NCHG+7
NPC VUE+1~, VUE+2*, VUE+3*, VUE+13
OLDICD NEW~, ICD+5*, RUN+2, RUN+6, CHG+3, CHG+5, NCHG+3
OLDNAR NEW~, NARR+5*, RUN+3, RUN+6, CHG+9, NCHG+7
PIEN NEW~, RUN+9*, RUN+10*, CHG~, CHG+2, NCHG~, NCHG+2, VUE+1~, VUE+11*, VUE+23
PNAME VUE+1~
>> POP OUT+3
PROV NEW~, PROV+4*, PROV+8*, RUN+7, RUN+8, RUN+9, RUN+10
SS VUE+1~, VUE+2*, VUE+3*, VUE+9, VUE+10
STG CHG+1~, CHG+2*, CHG+3, CHG+4*, CHG+9*, CHG+10, NCHG+1~, NCHG+2*, NCHG+3, NCHG+4*
, NCHG+7*, NCHG+8
STOP LIST+4~, LINIT+6, LINE+9*
TMP VUE+1~, VUE+7*, VUE+23, LIST+4~, LINIT*, LINIT+6, LINIT+7, LINIT+11
TXT VUE+1~, VUE+22*, VUE+23, LIST+4~, LINIT+8*, LINIT+9
U ICD+5, ICD+8, CHG+3, CHG+4, CHG+9, NCHG+3, NCHG+4, NCHG+7, VUE+12, VUE+13
, VUE+14, VUE+16, VUE+19, VUE+22, VUE+23, LINIT+8
VENJ VUE+1~, VUE+8*, LIST+3, LINIT
X NEW~, PROV+6*, ICD+3, VUE+1~, VUE+10*, VUE+11, VUE+12, VUE+13, VUE+14, OUT+3!
, NOQUE+3!, LIST+4~, LINIT+7*, LINIT+8, LINE+1~, LINE+8*, LINE+9
Y NEW~, PROV+7, PROV+8, ICD+4, ICD+5, ICD+7, ICD+8, NARR+3, NARR+5, NARR+9
, VUE+1~, VUE+15*, VUE+16, OUT+3!, NOQUE+3!, LIST+4~, LINIT+2*, LINIT+3
Z VUE+1~, VUE+15*, VUE+16*, VUE+17
>> ZDTTH LINIT+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 |  All