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

Package: Patient Care Component

Routine: APCDFPPV


Information

APCDFPPV ; IHS/CMI/LAB - PRINT UNCODED DX ;

Source Information

Source file <APCDFPPV.m>

Call Graph

Call Graph Total: 11

Package Total Call Graph
VA Fileman 4 ^%DT  ^DIC  EN^DIQ  ^DIR  
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  
DRG Grouper 1 ($$ICDDX,$$ICDOP)^ICDEX  
IHS Patient 1 ^AUPNPAT  
IHS VA Utilities 1 ($$VAL,$$VALI)^XBDIQ1  
Patient Care Component Reports 1 ($$LOCENC,$$PRIMPROV)^APCLV  

Entry Points

Name Comments DBIA/ICR reference
OPER(V) ;
LOC ;
CHKDATE ;
GETCODE ;
TSKMN ;
DOC ;
; need to change to go thru PT node of ICD9 and
; fix all files in the 9000001-9000099 range.
CHKPRV ;
DATE ;
FILE ;WHICH FILE?
PRINT ;
NONE ;
PRT ;
HEAD ;
EN ; Entry point if for taskman.
ZIS ;
O ;one community
S ;all communities within APCDSU su
XIT
CHKLOC ;
SUBHEAD ;
HEAD1 ;
PROV ;
PROC ;

External References

Name Field # of Occurrence
^%DT EN+1
^%ZIS ZIS+11
^%ZISC XIT+4
^%ZTLOAD TSKMN+3
$$LOCENC^APCLV PRINT+17
$$PRIMPROV^APCLV CHKPRV+4, PRINT+18
^AUPNPAT PRINT+10
^DIC PROV+7, O+1, S+1
EN^DIQ PRINT+15
^DIR LOC+3, DATE+5, DATE+8, PROV+3, FILE+3, HEAD+2
$$ICDDX^ICDEX ZIS+1, ZIS+3, GETCODE+2, GETCODE+3
$$ICDOP^ICDEX ZIS+5, ZIS+6, GETCODE+9, GETCODE+10
$$VAL^XBDIQ1 S+1, PRINT+19, PRINT+20, PRINT+21
$$VALI^XBDIQ1 CHKLOC+5, CHKLOC+10, PRINT+8, PRINT+9

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"The search for Uncoded "_$P(^DIC(APCDFILE,0),U),"'s can begin at any date",!,"that you specify. To get all of the uncoded entries enter a really early "
  • Line Location: DATE+2
Function Call: WRITE
  • Prompt: !,"date like 01/01/1930. If you want to only review data for visits ",!,"in the past week, enter T-7.",!
  • Line Location: DATE+3
Function Call: WRITE
  • Prompt: !,"Ending date cannot be before beginning date."
  • Line Location: DATE+11
Function Call: WRITE
  • Prompt: !!,"ERROR -- .9999 NOT IN ICD DIAGNOSIS FILE, NOTIFY YOUR SUPERVISOR"
  • Line Location: ZIS+2
Function Call: WRITE
  • Prompt: !!,"ERROR -- ZZZ.999 NOT IN ICD DIAGNOSIS FILE, NOTIFY YOUR SUPERVISOR"
  • Line Location: ZIS+4
Function Call: WRITE
  • Prompt: !!,"ERROR -- .9999 NOT IN ICD OPERATION FILE, NOTIFY YOUR SUPERVISOR"
  • Line Location: ZIS+7
Function Call: WRITE
  • Prompt: !!,"ERROR -- ZZZ999 NOT IN ICD OPERATON FILE, NOTIFY YOUR SUPERVISOR"
  • Line Location: ZIS+8
Function Call: WRITE
  • Prompt: !!,"Enter the Device for printing"
  • Line Location: ZIS+10
Function Call: WRITE
  • Prompt: !,"ERROR IN GLOBAL -- NOTIFY PROGRAMMER - PATIENT OR VISIT DFN MISSING"
  • Line Location: CHKLOC+8
Function Call: WRITE
  • Prompt: !,"ERROR IN GLOBAL -- NOTIFY PROGRAMMER - PATIENT OR VISIT DFN MISSING"
  • Line Location: CHKPRV+3
Function Call: WRITE
  • Prompt: !!,"There are no Uncoded entries."
  • Line Location: PRINT+1
Function Call: WRITE
  • Prompt: ?2,"OPERATOR FROM FORMS TRACKING OR CREATED BY: "
  • Line Location: PRINT+16
Function Call: WRITE
  • Prompt: $P(^VA(200,APCDVCTR,0),U)
  • Line Location: PRINT+16
Function Call: WRITE
  • Prompt: $P(^VA(200,APCDVCTR,0),U)
  • Line Location: PRINT+16
Function Call: WRITE
  • Prompt: ?2,"LOCATION OF ENCOUNTER: ",$$LOCENC^APCLV(APCDVSIT,"E")
  • Line Location: PRINT+17
Function Call: WRITE
  • Prompt: !?2,"PROVIDER: ",$$PRIMPROV^APCLV(APCDVSIT,"N")
  • Line Location: PRINT+18
Function Call: WRITE
  • Prompt: ?2,"RECORDING PROVIDER: ",$$VAL^XBDIQ1(9000011,APCDDFN,1.04),!
  • Line Location: PRINT+19
Function Call: WRITE
  • Prompt: ?2,"ENTERED BY: ",$$VAL^XBDIQ1(9000011,APCDDFN,1.03),!
  • Line Location: PRINT+20
Function Call: WRITE
  • Prompt: !?2,"RESPONSIBLE PROVIDER: ",$$VAL^XBDIQ1(9000011,APCDDFN,1.05)
  • Line Location: PRINT+21
Function Call: WRITE
  • Prompt: !!,"There are no Uncoded diagnoses or procedures in the ",$P(^DIC(APCDFILE,0),U)," file."
  • Line Location: NONE+1
Function Call: WRITE
  • Prompt: !,"ERROR IN GLOBAL -- NOTIFY PROGRAMMER - PATIENT OR VISIT DFN MISSING"
  • Line Location: CHKDATE+2
Function Call: WRITE
  • Prompt: !
  • Line Location: HEAD+2
Function Call: WRITE
  • Prompt: !,APCDDT,?70,"Page: ",APCDPG
  • Line Location: HEAD1+3
Function Call: WRITE
  • Prompt: !?29,"PCC Data Entry Module"
  • Line Location: HEAD1+4
Function Call: WRITE
  • Prompt: !?16,"***********************************************"
  • Line Location: HEAD1+5
Function Call: WRITE
  • Prompt: !?16,"* LISTING OF UNCODED DIAGNOSES AND PROCEDURES *"
  • Line Location: HEAD1+6
Function Call: WRITE
  • Prompt: !?16,"***********************************************"
  • Line Location: HEAD1+7
Function Call: WRITE
  • Prompt: !!,"Uncoded ",$P(^DIC(APCDFILE,0),U)," entries:"
  • Line Location: SUBHEAD+1
Routine Call
  • DIC
  • Line Location:
    • PROV+7
    • O+1
    • S+1
Routine Call
  • DIR
  • Line Location:
    • LOC+3
    • DATE+5
    • DATE+8
    • PROV+3
    • FILE+3
    • HEAD+2
Routine Call
  • %ZIS
  • Line Location:
    • ZIS+11

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] Classic Fileman Calls
^AUTTLOC - [#9999999.06] Classic Fileman Calls
^AUTTSU - [#9999999.22] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^APCDFORM - [#9001001.5] OPER+6
^APCDFORM("AB" OPER+4, OPER+5
^AUPNPAT - [#9000001] PRINT+12
^AUPNPROB - [#9000011] CHKLOC+3, CHKLOC+5, PRT+2, PRT+3, PRINT+19, PRINT+20, PRINT+21
^AUPNVSIT - [#9000010] CHKLOC+9, CHKLOC+10, OPER+4, OPER+5, OPER+7, CHKDATE+3
^DD("DD" EN+1, PRINT+11
^DIC - [#1] DATE+2, PROC+3, PRINT+6, PRINT+15, NONE+1, SUBHEAD+1
^TMP($J EN+4!, XIT+3!, PRT+4*, PRINT+1, PRINT+3, PRINT+7
^VA(200 - [#200] PRINT+16

Label References

Name Line Occurrences
$$OPER PRINT+16
@( LOC+7
CHKDATE PRT+1
CHKLOC PROC+6, PROC+9
CHKPRV PROC+6, PROC+9
DATE LOC+6, DATE+11
FILE PROV+6
HEAD PRINT+1, PRINT+4, PRINT+13
HEAD1 HEAD+1
LOC LOC+8, DATE+6, DATE+9
PRINT GETCODE+12
PROC GETCODE+4, GETCODE+5, GETCODE+6, GETCODE+7, GETCODE+8, GETCODE+11
PROV PROV+7, PROV+8, FILE+4
PRT PROC+6, PROC+9
TSKMN ZIS+13
XIT LOC+4, PROV+4, ZIS+2, ZIS+4, ZIS+7, ZIS+8, ZIS+12, PRINT+1, TSKMN+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT EN+1*
>> %ZIS ZIS+11*
A XIT+2!
APCDCODE ZIS+1*, ZIS+2, ZIS+5*, ZIS+7, GETCODE+2*, GETCODE+9*, XIT!
>> APCDCODO ZIS+3*, ZIS+4, ZIS+6*, ZIS+8, GETCODE+3*, GETCODE+10*
APCDDFN XIT!, CHKLOC+3, CHKLOC+5, PROC+2*, PROC+6*, PROC+9*, PRT+2, PRT+3, PRT+4, PRINT+7*
, PRINT+8, PRINT+9, PRINT+15, PRINT+19, PRINT+20, PRINT+21
APCDDOB XIT!, PRINT+11*, PRINT+14
APCDDT EN+1*, XIT!, HEAD1+3
APCDF XIT!
APCDFILE DATE+1*, DATE+2, EN+3*, GETCODE+4*, GETCODE+5*, GETCODE+6*, GETCODE+7*, GETCODE+8*, GETCODE+11*, XIT!
, CHKLOC+2, CHKLOC+3, CHKPRV+1, PROC+3, PRT+2, PRT+3, PRT+4, PRINT+3*, PRINT+6, PRINT+7
, PRINT+8, PRINT+9, PRINT+15, PRINT+16, PRINT+17, PRINT+18, PRINT+19, PRINT+20, PRINT+21, NONE+1
, CHKDATE+3, CHKDATE+4, SUBHEAD+1
APCDFPPV XIT+1!
APCDFUDT DATE+4*, DATE+7*, DATE+11, XIT+1!, CHKDATE+3, CHKDATE+4
APCDFUET DATE+10*, DATE+11, XIT+1!, CHKDATE+3
APCDG XIT!, CHKLOC+8*, CHKPRV+3*, PROC+4*, PROC+7*, CHKDATE+2*, CHKDATE+4
APCDHRN XIT!, PRINT+12*, PRINT+14
APCDL XIT!
APCDLOCT LOC+1!*, LOC+5*, LOC+6, LOC+7, XIT+1!, CHKLOC+4, CHKLOC+5, CHKLOC+9, CHKLOC+10
APCDLOCT("ONE" CHKLOC+4, CHKLOC+9, O+3*
APCDLOCT("SU" CHKLOC+5, CHKLOC+10, S+3*
APCDOK XIT+1!, CHKLOC+2*, CHKLOC+4*, CHKLOC+5*, CHKLOC+6*, CHKLOC+7*, CHKLOC+11*, CHKPRV+1*, CHKPRV+2*, CHKPRV+5*
, PROC+6*, PROC+9*, PRT+1, CHKDATE+1*, CHKDATE+5*
APCDPG EN+3*, XIT!, HEAD+1, HEAD1+2*, HEAD1+3
APCDPRVT PROV+1!*, PROV+5*, PROV+6, XIT+1!, CHKPRV+4
APCDPRVT("ONE" PROV+9*, CHKPRV+4
APCDQUIT LOC+8, GETCODE+5, GETCODE+6, GETCODE+7, GETCODE+8, GETCODE+11, XIT!, O+2*, S+2*, PROC+1!
, PROC+6, PROC+9, PRINT+3, PRINT+5, PRINT+7, PRINT+13, HEAD+2*
APCDVCTR XIT!, PRINT+16*
APCDVDG XIT!, CHKLOC+8, CHKPRV+3, PROC+3*, PROC+4, PROC+5, PROC+7, PROC+8, CHKDATE+2
APCDVIGR XIT!, PROC+5*, PROC+6, PROC+8*, PROC+9
APCDVSIT XIT+1!, CHKLOC+1*, CHKLOC+8*, CHKLOC+9, CHKLOC+10, CHKPRV+1*, CHKPRV+3*, CHKPRV+4, PRINT+9*, PRINT+16
, PRINT+17, PRINT+18, CHKDATE+2*, CHKDATE+3
>> APCDWFIL FILE+1*, FILE+5*, GETCODE+4, GETCODE+5, GETCODE+6, GETCODE+7, GETCODE+8, GETCODE+11
AUPNDAYS XIT+1!
AUPNDOB XIT+1!, PRINT+11
AUPNDOD XIT+1!
AUPNPAT XIT+1!, PRINT+12
AUPNSEX XIT+1!, PRINT+14
D OPER+3~, OPER+4*, OPER+5, OPER+6
D0 XIT+2!
D1 XIT+2!
D2 XIT+2!
DA LOC+3!, DATE+5!, DATE+8!, PROV+3!, PROV+7!, FILE+3!, XIT+2!, PRINT+15*!
DIC PROV+7!*, XIT+2!, O+1*!, S+1*!, PRINT+15*!
DIC("A" PROV+7*, O+1*, S+1*
DIC("B" S+1*
DIC(0 PROV+7*, O+1*, S+1*
DIE XIT+2!
DIQ XIT+2!
DIR LOC+3!, DATE+5!, DATE+8!, PROV+3!, FILE+3!, HEAD+2!
DIR("A" LOC+2*, LOC+3*, DATE+5*, DATE+8*, PROV+2*, PROV+3*, FILE+3*
DIR("B" LOC+2*, LOC+3*, PROV+2*, PROV+3*, FILE+3*
DIR(0 LOC+2*, DATE+5*, DATE+8*, PROV+2*, FILE+2*, HEAD+2*
>> DIRUT LOC+4, DATE+6, DATE+9, PROV+4, FILE+4
DK XIT+2!
DL XIT+2!
DR XIT+2!, PRINT+15*!
>> DTOUT HEAD+2
DUZ(2 S+1, PRINT+12
DX XIT+2!
IO EN+2, HEAD+2
IO("Q" ZIS+9!, ZIS+12!, ZIS+13, XIT!
IO(0 HEAD+2
>> IOCPU TSKMN+3
IOF HEAD1+2
ION TSKMN+3
IOSL PRINT+13
IOST HEAD+2
M OPER+3~, OPER+5*, OPER+6
POP ZIS+12, XIT+2!
S XIT+2!
U DATE+2, ZIS+1, ZIS+3, ZIS+5, ZIS+6, GETCODE+2, GETCODE+3, GETCODE+9, GETCODE+10, CHKLOC+3
, CHKLOC+5, CHKLOC+8, CHKLOC+9, CHKLOC+10, CHKPRV+3, PRT+2, PRT+3, PRINT+6, PRINT+12, PRINT+16
, PRINT+19, PRINT+20, PRINT+21, OPER+4, OPER+5, OPER+6, OPER+7, NONE+1, CHKDATE+2, CHKDATE+3
, CHKDATE+4, SUBHEAD+1
V OPER~, OPER+1, OPER+4, OPER+5, OPER+7
X PROV+7, EN+1*, XIT+2!
Y LOC+5, DATE+7, DATE+10, PROV+5, PROV+8, PROV+9, FILE+5, EN+1, XIT+2!, CHKLOC+3*
, CHKLOC+4, CHKLOC+8*, CHKPRV+3*, O+2, O+3, S+2, S+3, PRINT+8*, PRINT+11*, OPER+3~*
, OPER+6*, OPER+7, CHKDATE+2*, HEAD+2
>> ZTCPU TSKMN+3*
>> ZTDESC TSKMN+3*
>> ZTDTH TSKMN+3*
>> ZTIO TSKMN+3*
>> ZTQUEUED GETCODE+13
>> ZTREQ GETCODE+13*
>> ZTRTN TSKMN+3*
ZTSAVE TSKMN+1!
ZTSAVE("APCD*" TSKMN+2*
ZTSAVE("DUZ(2)" TSKMN+3*
ZTSK XIT!
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