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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: ACHSDFDP

Package: Contract Health Management Information System

Routine: ACHSDFDP


Information

ACHSDFDP ; IHS/ITSC/PMF - DEFERRED SERVICES DISPLAY/EDIT ; [ 12/06/2002 10:36 AM ]

Source Information

Source file <ACHSDFDP.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
VA Fileman 3 ^DIC  ^DIE  $$GET1^DIQ  
Kernel 2 $$FMTE^XLFDT  $$REPEAT^XLFSTR  
Contract Health Management Information System 1 ($$DF,$$DIR,VIDEO)^ACHS  
IHS VA Utilities 1 $$EXTSET^XBFUNC  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Contract Health Management Information System 1 ACHSDF  

Entry Points

Name Comments DBIA/ICR reference
END ;
HDR ; --- Screen Header.
DIE(DR) ; --- Edit items in Deferred Service
1 ; --- Request Date.
3 ; --- Deferred Service Category.
2 ; --- Type of Service.
5 ; --- Units of Service.
PG ; --- Page Display
7 ; --- Deferred Service Comment.
6 ; --- Diagnosis / Procedure.
4 ; --- Deferred Service Sub Category.

External References

Name Field # of Occurrence
$$DF^ACHS HDR+2, HDR+6, PG+2, PG+4, PG+5
$$DIR^ACHS PG+14
VIDEO^ACHS ACHSDFDP+7
^DIC 4+5
^DIE 4+11, DIE+5
$$GET1^DIQ PG+4
$$EXTSET^XBFUNC PG+6
$$FMTE^XLFDT PG+2, PG+5
$$REPEAT^XLFSTR HDR+7

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: IORVON,!?79,!
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: "CHS UNMET NEED",?28,"PATIENT: ",$E(ACHDPAT,1,25)
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: ?62,"CHART# ",$S($$DF^ACHS(0,5)="Y":$P($G(^AUPNPAT($$DF^ACHS(0,6),41,DUZ(2),0)),U,2),$$DF^ACHS(0,5)="N":$$DF^ACHS(0,12),1:"NONE")
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: $J("",79-$X),!?79,IORVOFF,!,$$REPEAT^XLFSTR("=",79),!
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: "DATE ISSUED: ",$$FMTE^XLFDT($$DF^ACHS(0,2))
  • Line Location: PG+2
Function Call: WRITE
  • Prompt: ?45,"ISSUED BY: ",$E($$GET1^DIQ(200,$$DF^ACHS(0,3),.01),1,25),!
  • Line Location: PG+4
Function Call: WRITE
  • Prompt: !,"1. DATE OF REQUEST: ",IORVON,$$FMTE^XLFDT($$DF^ACHS(0,4)),IORVOFF
  • Line Location: PG+5
Function Call: WRITE
  • Prompt: ?45,"2. TYPE: ",IORVON,$$EXTSET^XBFUNC(9002066.01,110,$P(ACHDFDP,U,2)),IORVOFF
  • Line Location: PG+6
Function Call: WRITE
  • Prompt: !!,"3. CATEGORY: ",IORVON," ",$P($G(^ACHSDFC($P(ACHDFDP,U),0)),U)," ",IORVOFF
  • Line Location: PG+7
Function Call: WRITE
  • Prompt: !!,"4. SUB-CATEGORY: ",IORVON,$P($G(^ACHSDFC($P(ACHDFDP,U),1,$P(ACHDFDP,U,4),0)),U)," ",IORVOFF
  • Line Location: PG+8
Function Call: WRITE
  • Prompt: !!,"5. UNITS OF SERVICE: ",IORVON," ",$P(ACHDFDP,U,3)," ",IORVOFF
  • Line Location: PG+9
Function Call: WRITE
  • Prompt: !!,"6.*DIAGNOSIS / PROCEDURE: ",IORVON,$S($O(^ACHSDEF(DUZ(2),"D",ACHSA,200,0)):" ICD9",1:""),$S($O(^ACHSDEF(DUZ(2),"D",ACHSA,300,0)):" CPT",1:""),IORVOFF
  • Line Location: PG+10
Function Call: WRITE
  • Prompt: !!,"7.*UNMET NEED COMMENT: ",IORVON,$S($D(^ACHSDEF(DUZ(2),"D",ACHSA,400,0)):"YES",1:"NONE"),IORVOFF
  • Line Location: PG+12
Function Call: WRITE
  • Prompt: !!,IORVON," * ",IORVOFF," - CHOOSE THESE TO SEE FURTHER INFORMATION"
  • Line Location: PG+13
Function Call: WRITE
  • Prompt: !!
  • Line Location: DIE+1
Routine Call
  • DIE
  • Line Location:
    • 4+11
    • DIE+5
Routine Call
  • DIC
  • Line Location:
    • 4+5

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ACHSDEF - [#9002066] ACHSDFDP+5, ACHSDFDP+6, PG+1, PG+10, PG+12, 6+1, 6+2
^ACHSDFC - [#9002066.5] PG+7, PG+8
^AUPNPAT - [#9000001] HDR+6
^DPT - [#2] HDR+2

Label References

Name Line Occurrences
@( PG+17
DIE 1+1, 2+1, 3+1, 5+1, 6+1, 6+2, 7+1
HDR ACHSDFDP+12
PG ACHSDFDP+12

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % PG+14*, PG+15
ACHDFDP ACHSDFDP+11~, PG+1*, PG+6, PG+7, PG+8, PG+9, 4+2, 4+4, 6+1, 6+2
>> ACHDONE ACHSDFDP+12, PG+15*
>> ACHDPAT HDR+2*, HDR+5
>> ACHSA ACHSDFDP+4, ACHSDFDP+6, PG+1, PG+10, PG+12, 4+9, 6+1, 6+2, DIE+4
DA 4+9*, 4+12!, DIE+4*, DIE+6!
DA(1 4+8*, DIE+3*
DIC 4+1~, 4+2*, 4+12!
DIC("B" 4+4*
DIC(0 4+3*
DIE 4+7*, 4+12!, DIE+2*, DIE+6!
DR 4+10*, DIE~
>> DTOUT ACHSDFDP+12, PG+16
>> DUOUT ACHSDFDP+12, PG+16
DUZ(2 ACHSDFDP+5, ACHSDFDP+6, HDR+6, PG+1, PG+10, PG+12, 4+7, 4+8, 6+1, 6+2
, DIE+2, DIE+3
IOF HDR+1
>> IORVOFF ACHSDFDP+9*, HDR+7, PG+5, PG+6, PG+7, PG+8, PG+9, PG+10, PG+12, PG+13
>> IORVON ACHSDFDP+8*, HDR+3, PG+5, PG+6, PG+7, PG+8, PG+9, PG+10, PG+12, PG+13
U HDR+2, HDR+6, PG+6, PG+7, PG+8, PG+9, 4+2, 4+4, 6+1, 6+2
>> Y PG+17, 4+6, 4+10
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All