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: ACHSDFL

Package: Contract Health Management Information System

Routine: ACHSDFL


Information

ACHSDFL ; IHS/ITSC/PMF - DEFERRED SERVICES LETTER (1/2) ;JUL 10, 2008

Source Information

Source file <ACHSDFL.m>

Call Graph

Call Graph Total: 8

Package Total Call Graph
Kernel 3 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  
Contract Health Management Information System 2 ($$DF,$$DIR,RTRN)^ACHS  (DOC,START)^ACHSDFL1  
DRG Grouper 2 $$ICDDX^ICDEX  $$CPT^ICPTCOD  
VA Fileman 1 ^DIC  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Contract Health Management Information System 2 ACHS DEF LETTER  ACHSDFL1  

Entry Points

Name Comments DBIA/ICR reference
P2 ;
P3 ;
P0 ;
P1 ;
PAT ; --- Select Deferred Service
NAMERR ;
DEV ;
END1 ;
END ;EP
TYPE ;EP

External References

Name Field # of Occurrence
^%ZIS DEV+3
HOME^%ZIS DEV+4
^%ZISC DEV+7, END1+1
^%ZTLOAD DEV+10
$$DF^ACHS END+3
$$DIR^ACHS P3+1
RTRN^ACHS END+6, END+7
DOC^ACHSDFL1 END+6
START^ACHSDFL1 DEV+5
^DIC PAT+10
$$ICDDX^ICDEX TYPE+5
$$CPT^ICPTCOD TYPE+13

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!
  • Line Location: PAT+1
Function Call: WRITE
  • Prompt: !!,"You wish to print unmet needs letter ",$P(Y(0),U),!!
  • Line Location: P1+2
Function Call: WRITE
  • Prompt: ?5,$P($G(^DPT(DFN,0)),U)
  • Line Location: P1+4
Function Call: WRITE
  • Prompt: !?5,$P(X,U),!?5,$P(X,U,4)
  • Line Location: P1+6
Function Call: WRITE
  • Prompt: ", ",$P($G(^DIC(5,Y,0)),U,2)
  • Line Location: P1+8
Function Call: WRITE
  • Prompt: " ",$P(X,U,6),!!
  • Line Location: P1+9
Function Call: WRITE
  • Prompt: ?5,$P(X,U,7),!?5,$P(X,U,8),!?5,$P(X,U,9)
  • Line Location: P2+2
Function Call: WRITE
  • Prompt: ", ",$P($G(^DIC(5,Y,0)),U,2)
  • Line Location: P2+4
Function Call: WRITE
  • Prompt: " ",$P(X,U,11),!!
  • Line Location: P2+5
Function Call: WRITE
  • Prompt: !!
  • Line Location: DEV+1
Function Call: WRITE
  • Prompt: *7,!,"Please queue to system printers."
  • Line Location: DEV+7
Function Call: WRITE
  • Prompt: !!,*7,"No valid PATIENT NAME in this file.",!,"No letter may be printed until a valid patient is entered.",!!
  • Line Location: NAMERR+1
Function Call: WRITE
  • Prompt: !!!
  • Line Location: END+1
Function Call: WRITE
  • Prompt: "*** OFFICE COPY *** "
  • Line Location: END+2
Function Call: WRITE
  • Prompt: "DOCUMENT CANCELLED *"
  • Line Location: END+3
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: END+5
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: END+6
Function Call: WRITE
  • Prompt: !,?DIWL+10,$P($G(^ACHSDEF(DUZ(2),"D",ACHSA,200,ACHDX,0)),U,2),!
  • Line Location: TYPE+4
Function Call: WRITE
  • Prompt: !,?DIWL+10
  • Line Location: TYPE+5
Function Call: WRITE
  • Prompt: $P(^ICM($P($$ICDDX^ICDEX(ACHSDDX),U,6),0),U)
  • Line Location: TYPE+5
Function Call: WRITE
  • Prompt: !,?DIWL+10
  • Line Location: TYPE+6
Function Call: WRITE
  • Prompt: $P(^ICM($P($$ICDDX^ICDCODE(ACHSDDX),U,6),0),U)
  • Line Location: TYPE+6
Function Call: WRITE
  • Prompt: !,?DIWL+10,$P($G(^ICD9($P($G(^ACHSDEF(DUZ(2),"D",ACHSA,200,ACHDX,0)),U),0)),U,3),!
  • Line Location: TYPE+7
Function Call: WRITE
  • Prompt: !,?DIWL+10,$P($G(^ACHSDEF(DUZ(2),"D",ACHSA,300,ACHDX,0)),U,2)
  • Line Location: TYPE+10
Function Call: WRITE
  • Prompt: !,?DIWL+10,$P($G(^ICPT($P($G(^ACHSDEF(DUZ(2),"D",ACHSA,300,ACHDX,0)),U),0)),U),!
  • Line Location: TYPE+12
Function Call: WRITE
  • Prompt: !,?DIWL+10,$P($$CPT^ICPTCOD($P($G(^ACHSDEF(DUZ(2),"D",ACHSA,300,ACHDX,0)),U)),U,2),!
  • Line Location: TYPE+13
Function Call: WRITE
  • Prompt: !
  • Line Location: TYPE+15
Routine Call
  • %ZIS
  • Line Location:
    • DEV+4
Routine Call
  • DIC
  • Line Location:
    • PAT+10
Routine Call
  • %ZIS
  • Line Location:
    • DEV+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ACHSDEF - [#9002066] P2+1, TYPE+2, TYPE+3, TYPE+4, TYPE+9, TYPE+10, TYPE+13
^DIC(5 - [#5] P1+8, P2+4
^DPT - [#2] PAT+17, P1+4, P1+5
^ICM - [#80.3] TYPE+5

Label References

Name Line Occurrences
DEV DEV+7, DEV+13
END P3+2, DEV+4
END1 PAT+12, PAT+13
NAMERR P0+2
P0 PAT+16, PAT+17
P1 PAT+19
P2 P1+3
P3 P1+10
PAT P0+2, P3+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % P3+1*, P3+3
>> %ZIS DEV+2*
A PAT+2!
ACHDONE END+2, END+6!
ACHDPAT END+8!
ACHDST END+8!
ACHDX END+8!, TYPE+2*, TYPE+3, TYPE+4, TYPE+9*, TYPE+10, TYPE+13
ACHSA PAT+2!, PAT+15*, P2+1, END+8!, TYPE+2, TYPE+3, TYPE+4, TYPE+9, TYPE+10, TYPE+13
ACHSDDX END+8!, TYPE+3*, TYPE+5
>> ACHSPG END+6*
>> DA(1 PAT+9*
>> DFN PAT+18*, P1+3, P1+4, P1+5
DIC PAT+2!, PAT+5*, PAT+11!
DIC("A" PAT+8*
DIC("S" PAT+3*
DIC("W" PAT+4*
DIC(0 PAT+6*
>> DIWF ACHSDFL+7*, END+6*
>> DIWL ACHSDFL+7*, END+6*, TYPE+4, TYPE+5, TYPE+10, TYPE+13
>> DIWR ACHSDFL+7*, END+6*
>> DTOUT P3+2
>> DUOUT P3+2
DUZ(2 PAT+5, PAT+9, P2+1, TYPE+2, TYPE+3, TYPE+4, TYPE+9, TYPE+10, TYPE+13
>> I END+2*, END+3*
IO END+7
IO("Q" DEV+5, DEV+6!
IO("S" DEV+7
IO(0 END+7
IOF END+6
IOST DEV+7
>> POP DEV+4
U PAT+16, PAT+17, PAT+18, P0+1, P1+2, P1+4, P1+6, P1+7, P1+8, P1+9
, P2+2, P2+3, P2+4, P2+5, TYPE+3, TYPE+4, TYPE+5, TYPE+10, TYPE+13
>> X P0+1*, P0+2, P1+5*, P1+6, P1+7, P1+9, P2+1*, P2+2, P2+3, P2+5
>> Y PAT+12, PAT+13, PAT+15, P1+7*, P1+8, P2+3*, P2+4
>> Y(0 PAT+16, PAT+17, PAT+18, P0+1, P1+2
>> ZTDESC DEV+9*
>> ZTQUEQUED DEV+13
>> ZTRTN DEV+9*
>> ZTSAVE("ACHSA" DEV+9*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All