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 |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: APCLAP9P

Package: Patient Care Component Reports

Routine: APCLAP9P


Information

APCLAP9P ; IHS/CMI/LAB - print apc report ;

Source Information

Source file <APCLAP9P.m>

Call Graph

Call Graph Total: 3

Package Total Call Graph
Kernel 1 $$FMTE^XLFDT  
Patient Care Component Reports 1 DONE^APCLOSUT  
VA Fileman 1 ^DIR  

Entry Points

Name Comments DBIA/ICR reference
HEAD
HEAD1 ;
START ;
DONE ;
PRINT ;
EXCL ;
TYPE ;

External References

Name Field # of Occurrence
DONE^APCLOSUT DONE+1
^DIR HEAD+1
$$FMTE^XLFDT PRINT+2, HEAD1+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"FACILITY: ",$P(^DIC(4,APCLLOC,0),U)," - ",$P(^AUTTLOC(APCLLOC,0),U,10)
  • Line Location: PRINT+1
Function Call: WRITE
  • Prompt: !,"VISIT DATE RANGE: ",$$FMTE^XLFDT(APCLBD)," - ",$$FMTE^XLFDT(APCLED)
  • Line Location: PRINT+2
Function Call: WRITE
  • Prompt: !!,"Total Visits Processed in PCC: ",APCLGRAN
  • Line Location: PRINT+3
Function Call: WRITE
  • Prompt: !!,?45,"as of the Date the report was run:",!,?45,"# complete",?60,"# incomplete",!?45,"----------",?60,"------------",!
  • Line Location: PRINT+4
Function Call: WRITE
  • Prompt: "TYPE: "
  • Condition for execution: C=1
  • Line Location: TYPE+3
Function Call: WRITE
  • Prompt: ?19,APCLX,?45,$J($P(^XTMP("APCLAP9",APCLJOB,APCLBT,"TYPE",APCLX),U),6),?60,$J($P(^XTMP("APCLAP9",APCLJOB,APCLBT,"TYPE",APCLX),U,2),6)
  • Line Location: TYPE+3
Function Call: WRITE
  • Prompt: !!
  • Line Location: TYPE+4
Function Call: WRITE
  • Prompt: "SERVICE CATEGORY: "
  • Condition for execution: C=1
  • Line Location: TYPE+6
Function Call: WRITE
  • Prompt: ?19,$E(APCLX,1,24),?45,$J($P(^XTMP("APCLAP9",APCLJOB,APCLBT,"SC",APCLX),U),6),?60,$J($P(^XTMP("APCLAP9",APCLJOB,APCLBT,"SC",APCLX),U,2),6)
  • Line Location: TYPE+6
Function Call: WRITE
  • Prompt: !!,"APC Acceptable Visits based on Headquarters Definition: ",$J(APCLAPC,7)
  • Line Location: TYPE+8
Function Call: WRITE
  • Prompt: !!,"Exclusions from APC System:",!
  • Line Location: EXCL+2
Function Call: WRITE
  • Prompt: !?10,"Dental Clinic w/o Medication",?60,$J($S($G(^XTMP("APCLAP9",APCLJOB,APCLBT,"DENTAL NO MED")):^XTMP("APCLAP9",APCLJOB,APCLBT,"DENTAL NO MED"),1:0),6)
  • Line Location: EXCL+4
Function Call: WRITE
  • Prompt: !?10,"Other Excluded Clinic Type",?60,$J($S($G(^XTMP("APCLAP9",APCLJOB,APCLBT,"NONAPCCLN")):^XTMP("APCLAP9",APCLJOB,APCLBT,"NONAPCCLN"),1:0),6)
  • Line Location: EXCL+5
Function Call: WRITE
  • Prompt: !?10,"Incomplete A, O or S",?60,$J($S($G(^XTMP("APCLAP9",APCLJOB,APCLBT,"AOS INCOMPLETE")):^XTMP("APCLAP9",APCLJOB,APCLBT,"AOS INCOMPLETE"),1:0),6)
  • Line Location: EXCL+7
Function Call: WRITE
  • Prompt: !?10,"Non APC Service Category",?60,$J($S($G(^XTMP("APCLAP9",APCLJOB,APCLBT,"NONAPCSC")):^XTMP("APCLAP9",APCLJOB,APCLBT,"NONAPCSC"),1:0),6)
  • Line Location: EXCL+9
Function Call: WRITE
  • Prompt: !?10,"Non APC Visit Type",?60,$J($S($G(^XTMP("APCLAP9",APCLJOB,APCLBT,"NONAPCTYPE")):^XTMP("APCLAP9",APCLJOB,APCLBT,"NONAPCTYPE"),1:0),6)
  • Line Location: EXCL+10
Function Call: WRITE
  • Prompt: !!?3,"Of the acceptable APC visits, ",$J($S($G(^XTMP("APCLAP9",APCLJOB,APCLBT,"IN XREF")):^XTMP("APCLAP9",APCLJOB,APCLBT,"IN XREF"),1:0),6)," were posted or modified after",!
  • Line Location: EXCL+14
Function Call: WRITE
  • Prompt: ?3,"the last NDW export and would not be reflected in reports from ",!,"the National Data Warehouse."
  • Line Location: EXCL+15
Function Call: WRITE
  • Prompt: !?3,"Of the acceptable APC visits, ",$J($S($G(^XTMP("APCLAP9",APCLJOB,APCLBT,"NO EXPORT - ?")):^XTMP("APCLAP9",APCLJOB,APCLBT,"NO EXPORT - ?"),1:0),6)," were not exported due to an error."
  • Line Location: EXCL+17
Function Call: WRITE
  • Prompt: !?3,"These can be reviewed using other PCC reports.",!
  • Line Location: EXCL+18
Function Call: WRITE
  • Prompt: !
  • Line Location: HEAD+1
Function Call: WRITE
  • Prompt: !?3,$P(^DIC(4,DUZ(2),0),U),?58,$$FMTE^XLFDT(DT),?72,"Page ",APCLPG,!
  • Line Location: HEAD1+2
Function Call: WRITE
  • Prompt: ?28,"PCC DATA ANALYSIS REPORT",!
  • Line Location: HEAD1+3
Function Call: WRITE
  • Prompt: $TR($J("",80)," ","*"),!
  • Line Location: HEAD1+4
Routine Call
  • DIR
  • Line Location:
    • HEAD+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUTTLOC - [#9999999.06] PRINT+1
^DIC(4 - [#4] PRINT+1, HEAD1+2
^XTMP("APCLAP9" DONE+2!, TYPE+1, TYPE+3, TYPE+4, TYPE+6, EXCL+4, EXCL+5, EXCL+7, EXCL+9, EXCL+10
, EXCL+14, EXCL+17

Label References

Name Line Occurrences
HEAD START+1, TYPE+2, TYPE+5, TYPE+7, EXCL+1, EXCL+3, EXCL+6, EXCL+8, EXCL+11, EXCL+16
HEAD1 HEAD
PRINT START+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> APCLAPC TYPE+8
>> APCLBD PRINT+2
>> APCLBT DONE+2, TYPE+1, TYPE+3, TYPE+4, TYPE+6, EXCL+4, EXCL+5, EXCL+7, EXCL+9, EXCL+10
, EXCL+14, EXCL+17
>> APCLED PRINT+2
>> APCLGRAN PRINT+3
>> APCLJOB DONE+2, TYPE+1, TYPE+3, TYPE+4, TYPE+6, EXCL+4, EXCL+5, EXCL+7, EXCL+9, EXCL+10
, EXCL+14, EXCL+17
>> APCLLOC PRINT+1
>> APCLPG START+1*, HEAD, HEAD1+1*, HEAD1+2
APCLQUIT START+2!, TYPE+1, TYPE+2, TYPE+4, TYPE+5, TYPE+7, EXCL+1, EXCL+3, EXCL+6, EXCL+8
, EXCL+11, EXCL+16, HEAD+1*
>> APCLTOT START+1*
>> APCLX TYPE+1*, TYPE+3, TYPE+4*, TYPE+6
>> C TYPE+1*, TYPE+3, TYPE+4*, TYPE+6
DIR HEAD+1!
DIR(0 HEAD+1*
DT HEAD1+2
>> DTOUT HEAD+1
DUZ(2 HEAD1+2
IO HEAD+1
IO(0 HEAD+1
IOF HEAD1+1
IOSL TYPE+2, TYPE+5, TYPE+7, EXCL+1, EXCL+3, EXCL+6, EXCL+8, EXCL+11, EXCL+16
IOST HEAD+1
U PRINT+1, TYPE+3, TYPE+6, HEAD1+2
>> Y HEAD+1
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All