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

Package: PCC New Encounter Form

Routine: VENPCCMB


Information

VENPCCMB ; IHS/OIT/GIS - SITE PREFERENCE MANAGER ;

Source Information

Source file <VENPCCMB.m>

Call Graph

Call Graph Total: 9

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

Entry Points

Name Comments DBIA/ICR reference
FLY
CODE ;
ADD1
LIST1(SIEN) ; EP-BUILD THE ORDERABLE STRING REC
S2
PGRP() ;
U1
POS ;
COPY(LIST,STAT,TITLE,EF,CPT) ; COPY IN ANOTHER LIST
LIST(EF,CPT,PGRP) ; EP-LIST THE ITEMS
NEW
STATUS(EF,CPT,X) ; SHOW MAX ENTRIES POSSIBLE
SHOW(X) ; DISPLAY THE LIST
DEL1
ALPH(LIST,PCE) ; ALPHABETIZE THE LIST
CPT(CPT) ;
SAVE(LIST,EF,CPT,PGRP) ; EP-DELETE THE OLD LIST AND SAVE THE NEW ONE
INIT
DEL(LIST,STAT) ; DELETE AN ENTRY
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) ;
U2 ;
S1
LCPT
SUBMIT(LIST,EF,CPT,PGRP) ; ENTER THE LIST
P1
MAX(EF,CPT) ; EP-MAX ITEMS
ENT ;
N1
OS() ; ORDER SET
EF(OS) ; RETURN THE PRIMARY ENCOUNTER FORM FOR THE OS
ADD(LIST,STAT) ; ADD AN ENTRY
NAME ;
RUN
LGRP
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 OS+11, CPT+6, SAVE+16
WAIT^DICD RUN+3
YN^DICN ENT+6, DEL2+4, DEL3+3, COPY+9, S1+6, U2+9
^DIE SAVE+19
^DIK SAVE+8, SAVE+9
ENALL^DIK RUN+6
^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
^XBFMK RUN+6, EDIT+14

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: $C(13),?79,$C(13)
  • Line Location: RUN+7
Function Call: WRITE
  • Prompt: !!!
  • Line Location: LOOP+0
Function Call: WRITE
  • Prompt: !!,"No order set defined! Request terminated...",!!
  • Line Location: LOOP+3
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: !,"No order sets defined!"
  • Line Location: OS+3
Function Call: WRITE
  • Prompt: !,"Order set and associated templates...",!
  • Line Location: OS+4
Function Call: WRITE
  • Prompt: !,SET
  • Line Location: OS+6
Function Call: WRITE
  • Prompt: !?5,TEMP
  • Line Location: OS+7
Function Call: WRITE
  • Prompt: !
  • Line Location: OS+10
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: !!,"Done!"
  • Line Location: SAVE+21
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+19
Routine Call
  • DIC
  • Line Location:
    • OS+11
    • CPT+6
    • SAVE+16
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.92 - [#19707.92] 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] EF+2, OS+7, LIST+4, SAVE+7, SAVE+17, MAX+7
^VEN(7.42 - [#19707.42] SAVE+15, FLY+3
^VEN(7.92 - [#19707.92] LOOP+1, LOOP+2, OS+3, OS+5
^VEN(7.93 - [#19707.93] RUN+2, LIST+5, LIST+6, LIST1+2, LIST1+4, LIST1+5, SAVE+8, SAVE+9, SAVE+18, SAVE+19
^VEN(7.98 - [#19707.98] LIST+2, SAVE+1, SAVE+5, N1, MAX+2, FLY+1

Label References

Name Line Occurrences
$$ADD EDIT+8
$$ALPH S2, S2+1
$$COPY EDIT+10
$$CPT LCPT
$$EF LOOP+4, NEXT+2
$$LIST LST, COPY+4
$$MAX STATUS+4, S1+2
$$NEXT LOOP
$$OS LOOP+3
$$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 LOOP+1, LOOP+2, EDIT+13
LIST1 LIST+5, LIST+6
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, U2+7
U1 U2+10
U2 U1+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% NEW~, RUN+4*, LOOP*, LOOP+1*, LOOP+2, EDIT+15*, OS+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+12*, SAVE+13
, SAVE+14, FLY+3*, UPDATE+1~, U2+8*, U2+9
%D NEW~
%E NEW~
%Y NEW~, SAVE+3~
CIEN NEXT+1~, N1*
CLIST COPY+1~, COPY+4*, COPY+7, COPY+10
CNT MAX+1~, FLY, FLY+1*, FLY+3*
CODE LIST1+1~, LIST1+3*, LIST1+7, SHOW+1~, SHOW+7*, SHOW+8, ADD+1~, CODE+1*, CODE+3*, ENT+1
, ENT+2, S1~, S1+7*, S1+8, SAVE+3~, SAVE+13*, SAVE+17, 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, FLY+1
CTAG LIST1+1~, LIST1+4*, LIST1+7, SAVE+3~, SAVE+13*, SAVE+17
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+6*, SAVE+8*
, SAVE+9*, SAVE+17*, SAVE+18, SAVE+19, U1!
DG NEW~
DI SAVE+3~
DIC OS+9*, CPT+1~, CPT+2*, PGRP+1~, ADD+1~, SAVE+3~, SAVE+10*
DIC("A" OS+10*, CPT+3*
DIC("B" CPT+4*
DIC("S" CPT+5*
DIC(0 OS+9*, CPT+2*, SAVE+10*
DICR SAVE+3~
DIE SAVE+3~, SAVE+10*
DIG SAVE+3~
DIH SAVE+3~
DIK RUN+5*, SAVE+3~, SAVE+4*, SAVE+10
DIK(1 RUN+5*
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+10*
DQ SAVE+3~
DR SAVE+3~, SAVE+17*
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
DUZ(0 INIT+1*
EF NEW~, INIT*, LOOP*, LOOP+4*, LST, LST+1, EDIT, EDIT+10, EDIT+12, STATUS~
, STATUS+4, TITLE~, TITLE+1, LIST~, LIST+4, COPY~, COPY+4, COPY+5, SUB~, SUBMIT~
, S1+2, S2, S2+1, S2+2, SAVE~, SAVE+7, SAVE+17, NEXT~, NEXT+2*, NEXT+4
, N1+4, MAX~, MAX+7
EFIEN EF+1~, EF+2*, EF+3
EFLAG SUB+1~*, S1+1
ENTRY UPDATE+1~, U1+3*, U1+4, U2+1, U2+5*, U2+6
FMN MAX+1~, FLY+1*, FLY+2, FLY+3
G TITLE~, TITLE+1
GRP LIST+1~, LIST+3*, LIST+5, LIST+6
HDR LIST+1~, SAVE+3~, SAVE+14*, SAVE+15
HIEN SAVE+3~, SAVE+15*, SAVE+17
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+8, SAVE+9
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+7
, S2*, S2+1*, S2+2, ALPH~, ALPH+2, ALPH+9, SAVE~, SAVE+1, SAVE+11, SAVE+12
, UPDATE~, U1+1, U1+3, U1+7, U2+3, U2+6*, U2+7, U2+9
LIST( ALPH+4*, ALPH+7
LOOP NEW+1~*, LOOP, EDIT+7, EN1+1~*
MAX STATUS+1~, STATUS+4*, STATUS+5, STATUS+6, MAX+1~, MAX+7*, FLY*, FLY+5
MN LIST+1~, LIST+2*, LIST+3, SAVE+3~, SAVE+5*, SAVE+6, SAVE+14, MAX+1~, MAX+2*, MAX+3
, MAX+5
NAME LIST1+1~, LIST1+3*, LIST1+7, 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
OS EF~, EF+2, OS+1~, OS+2*, OS+3, OS+12*, OS+13
OSET NEW~, LOOP+1*, LOOP+2*, LOOP+3*, LOOP+4
PCE ALPH~, ALPH+3, SAVE+3~, SAVE+11*, SAVE+12, SAVE+14, 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+17, 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+7, LIST1+6*, LIST1+7*
SET OS+1~, OS+5*, OS+6, LIST+1~, LIST+3*, LIST+4*, LIST+5, LIST+6, SAVE+3~, SAVE+6*
, SAVE+7*, SAVE+8, SAVE+9
SIEN OS+1~, OS+5*, OS+7, LIST+1~, LIST+3*, LIST+5*, LIST+6*, LIST1~, LIST1+2, LIST1+4
, LIST1+5
SS MAX+1~, MAX+5*, MAX+7
STAG LIST1+1~, LIST1+5*, LIST1+7, SAVE+3~, SAVE+13*, SAVE+17
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
STG ALPH+1~, ALPH+6*, ALPH+9*, ALPH+11
STOP SHOW+1~, SHOW+2, SHOW+4*, SHOW+6*
TEMP OS+1~, OS+7*
TIEN OS+1~, OS+7*
TITLE NEW~, LST+1*, EDIT+1, EDIT+10, COPY~, COPY+11, S1+3
U EDIT, EDIT+6, OS+7, CPT+4, STATUS+2, STATUS+6, TITLE+1, LIST+2, LIST+4, LIST1+3
, LIST1+4, LIST1+5, LIST1+6, 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+7, SAVE+11, SAVE+12, SAVE+17, N1
, MAX+2, MAX+5, MAX+7, FLY+1, U1, U1+3, U2+6
VENDUZ0 NEW~, INIT+1*, EDIT+15
X NEW~, OS+1~, CPT+1~, PGRP+1~, STATUS~, STATUS+2, STATUS+3, STATUS+5*, STATUS+6, LIST1+1~
, LIST1+2*, LIST1+3, SHOW~, SHOW+2, SHOW+5, ADD+1~, ADD1*, ADD1+1, DEL+1~, COPY+10*
, ALPH+1~, ALPH+2*, ALPH+3, SAVE+14*, 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, OS+12
, 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*, SAVE+16, SAVE+17, MAX+1~, MAX+5*
, UPDATE+1~, U1+1, U1+2, U1+6, U2+4
Z ALPH+1~, ALPH+7*, ALPH+9
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