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 |  All
Print Page as PDF
Routine: AGNDXP

Package: IHS Patient Registration

Routine: AGNDXP


Information

AGNDXP ; IHS/ASDS/EFG - PRINT AN INDEX CARD-DFN REQUIRED ;

Source Information

Source file <AGNDXP.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
Kernel 2 ^%ZIS  ^%ZISC  
VA Fileman 2 DD^%DT  $$GET1^DIQ  
IHS Patient Registration 1 (READ,YN)^AG  

Caller Graph

Caller Graph Total: 4

Package Total Caller Graph
IHS Patient Registration 4 AGNDX1  AGNDX2  AGNDX3  AGNDX4  

Entry Points

Name Comments DBIA/ICR reference
END
ALIASLP
NMCH
ALIAS ;EP
TEST
LINE
NMCHEND

External References

Name Field # of Occurrence
DD^%DT NMCH+2, NMCH+14, NMCH+15
^%ZIS TEST+2
^%ZISC TEST+3
READ^AG ALIAS+1, TEST
YN^AG ALIAS+2, TEST+1
$$GET1^DIQ NMCH+5, NMCH+7

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: AGNDXP+6
Function Call: WRITE
  • Prompt: $P(^DPT(DFN,.01,AG("ALNO"),0),U),"**ALIAS**",!
  • Line Location: ALIASLP+1
Function Call: WRITE
  • Prompt: !
  • Line Location: ALIASLP+2
Function Call: WRITE
  • Prompt: $P(AGDPT,U),?45-$L($P(AG41,U,2)),$P(AG41,U,2)
  • Line Location: NMCH+1
Function Call: WRITE
  • Prompt: AGDOB,?45-$L(AGSEX)\2,AGSEX,?45-$L(AGSSN),AGSSN
  • Line Location: NMCH+8
Function Call: WRITE
  • Prompt: AGSTREET
  • Line Location: NMCH+10
Function Call: WRITE
  • Prompt: ?45-$L(X),X
  • Line Location: NMCH+10
Function Call: WRITE
  • Prompt: !,AGADDR
  • Line Location: NMCH+11
Function Call: WRITE
  • Prompt: ?45-$L(X),X
  • Line Location: NMCH+11
Function Call: WRITE
  • Prompt: " FATHER: ",$P(^(.24),U),!,"MOTHER (MDN): ",$P(^(.24),U,3)
  • Line Location: NMCH+13
Function Call: WRITE
  • Prompt: "CARD PRINTED: ",Y
  • Line Location: NMCH+14
Function Call: WRITE
  • Prompt: !,"CHART ",$S($P(^(0),U)["ARCH":"ARCHIVED: ",1:"INACTIVATED: ")
  • Line Location: NMCH+15
Function Call: WRITE
  • Prompt: Y
  • Line Location: NMCH+15
Function Call: WRITE
  • Prompt: !
  • Line Location: LINE+0
Function Call: WRITE
  • Prompt: "-"
  • Line Location: LINE+0
Function Call: WRITE
  • Prompt: !
  • Line Location: LINE+1
Function Call: WRITE
  • Prompt: !!!,"Do you want to print index cards for ALIASES also? (Y/N) Y// "
  • Line Location: ALIAS+1
Function Call: WRITE
  • Prompt: !!,"An index card will be printed for the patients NAME and each ALIAS",!,"if you answer ""Y"" "
  • Line Location: ALIAS+1
Function Call: WRITE
  • Prompt: !!!,"DO YOU WANT TO PRINT A TEST LABEL? (Y/N) N// "
  • Line Location: TEST+0
Function Call: WRITE
  • Prompt: !!,"A sample label will be printed so that you",!,"may allign your labels on the printer."
  • Line Location: TEST+0
Function Call: WRITE
  • Prompt: "TESTTESTTESTTESTTESTTESTTESTTESTTESTTESTTESTTESTXX",!
  • Line Location: TEST+2
Function Call: WRITE
  • Prompt: !!!!!!!!!!!!!!!
  • Line Location: TEST+3
Routine Call
  • %ZIS
  • Line Location:
    • TEST+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] GET1^DIQ
^AUPNPAT - [#9000001] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNPAT - [#9000001] AGNDXP+5, NMCH
^AUTTDIS - [#9999999.02] NMCH+15
^DIC(5 - [#5] NMCH+9
^DPT - [#2] AGNDXP+5, ALIASLP, ALIASLP+1, NMCH, NMCH+9, NMCH+10, NMCH+11, NMCH+13

Label References

Name Line Occurrences
ALIAS ALIAS+1, ALIAS+2
ALIASLP ALIASLP, ALIASLP+4
END AGNDXP+5, AGNDXP+7, ALIASLP
LINE NMCH+1, NMCH+8, NMCH+12, NMCH+13
NMCH AGNDXP+6, ALIASLP+2
NMCHEND NMCH+14
TEST TEST, TEST+1, TEST+4

Naked Globals

Name Field # of Occurrence
^( NMCH+9, NMCH+10, NMCH+11, NMCH+13
^(0 NMCH+9, NMCH+15

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
A NMCH+9*, END!
>> AG("ALNO" AGNDXP+8*, ALIASLP*, ALIASLP+1
>> AG("I" AGNDXP+6*, ALIASLP+2*, LINE*
AG41 NMCH*, NMCH+1, NMCH+14, NMCH+15, END!
AGADDR NMCH+9*, NMCH+11, END!
AGALIAS AGNDXP+7, ALIAS+3!*
AGDOB NMCH+2*, NMCH+8, END!
AGDPT NMCH*, NMCH+1, NMCH+2, END!
AGLN AGNDXP+4*, AGNDXP+6, AGNDXP+8*, ALIASLP+1*, ALIASLP+2, ALIASLP+3*, NMCH+13*, NMCH+15*, END!, LINE+2*
AGSEX NMCH+5*, NMCH+8, END!
AGSSN NMCH+7*, NMCH+8, END!
AGSTREET NMCH+9*, NMCH+10, END!
>> DFN AGNDXP+5, ALIASLP, ALIASLP+1, NMCH, NMCH+5, NMCH+7, NMCH+9, NMCH+10, NMCH+11, NMCH+13
>> DFOUT ALIAS+2, TEST+1
>> DQOUT ALIAS+1, TEST
DT NMCH+14
>> DTOUT ALIAS+2, TEST+1
>> DUOUT ALIAS+2, TEST+1
DUZ(2 AGNDXP+5, NMCH
>> I TEST+2*
IO TEST+2
>> POP TEST+2
U ALIASLP, ALIASLP+1, NMCH+1, NMCH+2, NMCH+9, NMCH+10, NMCH+11, NMCH+13, NMCH+14, NMCH+15
X NMCH+10*, NMCH+11*, END!
>> Y NMCH+2*, NMCH+14*, NMCH+15*, ALIAS+1*, ALIAS+2, ALIAS+3, TEST*, TEST+1
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 |  All