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

Package: PCE Patient Care Encounter

Routine: PXKMAIN1


Information

PXKMAIN1 ;ISL/JVS,ISA/Zoltan - Main Routine for Data Capture ;06/17/16 13:52

Source Information

Source file <PXKMAIN1.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
PCE Patient Care Encounter 4 UPD^PXKFVST  (CLEAN,DIE,ER)^PXKIMM  (LOOP,UPD)^PXKMOD  STOCK^PXVXR  
VA FileMan 3 FILE^DICN  ^DIE  (,IX1)^DIK  
Kernel 1 $$NOW^XLFDT  
Uncategorized 1 ^@(  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
PCE Patient Care Encounter 1 PXKMAIN  

Entry Points

Name Comments DBIA/ICR reference
LOOP ;+Copy delimited strings into sub-arrays.
ERROR ;+Check for missing required fields
CLEAN ;--Clean out the PXKAV array
FILE ;+Create a new entry in file and get IEN
AUD12 ;--Set both audit fields
AUD2 ;--Set second audit fields
TMSTAMP ; set Timestamp
DRDIE ;--Set the DR string and DO DIE
DIE ;+Lock global and invoke FM ^DIE call.
DELETE ;+Use FM ^DIK call to delete entry identified by PXKPIEN.
COPYDEL ; Make a copy of entry
DUP ;+Code to check for duplicates
ER ;--PXKERROR MAKING IF NOT POPULATED CORRECTLY

External References

Name Field # of Occurrence
^@( ERROR+3, ERROR+10, AUD12+7, AUD2+8, TMSTAMP+4, DRDIE+21, DUP+11, ER+15
FILE^DICN FILE+7, COPYDEL+17
^DIE DIE+2
^DIK DELETE+7
IX1^DIK COPYDEL+28
UPD^PXKFVST DRDIE+1
CLEAN^PXKIMM CLEAN+3
DIE^PXKIMM DRDIE+18
ER^PXKIMM ER+5
LOOP^PXKMOD LOOP+4
UPD^PXKMOD DRDIE+16
STOCK^PXVXR DRDIE+34
$$NOW^XLFDT TMSTAMP+1, COPYDEL+25

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"This is not an entry point"
  • Line Location: PXKMAIN1+24
Routine Call
  • DIE
  • Line Location:
    • DIE+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^TMP("PXK" DRDIE+10, DRDIE+15

Label References

Name Line Occurrences
COPYDEL DELETE+3
DIE DRDIE+14, DRDIE+32, DRDIE+33
ER DRDIE+36
TMSTAMP AUD12+8, AUD2+10

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DA FILE+8*, DELETE+5*, COPYDEL+2~, COPYDEL+27*, ER+8, ER+20, ER+21, ER+22
DD FILE+3!
DIC FILE+4*, FILE+10!, COPYDEL+2~, COPYDEL+12*
DIC(0 FILE+5*, DRDIE+35!, COPYDEL+13*
DIE DRDIE+3*, DRDIE+35!
DIK DELETE+6*, DELETE+8!, COPYDEL+2~, COPYDEL+26*
>> DILOCKTM COPYDEL+14, COPYDEL+23
DINUM COPYDEL+2~, COPYDEL+16*
DO FILE+3!, COPYDEL+2~
DR FILE+9*, AUD12+1*, AUD12+6*, AUD12+7*, AUD2+1*, AUD2+6*, AUD2+9*, TMSTAMP+5*, DRDIE+31*, DRDIE+32
DIE+4!, DIE+5*
DUZ COPYDEL+25
>> PX DUP+15*, DUP+16*, DUP+19
PXDELGBL COPYDEL+2~, COPYDEL+4*, COPYDEL+5, COPYDEL+12, COPYDEL+14, COPYDEL+16, COPYDEL+18, COPYDEL+23, COPYDEL+24, COPYDEL+25
COPYDEL+26, COPYDEL+29
>> PXFG DUP+15*, DUP+16, DUP+20*
PXGBL COPYDEL+2~, COPYDEL+6*, COPYDEL+9, COPYDEL+24
>> PXJ ERROR+6*, ERROR+7, DUP+18*
PXJJ ERROR+7*, ERROR+8, ERROR+9, ERROR+14!, DUP+18*, DUP+19
>> PXJJJ DUP+10*, DUP+17*, DUP+19*, DUP+20
PXK ERROR+14!
>> PXKAFT( LOOP+1
>> PXKAUDIT AUD12+2*, AUD12+3*, AUD12+4*, AUD2+2*, AUD2+3*, AUD2+4*
>> PXKAV( LOOP+1*, ERROR+8, CLEAN+6!, DRDIE+7, DRDIE+20, DRDIE+29, DRDIE+30, DUP+19, ER+4, ER+7
ER+11, ER+12, ER+19, ER+21
>> PXKAV(0 ERROR+1, FILE+6
>> PXKBEF( LOOP+2
>> PXKBV( LOOP+2*, CLEAN+2, CLEAN+5, CLEAN+6
>> PXKCAT LOOP+4, ERROR+13, CLEAN+3, FILE+11, AUD12+8, AUD2+10, DRDIE+1, DRDIE+9, DRDIE+10, DRDIE+13
DRDIE+15, DRDIE+18, DRDIE+34, DUP+1, DUP+2, DUP+3, ER+5, ER+9, ER+14, ER+20
ER+21, ER+22
>> PXKER ERROR+4*, ERROR+5, ERROR+6, ERROR+7, AUD12+7, AUD2+9, TMSTAMP+5, DRDIE+22, DRDIE+23, DRDIE+24*
DRDIE+25*, DRDIE+26*, DRDIE+27*, DRDIE+28, DRDIE+29*, DRDIE+30*, DRDIE+31, DUP+12, DUP+13*, DUP+14
DUP+18, DUP+20
>> PXKERROR( ERROR+13*, ER+20, ER+21, ER+22*
PXKFD ERROR+11, ERROR+14!, ER+16
>> PXKFGAD DRDIE+8, DRDIE+11, DRDIE+24, DRDIE+25
>> PXKFGED DRDIE+12, DRDIE+26, DRDIE+27
PXKFLD ERROR+11*, ERROR+12*, ERROR+13, ERROR+14!, ER+16*, ER+17*, ER+18, ER+20, ER+21, ER+22
>> PXKFVDLM AUD12+9*, AUD2+11*
PXKI LOOP+1*, LOOP+2*, LOOP+3!, CLEAN+4*, CLEAN+5*, CLEAN+6, CLEAN+7!
PXKJ LOOP+3!, CLEAN+1*, CLEAN+2*, CLEAN+3, CLEAN+5, CLEAN+6, CLEAN+7!
PXKLR DRDIE+4*, DRDIE+35!, DIE+1, DIE+3
PXKMOD ER+1~, ER+2*
>> PXKN ER+3*, ER+4*, ER+5, ER+7, ER+9, ER+10, ER+11, ER+12, ER+13, ER+19
ER+21
>> PXKNOD ERROR+2*, ERROR+8, AUD12+5*, AUD2+5*, TMSTAMP+2*, DRDIE+6*, DRDIE+7*, DRDIE+8, DRDIE+11, DRDIE+13
DRDIE+18, DRDIE+20, DRDIE+29, DRDIE+30, DRDIE+31, DUP+6*, ER+13*, ER+14
>> PXKNOW TMSTAMP+1*
>> PXKP ER+6*, ER+7*, ER+9, ER+11, ER+12, ER+13, ER+19, ER+21
>> PXKPCE ERROR+2*, ERROR+9*, AUD12+7*, AUD2+7*, TMSTAMP+3*, DRDIE+8*, DRDIE+10*, DRDIE+11*, DRDIE+12*, DRDIE+20*
DRDIE+29, DRDIE+30, DRDIE+31, DUP+7*, ER+13*, ER+14*
PXKPDELIEN COPYDEL+2~, COPYDEL+21*, COPYDEL+22, COPYDEL+23, COPYDEL+24, COPYDEL+25, COPYDEL+27, COPYDEL+29
PXKPIEN FILE+8*, FILE+11, DRDIE+10, DRDIE+30, DELETE+5, COPYDEL+9, COPYDEL+14, COPYDEL+16, COPYDEL+18, COPYDEL+24
DUP+5~*, DUP+19
PXKPTR DRDIE+3!
PXKPTR( DRDIE+30*
>> PXKRRT ER+8*, ER+9*, ER+10*, ER+11
PXKRT ER+1~
PXKRTN ERROR+3, ERROR+10, AUD12+7, AUD2+8, TMSTAMP+4, DRDIE+21, DUP+4~, DUP+8*, DUP+11, ER+15
>> PXKSEQ ERROR+13, DRDIE+10, DRDIE+15, ER+2, ER+20, ER+21, ER+22
>> PXKSORR AUD12+3, AUD2+3
PXKSTR ER+1~, ER+19*, ER+21*, ER+22
>> PXKSUB LOOP+1, LOOP+2, LOOP+4
>> PXKVCAT DUP+8
>> PXKVRTN DUP+9*, DUP+16, DUP+19
>> PXKVST DUP+16
PXTMP COPYDEL+2~, COPYDEL+9*, COPYDEL+10, COPYDEL+11
>> PXVNEWDA FILE+11*
PXVNEWIM FILE+11*, DRDIE+34!
U COPYDEL+10, COPYDEL+11, COPYDEL+21, COPYDEL+25
X FILE+6*, FILE+10!, COPYDEL+2~, COPYDEL+11*
Y FILE+8, FILE+10!, COPYDEL+2~, COPYDEL+21

Marked Items

Name Field # of Occurrence
$T(DELGBL^@PXKRTN DELETE+3, COPYDEL+4
$T(GLOBAL^@PXKRTN FILE+4, AUD12+2, AUD2+2, DRDIE+3, DRDIE+4, DELETE+6, COPYDEL+6, DUP+9, ER+8
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items  | All