Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Caller Graph |  Entry Points |  Interaction Calls |  Local Variables |  All
Print Page as PDF
Routine: APCDEFP1

Package: Patient Care Component

Routine: APCDEFP1


Information

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

Source Information

Source file <APCDEFP1.m>

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Patient Care Component 1 APCDEFP  

Entry Points

Name Comments DBIA/ICR reference
WVRAD ;EP-- write out v radiology
WVCPT ;EP -- write out v cpt
WVHF ;EP-- write out v health factors
WVPT ;EP-- write out v physical therapy
WVIF ;EP -- write out v infant feeding
WVTRT ;EP-- write out v treatment
WVACT ;EP-- write out v activity time
WVSK ;EP-- write out v skin test
WVPHN ;EP-- write out v public health nurse
WVNT ;EP-- write out v narrative text
WVBB ;EP-- write out v blood bank
WVDXP ;EP-- write out v diagnostic procedure result
WVMIC ;EP-- write out v microbiology
WVPED ;EP-- write out v patient education

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Skin Tests",!
  • Line Location: WVSK+1
Function Call: WRITE
  • Prompt: !?3,"Skin Test: ",APCDTA
  • Line Location: WVSK+6
Function Call: WRITE
  • Prompt: ?40,"Result: ",APCDTRES
  • Line Location: WVSK+7
Function Call: WRITE
  • Prompt: !?3,"Reading: ",APCDTREA
  • Line Location: WVSK+8
Function Call: WRITE
  • Prompt: ?40,"Date Read: ",APCDTDTR
  • Line Location: WVSK+9
Function Call: WRITE
  • Prompt: !?3,"Test Reader: ",$P(APCDSK(APCDTA),U,4)
  • Line Location: WVSK+10
Function Call: WRITE
  • Prompt: !?3,"Injection Site: ",$P(APCDSK(APCDTA),U,5),?40,"Volume: ",$P(APCDSK(APCDTA),U,6)
  • Line Location: WVSK+12
Function Call: WRITE
  • Prompt: !,APCDLN
  • Line Location: WVSK+14
Function Call: WRITE
  • Prompt: !,"Treatments",!
  • Line Location: WVTRT+1
Function Call: WRITE
  • Prompt: !,"Treatment: ",APCDTA
  • Line Location: WVTRT+5
Function Call: WRITE
  • Prompt: ?40,"How Many: ",APCDTHM
  • Line Location: WVTRT+6
Function Call: WRITE
  • Prompt: ?57,"Provider: ",APCDTPRV
  • Line Location: WVTRT+7
Function Call: WRITE
  • Prompt: !,APCDLN
  • Line Location: WVTRT+9
Function Call: WRITE
  • Prompt: !,"CPT codes:",!
  • Line Location: WVCPT+1
Function Call: WRITE
  • Prompt: !,"Evalulation and Management: ",APCDVEM
  • Line Location: WVCPT+2
Function Call: WRITE
  • Prompt: !?3,$P(APCDCPT(APCDTA),U),?10,"Units: ",$P(APCDCPT(APCDTA),U,2),?21,$S($P(APCDCPT(APCDTA),U,3)]"":"Modifier 1: "_$P(APCDCPT(APCDTA),U,3),1:""),?40,$S($P(APCDCPT(APCDTA),U,4)]"":"Modifier 2: "_$P(APCDCPT(APCDTA),U,4),1:"")
  • Line Location: WVCPT+4
Function Call: WRITE
  • Prompt: !,APCDLN
  • Line Location: WVCPT+6
Function Call: WRITE
  • Prompt: !,"Patient Education",!
  • Line Location: WVPED+1
Function Call: WRITE
  • Prompt: !?3,"Topic: ",APCDTA
  • Line Location: WVPED+3
Function Call: WRITE
  • Prompt: ?45,"Level of Understanding: ",$P($G(APCDPED(APCDTA)),U)
  • Line Location: WVPED+4
Function Call: WRITE
  • Prompt: !?3,"Goal Code: ",$P(APCDPED(APCDTA),U,6)
  • Line Location: WVPED+7
Function Call: WRITE
  • Prompt: !?3,"Goal Comment: ",$P(APCDPED(APCDTA),U,7)
  • Line Location: WVPED+8
Function Call: WRITE
  • Prompt: !?3,"Ind/Group: ",$P(APCDPED(APCDTA),U,2),?40,"Length of Educ: ",$P(APCDPED(APCDTA),U,3),?65,"CPT: ",$P(APCDPED(APCDTA),U,4)
  • Line Location: WVPED+9
Function Call: WRITE
  • Prompt: !?3,"Readiness to Learn: ",$P(APCDPED(APCDTA),U,9)
  • Line Location: WVPED+10
Function Call: WRITE
  • Prompt: !
  • Line Location: WVPED+11
Function Call: WRITE
  • Prompt: !,APCDLN
  • Line Location: WVPED+13
Function Call: WRITE
  • Prompt: !,"Physical Therapy",!
  • Line Location: WVPT+1
Function Call: WRITE
  • Prompt: !,"Therapy: ",APCDTA
  • Line Location: WVPT+3
Function Call: WRITE
  • Prompt: ?40,"Quantity: ",$G(APCDPT(APCDPT))
  • Line Location: WVPT+4
Function Call: WRITE
  • Prompt: !,APCDLN
  • Line Location: WVPT+6
Function Call: WRITE
  • Prompt: !,"Activity Time",!
  • Line Location: WVACT+1
Function Call: WRITE
  • Prompt: !,"Activity Time: ",APCDTA
  • Line Location: WVACT+3
Function Call: WRITE
  • Prompt: ?30,"Travel Minutes: ",$G(APCDACT(APCDTA))
  • Line Location: WVACT+4
Function Call: WRITE
  • Prompt: !,APCDLN
  • Line Location: WVACT+6
Function Call: WRITE
  • Prompt: !,"Diagnostic Procedure Result",!
  • Line Location: WVDXP+1
Function Call: WRITE
  • Prompt: !,"Type: ",APCDTA
  • Line Location: WVDXP+3
Function Call: WRITE
  • Prompt: ?40,"Value: ",$G(APCDDXP(APCDTA))
  • Line Location: WVDXP+4
Function Call: WRITE
  • Prompt: !,APCDLN
  • Line Location: WVDXP+6
Function Call: WRITE
  • Prompt: !,"Radiology",!
  • Line Location: WVRAD+1
Function Call: WRITE
  • Prompt: !,"Radiology Procedure: ",APCDRAD
  • Line Location: WVRAD+3
Function Call: WRITE
  • Prompt: ?60,$S($G(APCDABN):"Abnormal",1:"")
  • Line Location: WVRAD+4
Function Call: WRITE
  • Prompt: !,APCDLN
  • Line Location: WVRAD+6
Function Call: WRITE
  • Prompt: !,"Health Factors: ",!
  • Line Location: WVHF+1
Function Call: WRITE
  • Prompt: !,"Health Factor: ",APCDTA
  • Line Location: WVHF+3
Function Call: WRITE
  • Prompt: ?50,"Level/Severity: ",$G(APCDHF(APCDTA))
  • Line Location: WVHF+4
Function Call: WRITE
  • Prompt: !,APCDLN
  • Line Location: WVHF+6
Function Call: WRITE
  • Prompt: !,"Microbiology",!
  • Line Location: WVMIC+1
Function Call: WRITE
  • Prompt: !,"Culture: ",APCDTA
  • Line Location: WVMIC+3
Function Call: WRITE
  • Prompt: ?40,"Organism: ",$G(APCDMIC(APCDTA))
  • Line Location: WVMIC+4
Function Call: WRITE
  • Prompt: !,APCDLN
  • Line Location: WVMIC+6
Function Call: WRITE
  • Prompt: !,"Blood Bank",!
  • Line Location: WVBB+1
Function Call: WRITE
  • Prompt: !,"Lab Test: ",APCDTA
  • Line Location: WVBB+5
Function Call: WRITE
  • Prompt: ?40,"Result: ",APCDTRES
  • Line Location: WVBB+6
Function Call: WRITE
  • Prompt: ?60,"Antibody: ",APCDTAB
  • Line Location: WVBB+7
Function Call: WRITE
  • Prompt: !,APCDLN
  • Line Location: WVBB+9
Function Call: WRITE
  • Prompt: !,"Public Health Nursing",!
  • Line Location: WVPHN+1
Function Call: WRITE
  • Prompt: !,"Form ID: ",APCDTA
  • Line Location: WVPHN+10
Function Call: WRITE
  • Prompt: ?20,"Result: ",APCDTRES
  • Line Location: WVPHN+11
Function Call: WRITE
  • Prompt: ?45,"Level of Intervention: ",APCDLOI
  • Line Location: WVPHN+12
Function Call: WRITE
  • Prompt: !,"Type of Decision: ",APCDTTOD
  • Line Location: WVPHN+13
Function Call: WRITE
  • Prompt: !,"Pscho/Social,Environ: ",APCDTR1
  • Line Location: WVPHN+14
Function Call: WRITE
  • Prompt: !,"Nursing DX: ",APCDTR2
  • Line Location: WVPHN+15
Function Call: WRITE
  • Prompt: !,"Short Term Goals: ",APCDTR3
  • Line Location: WVPHN+16
Function Call: WRITE
  • Prompt: !,"Long Term Goals: ",APCDTR4
  • Line Location: WVPHN+17
Function Call: WRITE
  • Prompt: !,APCDLN
  • Line Location: WVPHN+21
Function Call: WRITE
  • Prompt: !,"Narrative Text",!
  • Line Location: WVNT+1
Function Call: WRITE
  • Prompt: !,"Text Type: ",APCDTA
  • Line Location: WVNT+3
Function Call: WRITE
  • Prompt: !,$G(APCDNT(APCDTA,APCDTNT))
  • Line Location: WVNT+5
Function Call: WRITE
  • Prompt: !,APCDLN
  • Line Location: WVNT+7
Function Call: WRITE
  • Prompt: !,"Infant Feeding Choice: ",$G(APCDINF),!
  • Line Location: WVIF+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
APCDABN WVRAD+4, WVRAD+5!, WVBB+8!
APCDACT WVACT+5!
APCDACT( WVACT+2, WVACT+4
APCDBB WVBB+8!
APCDBB( WVBB+2, WVBB+3, WVBB+4
APCDCPT WVCPT+5!
APCDCPT( WVCPT+3, WVCPT+4
APCDDTR WVSK+13!
APCDDXP WVDXP+5!
APCDDXP( WVDXP+2, WVDXP+4
APCDHF WVHF+5!
APCDHF( WVHF+2, WVHF+4
APCDHM WVTRT+8!
>> APCDINF WVIF+1, WVIF+2
>> APCDLN WVSK+14, WVTRT+9, WVCPT+6, WVPED+13, WVPT+6, WVACT+6, WVDXP+6, WVRAD+6, WVHF+6, WVMIC+6
, WVBB+9, WVPHN+21, WVNT+7
APCDLOI WVPHN+12, WVPHN+18!
APCDLOU WVPED+12!
APCDLS WVHF+5!
APCDMD1 WVCPT+5!
APCDMD2 WVCPT+5!
APCDMIC WVMIC+5!
APCDMIC( WVMIC+2, WVMIC+4
APCDNT WVNT+6!
APCDNT( WVNT+2, WVNT+4, WVNT+5
APCDORG WVMIC+5!
APCDPED WVPED+12!
APCDPED( WVPED+2, WVPED+4, WVPED+5, WVPED+6, WVPED+7, WVPED+8, WVPED+9, WVPED+10
APCDPHN WVPHN+18!
APCDPHN( WVPHN+2, WVPHN+3, WVPHN+4, WVPHN+5, WVPHN+6, WVPHN+7, WVPHN+8, WVPHN+9
APCDPRV WVTRT+8!
APCDPT WVPT+4, WVPT+5!
APCDPT( WVPT+2, WVPT+4
APCDQTY WVPT+5!
APCDRAD WVRAD+3, WVRAD+5!
APCDRAD( WVRAD+2
APCDREA WVSK+13!
APCDREC0 WVPHN+19!, WVNT+6!
APCDREC1 WVPHN+19!
APCDREC2 WVPHN+19!
APCDREC3 WVPHN+19!
APCDREC4 WVPHN+19!
APCDRES WVSK+13!, WVBB+8!, WVPHN+18!
APCDSK WVSK+13!
APCDSK( WVSK+2, WVSK+3, WVSK+4, WVSK+5, WVSK+10, WVSK+11, WVSK+12
APCDTA WVSK+2*, WVSK+3, WVSK+4, WVSK+5, WVSK+6, WVSK+10, WVSK+11, WVSK+12, WVSK+13!, WVTRT+2*
, WVTRT+3, WVTRT+4, WVTRT+5, WVTRT+8!, WVCPT+3*, WVCPT+4, WVPED+2*, WVPED+3, WVPED+4, WVPED+5
, WVPED+6, WVPED+7, WVPED+8, WVPED+9, WVPED+10, WVPED+12!, WVPT+2*, WVPT+3, WVPT+5!, WVACT+2*
, WVACT+3, WVACT+4, WVACT+5!, WVDXP+2*, WVDXP+3, WVDXP+4, WVDXP+5!, WVRAD+2*, WVRAD+5!, WVHF+2*
, WVHF+3, WVHF+4, WVHF+5!, WVMIC+2*, WVMIC+3, WVMIC+4, WVMIC+5!, WVBB+2*, WVBB+3, WVBB+4
, WVBB+5, WVPHN+2*, WVPHN+3, WVPHN+4, WVPHN+5, WVPHN+6, WVPHN+7, WVPHN+8, WVPHN+9, WVPHN+10
, WVPHN+18!, WVNT+2*, WVNT+3, WVNT+4, WVNT+5
APCDTAB WVBB+4*, WVBB+7, WVBB+8!
APCDTDTR WVSK+5*, WVSK+9, WVSK+13!
APCDTHM WVTRT+3*, WVTRT+6, WVTRT+8!
APCDTLOI WVPHN+4*, WVPHN+18!
APCDTNT WVNT+4*, WVNT+5, WVNT+6!
APCDTOD WVPHN+18!
APCDTPRV WVTRT+4*, WVTRT+7, WVTRT+8!
APCDTR1 WVPHN+6*, WVPHN+14, WVPHN+19!
APCDTR2 WVPHN+7*, WVPHN+15, WVPHN+19!
APCDTR3 WVPHN+8*, WVPHN+16, WVPHN+19!
APCDTR4 WVPHN+9*, WVPHN+17, WVPHN+20!
APCDTREA WVSK+4*, WVSK+8, WVSK+13!
APCDTREC WVPHN+18!
APCDTRES WVSK+3*, WVSK+7, WVSK+13!, WVBB+3*, WVBB+6, WVBB+8!, WVPHN+3*, WVPHN+11
APCDTRT WVTRT+8!
APCDTRT( WVTRT+2, WVTRT+3, WVTRT+4
APCDTT WVACT+5!
APCDTTOD WVPHN+5*, WVPHN+13, WVPHN+18!
APCDTVDF WVNT+6!
APCDUDA WVNT+6!
APCDUNI WVCPT+5!
APCDV WVDXP+5!
>> APCDVEM WVCPT+2
U WVSK+3, WVSK+4, WVSK+5, WVSK+10, WVSK+11, WVSK+12, WVTRT+3, WVTRT+4, WVCPT+4, WVPED+4
, WVPED+5, WVPED+6, WVPED+7, WVPED+8, WVPED+9, WVPED+10, WVBB+3, WVBB+4, WVPHN+3, WVPHN+4
, WVPHN+5, WVPHN+6, WVPHN+7, WVPHN+8, WVPHN+9
Info |  Source |  Caller Graph |  Entry Points |  Interaction Calls |  Local Variables |  All