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 |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: ACHSDA

Package: Contract Health Management Information System

Routine: ACHSDA


Information

ACHSDA ; IHS/ITSC/PMF - PATIENT DATA ; [ 10/16/2001 8:16 AM ]

Source Information

Source file <ACHSDA.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
IHS Patient Registration 2 DOG^AG0  L2^AG2  
IHS VA Utilities 2 ^XBALLLK  ^XBCLS  
VA Fileman 2 ^DIE  ^DIR  

Entry Points

Name Comments DBIA/ICR reference
A ;
C ;CHECK FOR BEN. PACK. NUMBER
B ;
END ;
TEMP ;ADD NEW PATIENT WITH TEMPORART CHART NUMBER
QUES
A1 ;
ADD ;ADD A NEW PATIENT TO THE PB FILE
A2 ;
L0 ;
L1 ;
C1 ;
SBRS ;

External References

Name Field # of Occurrence
DOG^AG0 QUES+3
L2^AG2 QUES+3
^DIE L1+1, B+1, C1+1
^DIR SBRS+7
^XBALLLK A+5
^XBCLS ADD+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This Option Not Yet Available",!!
  • Line Location: ACHSDA+5
Function Call: WRITE
  • Prompt: " Must be a number"
  • Line Location: SBRS+14
Function Call: WRITE
  • Prompt: " Must be between 1 and 3"
  • Line Location: SBRS+15
Function Call: WRITE
  • Prompt: !!,*7,"This patient is already enrolled in the Benefit Package.",!!,"BENEFIT PACKAGE NUMBER: ",$P($G(^(DFN,0)),U,2),!!
  • Line Location: A1+1
Function Call: WRITE
  • Prompt: !!,*7,"The patient must be registered at Pawnee, Pawhuska, or White Eagle",!,"before he/she can be added to the Benefit Package file.",!!
  • Line Location: A2+2
Function Call: WRITE
  • Prompt: !!,*7,"The patient must be registered at Pawnee, Pawhuska, or White Eagle",!,"before he/she can be added to the Benefit Package file.",!!
  • Line Location: A2+4
Function Call: WRITE
  • Prompt: !!
  • Line Location: B+1
Function Call: WRITE
  • Prompt: !!,*7,"File deleted - no Benefit Package number.",!!
  • Line Location: C1+1
Function Call: WRITE
  • Prompt: !!,"At which facility will this patient be registered?",!!?10,"1...Pawnee",!?10,"2...White Eagle",!?10,"3...Pawhuska",!!,?10
  • Line Location: TEMP+1
Function Call: WRITE
  • Prompt: !!,"Choose the facility in which this patient will receive his primary care.",!!
  • Line Location: QUES+0
Routine Call
  • DIE
  • Line Location:
    • L1+1
    • B+1
    • C1+1
Routine Call
  • DIR
  • Line Location:
    • SBRS+7

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ACHS("ASITE" QUES+2*, QUES+3!
^AUPNPAT - [#9000001] A2+3
^AZOPBPP( ACHSDA+5, A1+1, B+1*, C1+1
^AZOPBPP("B" B+1*
^AZOPBPP(0 B+1*

Label References

Name Line Occurrences
@( L0+1
A A1+1, A2+4, C1+1
B A2+3
END ACHSDA+5, L0+1, A+5, C1+2, QUES+3
L0 L1+2
QUES QUES+1
SBRS SBRS+14, SBRS+15, TEMP+1
TEMP QUES

Naked Globals

Name Field # of Occurrence
^( A1+1
^(0 B+1*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT QUES+3!
ACHSYAYA L0+1*!
>> ASITE QUES+2*, QUES+3*
>> DA L1+1*, B+1*
DFN L0+1, L1+1, A+5, A1+1, A2+3, B+1, C1+1, QUES+3!
DFOUT SBRS+5!, SBRS+11*, TEMP+1
>> DIE L1+1*, B+1*
>> DIR(0 SBRS+6*
DLOUT SBRS+5!, SBRS+10*, TEMP+1
DOG QUES+3*!
DQOUT SBRS+5!, SBRS+13*, QUES, QUES+1*
>> DR L1+1*, B+1*, C1+1*
DTOUT SBRS+5!, TEMP+1
DUOUT SBRS+5!, SBRS+12*, TEMP+1
U L0+1, A1+1, B+1
>> Y SBRS+10, SBRS+11*, SBRS+12*, SBRS+13*, SBRS+14, SBRS+15, QUES+1*, QUES+2
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All