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

Package: PCC New Encounter Form

Routine: VENPCCMP


Information

VENPCCMP ; IHS/OIT/GIS - ORDERABLE PREFERENCE MANAGER ;

Source Information

Source file <VENPCCMP.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
VA Fileman 5 ^DIC  YN^DICN  ^DIE  ^DIK  ^DIR  
PCC New Encounter Form 2 $$DEL^VENPCCMD  $$WAIT^VENPCCU  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
PCC New Encounter Form 1 VENPCCX1  

Entry Points

Name Comments DBIA/ICR reference
CODE ;
ADD1
S2
PGRP() ;
U1
POS ;
COPY(LIST,STAT,TITLE,EF,CPT) ; COPY IN ANOTHER LIST
LIST(EF,CPT,PGRP) ; EP-LIST THE ITEMS
EF(EF) ;
STATUS(EF,CPT,X) ; SHOW MAX ENTRIES POSSIBLE
SHOW(X) ; DISPLAY THE LIST
ALPH(LIST,PCE) ; ALPHABETIZE THE LIST
CPT(CPT) ;
SAVE(LIST,EF,CPT,PGRP) ; EP-DELETE THE OLD LIST AND SAVE THE NEW ONE
NEW
INIT
DEL1
EN1 ; EP FOR LOOPING THROUGH ALL CPT & PATIENT GROUPS IN A TEMPLATE
LST
DEL2
UPDATE(LIST,STAT) ; EDIT AN ENTRY IN THE LIST
NEXT(EF,CPT,PGRP) ;
S1
LCPT
SUBMIT(LIST,EF,CPT,PGRP) ; ENTER THE LIST
P1
MAX(EF,CPT) ; EP-MAX ITEMS
ENT ;
N1
U2 ;
DEL(LIST,STAT) ; DELETE AN ENTRY
ADD(LIST,STAT) ; ADD AN ENTRY
NAME ;
RUN
LGRP
LEF
EDIT
TITLE(EF,CPT,G) ; TITLE OF LIST
DEL3
SUB(LIST,EF,CPT,PGRP) ; EP-FOR SUBMITTING AN EXTERNALY GENERATED LIST
LOOP

External References

Name Field # of Occurrence
^DIC EF+5, CPT+6, SAVE+14
YN^DICN ENT+6, DEL2+4, DEL3+3, COPY+9, S1+6, U2+9
^DIE SAVE+17
^DIK SAVE+7
^DIR EDIT+5, PGRP+3, POS+3, NAME+1, CODE+1, DEL2, S1+10, U1, U1+5, U2+2
$$DEL^VENPCCMD EDIT+9
$$WAIT^VENPCCU SHOW+4

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 *****"
  • 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+3
Function Call: WRITE
  • Prompt: I,?5,NAME," ",CODE
  • Line Location: SHOW+8
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: !,"Sure you want to delete "_$P($P(LIST,U,POS),";")
  • Line Location: DEL2+3
Function Call: WRITE
  • Prompt: !
  • Line Location: DEL3+1
Function Call: WRITE
  • Prompt: !
  • Line Location: DEL3+1
Function Call: WRITE
  • Prompt: !!,"Want to delete another entry"
  • Line Location: DEL3+2
Function Call: WRITE
  • Prompt: !!,"Define the Patient Group to copy from =>"
  • Line Location: COPY+2
Function Call: WRITE
  • Prompt: !,"Unable to copy because no entries found!"
  • Line Location: COPY+4
Function Call: WRITE
  • Prompt: !,CTITLE
  • Line Location: COPY+6
Function Call: WRITE
  • Prompt: !
  • Line Location: COPY+7
Function Call: WRITE
  • Prompt: !,"OK to copy non-redundant entries from this list"
  • Line Location: COPY+8
Function Call: WRITE
  • Prompt: !!,"Source list: ",TITLE
  • Line Location: COPY+11
Function Call: WRITE
  • Prompt: !
  • Line Location: COPY+12
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 everything is OK"
  • Line Location: S1+5
Function Call: WRITE
  • Prompt: !!,"You have successfully edited this template!"
  • Line Location: N1+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+17
Routine Call
  • DIC
  • Line Location:
    • EF+5
    • CPT+6
    • SAVE+14
Routine Call
  • DIR
  • Line Location:
    • EDIT+5
    • PGRP+3
    • POS+3
    • NAME+1
    • CODE+1
    • DEL2
    • S1+10
    • U1
    • U1+5
    • U2+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VEN(7.41 - [#19707.41] Classic Fileman Calls
^VEN(7.93 - [#19707.93] Classic Fileman Calls
^VEN(7.98 - [#19707.98] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^VEN(7.41 - [#19707.41] SAVE+1, SAVE+15, MAX+7
^VEN(7.42 - [#19707.42] SAVE+13
^VEN(7.93 - [#19707.93] LIST+4, LIST+5, LIST+7, LIST+8, SAVE+7, SAVE+16, SAVE+17
^VEN(7.98 - [#19707.98] LIST+2, SAVE+1, SAVE+5, N1, MAX+2

Label References

Name Line Occurrences
$$ADD EDIT+8
$$ALPH S2, S2+1
$$COPY EDIT+10
$$CPT LCPT
$$EF LEF, NEXT+2
$$LIST LST, COPY+4
$$MAX STATUS+4, S1+2
$$NEXT LOOP
$$PGRP LGRP, COPY+3
$$STATUS EDIT
$$SUBMIT EDIT+12
$$TITLE LST+1, COPY+5
$$UPDATE EDIT+11
ADD1 ENT+7
CODE NAME+2
DEL1 DEL3+4
DEL2 DEL2+5
DEL3 DEL2+6, DEL2+7
EDIT EDIT+8, EDIT+9, EDIT+10, EDIT+11, EDIT+12
LCPT EDIT+13
LOOP EDIT+7
LST LOOP
N1 N1+2, N1+3
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+1, COPY+7, COPY+12, S1+4, 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~, CPT+1~, PGRP+1~, ADD+1~, ENT+2*, ENT+3*, ENT+5*, ENT+6
, DEL+1~, DEL1*, DEL1+1*, DEL2+4*, DEL2+5, DEL3*, DEL3+2*, DEL3+3, COPY+9*, S1~
, S1+2*, S1+6*, S1+7*, SAVE+3~, SAVE+10*, SAVE+11, SAVE+12, UPDATE+1~, U2+8*, U2+9
%Y NEW~, SAVE+3~
CIEN NEXT+1~, N1*
CLIST COPY+1~, COPY+4*, COPY+7, COPY+10
CODE LIST+1~, LIST+6*, LIST+10, SHOW+1~, SHOW+7*, SHOW+8, ADD+1~, CODE+1*, CODE+3*, ENT+1
, ENT+2, S1~, S1+7*, S1+8, SAVE+3~, SAVE+11*, SAVE+15, UPDATE+1~, U2+1*, U2+4*
, U2+5
CPT NEW~, INIT*, LOOP*, LCPT*, LST, LST+1, EDIT, EDIT+10, EDIT+12, CPT~
, CPT+4, STATUS~, STATUS+4, TITLE~, TITLE+1, LIST~, LIST+2, COPY~, COPY+4, COPY+5
, SUB~, SUBMIT~, S1+2, S2, S2+1, S2+2, SAVE~, SAVE+1, SAVE+5, NEXT~
, NEXT+4, N1*, N1+1, N1+4, MAX~, MAX+2
CTAG LIST+1~, LIST+7*, LIST+10, SAVE+3~, SAVE+11*, SAVE+15
CTITLE COPY+1~, COPY+5*, COPY+6
D SAVE+3~
D0 SAVE+3~
DA EDIT+5!, PGRP+3!, POS+3!, NAME+1!, CODE+1!, DEL2!, S1+10!, SAVE+3~, SAVE+7*, SAVE+15*
, SAVE+16, SAVE+17, U1!
DI SAVE+3~
DIC EF+1~, EF+2*, CPT+1~, CPT+2*, PGRP+1~, ADD+1~, SAVE+3~, SAVE+8*
DIC("A" EF+3*, CPT+3*
DIC("B" EF+4*, CPT+4*
DIC("S" CPT+5*
DIC(0 EF+2*, CPT+2*, SAVE+8*
DICR SAVE+3~
DIE SAVE+3~, SAVE+8*
DIG SAVE+3~
DIH SAVE+3~
DIK SAVE+3~, SAVE+4*, SAVE+8
DIR EDIT+5!, PGRP+2~, PGRP+3!, POS+3!, NAME+1!, CODE+1!, DEL2!, S1~, S1+10!, UPDATE+1~
, U1!, U1+5!, U2+2!
DIR("A" EDIT+5*, PGRP+3*, 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*, POS+3*, NAME+1*, CODE+1*, DEL2*, S1+8*, S1+9*, U1*
, U1+4*, U2+1*
DIROUT ADD+1~, POS+4!, NAME+3!
DIRUT NEW~, PGRP+2~, ADD+1~, POS+4!, NAME+2, NAME+3!, DEL+1~, DEL2+4, 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+8*
DQ SAVE+3~
DR SAVE+3~, SAVE+15*
DTOUT NEW~, EDIT+6, PGRP+2~, ADD+1~, POS+4!, NAME+2, NAME+3!, CODE+2, DEL+1~, DEL2+4
, 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
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+4, COPY+5, SUB~
, SUBMIT~, S1+2, S2, S2+1, S2+2, SAVE~, SAVE+1, SAVE+15, NEXT~, NEXT+2*
, NEXT+4, N1+4, MAX~, MAX+7
EFLAG SUB+1~*, S1+1
ENTRY UPDATE+1~, U1+3*, U1+4, U2+1, U2+5*, U2+6
G TITLE~, TITLE+1
GRP LIST+1~, LIST+3*, LIST+4
HDR LIST+1~, SAVE+3~, SAVE+12*, SAVE+13
HIEN SAVE+3~, SAVE+13*, SAVE+15
I SHOW+1~, SHOW+2*, SHOW+4, SHOW+5, SHOW+6, SHOW+8, COPY+1~, COPY+10*, ALPH+1~, ALPH+2*
, ALPH+4, ALPH+6*, ALPH+8*, ALPH+9, MAX+1~, MAX+5*
IOF RUN
IX SAVE+3~, SAVE+6*, SAVE+7
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+1, DEL2+3, DEL2+4, DEL2+6*, DEL2+7*, DEL2+8*, DEL3+1, DEL3+3, COPY~
, COPY+3, COPY+4, COPY+9, COPY+10*, COPY+12, COPY+13, SUB~, SUBMIT~, S1+2, S1+4
, S1+7, S2*, S2+1*, S2+2, ALPH~, ALPH+2, ALPH+9, SAVE~, SAVE+1, SAVE+9
, SAVE+10, UPDATE~, U1+1, U1+3, U1+7, U2+3, U2+6*, U2+7, U2+9
LIST( ALPH+4*, ALPH+7, ALPH+9
LOOP NEW+1~*, LOOP, EDIT+7, EN1+1~*
MAX STATUS+1~, STATUS+4*, STATUS+5, STATUS+6, MAX+1~, MAX+7*, MAX+8
MN LIST+1~, LIST+2*, LIST+3, SAVE+3~, SAVE+5*, SAVE+6, SAVE+12, MAX+1~, MAX+2*, MAX+3
, MAX+5
NAME LIST+1~, LIST+6*, LIST+10, SHOW+1~, SHOW+7*, SHOW+8, ADD+1~, NAME+2*, ENT+1, ENT+2
, NEXT+1~, N1*, N1+2, N1+3, UPDATE+1~, U1+6*, U2+5
PCE ALPH~, ALPH+3, SAVE+3~, SAVE+9*, SAVE+10, SAVE+12, MAX+1~, MAX+5*, MAX+6, MAX+7
PGRP NEW~, INIT*, LOOP*, LGRP*, LST, LST+1, EDIT+12, LIST~, LIST+3, COPY+1~
, COPY+3*, COPY+4, COPY+5, SUB~, SUBMIT~, S2, S2+1, S2+2, SAVE~, SAVE+1
, SAVE+6, SAVE+15, NEXT~, NEXT+3*, NEXT+4, N1+4
POS ADD+1~, POS+1*, POS+3*, P1*, P1+1, ENT+1, ENT+2, DEL+1~, DEL2+2*, DEL2+3
, DEL2+6, DEL2+7, DEL2+8, UPDATE+1~, U1+2*, U1+3, U2+6
REC LIST+1~, LIST+3*, LIST+9*, LIST+10*, LIST+12
SIEN LIST+1~, LIST+3*, LIST+4*, LIST+5, LIST+7, LIST+8
SS MAX+1~, MAX+5*, MAX+7
STAG LIST+1~, LIST+8*, LIST+10, SAVE+3~, SAVE+11*, SAVE+15
STAT ADD~, ADD1, P1, P1+1, ENT+3*, DEL~, DEL1, DEL1+1, DEL2, DEL2+6
, DEL3*, COPY~, UPDATE~, U1
STATUS NEW~, EDIT*, EDIT+8, EDIT+9, EDIT+10, EDIT+11
STOP SHOW+1~, SHOW+2, SHOW+4*, SHOW+6*
TITLE NEW~, LST+1*, EDIT+1, EDIT+10, COPY~, COPY+11, S1+3
U EDIT, EDIT+6, EF+4, CPT+4, STATUS+2, STATUS+6, TITLE+1, LIST+2, LIST+6, LIST+7
, LIST+8, LIST+9, SHOW+2, SHOW+5, ADD1, P1, P1+1, ENT+1, ENT+2, ENT+3
, DEL1, DEL1+1, DEL2, DEL2+3, DEL2+6, DEL2+7, DEL2+8, DEL3, COPY+10, S1+2
, S1+7, ALPH+2, ALPH+9, SAVE+5, SAVE+9, SAVE+10, SAVE+15, N1, MAX+2, MAX+5
, MAX+7, U1, U1+3, U2+6
X NEW~, EF+1~, CPT+1~, PGRP+1~, STATUS~, STATUS+2, STATUS+3, STATUS+5*, STATUS+6, LIST+1~
, LIST+5*, LIST+6, SHOW~, SHOW+2, SHOW+5, ADD+1~, ADD1*, ADD1+1, DEL+1~, COPY+10*
, ALPH+1~, ALPH+2*, ALPH+3, SAVE+12*, MAX+1~, MAX+4*, MAX+5, UPDATE+1~
Y NEW~, EDIT+6, EDIT+7, EDIT+8, EDIT+9, EDIT+10, EDIT+11, EDIT+12, EDIT+13, EF+1~
, EF+5, EF+6, CPT+1~, CPT+6, CPT+7, PGRP+1~, PGRP+4, PGRP+5, SHOW+1~, SHOW+5*
, SHOW+6, SHOW+7, ADD+1~, POS+3, NAME+2, CODE+3, DEL+1~, DEL2+1, DEL2+2, S1~
, S1+1*, S2, S2+1, S2+2, ALPH+1~, ALPH+3*, ALPH+4, ALPH+7*, ALPH+9, SAVE+14
, SAVE+15, MAX+1~, MAX+5*, UPDATE+1~, U1+1, U1+2, U1+6, U2+4
Z ALPH+1~, ALPH+6*, ALPH+9*, ALPH+11
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