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 |  FileMan Files Accessed Via FileMan Db Call |  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,PKR,ISA/ZOLTRAN - Main Routine for Data Capture ;Dec 15, 2025@09:34:25

Source Information

Source file <PXKMAIN.m>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
PCE Patient Care Encounter 10 VST^PXCECCLS  REMOVE^PXCEVFIL  (AUD12,AUD2,CLEAN,DELETE,DRDIE,DUP,ERROR,FILE,LOOP)^PXKMAIN1  (PRVTYPE,RECALL,SPEC2)^PXKMAIN2  (EN1,EVENT)^PXKMASC  EN^PXKMCODE  SUBSCR^PXKMOD  VSIT^PXKVST  
($$LOCK,UNLOCK)^PXLOCK  MODIFIED^VSIT  
VA FileMan 1 TURNON^DIAUTL  

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

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

Entry Points

Name Comments DBIA/ICR reference
EN1 ;+Main entry point to read ^TMP("PXK", Global
  • ICR #2502
    • Status: Active
    • Usage: Private
    VST(VISITIEN,PXKDUZ,LOCK) ;--Check for visit node and get one created or quit.
    NEW ;--New variables and set main variables
    PRVTYPE ;---DO PROVIDER TYPE--PXKMAIN2
    SET ;--SET VARIABLES NECESSARY
    SOURCE
    VISIT
    ORDER ;--$ORDER Through the ^TMP("PXK", global setting variables
    CATEG
    SEQUE
    SUBSCR
    AFTER
    BEFORE
    MULT ; Add multiples to PXKAFT, PXKBEF, PXKAV, PXKBV arrays
    CHKAUD ; Check and turn on Auditing
    EXIT ;--EXIT
    EVENT ;--ENTRY POINT TO POST EXECUTE PCE'S EVENT
  • ICR #6834
    • Status: Pending
    • Usage: Private
    CQDEL ;Classification question deletion check

    External References

    Name Field # of Occurrence
    TURNON^DIAUTL CHKAUD+1
    VST^PXCECCLS EVENT+8
    REMOVE^PXCEVFIL BEFORE+27
    AUD12^PXKMAIN1 BEFORE+32
    AUD2^PXKMAIN1 BEFORE+31
    CLEAN^PXKMAIN1 BEFORE+17
    DELETE^PXKMAIN1 BEFORE+14
    DRDIE^PXKMAIN1 BEFORE+31, BEFORE+32, BEFORE+33
    DUP^PXKMAIN1 BEFORE+24, BEFORE+32, BEFORE+33
    ERROR^PXKMAIN1 BEFORE+5, BEFORE+22
    FILE^PXKMAIN1 BEFORE+29
    LOOP^PXKMAIN1 BEFORE+5
    PRVTYPE^PXKMAIN2 PRVTYPE+1
    RECALL^PXKMAIN2 BEFORE+37
    SPEC2^PXKMAIN2 BEFORE+34
    EN1^PXKMASC BEFORE+14, BEFORE+20, BEFORE+31, BEFORE+32, BEFORE+33
    EVENT^PXKMASC EVENT+11
    EN^PXKMCODE BEFORE+35
    SUBSCR^PXKMOD BEFORE+3
    VSIT^PXKVST VST+2
    $$LOCK^PXLOCK VST+7
    UNLOCK^PXLOCK EN1+19
    MODIFIED^VSIT EXIT+1

    Interaction Calls

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

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^AUPNVIMM - [#9000010.11] TURNON^DIAUTL

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^%ZOSF("TEST" CATEG+3
    ^AUPNVSIT - [#9000010] EVENT+8
    ^TMP("PXK" VST+2, VST+3, VST+4, VST+5, VST+6, SOURCE, VISIT, BEFORE+9, BEFORE+10
    ^TMP("PXKCO" EVENT+6, EVENT+7, EVENT+10!
    ^TMP("PXKSAVE" BEFORE+37

    Label References

    Name Line Occurrences
    CHKAUD BEFORE+14, BEFORE+32
    EXIT BEFORE+38
    MULT BEFORE+4
    VST EN1+17

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    DA SET+2~, BEFORE+30*, BEFORE+32*, BEFORE+33*, EXIT+3!
    DR EXIT+3!
    DUZ EN1+16
    LOCK EN1+14~, EN1+17, EN1+18, VST~, VST+1*, VST+7*, VST+8
    PX NEW+4~
    >> PXAERRF EN1+18*
    PXDFG NEW+4~, SET+4*, SEQUE+1*, SUBSCR, BEFORE+6*, BEFORE+7*
    PXFG NEW+1~, SET+4*, SEQUE*, SUBSCR, BEFORE+11, BEFORE+14*, BEFORE+21, BEFORE+23*, BEFORE+24, BEFORE+25
    , BEFORE+32, BEFORE+33
    PXJ CQDEL+2*, CQDEL+3!
    PXJJ NEW+4~
    PXJJJ NEW+4~
    PXKAFT NEW+1~, BEFORE+36!
    PXKAFT( AFTER+2*, BEFORE+7*, MULT+8*, MULT+9, MULT+10, MULT+18*
    PXKAFT(800 BEFORE+9*
    PXKAFT(900 AFTER+1*, BEFORE+10*
    PXKAFT8 NEW+4~, EXIT+3!
    PXKAFTR NEW+4~, EXIT+3!
    PXKAUDIT NEW+1~
    PXKAV SEQUE!, BEFORE+12, BEFORE+13, BEFORE+18
    PXKAV( MULT+10*, MULT+19*
    PXKAV(0 BEFORE+6, BEFORE+7!
    PXKAV(800 CQDEL+2*
    PXKBEF NEW+1~, BEFORE+36!
    PXKBEF( BEFORE+2*, MULT+13*, MULT+14, MULT+15
    PXKBEF(800 BEFORE+9*
    PXKBEF(900 BEFORE+1*, BEFORE+10*
    PXKBV SEQUE!, BEFORE+12, BEFORE+13, BEFORE+18
    PXKBV( MULT+15*
    PXKBV(800 CQDEL+2
    PXKCAT NEW+2~, CATEG*, CATEG+1, CATEG+2, SEQUE, SEQUE+1, SUBSCR, AFTER+1, AFTER+2, BEFORE+1
    , BEFORE+2, BEFORE+3, BEFORE+4, BEFORE+8, BEFORE+9, BEFORE+10, BEFORE+12, BEFORE+18, BEFORE+19, BEFORE+23
    , BEFORE+26, BEFORE+27, BEFORE+32, BEFORE+33, MULT+5, MULT+7, MULT+8, MULT+12, MULT+13, MULT+17
    , CHKAUD+1, CQDEL+1
    PXKCO NEW+2~
    PXKCO("SOR" SOURCE+1*
    PXKDFN NEW+1~
    PXKDUZ EN1+14~, EN1+16*, EN1+17, EN1+19, VST~, VST+7, BEFORE+12, BEFORE+18, EXIT+3!
    PXKER NEW+2~
    PXKERROR EN1+15!, VST+7
    PXKERROR( BEFORE+23
    PXKERROR("SOURCE" SOURCE, SOURCE+2*
    PXKERROR("VISIT" VST+3*, VST+4*, VST+5*
    PXKFGAD NEW+2~, SEQUE+1*, BEFORE+12*, BEFORE+15, BEFORE+19, BEFORE+21
    PXKFGDE NEW+2~, SEQUE+1*, BEFORE+13*, BEFORE+15, BEFORE+19
    PXKFGED NEW+2~, SEQUE+1*, BEFORE+18*, BEFORE+19, BEFORE+32, BEFORE+33
    PXKFVDLM NEW+5~, BEFORE+13*, EXIT+1
    PXKGN NEW+4~
    PXKI MULT+2~, MULT+9*, MULT+10, MULT+14*, MULT+15, EXIT+3!
    PXKJ EXIT+3!
    PXKLAYGO SET+4*, EXIT+3!
    PXKN NEW+4~
    PXKNOD NEW+2~
    >> PXKNOEVT EVENT+10
    PXKNOW NEW+4~
    PXKP NEW+4~
    PXKPCE NEW+2~
    PXKPIEN NEW+3~, SEQUE+1*, BEFORE+14, BEFORE+29, BEFORE+30, BEFORE+32, BEFORE+33
    PXKPTR NEW+4~
    PXKPXD EXIT+2!
    PXKREF NEW+3~, ORDER+1*, CATEG, SEQUE, SEQUE+1, SUBSCR, AFTER+1, AFTER+2, BEFORE+1, BEFORE+2
    , BEFORE+27, MULT+5, MULT+7, MULT+8, MULT+12, MULT+13, MULT+17
    PXKRRT NEW+5~
    PXKRT NEW+5~, BEFORE+14*!, BEFORE+32*, BEFORE+33*
    PXKRTN NEW+3~, CATEG+2*, CATEG+3
    PXKSEQ NEW+1~, SEQUE*, SEQUE+1, SUBSCR, AFTER+1, AFTER+2, BEFORE+1, BEFORE+2, BEFORE+9, BEFORE+10
    , BEFORE+23, BEFORE+27, MULT+5, MULT+7, MULT+8, MULT+12, MULT+13, MULT+17
    PXKSOR NEW+1~, SOURCE*, SOURCE+1, SOURCE+2, BEFORE+12, BEFORE+18
    PXKSORR NEW+3~, BEFORE+12*, BEFORE+18*
    PXKSUB NEW+3~, SUBSCR*, AFTER+1, AFTER+2, BEFORE+1, BEFORE+2, BEFORE+3, BEFORE+4, BEFORE+5, BEFORE+7
    , MULT+5, MULT+7, MULT+8, MULT+9, MULT+10, MULT+12, MULT+13, MULT+14, MULT+15, MULT+17
    , MULT+18, MULT+19
    PXKSUBIEN MULT+2~, MULT+4*, MULT+5*, MULT+7, MULT+8, MULT+9, MULT+10, MULT+12, MULT+13, MULT+14
    , MULT+15
    PXKVCAT NEW+3~, CATEG*, CATEG+1*
    PXKVRTN NEW+5~
    PXKVST NEW+1~, VISIT*, BEFORE+18, EXIT+1
    >> PXKVVST EVENT+7*, EVENT+8
    TMPPX NEW+5~, SET+4*, EXIT+2!
    VISITIEN EN1+14~, EN1+17, EN1+19, VST~, VST+1*, VST+6*, VST+7
    >> VSIT("IEN" VISIT*, EXIT+3!
    >> X CATEG+3*

    Marked Items

    Name Field # of Occurrence
    $T(GLOBAL^@PXKRTN BEFORE+14, BEFORE+32, BEFORE+33
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items  | All