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

Package: Contract Health Management Information System

Routine: ACHSA5


Information

ACHSA5 ; IHS/ITSC/TPF/PMF - ENTER DOCUMENTS (6/8)-(SCC,DCR,DEST,REF,COM,DAYS) ;JUL 10, 2008

Source Information

Source file <ACHSA5.m>

Call Graph

Call Graph Total: 11

Package Total Call Graph
Contract Health Management Information System 8 ($$PARM,RTRN)^ACHS  END^ACHSA  (A1,ACHK)^ACHSA4  ^ACHSA6  NOBLK^ACHSAB  ($$PRMT,DIRD,READ)^ACHSFU  ^ACHSLDCR  $$FY^ACHSVAR  
VA Fileman 2 ^DIC  ^DIR  
IHS VA Utilities 1 $$DIR^XBDIR  

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Contract Health Management Information System 3 ACHSA4  ACHSA44  ACHSA6  

Entry Points

Name Comments DBIA/ICR reference
OBJCHK ;EP - Check if object class inactivated.
B12 ; Check blanket parm., input Dental Referral Type.
B10 ;
B11 ;
DATA ;; SCC^OCC
SSNCHK ; Check for SSN.
B3A ;
418 ; Ask user to ID x-walk for Tribal Ops, Contracts, or Indirect
C2 ;
B10A ;
E1 ;
C1 ;EP - Input optional comment.
BLKERR ; Blanket not allowed.
STO(S) ; Given an SCC, return the OCC.
B8 ;
DISPMPC ;EP - From call to DIR, display medical priorities
B4 ;
B5 ;
B6 ;
B1 ;EP - Input Service Class Code.
B2 ;
B3 ;
D2 ;
B9 ;
D1 ; Input estimated LOS.

External References

Name Field # of Occurrence
$$PARM^ACHS B10A+3, B12+1, C1+1, BLKERR+1
RTRN^ACHS BLKERR+2
END^ACHSA B1+8, B4+4, B11+6, C1+6, D1+5, D2+2
A1^ACHSA4 B1+11, B4+1, B9+9
ACHK^ACHSA4 B4+5, B4+6, B11+7
^ACHSA6 E1+1
NOBLK^ACHSAB B6+2
$$PRMT^ACHSFU C1+3
DIRD^ACHSFU D1+4
READ^ACHSFU B1+4, B4+3, C1+5, DISPMPC+4
^ACHSLDCR B9+6
$$FY^ACHSVAR STO+3
^DIC 418+5
^DIR B11+4, B12+7, D1+4
$$DIR^XBDIR B3A+6, D2+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Service Class Code: "
  • Line Location: B1+1
Function Call: WRITE
  • Prompt: $P($G(^ACHS(3,DUZ(2),1,ACHSSCC,0)),U),"// "
  • Line Location: B1+2
Function Call: WRITE
  • Prompt: !!?3,"ITEM #",?12,"SER CL",?20,"DESCRIPTION",!?3,"------",?12,"------",?20,"-----------",!
  • Line Location: B1+13
Function Call: WRITE
  • Prompt: !?5,$J(ACHSCT,3)
  • Line Location: B3A+2
Function Call: WRITE
  • Prompt: ?12,$P($G(^ACHS(3,DUZ(2),1,R,0),"UNDEFINED"),U)
  • Line Location: B3A+3
Function Call: WRITE
  • Prompt: ?20,$P($G(^ACHS(3,DUZ(2),1,R,0),"UNDEFINED"),U,2)
  • Line Location: B3A+4
Function Call: WRITE
  • Prompt: *7,!,"No SERVICE CLASS CODES for CAN.",!!,"Notify Site Manager.",!
  • Line Location: B4+1
Function Call: WRITE
  • Prompt: !!?20,"SELECT ITEM (1-",ACHSCT,") "
  • Line Location: B4+2
Function Call: WRITE
  • Prompt: " ",Y
  • Line Location: B4+9
Function Call: WRITE
  • Prompt: *7," Required"
  • Line Location: B5+5
Function Call: WRITE
  • Prompt: !!,*7," ONLY 252D or 254E FOR DENTAL."
  • Line Location: B6+4
Function Call: WRITE
  • Prompt: !!,*7," ONLY 252G, 252M, 252F OR 252R FOR HOSPITAL CARE"
  • Line Location: B6+5
Function Call: WRITE
  • Prompt: *7,"INVALID INPATIENT SERVICE CLASS."
  • Line Location: B6+6
Function Call: WRITE
  • Prompt: *7," ??"
  • Line Location: B8+4
Function Call: WRITE
  • Prompt: " ",*7,"INVALID SERVICE CLASS"
  • Line Location: B9+3
Function Call: WRITE
  • Prompt: *7,!!,"Unspecified DCR For CAN/SERVICE CLASS CODE pair"
  • Line Location: B9+9
Function Call: WRITE
  • Prompt: !!,"DCR ACCOUNT = ",$P($G(^ACHS(9,DUZ(2),"RN")),U,ACHSDCR)
  • Line Location: B10+1
Function Call: WRITE
  • Prompt: !,"WARNING - NO EQUIVALENT OBJECT CLASS CODE.",!,"USING SERVICE CLASS CODE."
  • Line Location: B10+4
Function Call: WRITE
  • Prompt: !,"WARNING - NO EQUIVALENT OBJECT CLASS CODE.",!,"USING SERVICE CLASS CODE."
  • Line Location: B10+5
Function Call: WRITE
  • Prompt: !,"This is an invalid Service class code - NO EQUIVALENT OBJECT CLASS CODE."
  • Line Location: B10+7
Function Call: WRITE
  • Prompt: !,"WARNING - NO EQUIVALENT SERVICE CLASS CODE.",!,"USING OBJECT CLASS CODE."
  • Line Location: B10+8
Function Call: WRITE
  • Prompt: !,"OBJECT CLASS CODE = ",$E(ACHSOBJC,1,2),".",$E(ACHSOBJC,3,4)
  • Line Location: B10+9
Function Call: WRITE
  • Prompt: "INVALID OBJECT CLASS CODE"
  • Line Location: B10+13
Function Call: WRITE
  • Prompt: " : ",$P($G(^ACHSOCC(ACHSOBJC,0)),U,2)
  • Line Location: B10+14
Function Call: WRITE
  • Prompt: !
  • Line Location: B11+1
Function Call: WRITE
  • Prompt: *7,!,"SITE PARAMETER PREVENTS ISSUE OF BLANKET FOR FI DOCUMENT."
  • Line Location: B12+1
Function Call: WRITE
  • Prompt: !
  • Line Location: B12+4
Function Call: WRITE
  • Prompt: !!,"Optional comments: ",ACHSCOPT
  • Line Location: C1+2
Function Call: WRITE
  • Prompt: !,$$PRMT^ACHSFU(17,ACHSCOPT,10),!,"Optional Comments: "
  • Line Location: C1+3
Function Call: WRITE
  • Prompt: !," Enter a Comment (10 chars max) If You Wish",!," Enter An '@' To Delete Current Comment"
  • Line Location: C1+8
Function Call: WRITE
  • Prompt: *7," Too Long"
  • Line Location: C1+11
Function Call: WRITE
  • Prompt: *7
  • Line Location: D1+10
Function Call: WRITE
  • Prompt: !!,*7,"Blankets only valid for IHS Payment Documents",!,"Transaction Cancelled",!!,"'",$P($G(^DD(9002080,14.03,0)),U),"' parameter = '",$$PARM^ACHS(2,3),"'.",!!
  • Line Location: BLKERR+1
Function Call: WRITE
  • Prompt: !,*7,?12,$P($G(^ACHS(3,DUZ(2),1,R,0)),U)," INVALID INACTIVATION DATE"
  • Line Location: OBJCHK+7
Function Call: WRITE
  • Prompt: !!
  • Line Location: DISPMPC+1
Function Call: WRITE
  • Prompt: !,"Press RETURN..."
  • Line Location: DISPMPC+4
Routine Call
  • DIC
  • Line Location:
    • 418+5
Routine Call
  • DIR
  • Line Location:
    • B11+4
    • B12+7
    • D1+4

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ACHSOCC - [#9002078.5] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ACHS(3 - [#9002063] B1+2, B1+5, B2+2, B2+4, B3A+3, B3A+4, B4+8, B5+3, B5+4, B8+3
, B10+2, B10+8, B10+12, B10A+1, OBJCHK+2, OBJCHK+6, OBJCHK+7
^ACHS(9 - [#9002069] B10+1
^ACHSOCC - [#9002078.5] B10+14
^ACHSOCC("B" B10+11
^DD(9002080 BLKERR+1
^DD(9002080.01 DISPMPC+2, DISPMPC+3, DISPMPC+4
^DPT - [#2] SSNCHK+1

Label References

Name Line Occurrences
$$STO B6+1, B10+2
418 STO+6
B1 B5+5, B5+6, B6+2, B6+4, B6+5, B6+6, B8+5, B9+3, B9+8, B10+7
, B10+13
B10 B12+1, C1+7
B10A B10+12
B11 B12+8
B12 B12+8
B2 B2+11, B2+28, B3+2, B3A+7
B3 B2+16, B2+17, B2+24, B2+25
B4 B2+3, B3A+6, B4+7
B5 B1+11
B6 B5+3
B8 B6+4, B6+5
B9 B8+1, B8+3
BLKERR B10A+3, C1+1
C1 B12+3, C1+8, C1+12, D1+6
C2 C1+2, C1+9, C1+10
D1 D2+3
E1 C2+1, D1+9
OBJCHK B3+1, B9+2
SSNCHK B11+9

Naked Globals

Name Field # of Occurrence
^(0 B10+11

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % DISPMPC+1*, DISPMPC+2*, DISPMPC+3, DISPMPC+4, STO+9*
>> ACHS B2+4*, B2+11, B2+16, B2+24, B2+28
>> ACHS( B3A+1*, B4+8
>> ACHSACFY OBJCHK+6, STO+2
>> ACHSBLKF B2+11, B6+2, B10A+3, B12+1, C1+1
>> ACHSCAN B1+2, B1+3
>> ACHSCC B2+2
>> ACHSCOPT C1+2*, C1+3, C1+4, C1+10*
>> ACHSCT B1+12*, B3A+1*, B3A+2, B3A+6, B4+1, B4+2, B4+7
>> ACHSDCR B5+2*, B9+8, B9+9, B10+1
>> ACHSDEST B10A+1*, B10A+2*, B10A+3, B11+3, B11+8*, B11+9, B12+1, B12+3, C1+1
>> ACHSEDOS STO+3
>> ACHSESDA D1+1*, D1+3, D1+7*, D2+1
>> ACHSF638 B2+16, B2+17, B2+24, B2+25, B6+4, B6+5, B10+7
ACHSOBIF B9+4!, OBJCHK+2*, OBJCHK+3
>> ACHSOBJC B6+1*, B10+2*, B10+7, B10+8*, B10+9, B10+11*, B10+12*, B10+13, B10+14
ACHSOBOK B3+2, B9+3, B9+4!, OBJCHK+1!, OBJCHK+3*, OBJCHK+9*
>> ACHSQUIT B1+8, B4+4, C1+6, DISPMPC+2
>> ACHSREFT B12+2*, B12+6, B12+9*
>> ACHSSAME B1+2, B1+3*
>> ACHSSCC B1+2, B1+5, B1+6*, B4+1*, B4+8*, B5+3, B8+1, B8+3*, B9+1, B9+9*
, B10+2, B10+8, B10A+1
>> ACHSSLOC C1+2
>> ACHSTYP B2+16, B2+17, B2+24, B2+25, B2+28, B6+4, B6+5, B6+6, B12+3, C2+1
>> DFN SSNCHK+1
DIC 418+1~, 418+2*
DIC("S" 418+2*, 418+3*
DIC(0 418+2*
DIR B11+5!, B12+10!, D1+8!
DIR("??" B12+5*
DIR("B" B11+3*, B12+6*, D1+3*
DIR(0 B11+2*, B12+5*, D1+2*
>> DIRUT B12+8, D2+2
>> DTOUT B11+6, B12+8, D1+5
>> DUOUT B1+11, B4+5, B11+7, B12+8, C1+7, D1+6, D2+3
DUZ(2 B1+2, B1+5, B2+2, B2+4, B3A+3, B3A+4, B4+8, B5+3, B5+4, B8+3
, B10+1, B10+2, B10+8, B10+12, B10A+1, OBJCHK+2, OBJCHK+6, OBJCHK+7
O STO+7~, STO+8*, STO+9*, STO+10
>> R B1+12*, B2+2*, B2+3, B2+4, B3A+1, B3A+3, B3A+4, B9+1*, OBJCHK+2, OBJCHK+6
, OBJCHK+7
S STO~, STO+1, STO+2, STO+3, STO+6, STO+9, 418+3, 418+4!
T STO+7~, STO+9*
U B1+2, B1+5, B2+4, B3A+3, B3A+4, B4+8, B5+3, B8+3, B10+1, B10+2
, B10+8, B10+14, B10A+1, BLKERR+1, SSNCHK+1, OBJCHK+2, OBJCHK+6, OBJCHK+7, STO+3, STO+9
, 418+6
>> X B8+3*, D1+4, OBJCHK+6*, OBJCHK+8
>> Y B1+5*, B1+11, B4+6, B4+7, B4+8*, B4+9, B5+1*, B5+2, B5+3*, B5+4*
, B5+5, B5+6, B6+1, B6+2, B6+4, B6+5, B6+6, B8+3, B11+8, B12+9
, C1+8, C1+9, C1+10, D1+7, D1+9, D2+1*, D2+3, OBJCHK+6*, OBJCHK+7, 418+6
>> Y(0 418+6

Marked Items

Name Field # of Occurrence
$T(DATA+% STO+9
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 |  Naked Globals |  Local Variables |  Marked Items |  All