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

Package: Mental Health Social Services

Routine: AMHLETN


Information

AMHLETN ; IHS/CMI/LAB - DISPLAY/EDIT TREATMENT NOTES ;

Source Information

Source file <AMHLETN.m>

Call Graph

Call Graph Total: 3

Package Total Call Graph
VA Fileman 2 ^DIK  $$GET1^DIQ  
IHS VA Utilities 1 EN^XBNEW  

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Mental Health Social Services 3 AMHBPL1  AMHBPL2  AMHGSBPL  

Entry Points

Name Comments DBIA/ICR reference
DISP ;EP - display current Treatment plans for this problem
GETNUM(AMHPROBN) ;EP - get next TP NUMBER
PRTTXT ; GENERALIZED TEXT PRINTER
GETFRAG
EN1 ;EP - called from xbnew
DEL ;EP - called from template to delete all TP's for a PROBLEM
PRTTXT2

External References

Name Field # of Occurrence
^DIK EN1+1
$$GET1^DIQ DISP+6
EN^XBNEW DEL+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: ?AMHLETP("ICL")
  • Line Location: PRTTXT2+0
Function Call: WRITE
  • Prompt: AMHLETP("F"),!
  • Line Location: PRTTXT2+0
Function Call: WRITE
  • Prompt: !!,"Problem #",+$P(AMHLETP("PROB REC"),U,7),?17,"Problem Diagnosis: ",$P(^AMHPROB($P(AMHLETP("PROB REC"),U),0),U),?45,"Patient: ",$E($P(^DPT($P(AMHLETP("PROB REC"),U,2),0),U),1,25)
  • Line Location: DISP+5
Function Call: WRITE
  • Prompt: !,"Provider Narrative: "
  • Line Location: DISP+6
Function Call: WRITE
  • Prompt: !,"TREATMENT NOTES:",!
  • Line Location: DISP+7
Function Call: WRITE
  • Prompt: !!,"No Treatment Plans recorded for this problem.",!
  • Line Location: DISP+8

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^AMHPPROB - [#9002011.51] GET1^DIQ
^AMHPTP - [#9002011.53] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AMHPPROB - [#9002011.51] DISP+4
^AMHPROB - [#9002012.2] DISP+5
^AMHPTP - [#9002011.53] DISP+13
^AMHPTP("AD" EN1+1
^AMHPTP("AE" GETNUM+2, DISP+7, DISP+10, DISP+11
^DPT - [#2] DISP+5
^VA(200 - [#200] DISP+16

Label References

Name Line Occurrences
GETFRAG PRTTXT2
PRTTXT DISP+6, DISP+18
PRTTXT2 PRTTXT+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% GETNUM+1~, GETNUM+2*, DISP+9~, DISP+10*, DISP+11
AMHLETP GETNUM+1~, DISP+20!
AMHLETP("AUTH" DISP+16*, DISP+17
AMHLETP("C" PRTTXT+3!, GETFRAG+1*, GETFRAG+2
AMHLETP("DLT" PRTTXT+1*, PRTTXT+3!, PRTTXT2*
AMHLETP("DON" DISP+14*, DISP+17
AMHLETP("F" PRTTXT+3!, PRTTXT2, GETFRAG*, GETFRAG+2*
AMHLETP("ICL" PRTTXT+1, PRTTXT2*, DISP+6*, DISP+18*
AMHLETP("ILN" PRTTXT+1*, PRTTXT+3!, PRTTXT2*, GETFRAG, GETFRAG+1
AMHLETP("NRQ" PRTTXT+2*, DISP+6*, DISP+18*
AMHLETP("NUM" GETNUM+3*, GETNUM+4
AMHLETP("PROB IEN" , DISP+3, DISP+4, DISP+6, DISP+7, DISP+10, DISP+11,  REC" , DISP+4*, DISP+5
AMHLETP("PT" DISP+15*, DISP+17
AMHLETP("Q" PRTTXT+2*
AMHLETP("TN" DISP+13*, DISP+14, DISP+15, DISP+16, DISP+17, DISP+18
AMHLETP("TP I EN" , DISP+11*, DISP+12, DISP+13
AMHLETP("TXT" PRTTXT+2*, PRTTXT+3!, GETFRAG*, GETFRAG+1, GETFRAG+2*, DISP+6*, DISP+18*
>> AMHPDFN EN1+1
AMHPROBN GETNUM~, GETNUM+2
AMHTDOO PRTTXT+3!
AMHX EN1+1*, EN1+2!
>> DA EN1+1*
>> DIK EN1+1*
U DISP+5, DISP+14, DISP+15, DISP+16, DISP+18
X GETNUM+1~, GETNUM+2*, GETNUM+3
Y GETNUM+1~, DISP+20!
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 |  Local Variables |  All