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

Package: PCE Patient Care Encounter

Routine: PXKMAIN


Information

PXKMAIN ;ISL/JVS,ISA/Zoltan - Main Routine for Data Capture ;9/11/98

Source Information

Source file <PXKMAIN.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
PCE Patient Care Encounter 7 REMOVE^PXCEVFIL  (AUD12,AUD2,CLEAN,DELETE,DRDIE,DUP,ERROR,FILE,LOOP)^PXKMAIN1  (PRVTYPE,RECALL,SPEC)^PXKMAIN2  (EN1,EVENT)^PXKMASC  SUBSCR^PXKMOD  VSIT^PXKVST  MODIFIED^VSIT  

Caller Graph

Caller Graph Total: 27

Package Total Caller Graph
PCE Patient Care Encounter 26 PXAI  PXAIPOV  PXAIPRV  PXAIVST  PXAPIDEL  PXAPIOE  PXBAPI  PXBAPI1  
PXBMCPT  PXBMCPT2  PXBMPOV  PXBMPRV  PXBPCPT1  PXBPPOV1  PXBPPRV1  PXBSTOR1  
PXBUTL  PXBUTL3  PXCA0  PXCEAE  PXCESK  PXCEVFI2  PXICLN9B  PXKMAIN2  
PXSCH1  PXUTLSTP  
Scheduling 1 SCCVPCE  

Entry Points

Name Comments DBIA/ICR reference
CATEG
SET ;--SET VARIABLES NECESSARY
VST ;--Check for visit node and get one created or quit.
L2 ; Get values from visit 0 node (PX0).
SOURCE
LOCK ; Lock (results in PXP59LOC)--Patch PX*1.0*59.
AFTER
VISIT
EXIT ;--EXIT
SEQUE
PRVTYPE ;---DO PROVIDER TYPE--PXKMAIN2
EN1 ;+Main entry point to read ^TMP("PXK", Global
  • ICR #2502
    • Status: Active
    • Usage: Private
    UNLOCK ; Unlock (use info in PXP59LOC)--Patch PX*1.0*59.
    SUBSCR
    EVENT ;--ENTRY POINT TO POST EXECUTE PCE'S EVENT
  • ICR #6834
    • Status: Pending
    • Usage: Private
    NEW ;--New variables and set main variables
    ORDER ;--$ORDER Through the ^TMP("PXK", global setting variables
    BEFORE

    External References

    Name Field # of Occurrence
    REMOVE^PXCEVFIL BEFORE+15
    AUD12^PXKMAIN1 BEFORE+19
    AUD2^PXKMAIN1 BEFORE+18
    CLEAN^PXKMAIN1 BEFORE+7
    DELETE^PXKMAIN1 BEFORE+6
    DRDIE^PXKMAIN1 BEFORE+18, BEFORE+19, BEFORE+20
    DUP^PXKMAIN1 BEFORE+12, BEFORE+19, BEFORE+20
    ERROR^PXKMAIN1 BEFORE+2, BEFORE+10
    FILE^PXKMAIN1 BEFORE+16
    LOOP^PXKMAIN1 BEFORE+2
    PRVTYPE^PXKMAIN2 PRVTYPE+1
    RECALL^PXKMAIN2 BEFORE+23
    SPEC^PXKMAIN2 BEFORE+21
    EN1^PXKMASC BEFORE+6, BEFORE+8, BEFORE+18, BEFORE+19, BEFORE+20
    EVENT^PXKMASC EVENT+7
    SUBSCR^PXKMOD BEFORE+1
    VSIT^PXKVST VST+2
    MODIFIED^VSIT EXIT+1

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !,"This is not an entry point"
    • Line Location: PXKMAIN+29

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^%ZOSF("TEST" CATEG+3
    ^AUPNVSIT - [#9000010] LOCK+11, LOCK+12
    ^PXLOCK( LOCK+29
    ^TMP("PXK" VST+1, VST+3, VST+4, VST+5, SOURCE, VISIT, LOCK+4, LOCK+5, LOCK+8, LOCK+9
    ^TMP("PXKCO" EVENT+4!, LOCK+15, LOCK+16, LOCK+18
    ^TMP("PXKENC" LOCK+22, LOCK+23, LOCK+25
    ^TMP("PXKSAVE" BEFORE+23

    Label References

    Name Line Occurrences
    EXIT BEFORE+24
    L2 LOCK+6, LOCK+13, LOCK+20, LOCK+27
    LOCK EN1+15, EVENT+6
    UNLOCK EN1+21, EVENT+8
    VST EN1+20

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    DA SET+2~, BEFORE+17*, BEFORE+19*, BEFORE+20*, EXIT+3!
    DR EXIT+3!
    DUZ EN1+18
    PX NEW+4~
    PX0 LOCK+1~, LOCK+5*, LOCK+12*, LOCK+18*, LOCK+19, LOCK+25*, LOCK+26, L2+1, L2+2, L2+3
    PXDFG NEW+4~, SET+4*, SEQUE+1*, SUBSCR, BEFORE+2*
    PXEXIT LOCK+1~, LOCK+2*, LOCK+15, LOCK+22, LOCK+28, L2+4*
    PXFG NEW+1~, SET+4*, SEQUE*, SUBSCR, BEFORE+3, BEFORE+6*, BEFORE+9, BEFORE+11*, BEFORE+12, BEFORE+13
    , BEFORE+19, BEFORE+20
    PXJJJ NEW+4~
    PXKAFT NEW+1~, BEFORE+22!
    PXKAFT( AFTER*, BEFORE+2*
    PXKAFT8 NEW+4~, EXIT+3!
    PXKAFTR NEW+4~, EXIT+3!
    PXKAUDIT NEW+1~
    PXKAV SEQUE!, BEFORE+4, BEFORE+5, BEFORE+7
    PXKAV(0 BEFORE+2!
    PXKBEF NEW+1~, BEFORE+22!
    PXKBEF( BEFORE*
    PXKBV SEQUE!, BEFORE+4, BEFORE+5, BEFORE+7
    PXKCAT NEW+2~, CATEG*, CATEG+1, CATEG+2, SEQUE, SEQUE+1, SUBSCR, AFTER, BEFORE, BEFORE+1
    , BEFORE+4, BEFORE+7, BEFORE+8, BEFORE+11, BEFORE+14, BEFORE+15, BEFORE+19, BEFORE+20
    >> PXKCO("SOR" SOURCE+1*
    PXKDFN NEW+1~
    PXKDUZ EN1+17, EN1+18*, EN1+19*, BEFORE+4, BEFORE+7, EXIT+3!
    PXKER NEW+2~
    PXKERROR EN1+16!
    PXKERROR( BEFORE+11
    PXKERROR("SOURCE" SOURCE, SOURCE+2*
    PXKERROR("VISIT" VST+3*, VST+4*, VST+5*
    PXKFGAD NEW+2~, SEQUE+1*, BEFORE+4*, BEFORE+7, BEFORE+8, BEFORE+9
    PXKFGDE NEW+2~, SEQUE+1*, BEFORE+5*, BEFORE+7, BEFORE+8
    PXKFGED NEW+2~, SEQUE+1*, BEFORE+7*, BEFORE+8, BEFORE+19, BEFORE+20
    PXKFVDLM NEW+5~, BEFORE+5*, EXIT+1
    PXKGN NEW+4~
    PXKI EXIT+3!
    PXKJ EXIT+3!
    PXKLAYGO SET+4*, EXIT+3!
    PXKN NEW+4~
    PXKNOD NEW+2~
    >> PXKNOEVT EVENT+4
    PXKP NEW+4~
    PXKPCE NEW+2~
    PXKPIEN NEW+3~, SEQUE+1*, BEFORE+6, BEFORE+16, BEFORE+17, BEFORE+19, BEFORE+20
    PXKPTR NEW+4~
    PXKPXD EXIT+2!
    PXKREF NEW+3~, ORDER+1*, CATEG, SEQUE, SEQUE+1, SUBSCR, AFTER, BEFORE, BEFORE+15
    PXKRRT NEW+5~
    PXKRT NEW+5~, BEFORE+6*!, BEFORE+19*, BEFORE+20*
    PXKRTN NEW+3~, CATEG+2*, CATEG+3
    PXKSEQ NEW+1~, SEQUE*, SEQUE+1, SUBSCR, AFTER, BEFORE, BEFORE+11, BEFORE+15
    PXKSOR NEW+1~, SOURCE*, SOURCE+1, SOURCE+2, BEFORE+4, BEFORE+7
    PXKSORR NEW+3~, BEFORE+4*, BEFORE+7*
    PXKSUB NEW+3~, SUBSCR*, AFTER, BEFORE, BEFORE+1, BEFORE+2
    PXKVCAT NEW+3~, CATEG*, CATEG+1*
    PXKVRTN NEW+5~
    PXKVST NEW+1~, VISIT*, BEFORE+7, EXIT+1
    PXP59LOC EN1+14~, EN1+21, EVENT+5~, EVENT+8, LOCK+29*, LOCK+30, LOCK+31!, UNLOCK+1
    PXVISIT LOCK+1~, LOCK+9*, LOCK+10, LOCK+11, LOCK+12, LOCK+16*, LOCK+17, LOCK+18, LOCK+23*, LOCK+24
    , LOCK+25
    PXWHEN LOCK+1~, LOCK+2*, LOCK+29, L2+2*, L2+4
    PXWHERE LOCK+1~, LOCK+2*, LOCK+29, L2+3*
    PXWHO LOCK+1~, LOCK+2*, LOCK+29, L2+1*, L2+4
    TMPPX NEW+5~, SET+4*, EXIT+2!
    U L2+1, L2+2, L2+3
    >> VSIT("IEN" VISIT*, EXIT+3!
    >> X CATEG+3*

    Marked Items

    Name Field # of Occurrence
    $T(GLOBAL^@PXKRTN BEFORE+6, BEFORE+19, BEFORE+20
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All