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

Package: PCE Patient Care Encounter

Routine: PXQPPUTIL


Information

PXQPPUTIL ;SLS/PKR - Utility for primary provider repair. ;08/14/2020

Source Information

Source file <PXQPPUTIL.m>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
VA FileMan 5 BROWSE^DDBR  $$FIND1^DIC  (FILE,UPDATE)^DIE  $$GET1^DIQ  ^DIR  
Kernel 4 (ENDR,KILL)^%ZISS  $$NOW^XLFDT  $$GET^XUA4A72  KILL^XUSCLEAN  
PCE Patient Care Encounter 2 EN^PXCEAE  REPORT^PXQPPUTILR  

Entry Points

Name Comments DBIA/ICR reference
ASKCONTINUE() ;Ask the user if they want to continue.
DISCLAIMER ;Display the disclaimer.
DISPIMPTEXT(VISITIEN) ;
FINDEXAM(VISITIEN) ;Try to link the Visit to the Radiology Exam.
GETDATE(DEFAULT,PROMPT,MINDATE) ;Ask the user for a date.
OPENENCOUNTER(VISITIEN) ;Open the encounter in List Manger so the primary
PPREPAIR ;Find and repair encounters that do not have a primary provider.
LAB(VISITIEN,NPRIM,PRIMARY,PROVIDERLIST,CONTINUE) ;Handle Lab
RAD(VISITIEN,NPRIM,PRIMARY,PROVIDERLIST,RADPROXY,CONTINUE) ;Handle Radiology
RADPRIM(VISITIEN,PROVIDERLIST,PRIMARY) ;Set a primary provider for
RADPROXYPP(VISITIEN,CONTINUE) ;Radiology encounter has the proxy as the primary
SETONEPRIME(PROVIDERLIST) ;There is only one provider for the encounter

External References

Name Field # of Occurrence
ENDR^%ZISS DISPIMPTEXT+40
KILL^%ZISS DISPIMPTEXT+43
BROWSE^DDBR DISPIMPTEXT+41
$$FIND1^DIC PPREPAIR+6, PPREPAIR+7, PPREPAIR+8, PPREPAIR+9, PPREPAIR+10
FILE^DIE FINDEXAM+28, LAB+18, RADPRIM+14, RADPRIM+23, SETONEPRIME+6
UPDATE^DIE RADPRIM+41, RADPRIM+54
$$GET1^DIQ DISPIMPTEXT+20, DISPIMPTEXT+22, DISPIMPTEXT+31, DISPIMPTEXT+35, FINDEXAM+11, FINDEXAM+22
^DIR ASKCONTINUE+5, GETDATE+6
EN^PXCEAE OPENENCOUNTER+9
REPORT^PXQPPUTILR PPREPAIR+48
$$NOW^XLFDT PPREPAIR+11
$$GET^XUA4A72 RADPRIM+35, RADPRIM+48
KILL^XUSCLEAN PPREPAIR+50

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"=============== NOTE ==============="
  • Line Location: DISCLAIMER+1
Function Call: WRITE
  • Prompt: !,"This utility searches for Lab and Radiology Encounters in the specified"
  • Line Location: DISCLAIMER+2
Function Call: WRITE
  • Prompt: !,"date range. Those that do not have a primary provider will be processed."
  • Line Location: DISCLAIMER+3
Function Call: WRITE
  • Prompt: !,"===================================="
  • Line Location: DISCLAIMER+4
Function Call: WRITE
  • Prompt: !
  • Line Location: DISCLAIMER+5
Function Call: WRITE
  • Prompt: !,"No Radiology exam can be found for Visit IEN ",VISITIEN,"."
  • Line Location: DISPIMPTEXT+6
Function Call: WRITE
  • Prompt: !,"Therefore, no Impresion Text can be displayed."
  • Line Location: DISPIMPTEXT+7
Function Call: WRITE
  • Prompt: !,"No Radiology Reports were found for this encounter, cannot display the Impression Text."
  • Line Location: DISPIMPTEXT+24
Function Call: WRITE
  • Prompt: IORESET
  • Line Location: DISPIMPTEXT+42
Function Call: WRITE
  • Prompt: !,"Set the date range for searching for encounters."
  • Line Location: PPREPAIR+13
Routine Call
  • DIC
  • Line Location:
    • PPREPAIR+6
    • PPREPAIR+7
    • PPREPAIR+8
    • PPREPAIR+9
    • PPREPAIR+10
Routine Call
  • DIE
  • Line Location:
    • FINDEXAM+28
    • LAB+18
    • RADPRIM+14
    • RADPRIM+23
    • SETONEPRIME+6
Routine Call
  • DIE
  • Line Location:
    • RADPRIM+41
    • RADPRIM+54
Routine Call
  • DIR
  • Line Location:
    • ASKCONTINUE+5
    • GETDATE+6

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] FIND1^DIC
70.02 GET1^DIQ
70.03 GET1^DIQ
^RARPT - [#74] GET1^DIQ
^PX(839.7 - [#839.7] FIND1^DIC
^DIC(9.4 - [#9.4] FIND1^DIC

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNVCPT - [#9000010.18] DISPIMPTEXT+12, FINDEXAM+16, LAB+7, RADPRIM+6, RADPRIM+7, RADPRIM+24, RADPRIM+32, RADPRIM+33, RADPRIM+37, RADPRIM+38
, RADPRIM+39, RADPRIM+40, RADPRIM+45, RADPRIM+46, RADPRIM+50, RADPRIM+51, RADPRIM+52, RADPRIM+53
^AUPNVCPT("AD" DISPIMPTEXT+11, FINDEXAM+15, LAB+6, RADPRIM+4
^AUPNVPRV - [#9000010.06] PPREPAIR+35
^AUPNVPRV("AD" PPREPAIR+33
^AUPNVSIT - [#9000010] DISPIMPTEXT+14, FINDEXAM+3, OPENENCOUNTER+4, PPREPAIR+26, PPREPAIR+40, RADPRIM+25
^AUPNVSIT("B" PPREPAIR+23, PPREPAIR+25
^RADPT - [#70] FINDEXAM+20
^RADPT("AR" FINDEXAM+7
^RADPT("AVSIT" DISPIMPTEXT+4, DISPIMPTEXT+15, DISPIMPTEXT+18, RAD+6
^TMP("PXQPPR" DISPIMPTEXT+5*, FINDEXAM+29*, PPREPAIR+4!, PPREPAIR+11*, PPREPAIR+19*, PPREPAIR+20*, PPREPAIR+51!, LAB+20*, LAB+25*, RADPRIM+16*
, RADPROXYPP+7*, SETONEPRIME+8*

Label References

Name Line Occurrences
$$ASKCONTINUE LAB+27, RADPROXYPP+9
$$GETDATE PPREPAIR+14, PPREPAIR+16
DISCLAIMER PPREPAIR+12
DISPIMPTEXT RADPROXYPP+4
FINDEXAM RAD+6
LAB PPREPAIR+44
OPENENCOUNTER LAB+24, RADPROXYPP+6
RAD PPREPAIR+46
RADPRIM RAD+4
RADPROXYPP RAD+9

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
CASENUM DISPIMPTEXT+1~, DISPIMPTEXT+31*, DISPIMPTEXT+32
CONTINUE PPREPAIR+1~, PPREPAIR+22*, PPREPAIR+23, PPREPAIR+44, PPREPAIR+46, LAB~, LAB+27*, RAD~, RAD+9, RADPROXYPP~
, RADPROXYPP+9*
CPT DISPIMPTEXT+1~, DISPIMPTEXT+12*, DISPIMPTEXT+13, FINDEXAM+1~, FINDEXAM+16*, FINDEXAM+17
CPTLIST DISPIMPTEXT+1~, FINDEXAM+1~
CPTLIST( DISPIMPTEXT+13*, DISPIMPTEXT+21, FINDEXAM+17*, FINDEXAM+24
DATASOURCE PPREPAIR+1~, PPREPAIR+42*, PPREPAIR+43, PPREPAIR+45
DEFAULT GETDATE~, GETDATE+5
DFN DISPIMPTEXT+1~, DISPIMPTEXT+14*, DISPIMPTEXT+15, DISPIMPTEXT+16, DISPIMPTEXT+18, FINDEXAM+1~, FINDEXAM+5*, FINDEXAM+7, FINDEXAM+10, FINDEXAM+20
DIR ASKCONTINUE+1~, GETDATE+1~
DIR("A" ASKCONTINUE+3*, GETDATE+4*
DIR("B" ASKCONTINUE+4*, GETDATE+5*
DIR(0 ASKCONTINUE+2*, GETDATE+2*, GETDATE+3*
DIRUT ASKCONTINUE+1~, ASKCONTINUE+6, GETDATE+1~, GETDATE+7
ENCDT RADPRIM+2~, RADPRIM+24*, RADPRIM+25*, RADPRIM+35, RADPRIM+48
ENCPROV LAB+3~, LAB+10*, LAB+12, RADPRIM+2~, RADPRIM+6*, RADPRIM+10, RADPRIM+11, RADPRIM+12, RADPRIM+16, RADPRIM+27
, RADPRIM+31, RADPRIM+35, RADPRIM+55
>> ENCPROVLIST( LAB+12*
ENDDATE PPREPAIR+1~, PPREPAIR+16*, PPREPAIR+17, PPREPAIR+18*, PPREPAIR+20, PPREPAIR+23
>> FAILED LAB+19, RADPRIM+15
FDA FINDEXAM+1~, FINDEXAM+25!, LAB+3~, RADPRIM+2~, RADPRIM+21!, RADPRIM+28!, RADPRIM+43!, SETONEPRIME+2~
FDA( FINDEXAM+27*, LAB+17*, RADPRIM+13*, RADPRIM+22*, RADPRIM+31*, RADPRIM+32*, RADPRIM+33*, RADPRIM+34*, RADPRIM+36*, RADPRIM+37*
, RADPRIM+38*, RADPRIM+39*, RADPRIM+40*, RADPRIM+44*, RADPRIM+45*, RADPRIM+46*, RADPRIM+47*, RADPRIM+49*, RADPRIM+50*, RADPRIM+51*
, RADPRIM+52*, RADPRIM+53*, SETONEPRIME+5*
HLOC FINDEXAM+1~, FINDEXAM+8*, FINDEXAM+12
IENS DISPIMPTEXT+1~, DISPIMPTEXT+19*, DISPIMPTEXT+20, DISPIMPTEXT+22, DISPIMPTEXT+29*, DISPIMPTEXT+31, DISPIMPTEXT+35, FINDEXAM+1~, FINDEXAM+21*, FINDEXAM+22
, FINDEXAM+27, FINDEXAM+29, LAB+3~, LAB+16*, LAB+17, RADPRIM+2~, RADPRIM+12*, RADPRIM+13, RADPRIM+20*, RADPRIM+22
, SETONEPRIME+2~, SETONEPRIME+4*, SETONEPRIME+5, SETONEPRIME+8
IENT DISPIMPTEXT+1~, DISPIMPTEXT+16*, DISPIMPTEXT+19, FINDEXAM+1~, FINDEXAM+10*, FINDEXAM+11, FINDEXAM+21
IMLOC FINDEXAM+1~, FINDEXAM+11*, FINDEXAM+12
IMPTEXT DISPIMPTEXT+1~, DISPIMPTEXT+28!
IMPTEXT( DISPIMPTEXT+38
IND DISPIMPTEXT+1~, DISPIMPTEXT+17*, DISPIMPTEXT+18*, DISPIMPTEXT+19, DISPIMPTEXT+20, DISPIMPTEXT+21, DISPIMPTEXT+22, DISPIMPTEXT+26*, DISPIMPTEXT+27*, DISPIMPTEXT+29
, DISPIMPTEXT+33, FINDEXAM+1~, FINDEXAM+19*, FINDEXAM+20*, FINDEXAM+21
INVDT DISPIMPTEXT+1~, DISPIMPTEXT+15*, DISPIMPTEXT+16, DISPIMPTEXT+18, FINDEXAM+1~, FINDEXAM+9*, FINDEXAM+10, FINDEXAM+20
>> IORESET DISPIMPTEXT+42
JND DISPIMPTEXT+1~, DISPIMPTEXT+37*, DISPIMPTEXT+38*
LABDS PPREPAIR+1~, PPREPAIR+7*, PPREPAIR+43
LABPKG PPREPAIR+1~, PPREPAIR+6*, PPREPAIR+43
MINDATE GETDATE~, GETDATE+3
MSG DISPIMPTEXT+1~, FINDEXAM+1~, FINDEXAM+29, LAB+3~, LAB+19, RADPRIM+2~, RADPRIM+15, RADPRIM+21!, RADPRIM+28!, RADPRIM+43!
, SETONEPRIME+2~, SETONEPRIME+7
NENCPROV LAB+3~, LAB+4*, LAB+12*
NL DISPIMPTEXT+1~, DISPIMPTEXT+26*, DISPIMPTEXT+30*, DISPIMPTEXT+32*, DISPIMPTEXT+33*, DISPIMPTEXT+34*, DISPIMPTEXT+38*
NORDPROV LAB+3~, LAB+4*, LAB+11*, LAB+14, LAB+23
NPRIM PPREPAIR+1~, PPREPAIR+29*, PPREPAIR+39*, PPREPAIR+44, PPREPAIR+46, LAB~, LAB+2, RAD~, RAD+4
NPROV PPREPAIR+1~, PPREPAIR+32*, PPREPAIR+34*
ORDPROV LAB+3~, LAB+9*, LAB+11, LAB+15*, LAB+16, LAB+20, RADPRIM+2~, RADPRIM+7*, RADPRIM+18, RADPRIM+19
, RADPRIM+20, RADPRIM+42, RADPRIM+44, RADPRIM+48
>> ORDPROVLIST( LAB+11*
>> ORDPROVLIST("" LAB+15
PACKAGE PPREPAIR+2~, PPREPAIR+41*, PPREPAIR+43, PPREPAIR+45
PERSONCLASS RADPRIM+2~, RADPRIM+35*, RADPRIM+36, RADPRIM+48*, RADPRIM+49
PORS PPREPAIR+2~, PPREPAIR+37*, PPREPAIR+38, PPREPAIR+39
PRIMARY PPREPAIR+2~, PPREPAIR+39*, PPREPAIR+44, PPREPAIR+46, LAB~, RAD~, RAD+4, RAD+9, RADPRIM~, RADPRIM+55*
PROMPT GETDATE~, GETDATE+4
PROVIDER PPREPAIR+2~, PPREPAIR+36*, PPREPAIR+38, PPREPAIR+39, SETONEPRIME+2~, SETONEPRIME+3*, SETONEPRIME+4, SETONEPRIME+8
PROVIDERLIST PPREPAIR+2~, PPREPAIR+31!, PPREPAIR+44, PPREPAIR+46, LAB~, RAD~, RAD+4, RADPRIM~, SETONEPRIME~
PROVIDERLIST( PPREPAIR+38*, LAB+16, RADPRIM+10, RADPRIM+11, RADPRIM+12, RADPRIM+18, RADPRIM+19, RADPRIM+20, RADPRIM+27, RADPRIM+42
, SETONEPRIME+4
PROVIDERLIST("" SETONEPRIME+3
PXCEEXIT OPENENCOUNTER+2~
PXCEKEYS OPENENCOUNTER+2~, OPENENCOUNTER+6*
PXCEPKG OPENENCOUNTER+2~, OPENENCOUNTER+5*
PXCESOR OPENENCOUNTER+2~, OPENENCOUNTER+5*
PXCEVIEN OPENENCOUNTER+2~, OPENENCOUNTER+7*
PXCEVIEW OPENENCOUNTER+2~, OPENENCOUNTER+8*
RADCPT DISPIMPTEXT+2~, FINDEXAM+1~, FINDEXAM+22*, FINDEXAM+23, FINDEXAM+24
RADCPT( DISPIMPTEXT+20*, DISPIMPTEXT+21, DISPIMPTEXT+33
RADDS PPREPAIR+2~, PPREPAIR+9*, PPREPAIR+45
RADPKG PPREPAIR+2~, PPREPAIR+8*, PPREPAIR+45
RADPROXY PPREPAIR+2~, PPREPAIR+10*, PPREPAIR+46, RAD~, RAD+9
REPORT DISPIMPTEXT+2~, DISPIMPTEXT+23
REPORT( DISPIMPTEXT+22*, DISPIMPTEXT+27, DISPIMPTEXT+29
RESULT DISPIMPTEXT+2~, DISPIMPTEXT+35*, DISPIMPTEXT+36, LAB+3~, LAB+19*, LAB+20, RADPRIM+2~, RADPRIM+15*, RADPRIM+16, SETONEPRIME+2~
, SETONEPRIME+7*, SETONEPRIME+8
SC PPREPAIR+3~, PPREPAIR+26*, PPREPAIR+28
SPE OPENENCOUNTER+3~
STARTDATE PPREPAIR+3~, PPREPAIR+14*, PPREPAIR+15, PPREPAIR+16, PPREPAIR+19, PPREPAIR+21
TEMP FINDEXAM+2~, FINDEXAM+3*, FINDEXAM+4, FINDEXAM+5, FINDEXAM+8, OPENENCOUNTER+3~, OPENENCOUNTER+4*, OPENENCOUNTER+5, PPREPAIR+3~, PPREPAIR+35*
PPREPAIR+36, PPREPAIR+37, PPREPAIR+40*, PPREPAIR+41, PPREPAIR+42, LAB+3~, LAB+7*, LAB+8, LAB+9, LAB+10
TEXT DISPIMPTEXT+2~
TEXT( DISPIMPTEXT+30*, DISPIMPTEXT+32*, DISPIMPTEXT+33*, DISPIMPTEXT+34*, DISPIMPTEXT+38*
U DISPIMPTEXT+12, DISPIMPTEXT+14, FINDEXAM+4, FINDEXAM+5, FINDEXAM+8, FINDEXAM+16, GETDATE+3, OPENENCOUNTER+5, PPREPAIR+26, PPREPAIR+36
PPREPAIR+37, PPREPAIR+38, PPREPAIR+41, PPREPAIR+42, LAB+9, LAB+10, LAB+16, RADPRIM+6, RADPRIM+7, RADPRIM+11
, RADPRIM+12, RADPRIM+19, RADPRIM+20, RADPRIM+24, RADPRIM+25, RADPRIM+32, RADPRIM+33, RADPRIM+35, RADPRIM+37, RADPRIM+39
, RADPRIM+40, RADPRIM+45, RADPRIM+46, RADPRIM+48, RADPRIM+50, RADPRIM+52, RADPRIM+53, SETONEPRIME+4
VCPTIEN DISPIMPTEXT+2~, DISPIMPTEXT+10*, DISPIMPTEXT+11*, DISPIMPTEXT+12, FINDEXAM+2~, FINDEXAM+14*, FINDEXAM+15*, FINDEXAM+16, LAB+3~, LAB+5*
, LAB+6*, LAB+7, RADPRIM+2~, RADPRIM+4*, RADPRIM+5, RADPRIM+6, RADPRIM+7, RADPRIM+24, RADPRIM+32, RADPRIM+33
, RADPRIM+37, RADPRIM+38, RADPRIM+39, RADPRIM+40, RADPRIM+45, RADPRIM+46, RADPRIM+50, RADPRIM+51, RADPRIM+52, RADPRIM+53
VISITDT FINDEXAM+2~, FINDEXAM+4*, FINDEXAM+7, FINDEXAM+9, PPREPAIR+3~, PPREPAIR+21*, PPREPAIR+23*, PPREPAIR+25
VISITIEN DISPIMPTEXT~, DISPIMPTEXT+4, DISPIMPTEXT+5, DISPIMPTEXT+6, DISPIMPTEXT+11, DISPIMPTEXT+14, DISPIMPTEXT+15, DISPIMPTEXT+18, FINDEXAM~, FINDEXAM+3
, FINDEXAM+15, FINDEXAM+27, FINDEXAM+29, OPENENCOUNTER~, OPENENCOUNTER+4, OPENENCOUNTER+7, PPREPAIR+3~, PPREPAIR+24*, PPREPAIR+25*, PPREPAIR+26
PPREPAIR+33, PPREPAIR+40, PPREPAIR+44, PPREPAIR+46, LAB~, LAB+6, LAB+20, LAB+24, LAB+25, RAD~
, RAD+4, RAD+6, RAD+9, RADPRIM~, RADPRIM+4, RADPRIM+16, RADPRIM+25, RADPROXYPP~, RADPROXYPP+4, RADPROXYPP+6
, RADPROXYPP+7
VPRVIEN PPREPAIR+3~, PPREPAIR+32*, PPREPAIR+33*, PPREPAIR+35, PPREPAIR+38
X ASKCONTINUE+1~, DISPIMPTEXT+2~, DISPIMPTEXT+39*, GETDATE+1~
Y ASKCONTINUE+1~, ASKCONTINUE+7, GETDATE+1~, GETDATE+7*, GETDATE+8
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All