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

Package: PCC New Encounter Form

Routine: VENPCCMA


Information

VENPCCMA ; IHS/OIT/GIS - USER PREFERENCE MANAGER FOR DIAGNOSES AND ICD CODES ;

Source Information

Source file <VENPCCMA.m>

Call Graph

Call Graph Total: 8

Package Total Call Graph
VA Fileman 6 ^DIC  WAIT^DICD  YN^DICN  ^DIE  (,ENALL)^DIK  ^DIR  
IHS VA Utilities 1 ^XBFMK  
PCC New Encounter Form 1 $$WAIT^VENPCCU  

Entry Points

Name Comments DBIA/ICR reference
CKD
CODE ;
ADD1
S2
S1
U1
U2 ;
NEW
EF(EF) ;
SHOW(X) ; DISPLAY THE LIST
EN1 ; EP FOR LOOPING THROUGH ALL ICD & PATIENT GROUPS IN A TEMPLATE
NEXT(EF,PRV,PGRP) ;
POS ;
DEL1
COPY(LIST,STAT,TITLE,EF,PRV) ; COPY IN ANOTHER LIST
LST
DEL2
EOJ
LPRV
LIST(EF,PRV,PGRP) ;
STATUS(EF,X) ; SHOW MAX ENTRIES POSSIBLE
CVT ;
ALPH(LIST,TYPE) ; ORDER THE LIST: APLPHABETICAL OR BY CODE
P1
SUBMIT(LIST,EF,PRV,PGRP) ; ENTER THE LIST
PRV(PRV) ;
UPDATE(LIST,STAT) ; EDIT AN ENTRY IN THE LIST
TITLE(EF,PRV,G) ; TITLE OF LIST
PGRP(DFLT) ;
INIT
DEL(LIST,STAT) ; DELETE AN ENTRY
SUB(LIST,EF,PRV,PGRP) ; EP FOR SUBMITTING AN EXTERNALY GENERATED LIST
ADD(LIST,STAT) ; ADD AN ENTRY
NAME ;
RUN
LGRP
LEF
EDIT
SAVE(LIST,EF,PRV,PGRP) ; DELETE THE OLD LIST AND SAVE THE NEW ONE
DEL3
DLOOP
ENT ;
LOOP

External References

Name Field # of Occurrence
^DIC EF+5, PRV+5, SAVE+16
WAIT^DICD SAVE+5
YN^DICN ENT+6, CKD+2, DEL3+6, COPY+11, S1+6, U2+9
^DIE SAVE+19, CVT+8
^DIK SAVE+10
ENALL^DIK SAVE+8
^DIR EDIT+5, PGRP+5, POS+3, NAME+1, CODE+1, DEL2+2, S1+10, U1, U1+5, U2+2
$$WAIT^VENPCCU SHOW+6
^XBFMK EOJ

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $D(IOF)
  • Line Location: RUN+0
Function Call: WRITE
  • Prompt: !!!?20,"***** USER PREFERENCE MANAGER FOR DIAGNOSES *****"
  • Line Location: RUN+0
Function Call: WRITE
  • Prompt: !!!
  • Line Location: RUN+1
Function Call: WRITE
  • Prompt: !!!
  • Line Location: LOOP+0
Function Call: WRITE
  • Prompt: !!,$P(STATUS,U,3)
  • Line Location: EDIT+0
Function Call: WRITE
  • Prompt: !,TITLE
  • Line Location: EDIT+1
Function Call: WRITE
  • Prompt: !
  • Line Location: EDIT+2
Function Call: WRITE
  • Prompt: !!,"Select from 'ADD', 'EDIT', 'DELETE', 'COPY', 'SUBMIT', 'NEXT LIST', 'QUIT'"
  • Line Location: EDIT+3
Function Call: WRITE
  • Prompt: !!,"Select from 'ADD', 'COPY', 'NEXT LIST', 'QUIT'"
  • Line Location: EDIT+4
Function Call: WRITE
  • Prompt: !
  • Line Location: SHOW+5
Function Call: WRITE
  • Prompt: I,?5,NAME," ",CODE
  • Line Location: SHOW+7
Function Call: WRITE
  • Prompt: !,"You have room for "_X_" more "_$S(X>1:"entries",1:"entry")
  • Line Location: ADD1+1
Function Call: WRITE
  • Prompt: !,"You are over the limit for adding new entries!"
  • Line Location: ADD1+2
Function Call: WRITE
  • Prompt: !
  • Line Location: ADD1+3
Function Call: WRITE
  • Prompt: $E("END of list",$L(POS)+1,99)
  • Line Location: P1+0
Function Call: WRITE
  • Prompt: " ??"
  • Line Location: P1+2
Function Call: WRITE
  • Prompt: !
  • Line Location: ENT+4
Function Call: WRITE
  • Prompt: !
  • Line Location: ENT+4
Function Call: WRITE
  • Prompt: !!,"Want to add another entry"
  • Line Location: ENT+5
Function Call: WRITE
  • Prompt: !,"There are no entries to delete!"
  • Line Location: DEL1+0
Function Call: WRITE
  • Prompt: !,"You should delete at least "_%_" entries..."
  • Line Location: DEL1+1
Function Call: WRITE
  • Prompt: !,HELP
  • Line Location: DEL2+7
Function Call: WRITE
  • Prompt: !,"Select a number between 1 and ",$P(STAT,U,2)
  • Line Location: CKD+0
Function Call: WRITE
  • Prompt: !,"Sure you want to delete "_$S(Y=+Y:$P($P(LIST,U,POS),";"),Y["-":Y,1:"ALL")
  • Line Location: CKD+1
Function Call: WRITE
  • Prompt: !," Deleting ",ITEM
  • Line Location: DEL3+1
Function Call: WRITE
  • Prompt: !!,"Want to delete another entry"
  • Line Location: DEL3+5
Function Call: WRITE
  • Prompt: !,"Enter name of provider to copy from =>"
  • Line Location: COPY+2
Function Call: WRITE
  • Prompt: !!,"Define the Patient Group to copy from =>"
  • Line Location: COPY+4
Function Call: WRITE
  • Prompt: !,"Unable to copy because no entries found!"
  • Line Location: COPY+6
Function Call: WRITE
  • Prompt: !,CTITLE
  • Line Location: COPY+8
Function Call: WRITE
  • Prompt: !
  • Line Location: COPY+9
Function Call: WRITE
  • Prompt: !,"OK to copy non-redundant entries from this list"
  • Line Location: COPY+10
Function Call: WRITE
  • Prompt: !!,"Target list: ",TITLE
  • Line Location: COPY+13
Function Call: WRITE
  • Prompt: !!,"You have exceeded the maximum number of items allowed!",!,"Delete ",%," item",$S(%>1:"s",1:"")," before proceeding",!
  • Line Location: S1+2
Function Call: WRITE
  • Prompt: !,"The following list will be saved: ",TITLE
  • Line Location: S1+3
Function Call: WRITE
  • Prompt: !,"Are you sure you want to submit this list"
  • Line Location: S1+5
Function Call: WRITE
  • Prompt: !,"Invalid parameters. No changes made. Contact site manager)"
  • Line Location: SAVE+2
Function Call: WRITE
  • Prompt: !,"Changes are now in effect..."
  • Line Location: EOJ+1
Function Call: WRITE
  • Prompt: !
  • Line Location: U2+7
Function Call: WRITE
  • Prompt: !
  • Line Location: U2+7
Function Call: WRITE
  • Prompt: !!,"Want to edit another entry"
  • Line Location: U2+8
Routine Call
  • DIE
  • Line Location:
    • SAVE+19
    • CVT+8
Routine Call
  • DIC
  • Line Location:
    • EF+5
    • PRV+5
    • SAVE+16
Routine Call
  • DIR
  • Line Location:
    • EDIT+5
    • PGRP+5
    • POS+3
    • NAME+1
    • CODE+1
    • DEL2+2
    • S1+10
    • U1
    • U1+5
    • U2+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VEN(7.1 - [#19707.1] Classic Fileman Calls
^VEN(7.41 - [#19707.41] Classic Fileman Calls
^VA(200 - [#200] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^VA(200 - [#200] SAVE+1
^VEN(7.1 - [#19707.1] LIST+3, LIST+4, SAVE+10, SAVE+18, SAVE+19, CVT+2, CVT+3, CVT+8
^VEN(7.41 - [#19707.41] STATUS+4, S1+2, SAVE+1
^VEN(7.91 - [#19707.91] CVT+5

Label References

Name Line Occurrences
$$ADD EDIT+8
$$ALPH S2, S2+1
$$COPY EDIT+10
$$DEL EDIT+9
$$EF LEF, NEXT+2, NEXT+5
$$LIST LST, COPY+6
$$NEXT LOOP
$$PGRP LGRP, COPY+5, NEXT+7
$$PRV LPRV, COPY+3, NEXT+6
$$STATUS EDIT
$$SUBMIT EDIT+12
$$TITLE LST+1, COPY+7
$$UPDATE EDIT+11
ADD1 ENT+7
CKD DEL2+4, DEL2+5
CODE NAME+2
DEL1 DEL3+4, DEL3+8
DEL2 DEL2+7, CKD, CKD+3
DEL3 DLOOP+1, DLOOP+2
DLOOP DEL3+2
EDIT EDIT+8, EDIT+9, EDIT+10, EDIT+11, EDIT+12
LOOP EDIT+7
LPRV EDIT+13
LST LOOP
NAME POS+1, P1
NEW EN1+2
POS P1+2
RUN EDIT+12
S1 SUB+2
S2 S1+1
SAVE S2, S2+1, S2+2
SHOW EDIT+2, ENT+4, DEL3+7, COPY+9, U2+7
U1 U2+10
U2 U1+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% NEW~, LOOP*, EF+1~, PRV+1~, PGRP+1~, PGRP+4*, ADD+1~, ENT+2*, ENT+3*, ENT+5*
, ENT+6, DEL+1~, DEL1*, DEL1+1*, CKD+2*, CKD+3, DEL3*, DEL3+5*, DEL3+6, COPY+11*
, S1~, S1+2*, S1+6*, S1+7*, SAVE+3~, SAVE+6*, SAVE+7*, SAVE+13*, SAVE+14, EOJ+2*
, UPDATE+1~, U2+8*, U2+9
%Y NEW~, SAVE+3~
CIEN NEXT+1~
CLIST COPY+1~, COPY+6*, COPY+9, COPY+12
CNT DEL+1~, CKD+4*, DEL3+2*, DEL3+3!
CODE LIST+1~, LIST+5*, LIST+7, SHOW+1~, SHOW+5*, SHOW+7, ADD+1~, CODE+1*, CODE+3*, ENT+1
, ENT+2, S1~, S1+7*, S1+8, ALPH+1~, ALPH+5*, ALPH+6, ALPH+7, SAVE+3~, SAVE+14*
, SAVE+17, UPDATE+1~, U2+1*, U2+4*, U2+5
CTAG SAVE+3~
CTITLE COPY+1~, COPY+7*, COPY+8
D SAVE+3~
D0 SAVE+3~
DA EDIT+5!, PGRP+5!, POS+3!, NAME+1!, CODE+1!, DEL2!, S1+10!, SAVE+3~, SAVE+10*, SAVE+17*
, SAVE+18, SAVE+19, U1!, CVT+1*, CVT+2*, CVT+3, CVT+8
DFLT PGRP~, PGRP+4
DI SAVE+3~
DIC EF+1~, EF+2*, PRV+1~, PRV+2*, PGRP+1~, ADD+1~, SAVE+3~, SAVE+11*
DIC("A" EF+3*, PRV+3*
DIC("B" EF+4*, PRV+4*
DIC(0 EF+2*, PRV+2*, SAVE+11*
DICR SAVE+3~
DIE SAVE+3~, SAVE+11*, CVT+1*
DIG SAVE+3~
DIH SAVE+3~
DIK SAVE+3~, SAVE+8*!, SAVE+9*, SAVE+11
DIK(1 SAVE+8*
DIR EDIT+5!, PGRP+2~, PGRP+5!, POS+3!, NAME+1!, CODE+1!, DEL2+2!, S1~, S1+10!, UPDATE+1~
, U1!, U1+5!, U2+2!
DIR("?" DEL2+1*
DIR("A" EDIT+5*, PGRP+5*, POS+2*, NAME+1*, CODE+1*, DEL2*, S1+10*, U1*, U1+4*, U2+1*
DIR("B" POS+3*, U1+4*, U2+1*
DIR(0 EDIT+3*, EDIT+4*, PGRP+3*, PGRP+4, POS+3*, NAME+1*, CODE+1*, DEL2*, S1+8*, S1+9*
, U1*, U1+4*, U2+1*
DIROUT POS+4!
DIRUT NEW~, PGRP+2~, ADD+1~, POS+4!, NAME+2, NAME+3!, DEL+1~, CKD+2, COPY+1~, S1~
, UPDATE+1~, U1+6
DISP STATUS+1~, STATUS+2*, STATUS+3*, STATUS+5, STATUS+6
DIU SAVE+3~
DIV SAVE+3~
DIW SAVE+3~
DLAYGO SAVE+3~, SAVE+11*
DQ SAVE+3~
DR SAVE+3~, SAVE+17*, CVT+7*
DTOUT NEW~, EDIT+6, PGRP+2~, ADD+1~, POS+4!, NAME+2, NAME+3!, CODE+2, DEL+1~, CKD+2
, COPY+1~, S1~, UPDATE+1~, U1+6, U2+3
DUOUT NEW~, PGRP+2~, ADD+1~, POS+4!, NAME+2, NAME+3!, CODE+2, DEL+1~, COPY+1~, S1~
, UPDATE+1~, U1+6, U2+3
DUZ(0 SAVE+4
EF NEW~, INIT*, LOOP*, LEF*, LST, LST+1, EDIT, EDIT+10, EDIT+12, EF~
, EF+4, STATUS~, STATUS+4, TITLE~, TITLE+1, LIST~, COPY~, COPY+6, COPY+7, SUB~
, SUBMIT~, S1+2, S2, S2+1, S2+2, SAVE~, SAVE+1, NEXT~, NEXT+2*, NEXT+4
, NEXT+5*, NEXT+8
EFLAG SUB+1~*, S1+1
ENT ALPH+1~, ALPH+13*, ALPH+14*, ALPH+15
ENTRY UPDATE+1~, U1+3*, U1+4, U2+1, U2+5*, U2+6
G TITLE~
HDR LIST+1~, SAVE+3~
>> HELP DEL2+1*, DEL2+7
I SHOW+1~, SHOW+2*, SHOW+3, SHOW+4, SHOW+6, SHOW+7, COPY+1~, COPY+12*, ALPH+1~, ALPH+4*
, ALPH+6, ALPH+7, ALPH+9*, ALPH+11*, ALPH+15
INDX LIST+1~, LIST+2*, LIST+3
IOF RUN
ITEM DEL+1~, DLOOP*, DEL3+1, DEL3+3!
IX SAVE+3~, SAVE+9*, SAVE+10
LIST NEW~, LST*, EDIT, EDIT+2, EDIT+3, EDIT+4, EDIT+8*, EDIT+9*, EDIT+10*, EDIT+11*
, EDIT+12, ADD~, POS+1, POS+4, NAME+3, CODE+2, ENT+1*, ENT+2*, ENT+4, ENT+6
, DEL~, DEL2+3, CKD+1, CKD+2, DLOOP, DLOOP+1*, DLOOP+2*, DLOOP+3*, DEL3+4, DEL3+6
, DEL3+7, COPY~, COPY+3, COPY+5, COPY+6, COPY+11, COPY+12*, COPY+14, SUB~, SUBMIT~
, S1+2, S1+7, S2*, S2+1*, S2+2, ALPH~, ALPH+2, ALPH+4, SAVE~, SAVE+1
, SAVE+12, SAVE+13, UPDATE~, U1+1, U1+3, U1+7, U2+3, U2+6*, U2+7, U2+9
LIST( ALPH+6*, ALPH+7*, ALPH+10, ALPH+12
LOOP NEW+1~*, LOOP, EDIT+7, EN1+1~*
MAX STATUS+1~, STATUS+4*, STATUS+5, STATUS+6
MN SAVE+3~
NAME LIST+1~, LIST+5*, LIST+7, SHOW+1~, SHOW+5*, SHOW+7, ADD+1~, NAME+2*, ENT+1, ENT+2
, SAVE+14*, SAVE+17, NEXT+1~, UPDATE+1~, U1+6*, U2+5
NARR ALPH+1~, ALPH+5*, ALPH+6, ALPH+7
PCE SAVE+3~, SAVE+12*, SAVE+13
PGRP NEW~, INIT*, LOOP*, LGRP*, LST, LST+1, EDIT+12, TITLE+1, LIST~, LIST+2
, COPY+1~, COPY+5*, COPY+6, COPY+7, SUB~, SUBMIT~, S2, S2+1, S2+2, SAVE~
, SAVE+1, SAVE+9, SAVE+17, NEXT~, NEXT+3*, NEXT+4, NEXT+7*, NEXT+8
POS ADD+1~, POS+1*, POS+3*, P1*, P1+1, ENT+1, ENT+2, DEL+1~, DEL2+4*, DEL2+5*
, DEL2+6*, DEL2+7, CKD!, CKD+1, CKD+4, DLOOP, DLOOP+1, DLOOP+2, DLOOP+3, DEL3+3!
, UPDATE+1~, U1+2*, U1+3, U2+6
POS(1 DEL2+5*, DEL2+6*, CKD, CKD+4, DEL3+2
PRV NEW~, INIT*, LOOP*, LPRV*, LST, LST+1, EDIT+10, EDIT+12, PRV~, PRV+4
, TITLE~, TITLE+1, LIST~, LIST+2, COPY~, SUB~, SUBMIT~, S2, S2+1, S2+2
, SAVE~, SAVE+1, SAVE+9, SAVE+15, NEXT~, NEXT+4, NEXT+6*, NEXT+8
>> PRV1 COPY+3*, COPY+6, COPY+7
REC LIST+1~, LIST+2*, LIST+6*, LIST+7*, LIST+9
SIEN LIST+1~, LIST+2*, LIST+3*, LIST+4
STAT ADD~, ADD1, P1, P1+1, ENT+3*, DEL~, DEL1, DEL1+1, DEL2+5, CKD
, DLOOP+1, DEL3*, COPY~, UPDATE~, U1
STATUS NEW~, EDIT*, EDIT+8, EDIT+9, EDIT+10, EDIT+11
STG ALPH+1~, ALPH+9*, ALPH+15*, ALPH+17
STOP SHOW+1~, SHOW+2, SHOW+6*
TITLE NEW~, LST+1*, EDIT+1, EDIT+10, COPY~, COPY+13, S1+3
TOT DEL+1~, CKD+4*, DEL3+2, DEL3+3!
TYPE ALPH~, ALPH+3, ALPH+6, ALPH+7, ALPH+13, ALPH+14
U EDIT, EDIT+6, EF+4, PRV+4, PGRP+4, PGRP+7, STATUS+2, STATUS+4, STATUS+6, TITLE+1
, LIST+5, LIST+6, SHOW+2, SHOW+3, ADD1, P1, P1+1, ENT+1, ENT+2, ENT+3
, DEL1, DEL1+1, DEL2+5, CKD, CKD+1, DLOOP, DLOOP+1, DLOOP+2, DLOOP+3, DEL3
, COPY+12, S1+2, S1+7, ALPH+4, ALPH+15, SAVE+12, SAVE+13, U1, U1+3, U2+6
, CVT+3, CVT+5
VENDUZ0 SAVE+3~, SAVE+4*, EOJ+2
X NEW~, EF+1~, PRV+1~, PGRP+1~, STATUS~, STATUS+2, STATUS+3, STATUS+5*, STATUS+6, LIST+1~
, LIST+4*, LIST+5, SHOW~, SHOW+2, SHOW+3, ADD+1~, ADD1*, ADD1+1, DEL+1~, COPY+12*
, ALPH+1~, ALPH+4*, ALPH+5, ALPH+12*, ALPH+13, ALPH+14, SAVE+15*, UPDATE+1~, CVT+3*, CVT+4
, CVT+5
Y NEW~, EDIT+6, EDIT+7, EDIT+8, EDIT+9, EDIT+10, EDIT+11, EDIT+12, EDIT+13, EF+1~
, EF+5, EF+6, PRV+1~, PRV+5, PRV+6, PGRP+1~, PGRP+6, PGRP+7, SHOW+1~, SHOW+3*
, SHOW+4, SHOW+5, ADD+1~, POS+3, NAME+2, CODE+3, DEL+1~, DEL2+3, DEL2+4, DEL2+5*
, DEL2+6, CKD+1, S1~, S1+1*, S2, S2+1, S2+2, ALPH+1~, ALPH+10*, ALPH+12
, ALPH+13, ALPH+14, SAVE+16, SAVE+17, UPDATE+1~, U1+1, U1+2, U1+6, U2+4, CVT+5*
, CVT+6
Y(0 PGRP+7
Z ALPH+1~, ALPH+10*, ALPH+12, CVT+6*, CVT+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