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

Package: Patient Care Component

Routine: APCDEFU


Information

APCDEFU ; IHS/CMI/LAB - APCD Auto Print PCC Encounter Form Utility ;

Source Information

Source file <APCDEFU.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
IHS VA Utilities 2 $$VAL^XBDIQ1  $$EXTSET^XBFUNC  
IHS Patient 1 ($$COMMRES,$$DOB,$$HRN,$$SSN,$$TRIBE)^AUPNPAT  
Patient Care Component Reports 1 ($$LOCENC,$$PRIMPROV)^APCLV  
VA Fileman 1 ^DIR  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Patient Care Component 1 APCDEFP  

Entry Points

Name Comments DBIA/ICR reference
HEAD ;EP-- this is the report header
CTR(X,Y) ;EP - Center X in a field Y wide.
XHEAD
DONE ;EP-- kill tmp
FF ;-- form feed
FOOT ;EP-- page footer

External References

Name Field # of Occurrence
$$LOCENC^APCLV XHEAD+8
$$PRIMPROV^APCLV XHEAD+6
$$COMMRES^AUPNPAT FOOT+9
$$DOB^AUPNPAT FOOT+7
$$HRN^AUPNPAT FOOT+2, FF+3
$$SSN^AUPNPAT FOOT+4
$$TRIBE^AUPNPAT FOOT+8
^DIR FF+9
$$VAL^XBDIQ1 FOOT+5, FOOT+10
$$EXTSET^XBFUNC FOOT+6

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?13,"********** CONFIDENTIAL PATIENT INFORMATION **********"
  • Line Location: XHEAD+0
Function Call: WRITE
  • Prompt: !?30,"PCC ENCOUNTER RECORD"
  • Line Location: XHEAD+1
Function Call: WRITE
  • Prompt: !,$$CTR(X,80)
  • Line Location: XHEAD+3
Function Call: WRITE
  • Prompt: !!,APCLSTAR
  • Line Location: XHEAD+4
Function Call: WRITE
  • Prompt: !!?3,"Visit Date/Time: ",APCDVDT
  • Line Location: XHEAD+5
Function Call: WRITE
  • Prompt: ?40,"Primary Provider: ",$$PRIMPROV^APCLV(APCDVIEN,"N")
  • Line Location: XHEAD+6
Function Call: WRITE
  • Prompt: !?3,"Clinic: ",$E(APCDVCLN,1,25),?39,$E(APCDVSC,1,14),?55,$E(APCDVHL,1,24)
  • Line Location: XHEAD+7
Function Call: WRITE
  • Prompt: !?3,"Location: ",APCDVLOC," ",$$LOCENC^APCLV(APCDVIEN,"C")
  • Line Location: XHEAD+8
Function Call: WRITE
  • Prompt: !,APCLSTAR
  • Line Location: XHEAD+9
Function Call: WRITE
  • Prompt: !,?3,"HR#: ",APCDHRN,?30,"SSN: ",$$SSN^AUPNPAT(APCDPAT)
  • Line Location: FOOT+4
Function Call: WRITE
  • Prompt: !,?3,"NAME: ",$$VAL^XBDIQ1(2,APCDPAT,.01)
  • Line Location: FOOT+5
Function Call: WRITE
  • Prompt: ?30,"SEX: ",$$EXTSET^XBFUNC(2,.02,$P(^DPT(APCDPAT,0),U,2))
  • Line Location: FOOT+6
Function Call: WRITE
  • Prompt: !?3,"DOB: ",$$DOB^AUPNPAT(APCDPAT,"E")
  • Line Location: FOOT+7
Function Call: WRITE
  • Prompt: ?30,"TRIBE: ",$$TRIBE^AUPNPAT(APCDPAT,"E")
  • Line Location: FOOT+8
Function Call: WRITE
  • Prompt: !?3,"RESIDENCE: ",$$COMMRES^AUPNPAT(APCDPAT,"E")
  • Line Location: FOOT+9
Function Call: WRITE
  • Prompt: !?3,"FACILITY: ",$E($$VAL^XBDIQ1(4,DUZ(2),.01),1,25)
  • Line Location: FOOT+10
Function Call: WRITE
  • Prompt: !!?30,"PROVIDER SIGNATURE: "
  • Line Location: FOOT+11
Function Call: WRITE
  • Prompt: !
  • Line Location: FOOT+12
Function Call: WRITE
  • Prompt: !,?3,"HR#: ",APCDHRN,?30,"SSN: ",$P(^DPT(DFN,0),U,9)
  • Line Location: FF+5
Function Call: WRITE
  • Prompt: !,?3,"NAME: ",APCDPAT
  • Line Location: FF+6
Function Call: WRITE
  • Prompt: !
  • Line Location: FF+8
Routine Call
  • DIR
  • Line Location:
    • FF+9

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] FOOT+6, FF+5
^XTMP( DONE+1!

Label References

Name Line Occurrences
$$CTR XHEAD+3
XHEAD FF+12

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> APCDGROP XHEAD+3
>> APCDH DONE+1
>> APCDHRN FOOT+2*, FOOT+3*, FOOT+4, FF+3*, FF+4*, FF+5
>> APCDJ DONE+1
>> APCDPAT FOOT+1*, FOOT+2, FOOT+4, FOOT+5, FOOT+6, FOOT+7, FOOT+8, FOOT+9, FF+6
>> APCDQ HEAD+1*, FF+9*
>> APCDVCLN XHEAD+7
>> APCDVDT XHEAD+5
>> APCDVHL XHEAD+7
>> APCDVIEN XHEAD+6, XHEAD+8
>> APCDVLOC XHEAD+8
>> APCDVREC FOOT+1, FF+2
>> APCDVSC XHEAD+7
>> APCLSTAR XHEAD+4, XHEAD+9
>> DFN FF+2*, FF+3, FF+5
DIR FF+9!
DIR(0 FF+8*
>> DTOUT FF+9
DUZ(2 FOOT+2, FOOT+10, FF+3
IO FF+8
IO(0 FF+8
IOF HEAD+1, FF+10
IOM CTR+1
IOSL FF+1
IOST FF+7, FF+11
U FOOT+1, FOOT+6, FF+2, FF+5
X XHEAD+3*, CTR~, CTR+1
Y FF+9, CTR~, CTR+1
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All