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 |  Marked Items |  All
Print Page as PDF
Routine: APCDEFP

Package: Patient Care Component

Routine: APCDEFP


Information

APCDEFP ; IHS/CMI/LAB - APCD Auto Print PCC Encounter Form ; 16 Oct 2012 6:19 PM

Source Information

Source file <APCDEFP.m>

Call Graph

Call Graph Total: 2

Package Total Call Graph
Patient Care Component 2 (WVACT,WVBB,WVCPT,WVDXP,WVHF,WVIF,WVMIC,WVNT,WVPED,WVPHN,WVPT,WVRAD,WVSK,WVTRT)^APCDEFP1  (DONE,FOOT,HEAD)^APCDEFU  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Patient Care Component 1 APCDEGPP  

Entry Points

Name Comments DBIA/ICR reference
WVMED ;-- write out vmed
WVPOV ;-- write out v pov
WVHF ;-- write out v health factors
WVDXP ;-- write out v diagnostic procedure result
WVLAB ;-- write out v lab
WVIMM ;-- write out v immunization
PRT ;-- loop through and write the data
WVCPT ;-- write out v cpt
WVTRT ;-- write out v treatment
WVSK ;-- write out v skin test
WVNT ;-- write out v narrative text
WVBB ;-- write out v blood bank
WVPED ;-- write out v patient education
WVPRC ;-- write out v procedure
WVRAD ;-- write out v radiology
WVEYE ;-- write out v eye
WVACT ;-- write out v activity time
WVPHN ;-- write out v public health nurse
WVDEN ;-- write out v dental
WVPT ;-- write out v physical therapy
WVIF ;-- write out infant feeding
WVXAM ;-- write out v exam
WVMIC ;-- write out v microbiology
WVMSR ;-- write out v measurement
MAIN ;EP -- loop through temp and print out the data

External References

Name Field # of Occurrence
WVACT^APCDEFP1 WVACT+2
WVBB^APCDEFP1 WVBB+2
WVCPT^APCDEFP1 WVCPT+2
WVDXP^APCDEFP1 WVDXP+2
WVHF^APCDEFP1 WVHF+2
WVIF^APCDEFP1 WVIF+2
WVMIC^APCDEFP1 WVMIC+2
WVNT^APCDEFP1 WVNT+2
WVPED^APCDEFP1 WVPED+2
WVPHN^APCDEFP1 WVPHN+2
WVPT^APCDEFP1 WVPT+2
WVRAD^APCDEFP1 WVRAD+2
WVSK^APCDEFP1 WVSK+2
WVTRT^APCDEFP1 WVTRT+2
DONE^APCDEFU MAIN+10
FOOT^APCDEFU MAIN+9
HEAD^APCDEFU MAIN+6

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"No visit information"
  • Line Location: MAIN+7
Function Call: WRITE
  • Prompt: !,"Chief Complaint: ",APCDVCC
  • Line Location: PRT+1
Function Call: WRITE
  • Prompt: !,APCDLN
  • Line Location: PRT+1
Function Call: WRITE
  • Prompt: !,"Flag: ",APCDVFLG,?40,"Disposition: ",APCDVDP
  • Line Location: PRT+2
Function Call: WRITE
  • Prompt: !,APCDLN
  • Line Location: PRT+2
Function Call: WRITE
  • Prompt: !,"Measurements",!
  • Line Location: WVMSR+3
Function Call: WRITE
  • Prompt: !?3,APCDTA_":"_$P($G(APCDMSR(APCDIEN)),U,2)
  • Line Location: WVMSR+6
Function Call: WRITE
  • Prompt: !
  • Line Location: WVMSR+8
Function Call: WRITE
  • Prompt: ?APCDPC,APCDTA_": "_$S($L(APCDTA)=2:" ",1:"")_$P($G(APCDMSR(APCDIEN)),U,2)
  • Line Location: WVMSR+9
Function Call: WRITE
  • Prompt: " ",P
  • Line Location: WVMSR+9
Function Call: WRITE
  • Prompt: !,APCDLN
  • Line Location: WVMSR+13
Function Call: WRITE
  • Prompt: !,"Examinations",!
  • Line Location: WVXAM+2
Function Call: WRITE
  • Prompt: !?3,APCDTA
  • Line Location: WVXAM+4
Function Call: WRITE
  • Prompt: ?35,"result: ",APCDXAM(APCDTA)
  • Line Location: WVXAM+5
Function Call: WRITE
  • Prompt: !,APCDLN
  • Line Location: WVXAM+7
Function Call: WRITE
  • Prompt: !,"Purpose of Visit",!
  • Line Location: WVPOV+2
Function Call: WRITE
  • Prompt: !?3,$P(APCDPOV(APCDTA),U,2),?60,$P($G(APCDPOV(APCDTA)),U,1)
  • Line Location: WVPOV+4
Function Call: WRITE
  • Prompt: !?5,"Stage: ",$P(APCDPOV(APCDTA),U,3)
  • Line Location: WVPOV+5
Function Call: WRITE
  • Prompt: !?5,"Modifier: ",$P(APCDPOV(APCDTA),U,4),?45,"Cause of DX: ",$P(APCDPOV(APCDTA),U,5)
  • Line Location: WVPOV+6
Function Call: WRITE
  • Prompt: !?5,"E Code: ",$P(APCDPOV(APCDTA),U,6),?30,"Cause: ",$P(APCDPOV(APCDTA),U,9),?60,"Cause: ",$P(APCDPOV(APCDTA),U,10)
  • Line Location: WVPOV+7
Function Call: WRITE
  • Prompt: !?5,"Place of Occurrence: ",$P(APCDPOV(APCDTA),U,11),?45,"Date of Injury: ",$P(APCDPOV(APCDTA),U,8)
  • Line Location: WVPOV+8
Function Call: WRITE
  • Prompt: !,APCDLN
  • Line Location: WVPOV+10
Function Call: WRITE
  • Prompt: !,"Medications Prescribed",?30,"Sig",?68,"Qty",?76,"Days",!
  • Line Location: WVMED+2
Function Call: WRITE
  • Prompt: !,$E(APCDTA,1,28),?30,$E(APCDTSIG,1,35),?68,APCDTQTY,?76,APCDTDP
  • Line Location: WVMED+7
Function Call: WRITE
  • Prompt: !,APCDLN
  • Line Location: WVMED+9
Function Call: WRITE
  • Prompt: !,"Eye Glass",!
  • Line Location: WVEYE+2
Function Call: WRITE
  • Prompt: !,"Reading Only: ",APCDRO
  • Line Location: WVEYE+3
Function Call: WRITE
  • Prompt: ?22,"DRE Sphere: ",APCDRES
  • Line Location: WVEYE+4
Function Call: WRITE
  • Prompt: ?43,"DRE Cylinder: ",APCDREC
  • Line Location: WVEYE+5
Function Call: WRITE
  • Prompt: ?58,"DRE Axis: ",APCDREA
  • Line Location: WVEYE+6
Function Call: WRITE
  • Prompt: !,"DLE Sphere: ",APCDLES
  • Line Location: WVEYE+7
Function Call: WRITE
  • Prompt: ?22,"DLE Cylinder: ",APCDLEC
  • Line Location: WVEYE+8
Function Call: WRITE
  • Prompt: ?43,"DLE Axis: ",APCDLEA
  • Line Location: WVEYE+9
Function Call: WRITE
  • Prompt: ?58,"Reading Add R: ",APCDRAR
  • Line Location: WVEYE+10
Function Call: WRITE
  • Prompt: !,"Reading Add L: ",APCDRAL
  • Line Location: WVEYE+11
Function Call: WRITE
  • Prompt: ?22,"Eye Size: ",APCDES
  • Line Location: WVEYE+12
Function Call: WRITE
  • Prompt: ?43,"Bridge: ",APCDBR
  • Line Location: WVEYE+13
Function Call: WRITE
  • Prompt: ?58,"Temple: ",APCDTM
  • Line Location: WVEYE+14
Function Call: WRITE
  • Prompt: !,"Pupil Distance Near: ",APCDPDN
  • Line Location: WVEYE+15
Function Call: WRITE
  • Prompt: ?30,"Pupil Distance Far: ",APCDPDF
  • Line Location: WVEYE+16
Function Call: WRITE
  • Prompt: !,APCDLN
  • Line Location: WVEYE+19
Function Call: WRITE
  • Prompt: !,"Dental",!
  • Line Location: WVDEN+2
Function Call: WRITE
  • Prompt: !,"Ada Code: ",APCDTA
  • Line Location: WVDEN+7
Function Call: WRITE
  • Prompt: ?20,"Number of Units: ",APCDTNOU
  • Line Location: WVDEN+8
Function Call: WRITE
  • Prompt: !,"Operative Site: ",APCDTOS
  • Line Location: WVDEN+9
Function Call: WRITE
  • Prompt: ?55,"Tooth Surface: ",APCDTDTS
  • Line Location: WVDEN+10
Function Call: WRITE
  • Prompt: !,APCDLN
  • Line Location: WVDEN+12
Function Call: WRITE
  • Prompt: !,"Procedures",!
  • Line Location: WVPRC+2
Function Call: WRITE
  • Prompt: !,"Procedure: ",APCDTA
  • Line Location: WVPRC+6
Function Call: WRITE
  • Prompt: ?51,"Procedure Date: ",APCDTPDT
  • Line Location: WVPRC+7
Function Call: WRITE
  • Prompt: !,"Provider Narrative: ",APCDTPRN
  • Line Location: WVPRC+8
Function Call: WRITE
  • Prompt: !,APCDLN
  • Line Location: WVPRC+10
Function Call: WRITE
  • Prompt: !,"Laboratory Tests",!
  • Line Location: WVLAB+2
Function Call: WRITE
  • Prompt: !,"Lab Test: ",APCDTA
  • Line Location: WVLAB+6
Function Call: WRITE
  • Prompt: ?50,"Result: ",APCDTRES
  • Line Location: WVLAB+7
Function Call: WRITE
  • Prompt: ?70,$S($G(APCDTABN):"Abnormal",1:"")
  • Line Location: WVLAB+8
Function Call: WRITE
  • Prompt: !,APCDLN
  • Line Location: WVLAB+10
Function Call: WRITE
  • Prompt: !,"Immunizations",!
  • Line Location: WVIMM+2
Function Call: WRITE
  • Prompt: !?3,"Immunization: ",APCDTA
  • Line Location: WVIMM+11
Function Call: WRITE
  • Prompt: ?60,"Series: ",APCDTSER
  • Line Location: WVIMM+12
Function Call: WRITE
  • Prompt: !?3,"Lot: ",APCDTLOT,?30,"Reaction: ",APCDTREA
  • Line Location: WVIMM+13
Function Call: WRITE
  • Prompt: !?3,"Dose Override: ",APCDDOSE,?40,"Injection Site: ",APCDINJ
  • Line Location: WVIMM+15
Function Call: WRITE
  • Prompt: !?3,"Volume: ",APCDVOL
  • Line Location: WVIMM+17
Function Call: WRITE
  • Prompt: ?20,"Date of Vaccine Information Statement: ",APCDVDAT
  • Line Location: WVIMM+17
Function Call: WRITE
  • Prompt: !,APCDLN
  • Line Location: WVIMM+19

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^XTMP( MAIN+7

Label References

Name Line Occurrences
@( PRT+8
PRT MAIN+8

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
APCDABN WVLAB+9!
APCDADA WVDEN+11!
>> APCDATMP PRT+4, PRT+5
APCDBR WVEYE+13, WVEYE+18!
>> APCDC WVMSR+2*, WVMSR+6*, WVMSR+7*, WVMSR+8, WVMSR+11*
>> APCDDEN( WVDEN+3, WVDEN+4, WVDEN+5, WVDEN+6
APCDDOSE WVIMM+7*, WVIMM+14, WVIMM+15, WVIMM+18!
APCDDP WVMED+8!
APCDES WVEYE+12, WVEYE+18!
>> APCDFF MAIN+5*, WVMSR+1, WVXAM+1, WVPOV+1, WVMED+1, WVEYE+1, WVDEN+1, WVPRC+1, WVLAB+1, WVIMM+1
, WVSK+1, WVTRT+1, WVPED+1, WVPT+1, WVACT+1, WVDXP+1, WVRAD+1, WVHF+1, WVMIC+1, WVBB+1
, WVPHN+1, WVNT+1, WVCPT+1, WVIF+1
>> APCDH MAIN+7
>> APCDIEN WVMSR+4*, WVMSR+5, WVMSR+6, WVMSR+9
APCDIMM WVIMM+18!
APCDIMM( WVIMM+3, WVIMM+4, WVIMM+5, WVIMM+6, WVIMM+7, WVIMM+8, WVIMM+9, WVIMM+10
APCDINJ WVIMM+8*, WVIMM+14, WVIMM+15, WVIMM+18!
>> APCDIOSL MAIN+1*
>> APCDJ MAIN+7
APCDLAB WVLAB+9!
APCDLAB( WVLAB+3, WVLAB+4, WVLAB+5
APCDLEA WVEYE+9, WVEYE+17!
APCDLEC WVEYE+8, WVEYE+17!
APCDLES WVEYE+7, WVEYE+17!
>> APCDLN MAIN+2*, PRT+1, PRT+2, WVMSR+13, WVXAM+7, WVPOV+10, WVMED+9, WVEYE+19, WVDEN+12, WVPRC+10
, WVLAB+10, WVIMM+19
APCDLOT WVIMM+18!
APCDMED WVMED+8!
APCDMED( WVMED+3, WVMED+4, WVMED+5, WVMED+6
APCDMSR WVMSR+12!
APCDMSR( WVMSR+4, WVMSR+5, WVMSR+6, WVMSR+9
APCDNOU WVDEN+11!
APCDOS WVDEN+11!
>> APCDP PRT+6*, PRT+8
APCDPC WVMSR+2*, WVMSR+6*, WVMSR+9, WVMSR+10*, WVMSR+11*, WVMSR+12!
>> APCDPDA PRT+4*, PRT+5
APCDPDF WVEYE+16, WVEYE+18!
>> APCDPDFN PRT+5*, PRT+6
APCDPDN WVEYE+15, WVEYE+18!
APCDPDT WVPRC+9!
APCDPOV WVPOV+9!
APCDPOV( WVPOV+3, WVPOV+4, WVPOV+5, WVPOV+6, WVPOV+7, WVPOV+8
APCDPRC WVPRC+9!
APCDPRC( WVPRC+3, WVPRC+4, WVPRC+5
APCDPRN WVPRC+9!
>> APCDQ PRT+4, PRT+5, PRT+9
APCDQTY WVMED+8!
APCDRAL WVEYE+11, WVEYE+18!
APCDRAR WVEYE+10, WVEYE+17!
APCDREA WVEYE+6, WVEYE+17!, WVIMM+18!
APCDREC WVEYE+5, WVEYE+17!
APCDRES WVEYE+4, WVEYE+17!, WVLAB+9!
APCDRO WVEYE+3, WVEYE+17!
APCDSER WVIMM+18!
APCDSIG WVMED+8!
APCDT WVMSR+12!, WVXAM+6!
APCDTA WVMSR+5*, WVMSR+6, WVMSR+9, WVXAM+3*, WVXAM+4, WVXAM+5, WVPOV+3*, WVPOV+4, WVPOV+5, WVPOV+6
, WVPOV+7, WVPOV+8, WVPOV+9!, WVMED+3*, WVMED+4, WVMED+5, WVMED+6, WVMED+7, WVMED+8!, WVDEN+3*
, WVDEN+4, WVDEN+5, WVDEN+6, WVDEN+7, WVDEN+11!, WVPRC+3*, WVPRC+4, WVPRC+5, WVPRC+6, WVPRC+9!
, WVLAB+3*, WVLAB+4, WVLAB+5, WVLAB+6, WVLAB+9!, WVIMM+3*, WVIMM+4, WVIMM+5, WVIMM+6, WVIMM+7
, WVIMM+8, WVIMM+9, WVIMM+10, WVIMM+11, WVIMM+18!
APCDTABN WVLAB+5*, WVLAB+8, WVLAB+9!
APCDTDP WVMED+6*, WVMED+7, WVMED+8!
APCDTDTS WVDEN+6*, WVDEN+10, WVDEN+11!
APCDTLOT WVIMM+5*, WVIMM+13, WVIMM+18!
APCDTM WVEYE+14, WVEYE+18!
APCDTNOU WVDEN+4*, WVDEN+8, WVDEN+11!
APCDTOS WVDEN+5*, WVDEN+9, WVDEN+11!
APCDTPDT WVPRC+5*, WVPRC+7, WVPRC+9!
APCDTPRN WVPRC+4*, WVPRC+8, WVPRC+9!
APCDTQTY WVMED+5*, WVMED+7, WVMED+8!
APCDTREA WVIMM+6*, WVIMM+13, WVIMM+18!
APCDTRES WVLAB+4*, WVLAB+7, WVLAB+9!
APCDTS WVDEN+11!
APCDTSER WVIMM+4*, WVIMM+12, WVIMM+18!
APCDTSIG WVMED+4*, WVMED+7, WVMED+8!
APCDV WVMSR+12!, WVXAM+6!
>> APCDVCC PRT+1
APCDVDAT WVIMM+10*, WVIMM+16, WVIMM+17, WVIMM+18!
>> APCDVDP PRT+2
>> APCDVFLG PRT+2
APCDVOL WVIMM+9*, WVIMM+16, WVIMM+17, WVIMM+18!
APCDXAM WVXAM+6!
APCDXAM( WVXAM+3, WVXAM+5
>> APCLSTAR MAIN+3*
>> APCLUS MAIN+4*
>> I WVMSR+9*
IOSL MAIN+1
>> J WVMSR+9*
>> P WVMSR+9*
U WVMSR+5, WVMSR+6, WVMSR+9, WVPOV+4, WVPOV+5, WVPOV+6, WVPOV+7, WVPOV+8, WVMED+4, WVMED+5
, WVMED+6, WVDEN+4, WVDEN+5, WVDEN+6, WVPRC+4, WVPRC+5, WVLAB+4, WVLAB+5, WVIMM+4, WVIMM+5
, WVIMM+6, WVIMM+7, WVIMM+8, WVIMM+9, WVIMM+10

Marked Items

Name Field # of Occurrence
$T(@APCDP PRT+7
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All