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 |  Local Variables |  All
Print Page as PDF
Routine: AGDELPAT

Package: IHS Patient Registration

Routine: AGDELPAT


Information

AGDELPAT ; IHS/ASDS/EFG - DELETE HRN ;

Source Information

Source file <AGDELPAT.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
VA Fileman 3 NOW^%DTC  ^DIE  ^DIR  
IHS Patient Registration 2 (PTLK,READ,YN)^AG  INITL^AGMAN  

Entry Points

Name Comments DBIA/ICR reference
DFN ;
END
NODFN1
NODFN ;EP - Without Pre-Defined Patient.
SSN

External References

Name Field # of Occurrence
NOW^%DTC DFN+2
PTLK^AG NODFN+1
READ^AG NODFN1+1, SSN+1
YN^AG NODFN1+1
INITL^AGMAN DFN+2
^DIE DFN+4
^DIR DFN+11

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"You wish to delete the Health Record Number for """,AG("NAME"),""".",!," CORRECT? (Y/N) N// "
  • Line Location: NODFN1+0
Function Call: WRITE
  • Prompt: !!,"The Health Record Number for ",AG("NAME")," is deleted.",!!
  • Line Location: DFN+5
Function Call: WRITE
  • Prompt: *7,!!,"This is the only HRN for this patient.",!,"If the HRN and/or SSN (",$P(^DPT(DFN,0),U,9),") were entered in error,",!,"and you want to use the SSN for another entry,",!,"you must delete the SSN before deleting the HRN.",!
  • Line Location: SSN+0
Function Call: WRITE
  • Prompt: *7,!,"Please enter 'S' or 'C'."
  • Line Location: SSN+1
Routine Call
  • DIE
  • Line Location:
    • DFN+4
Routine Call
  • DIR
  • Line Location:
    • DFN+11

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AGPATCH( DFN+3*
^AUPNPAT - [#9000001] DFN+1, DFN+3
^DPT - [#2] NODFN+2, DFN+1, DFN+3, SSN
^XTMP("AGHL7AG" DFN+6*

Label References

Name Line Occurrences
END NODFN1+1, DFN+1
NODFN NODFN1+1, NODFN1+2
NODFN1 NODFN1+1
SSN DFN+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % DFN+2
>> AG("INITL" DFN+3
>> AG("NAME" NODFN+2*, NODFN1, DFN+5
AGDT END!
>> AGZ("I" SSN+1*
>> AUPNLK("INAC" NODFN+1*!
>> DA DFN+4*
>> DA(1 DFN+4*
DFN NODFN+2, DFN+1, DFN+3, DFN+4, DFN+6, END!, SSN
DFOUT NODFN1+1, DFN+7!
DIC NODFN+1!
>> DIE DFN+4*
DIR DFN+8!
DIR("A" DFN+10*
DIR(0 DFN+9*
DLOUT DFN+7!
DQOUT NODFN1+1, DFN+7!, SSN+1
>> DR DFN+4*
DT DFN+4
DTOUT NODFN1+1, DFN+7!
DUOUT NODFN1+1, DFN+7!
DUZ(2 DFN+3, DFN+4, DFN+6
U NODFN+2, DFN+1, DFN+3, SSN
>> X DFN+2*, DFN+3
>> Y NODFN1+1*, NODFN1+2, DFN+1, SSN+1*
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All