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

Package: IHS Patient Registration

Routine: AGACT


Information

AGACT ; IHS/ASDS/EFG - INACTIVATE/ACTIVATE A PATIENT'S FILE (BY FACILITY) ;

Source Information

Source file <AGACT.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
IHS Patient Registration 2 (LINE,PTLK,READ,YN)^AG  $$AGE^AGUTILS  
VA Fileman 2 DD^%DT  ^DIE  
Immunization Tracking 1 AUTOADD^BIPATE  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
IHS Patient Registration 1 AG0  

Entry Points

Name Comments DBIA/ICR reference
B ;Lookup Patient and Inactivate.
END
HELP
C1A
A1
B2
C2 ;
C1 ;EP - From ^AG0 to Activate a Pre-REG Patient.
B2A

External References

Name Field # of Occurrence
DD^%DT C1+1
LINE^AG A1
PTLK^AG A1+2
READ^AG A1, B2, C1+2, HELP+2
YN^AG B2, C1+2, C1A
$$AGE^AGUTILS B2A+16
AUTOADD^BIPATE B2A+16
^DIE B2A+7, B2A+10, B2A+18, C2+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?25,"1... INACTIVATE a file",!!?25,"2... ACTIVATE a file",!!?25,"Select 1 or 2 : "
  • Line Location: A1+0
Function Call: WRITE
  • Prompt: !!,$S(+Y=1:"IN",1:""),"ACTIVATE..."
  • Line Location: A1+1
Function Call: WRITE
  • Prompt: !!
  • Line Location: A1+2
Function Call: WRITE
  • Prompt: !!,"You wish to inactivate ",$P(^DPT(DFN,0),U),!!,"CORRECT? (Y/N) "
  • Line Location: B2+0
Function Call: WRITE
  • Prompt: !!,*7,"This patient has been deleted - no action taken."
  • Line Location: B2A+0
Function Call: WRITE
  • Prompt: !!,"The file is now inactive."
  • Line Location: B2A+11
Function Call: WRITE
  • Prompt: !,"RECORD DISPOSITION is:",!?5,"DATE INACTIVATED/DELETED : "
  • Line Location: C1+1
Function Call: WRITE
  • Prompt: Y
  • Line Location: C1+1
Function Call: WRITE
  • Prompt: Y
  • Line Location: C1+1
Function Call: WRITE
  • Prompt: !!,"You wish to activate ",$P(^DPT(DFN,0),U),!!,"CORRECT? (Y/N) "
  • Line Location: C1+2
Function Call: WRITE
  • Prompt: !!!,"Select the record disposition from among the following:",!
  • Line Location: HELP+0
Function Call: WRITE
  • Prompt: !,AG("I"),".",?5,$P(^AUTTDIS(AG("DIS"),0),U),!,$P(^(0),U,2),!
  • Line Location: HELP+1
Function Call: WRITE
  • Prompt: !,"Enter 1 - ",AG("I")-1," "
  • Line Location: HELP+2
Function Call: WRITE
  • Prompt: *7,"??"
  • Line Location: HELP+3
Routine Call
  • DIE
  • Line Location:
    • B2A+7
    • B2A+10
    • B2A+18
    • C2+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNPAT - [#9000001] B2A, C1+1, C2+1*
^AUTTDIS - [#9999999.02] C1+1, HELP+1
^DPT - [#2] B2, C1+2
^XTMP("AGHL7AG" B2A+14*, C2+3*

Label References

Name Line Occurrences
A1 A1, A1+3, B2, B2A+18, C1+2, C2+3
B2 B2
B2A B2
C1 A1+3, C1+2, C1A
C1A C1+2
C2 C1+2, C1A
END A1, A1+3, B2A, B2A+19, C1A
HELP B2A+9, HELP+3

Naked Globals

Name Field # of Occurrence
^(0 C1+1, C2+1*, HELP+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
AG C2+3!, END!
AG( HELP+1*, HELP+2
AG("CH" A1+1*, A1+3
AG("DELETE" B2A+18
AG("DIS" HELP*, HELP+1*
AG("EDIT" C1+2, C1A, C2+3
AG("I" HELP*, HELP+1*, HELP+2
AG("LINE" A1*
>> AGERR B2A+16
>> AUPNLK("INAC" A1+2*!
DA B2A+3!, B2A+4*, B2A+10!*, B2A+18!*, C2+2!*
DA(1 B2A+4*, B2A+10*, B2A+18*, C2+2*
DFN A1+3, B2, B2A, B2A+4, B2A+5, B2A+10, B2A+14, B2A+16, B2A+18, C1+1
, C1+2, C2+1, C2+2, C2+3, END!
>> DFOUT A1, B2, C1+2, C1A, HELP+2
DIC A1+2!, B2A+3!, B2A+10!, B2A+18!, C2+2!
DIE B2A+3!, B2A+5*, B2A+10*, B2A+18*, C2+2*
DIE("NO^" B2A+6*
>> DLOUT A1, HELP+2
>> DQOUT HELP+2
DR B2A+3!, B2A+6*, B2A+10!*, B2A+18!*, C2+2!*
DT B2A+16
>> DTOUT A1, B2, C1+2, C1A, HELP+2
>> DUOUT A1, A1+3, B2, C1+2, C1A, HELP+2
DUZ(2 B2A, B2A+4, B2A+10, B2A+14, B2A+16, B2A+18, C1+1, C2+1, C2+2, C2+3
U B2, B2A, C1+1, C1+2, C2+1, HELP+1
>> Y A1, A1+1, B2, B2A+10, C1+1*, C1+2, C1A, HELP+2*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All