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 |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: VENPCCML

Package: PCC New Encounter Form

Routine: VENPCCML


Information

VENPCCML ; IHS/OIT/GIS - CLONE AND DELETE PREFERENCES ;

Source Information

Source file <VENPCCML.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
VA Fileman 5 ^DIC  WAIT^DICD  YN^DICN  ^DIE  (,IX,IX1)^DIK  
IHS VA Utilities 1 ^XBFMK  

Entry Points

Name Comments DBIA/ICR reference
CORD ;EP-CLONE CPT SETS
ICDD ; EP-DELETE A SET OF ICD PREFERENCES
CLEAN ; EP-CLEAN OUT ALL INCOMPLETE ENTRIES
DORD ; EP-DELETE AN ORDERABLE SET
MERGE
INIT() ; EP-INITIALIZE THE PRIMARY ORDERABLE SET
ICD ; EP-CLONE USER ICD PREFERENCES
TO
LINK(NEW) ; EP-LINK AN ORDER SET TO A TEMPLATE
C2
NEW
C1
ONE
FROM
D1

External References

Name Field # of Occurrence
^DIC FROM+2, TO+2, ICDD+5, CORD+5, C1+1, DORD+5, INIT+9, LINK+3
WAIT^DICD TO+7, ICDD+8
YN^DICN TO+4, TO+6, ICDD+7, C2, DORD+7, INIT+6, INIT+15
^DIE ONE+2, ONE+4, D1+7, INIT+18, INIT+20, LINK+6
^DIK TO+8, ICDD+9, ONE+5, D1+1, D1+9, CLEAN+3
IX^DIK C1+9
IX1^DIK MERGE+7
^XBFMK MERGE+9, ICDD+11, C1+1, C2+1, ONE+7, D1+11, INIT+6, INIT+9, INIT+15, INIT+22
, LINK+7

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!!
  • Line Location: NEW+1
Function Call: WRITE
  • Prompt: !,"This provider has no preferences on file!",!,"Please select another provider or enter '^' to exit...",!
  • Line Location: FROM+3
Function Call: WRITE
  • Prompt: !,"You can not clone preferences from a provider to him/herself.",!,"Select another provider or enter '^' to exit...",!
  • Line Location: TO+3
Function Call: WRITE
  • Prompt: !,"This provider already has preferences on file!"
  • Line Location: TO+4
Function Call: WRITE
  • Prompt: !,"Want to completely replace the old set of preferences"
  • Line Location: TO+4
Function Call: WRITE
  • Prompt: !,"Cloning preferences..."
  • Line Location: TO+9
Function Call: WRITE
  • Prompt: !!,"DONE!",!
  • Line Location: MERGE+8
Function Call: WRITE
  • Prompt: !!!
  • Line Location: ICDD+2
Function Call: WRITE
  • Prompt: !!,"DONE!"
  • Line Location: ICDD+10
Function Call: WRITE
  • Prompt: !,"One moment please..."
  • Line Location: C1+2
Function Call: WRITE
  • Prompt: "."
  • Line Location: C1+6
Function Call: WRITE
  • Prompt: !,"The orderable set has been cloned!"
  • Line Location: C1+11
Function Call: WRITE
  • Prompt: !,"Want to link this new order set to a template"
  • Line Location: C2+0
Function Call: WRITE
  • Prompt: !,"No orderable sets have been defined! Request cancelled..."
  • Line Location: DORD+2
Function Call: WRITE
  • Prompt: !,"The only defined order set has been removed and ",!,"templates and orderabes are no longer associated with any order sets!"
  • Line Location: ONE+6
Function Call: WRITE
  • Prompt: !,"All orderables associated with this order set have been deleted!"
  • Line Location: D1+2
Function Call: WRITE
  • Prompt: !,"The following templates are no longer linked to an order set:"
  • Line Location: D1+3
Function Call: WRITE
  • Prompt: !?5,$P($G(^VEN(7.41,DA,0)),U)
  • Line Location: D1+6
Function Call: WRITE
  • Prompt: !,"Order set deleted!"
  • Line Location: D1+10
Function Call: WRITE
  • Prompt: !,"No order sets have been created yet..."
  • Line Location: INIT+3
Function Call: WRITE
  • Prompt: !,"You must initialize the primary order set before it can be cloned."
  • Line Location: INIT+4
Function Call: WRITE
  • Prompt: !,"Want to initialize the primary order set"
  • Line Location: INIT+5
Function Call: WRITE
  • Prompt: !!,"OK, all current orderables will be associated with ",$P(Y,U,2)
  • Line Location: INIT+11
Function Call: WRITE
  • Prompt: !,"All existing templates will be linked to this order set as well"
  • Line Location: INIT+12
Function Call: WRITE
  • Prompt: !,"In the future, all new templates must be linked to an order set"
  • Line Location: INIT+13
Function Call: WRITE
  • Prompt: !,"Are you sure you want to go on"
  • Line Location: INIT+14
Function Call: WRITE
  • Prompt: !,"One moment please..."
  • Line Location: INIT+16
Function Call: WRITE
  • Prompt: !,"Done!"
  • Line Location: INIT+21
Function Call: WRITE
  • Prompt: !,"Done!"
  • Line Location: LINK+8
Routine Call
  • DIE
  • Line Location:
    • ONE+2
    • ONE+4
    • D1+7
    • INIT+18
    • INIT+20
    • LINK+6
Routine Call
  • DIC
  • Line Location:
    • FROM+2
    • TO+2
    • ICDD+5
    • CORD+5
    • C1+1
    • DORD+5
    • INIT+9
    • LINK+3

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
^VEN(7.92 - [#19707.92] Classic Fileman Calls
^VEN(7.93 - [#19707.93] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^VEN(7.1 - [#19707.1] FROM+3, TO+4, TO+8, TO+10, MERGE+1, MERGE+2, MERGE+6*, ICDD+9
^VEN(7.41 - [#19707.41] ONE+4, D1+5, D1+6, D1+7, INIT+20, LINK+6
^VEN(7.92 - [#19707.92] CORD+3, DORD+2, ONE, INIT+8
^VEN(7.93 - [#19707.93] CORD+3, C1+3, C1+4, C1+7*, C1+8*, ONE+2, D1+1, INIT+2, INIT+18, CLEAN+3

Label References

Name Line Occurrences
$$INIT CORD+3
C1 CORD+3
CLEAN CORD+2, DORD+3
FROM FROM+3
LINK C2
TO TO+3

Naked Globals

Name Field # of Occurrence
^( CLEAN+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% NEW~, TO+4*, TO+6*, MERGE+2*, MERGE+3*, MERGE+4*, MERGE+6, ICDD+1~, ICDD+7*, CORD+1~
, CORD+3*, C2*, DORD+1~, DORD+7*, ONE*, D1+5*, INIT+1~, INIT+6*, INIT+15*, LINK+1~
%Y NEW~, TO+4, INIT+1~
CNT NEW~
D0 NEW~
DA NEW~, TO+8*, MERGE+5*, MERGE+6, ICDD+1~, ICDD+9*, CORD+1~, C1+6*, C1+7, C1+8
, DORD+1~, ONE+2*, ONE+4*, ONE+5*, D1+1*, D1+5*, D1+6, D1+7, D1+9*, INIT+1~
, INIT+18*, INIT+20*, LINK+1~, LINK+4*, LINK+6, CLEAN+1~, CLEAN+2*, CLEAN+3*
DDH NEW~
DG NEW~
DIC NEW~, FROM+1*, FROM+2!, TO+1*, TO+2!, ICDD+1~, ICDD+4*, ICDD+5!, CORD+1~, CORD+5*
, C1+1*, DORD+1~, DORD+5*, INIT+1~, INIT+7*, LINK+1~, LINK+2*, LINK+4
DIC("A" FROM*, TO*, ICDD+3*, CORD+4*, C1*, DORD+4*, INIT+7*, LINK+2*
DIC("B" INIT+8*
DIC("S" ICDD+4*
DIC(0 FROM+1*, TO+1*, ICDD+4*, CORD+5*, C1+1*, DORD+5*, INIT+7*, LINK+2*
DICR NEW~
DIE DORD+1~, ONE+1*, ONE+3*, D1+4*, INIT+1~, INIT+17*, INIT+19*, LINK+1~, LINK+4*
DIK NEW~, TO+8*, MERGE*, ICDD+1~, ICDD+9*, CORD+1~, C1+3*, DORD+1~, ONE+5*, D1*
, D1+9*, CLEAN+1~, CLEAN+2*
DIU NEW~
>> DLAYGO C1+1*, INIT+7*
DR DORD+1~, ONE+1*, ONE+3*, D1+4*, INIT+1~, INIT+17*, INIT+19*, LINK+1~, LINK+4*, LINK+5*
DTOUT NEW~
DUOUT NEW~
IEN CORD+1~, C1+4*, C1+7
LAST NEW~, TO+10*, MERGE+5, CORD+1~, C1+3*, C1+6
MMF CORD+1~, C1+3*, C1+4*, DORD+1~, D1*, D1+1*
NEW CORD+1~, C1+3*, C1+8, C2, LINK~, LINK+5
OLD CORD+1~, CORD+3*, CORD+6*, C1+4
OSET INIT+1~, INIT+10*, INIT+23
PIEN NEW~, MERGE+1*, MERGE+2, ICDD+1~
POP NEW~, ICDD+1~
SET DORD+1~, DORD+6*, ONE+5, D1+1, D1+5, D1+9
SOURCE NEW~, FROM+4*, TO+3, MERGE+1
TARGET NEW~, TO+5*, TO+8, MERGE+3
TOT NEW~, MERGE*, MERGE+5*, CORD+1~, C1+3*, C1+5*, C1+6
U MERGE+3, MERGE+4, C1+1, C1+8, D1+5, D1+6, INIT+11, CLEAN+3
USER ICDD+1~, ICDD+6*, ICDD+9
X NEW~, ICDD+1~, DORD+1~, INIT+1~, LINK+1~, CLEAN+1~, CLEAN+3*
Y NEW~, FROM+2, FROM+3, FROM+4, TO+2, TO+3, TO+4, TO+5, TO+8, ICDD+1~
, ICDD+5, ICDD+6, CORD+5, CORD+6, C1+1, C1+3, DORD+1~, DORD+5, DORD+6, INIT+1~
, INIT+9, INIT+10, INIT+11, LINK+3, LINK+4
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All