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 |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: PXCEVFI2

Package: PCE Patient Care Encounter

Routine: PXCEVFI2


Information

PXCEVFI2 ;ISL/dee,ESW - Supporting routines for editing a visit or v-file entry ; 11/6/02 2:36pm

Source Information

Source file <PXCEVFI2.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
PCE Patient Care Encounter 6 $$SURE^PXCEAE2  (PAUSE,WAIT)^PXCEHELP  SAVE^PXCESK  (EN1,EVENT)^PXKMAIN  $$STOPCODE^PXUTLSTP  $$KILL^VSITKIL  
VA Fileman 1 ^DIR  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
PCE Patient Care Encounter 2 PXCEVFI1  PXCEVFIL  

Entry Points

Name Comments DBIA/ICR reference
DEL(PXCECAT) ; -- Delete this V-File entry from the List if all the visit infomation.
ASK(PXCVIEN,PXCFIEN,PXCEAUPN,PXCCATT,PXCCODE) ; -- Display a selection list from one V-File for this visit
SAVE ; -- Save this edited and quit editing.
ASKLOOP
DELQUIT ;

External References

Name Field # of Occurrence
^DIR ASKLOOP+3
$$SURE^PXCEAE2 DEL+29, DEL+36, DEL+61
PAUSE^PXCEHELP DEL+1, DEL+2
WAIT^PXCEHELP DEL+13, DEL+24, DEL+41
SAVE^PXCESK SAVE+11
EN1^PXKMAIN SAVE+12, DEL+64
EVENT^PXKMAIN DEL+43
$$STOPCODE^PXUTLSTP SAVE+1, DEL+31
$$KILL^VSITKIL DEL+38

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$J(PXCECNT+1,3),?6,@("$$DISPLY01^"_PXCCODE_"("_PXCEAUPN_"(PXCEINDX,0))")
  • Line Location: ASK+7
Function Call: WRITE
  • Prompt: !!,$C(7),"Error: Cannot delete this an unknown V-File entry."
  • Line Location: DEL+1
Function Call: WRITE
  • Prompt: !!,$C(7),"Error: You do not have delete access."
  • Line Location: DEL+2
Function Call: WRITE
  • Prompt: !!,"Error on deleting "_PXCECATT_" ",@("$$DISPLY01^"_PXCECODE_"(@(PXCEAUPN_""(PXCEFIEN,0)""))")
  • Line Location: DEL+12
Function Call: WRITE
  • Prompt: !,"Error: You cannot delete this entry it has been ""Verified""."
  • Line Location: DEL+13
Function Call: WRITE
  • Prompt: !!,"Error on deleting "_PXCECATT_" ",@("$$DISPLY01^"_PXCECODE_"(NODE0)")
  • Line Location: DEL+23
Function Call: WRITE
  • Prompt: !,"Error: You cannot delete an entry you did not create."
  • Line Location: DEL+24
Function Call: WRITE
  • Prompt: !!,"Deleting "_PXCECATT_" "
  • Line Location: DEL+27
Function Call: WRITE
  • Prompt: @("$$DISPLY01^"_PXCECODE_"($G(@(PXCEAUPN_""(PXCEFIEN,0)"")))")
  • Line Location: DEL+28
Function Call: WRITE
  • Prompt: !!,"Deleting "_PXCECATT_" "
  • Line Location: DEL+34
Function Call: WRITE
  • Prompt: @("$$DISPLY01^"_PXCECODE_"($G(@(PXCEAUPN_""(PXCEFIEN,0)"")))")
  • Line Location: DEL+35
Function Call: WRITE
  • Prompt: !,$C(7),"Could not delete the encounter. There are still users of it."
  • Line Location: DEL+41
Function Call: WRITE
  • Prompt: !!,"Deleting "_PXCECATT_" "
  • Line Location: DEL+59
Function Call: WRITE
  • Prompt: @("$$DISPLY01^"_PXCECODE_"(^TMP(""PXK"",$J,PXCECATS,1,0,""BEFORE""))")
  • Line Location: DEL+60
Routine Call
  • DIR
  • Line Location:
    • ASKLOOP+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNVSIT - [#9000010] DEL+49
^SCE("AVSIT" DEL+40
^TMP("PXK" SAVE+9*, SAVE+10*, SAVE+11, SAVE+13, DEL+46!, DEL+47*, DEL+49*, DEL+51*, DEL+52*, DEL+56*
, DEL+63*, DELQUIT+1!

Label References

Name Line Occurrences
ASKLOOP ASKLOOP+7, ASKLOOP+8

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DA ASK+2~, ASKLOOP+4!, DEL+58~
DIK DEL+58~
DIR ASK+2~, ASKLOOP+4!
DIR("?" ASKLOOP+2*
DIR("A" ASKLOOP+1*
DIR(0 ASKLOOP*
>> DIRUT ASKLOOP+5
DUZ DEL+19
NODE0 DEL+21~, DEL+22*
PXCCATT ASK~, ASK+5, ASKLOOP+2
PXCCODE ASK~, ASK+7
>> PXCEAFTR( SAVE+8, SAVE+9, SAVE+10
>> PXCEAFTR(0 SAVE+1
PXCEASK ASK+1~
PXCEASK( ASK+6*, ASKLOOP+8, ASKLOOP+9
PXCEAUPN ASK~, ASK+4, ASK+7, DEL+4~, DEL+7*, DEL+10, DEL+11, DEL+17, DEL+18, DEL+22
, DEL+56
PXCECAT SAVE+1, SAVE+11, SAVE+13, DEL~, DEL+5, DEL+6, DEL+26
PXCECATS SAVE+6, SAVE+9, SAVE+10, SAVE+11, DEL+4~, DEL+6*, DEL+17, DEL+33, DEL+52, DEL+56
, DEL+63
PXCECATT DEL+4~, DEL+8*, DEL+12, DEL+23, DEL+27, DEL+34, DEL+59
PXCECHK DEL+15~, DEL+17*, DEL+18*, DEL+19
PXCECNT ASK+1~, ASK+4*, ASK+5, ASK+6, ASK+7, ASK+8, ASKLOOP, ASKLOOP+1, ASKLOOP+7
PXCECODE DEL+4~, DEL+5*, DEL+12, DEL+23, DEL+28, DEL+35, DEL+60
>> PXCEFIEN SAVE+1*, DEL+1, DEL+31, DEL+52
PXCEFOR SAVE+3~, SAVE+5*, DEL+4~, DEL+55*, DEL+63*
PXCEINDX ASK+1~, ASK+3*, ASK+4*, ASK+6
>> PXCEKEYS DEL+2, DEL+14
>> PXCELOOP DEL+32*, DEL+42*, DEL+65*
PXCENODE SAVE+3~, SAVE+5*, SAVE+6, SAVE+8, SAVE+9, SAVE+10, DEL+4~, DEL+48*, DEL+49, DEL+55*
, DEL+56, DEL+63*
PXCENODS SAVE+3~, SAVE+4*, SAVE+5, DEL+4~, DEL+54*, DEL+55, DEL+62*, DEL+63
>> PXCENOER DEL+42*, DEL+66*
PXCEQUIT ASKLOOP+5*, DEL+4~, DEL+14, DEL+16*, DEL+20*, DEL+42*
PXCEREF ASK+1~
PXCERESU DEL+30~, DEL+31*, DEL+37~, DEL+38*, DEL+39, DEL+40, DEL+42
PXCESEQ SAVE+3~, SAVE+7*, SAVE+8*, SAVE+9
>> PXCESOR SAVE+1, DEL+31, DEL+51
>> PXCEVDEL DEL+42*
>> PXCEVIEN SAVE+1, SAVE+13*, DEL+1, DEL+31, DEL+38, DEL+40, DEL+47, DEL+49
PXCFIEN ASK~, ASKLOOP+9*
PXCVIEN ASK~
X ASK+2~
Y ASK+2~, ASKLOOP+6, ASKLOOP+7, ASKLOOP+8, ASKLOOP+9

Marked Items

Name Field # of Occurrence
$T(FORMAT^@PXCECODE SAVE+4, DEL+7, DEL+8, DEL+54, DEL+62
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All