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 |  All
Print Page as PDF
Routine: PXPT

Package: PCE Patient Care Encounter

Routine: PXPT


Information

PXPT ;ISL/MKB,DLT,dee - Patient/IHS maintenance routine ;8/10/96

Source Information

Source file <PXPT.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
Kernel 2 ^%ZTLOAD  BMES^XPDUTL  
VA Fileman 2 FILE^DICN  ^DIR  
Registration 1 $$SITE^VASITE  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
PCE Patient Care Encounter 1 PXPTPOST  

Entry Points

Name Comments DBIA/ICR reference
Q1
LOC ;POPULATE LOCATION FILE
EN ; entry point
GETLOC
QUE ; Queue job to populate IHS Patient File #9000001
MASTER ;Populate the PXPT fields $501 & #502 in PCE PARAMETERS file (#815)

External References

Name Field # of Occurrence
^%ZTLOAD Q1+4
FILE^DICN LOC+4
^DIR QUE+9
$$SITE^VASITE MASTER+6
BMES^XPDUTL LOC+1, MASTER+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7),!!,"Error in setup, run D MASTER^PXPTPOST"
  • Line Location: QUE+3
Function Call: WRITE
  • Prompt: !!,"Populating the Patient/IHS File #9000001 via the following queued job ... "
  • Line Location: Q1+0
Function Call: WRITE
  • Prompt: !!,">> I will queue this job; please specify a start time for it."
  • Line Location: Q1+1
Function Call: WRITE
  • Prompt: $C(7),!!,"You MUST schedule this job at this time!",!,"This is a required task.",!
  • Line Location: Q1+5
Function Call: WRITE
  • Prompt: !,"Task #"_ZTSK
  • Line Location: Q1+6
Routine Call
  • DIR
  • Line Location:
    • QUE+9

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^AUTTLOC - [#9999999.06] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(4 - [#4] LOC+4
^PX(815 - [#815] MASTER+8*, MASTER+10*, QUE+4, GETLOC

Label References

Name Line Occurrences
GETLOC MASTER+5, QUE+3
LOC EN+1
MASTER EN+1
QUE EN+1, Q1+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DD LOC+2!
>> DIC LOC+3*
>> DIC(0 LOC+3*
DINUM LOC+4*, QUE+2~
>> DIR("A" QUE+8*
>> DIR("B" QUE+8*
>> DIR(0 QUE+8*
DO LOC+2!
PXPTINST LOC+4*, LOC+5!
>> PXPTLAST QUE+4*, QUE+5, QUE+6, QUE+10
PXPTLOC MASTER+2~, MASTER+4*, MASTER+5, MASTER+6*, MASTER+8, QUE+2~, QUE+3, Q1+3, GETLOC*
>> X LOC+4*
>> XPDQUES("POS PXPT LOCATION" , MASTER+4
>> Y QUE+6
ZTDESC QUE+1~, Q1+2*
ZTDTH QUE+1~
ZTIO QUE+1~, Q1+2*
ZTRTN QUE+1~, Q1+2*
>> ZTSAVE("PXPTLOC" Q1+3*
ZTSK QUE+1~, Q1+5, Q1+6
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 |  All