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 |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: APCHAAP1

Package: Patient Care Component

Routine: APCHAAP1


Information

APCHAAP1 ; IHS/CMI/LAB - ;

Source Information

Source file <APCHAAP1.m>

Call Graph

Call Graph Total: 13

Package Total Call Graph
IHS VA Utilities 4 ^XBDBQUE  $$VAL^XBDIQ1  ^XBFMK  EN^XBVK  
Patient Care Component 3 ^APCDALVR  GETVISIT^APCDAPI4  PRINT^APCHAAP2  
Kernel 2 $$FMTE^XLFDT  $$REPEAT^XLFSTR  
VA Fileman 2 ^DIC  ^DIR  
IHS Patient 1 ($$AGE,$$DOB)^AUPNPAT  
Patient Care Component Reports 1 ($$PRIMPOV,$$PRIMPROV)^APCLV  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
iCare 1 BQIAAP  

Entry Points

Name Comments DBIA/ICR reference
HEAD ;
EN ;
ZIS ;
HEAD1 ;
BROWSE ;
VISIT ;
REDZONE(P) ;EP - get last recorded red zone instructions
VISIT1 ;
WRITE ; WRITE VISITS FOR SELECT
CTR(X,Y) ;EP - Center X in a field Y wide.
EXIT ;
VAST ;now create V Asthma entry
RESMED ;
YELZONE(P) ;EP - get last recorded yellow zone instructions
PRINT ;EP
SELPT ;
RELMED ;
SELECT ; SELECT EXISTING VISIT

External References

Name Field # of Occurrence
^APCDALVR VAST+10
GETVISIT^APCDAPI4 VISIT1+3
PRINT^APCHAAP2 PRINT+1
$$PRIMPOV^APCLV WRITE+11
$$PRIMPROV^APCLV WRITE+9
$$AGE^AUPNPAT HEAD1+5
$$DOB^AUPNPAT HEAD1+4
^DIC SELPT+3
^DIR RELMED+6, RELMED+13, RESMED+6, RESMED+13, SELECT+5, ZIS+1, HEAD+1
^XBDBQUE ZIS+6, BROWSE+2
$$VAL^XBDIQ1 WRITE+10
^XBFMK EXIT+2
EN^XBVK EXIT+1
$$FMTE^XLFDT SELECT+1, HEAD1+2
$$REPEAT^XLFSTR HEAD1+6

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,$$CTR("*** Print ASTHMA ACTION PLAN ***"),!!
  • Line Location: EN+2
Function Call: WRITE
  • Prompt: "This option will produce an Asthma Action Plan that",!,"can be given to the patient.",!!
  • Line Location: EN+3
Function Call: WRITE
  • Prompt: !
  • Line Location: SELPT+1
Function Call: WRITE
  • Prompt: !,"Patient's chart number is ",$P(^(0),U,2),!
  • Condition for execution: $D(^AUPNPAT(DFN,41,DUZ(2),0))
  • Line Location: SELPT+5
Function Call: WRITE
  • Prompt: !
  • Line Location: SELPT+5
Function Call: WRITE
  • Prompt: !!,"Please enter the RED ZONE Plan for this patient, including medication name(s)"
  • Line Location: RELMED+2
Function Call: WRITE
  • Prompt: !,"and instructions.",!
  • Line Location: RELMED+3
Function Call: WRITE
  • Prompt: !,"Red Zone Instructions currently recorded:",!?2,APCHRELM,!
  • Line Location: RELMED+4
Function Call: WRITE
  • Prompt: !!,"Please enter the YELLOW ZONE Plan for this patient, including medication name(s)"
  • Line Location: RESMED+2
Function Call: WRITE
  • Prompt: !,"and instructions.",!
  • Line Location: RESMED+3
Function Call: WRITE
  • Prompt: !,"Red Zone Instructions currently recorded:",!?2,APCHRESM,!
  • Line Location: RESMED+4
Function Call: WRITE
  • Prompt: !!,"These instuctions are already stored for today."
  • Line Location: VISIT+6
Function Call: WRITE
  • Prompt: !!,"Error creating visit......."
  • Line Location: VISIT1+5
Function Call: WRITE
  • Prompt: !!,"You must now select a visit to attach these instuctions to. Select the "
  • Line Location: VISIT1+8
Function Call: WRITE
  • Prompt: !,"appropriate visit or create a new visit.",!
  • Line Location: VISIT1+9
Function Call: WRITE
  • Prompt: !!,"PATIENT: ",$P(^DPT(DFN,0),U)," has one or more VISITs on ",$$FMTE^XLFDT(DT),".",!,"If one of these is your visit, please select it",!
  • Line Location: SELECT+1
Function Call: WRITE
  • Prompt: !,APCHC," Create New Visit",!
  • Line Location: SELECT+3
Function Call: WRITE
  • Prompt: !!,"Error creating V Asthma entry to store instuctions."
  • Line Location: VAST+11
Function Call: WRITE
  • Prompt: !
  • Line Location: ZIS+1
Function Call: WRITE
  • Prompt: !,APCHC," TIME: ",APCHVLT,"LOC: ",APCHVLOC," TYPE: ",$P(APCHX,U,3)," CAT: ",$P(APCHX,U,7)," CLINIC: ",$S($P(APCHX,U,8)]"":$E($P(^DIC(40.7,$P(APCHX,U,8),0),U),1,8),1:"<NONE>")
  • Line Location: WRITE+6
Function Call: WRITE
  • Prompt: !?3,"Hospital Location: ",$P($G(^SC($P(APCHX,U,22),0)),U)
  • Line Location: WRITE+8
Function Call: WRITE
  • Prompt: !?3,"Provider on Visit: ",APCHTIU
  • Line Location: WRITE+9
Function Call: WRITE
  • Prompt: !?3,"TIU Note: ",$$VAL^XBDIQ1(9000010.28,APCHTIU,.01)," AUTHOR: ",$$VAL^XBDIQ1(9000010.28,APCHTIU,1202)
  • Line Location: WRITE+10
Function Call: WRITE
  • Prompt: !?3,"Primary POV: ",APCHTIU," Narrative: ",$E($$PRIMPOV^APCLV(APCHV1,"N"),1,40)
  • Line Location: WRITE+11
Function Call: WRITE
  • Prompt: !
  • Line Location: HEAD+1
Function Call: WRITE
  • Prompt: !,$P(^DIC(4,DUZ(2),0),U),?53,"Today's Date: ",$$FMTE^XLFDT(DT),!
  • Line Location: HEAD1+2
Function Call: WRITE
  • Prompt: "Patient Name: ",$P(^DPT(DFN,0),U)
  • Line Location: HEAD1+3
Function Call: WRITE
  • Prompt: ?45,"Birth Date: ",$$DOB^AUPNPAT(DFN,"E")
  • Line Location: HEAD1+4
Function Call: WRITE
  • Prompt: ?71,"Age: ",$$AGE^AUPNPAT(DFN),!
  • Line Location: HEAD1+5
Function Call: WRITE
  • Prompt: $$REPEAT^XLFSTR("_",79),!!
  • Line Location: HEAD1+6
Routine Call
  • DIC
  • Line Location:
    • SELPT+3
Routine Call
  • DIR
  • Line Location:
    • RELMED+6
    • RELMED+13
    • RESMED+6
    • RESMED+13
    • SELECT+5
    • ZIS+1
    • HEAD+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^APCCCTRL - [#9001000] VISIT+12
^AUPNPAT - [#9000001] SELPT+5
^AUPNVAST - [#9000010.41] REDZONE+7, YELZONE+6
^AUPNVAST("AA" REDZONE+5, REDZONE+6, YELZONE+4, YELZONE+5
^AUPNVNOT("AD" WRITE+10
^AUPNVSIT - [#9000010] SELECT+2
^AUTTLOC - [#9999999.06] WRITE+4
^DIC(4 - [#4] HEAD1+2
^DIC(40.7 - [#40.7] WRITE+6
^DPT - [#2] SELECT+1, HEAD1+3
^SC - [#44] WRITE+8

Label References

Name Line Occurrences
$$CTR EN+2
$$REDZONE RELMED+1, VISIT+4
$$YELZONE RESMED+1, VISIT+5
BROWSE ZIS+4
EXIT SELPT+4, ZIS+2, ZIS+4, ZIS+7
RELMED RESMED+7, RESMED+8
RESMED RELMED+10, RELMED+11, RESMED+14, RESMED+15
SELPT RELMED+7, RELMED+8, RELMED+14, RELMED+15, VISIT1+5, VAST+11
VAST VISIT1+6
VISIT RESMED+10, RESMED+11
VISIT1 SELECT+6, SELECT+7
WRITE SELECT+2
ZIS VISIT+1, VISIT+6

Naked Globals

Name Field # of Occurrence
^(0 SELPT+5, WRITE+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
APCDALVR VISIT1+1!, SELECT+9!, VAST+2!
APCDALVR("APCDAFLG" VAST+11
APCDALVR("APCDATMP" VAST+4*
APCDALVR("APCDPAT" VAST+7*
APCDALVR("APCDTPRV" VAST+5*
APCDALVR("APCDTRZ" VAST+8*
APCDALVR("APCDTYZ" VAST+9*
APCDALVR("APCDVSIT" VAST+3*
>> APCDAVLR("APCDTEPR" VAST+6*
>> APCDVSIT VISIT1+6*, SELECT+8*, VAST+3
>> APCHA SELECT+2*
>> APCHC SELECT+2*, SELECT+3*, SELECT+5, SELECT+7, WRITE+1*, WRITE+6
>> APCHERR VISIT1+4*, VISIT1+5
APCHIN VISIT+8!, VISIT1+3, SELECT+9!
APCHIN("FORCE ADD" , SELECT+6*, SELECT+7*
APCHIN("PAT" VISIT+9*
APCHIN("SHOW VISITS" , VISIT+15*
APCHIN("SITE" VISIT+11*
APCHIN("SRV C AT" , VISIT+13*
APCHIN("TIME RANGE" , VISIT+16*
APCHIN("USR" VISIT+14*
APCHIN("VISIT DATE" , VISIT+10*,  TYPE" , VISIT+12*
>> APCHOPT ZIS+3*
>> APCHQ HEAD+1*
>> APCHRELM RELMED+1*, RELMED+4, RELMED+5, RELMED+10*, RELMED+16*, VISIT+4, VAST+8
>> APCHRESM RESMED+1*, RESMED+4, RESMED+5, RESMED+10*, RESMED+16*, VISIT+5, VAST+9
>> APCHRZC RELMED+9*, RELMED+10, RELMED+11, VISIT+1
>> APCHRZY RESMED+9*, RESMED+10, RESMED+11, VISIT+1
APCHTIU WRITE+9*, WRITE+10*, WRITE+11*, WRITE+12!
APCHV VISIT1+2!, VISIT1+3
APCHV( VISIT1+6, SELECT+2
APCHV(0 VISIT1+4, VISIT1+6
APCHV1 SELECT+2!*, WRITE+1, WRITE+9, WRITE+10, WRITE+11
APCHVLOC WRITE+3*, WRITE+4*, WRITE+5*, WRITE+6, WRITE+12!
APCHVLT WRITE+2*, WRITE+6, WRITE+12!
>> APCHX SELECT+2*, WRITE+2, WRITE+4, WRITE+6, WRITE+7, WRITE+8
>> APCHX1( SELECT+8, WRITE+1*
>> APCHX11 SELECT+2*, WRITE+7
D REDZONE+1~, REDZONE+3*, REDZONE+5*, REDZONE+6, REDZONE+7, YELZONE+1~, YELZONE+3*, YELZONE+4*, YELZONE+5, YELZONE+6
DA RELMED+6!, RELMED+13!, RESMED+6!, RESMED+13!, SELECT+5!, ZIS+1!
>> DFN SELPT+2*, SELPT+5*, RELMED+1, RESMED+1, VISIT+4, VISIT+5, VISIT+9, SELECT+1, VAST+7, HEAD1+3
, HEAD1+4, HEAD1+5
DIC SELPT+3!*
DIC("A" SELPT+3*
DIC(0 SELPT+3*
DIR RELMED+6!, RELMED+13!, RESMED+6!, RESMED+13!, SELECT+4!, SELECT+5!, ZIS+1!, HEAD+1!
DIR("A" RELMED+6*, RELMED+13*, RESMED+6*, RESMED+13*, SELECT+5*, ZIS+1*
DIR("B" ZIS+1*
DIR(0 RELMED+5*, RELMED+13*, RESMED+5*, RESMED+13*, SELECT+5*, ZIS+1*, HEAD+1*
>> DIRUT RELMED+7, RELMED+15, RESMED+7, RESMED+15, SELECT+6, ZIS+2
DT VISIT+4, VISIT+5, VISIT+10, SELECT+1, HEAD1+2
>> DTOUT HEAD+1
DUZ VISIT+14, VAST+5, VAST+6
DUZ(2 SELPT+5, VISIT+11, VISIT+12, HEAD1+2
I REDZONE+1~, REDZONE+6*, REDZONE+7, YELZONE+1~, YELZONE+5*, YELZONE+6
IO HEAD+1
IO(0 HEAD+1
IOF EN+1, HEAD1+1
IOM CTR+1
IOST HEAD+1
>> O VISIT+3*, VISIT+4*, VISIT+6
P REDZONE~, REDZONE+5, REDZONE+6, YELZONE~, YELZONE+4, YELZONE+5
R VISIT+4*, REDZONE+1~, REDZONE+2*, REDZONE+5, REDZONE+7*, REDZONE+10, YELZONE+1~, YELZONE+2*, YELZONE+4, YELZONE+6*
, YELZONE+9
S REDZONE+1~, REDZONE+4*, REDZONE+7*, REDZONE+10, YELZONE+3*, YELZONE+6*, YELZONE+9
>> T VISIT+3*, VISIT+5*, VISIT+6
U SELPT+5, RELMED+1, RESMED+1, VISIT+4, VISIT+5, VISIT+12, VISIT1+4, VISIT1+6, SELECT+1, VAST+8
, VAST+9, WRITE+4, WRITE+6, WRITE+7, WRITE+8, REDZONE+7, REDZONE+10, YELZONE+6, YELZONE+9, HEAD1+2
, HEAD1+3
>> V VISIT1+6*
X RELMED+14, RESMED+14, CTR~, CTR+1
>> XBIOP BROWSE+2*
>> XBNS ZIS+5*
>> XBRC ZIS+5*, BROWSE+2*
>> XBRP ZIS+5*, BROWSE+1*
>> XBRX ZIS+5*, BROWSE+2*
Y SELPT+4, SELPT+5, RELMED+8, RELMED+9, RELMED+16, RESMED+8, RESMED+9, RESMED+16, VISIT+5*, SELECT+7
, SELECT+8, ZIS+3, ZIS+4, HEAD+1, CTR~, CTR+1
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All