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

Package: Case Management System

Routine: ACMCTRL2


Information

ACMCTRL2 ; IHS/TUCSON/TMJ - MASTER CONTROL #2 (HEADERS/FIELD POSITIONS) ;

Source Information

Source file <ACMCTRL2.m>

Call Graph

Call Graph Total: 2

Package Total Call Graph
Case Management System 1 (,ACMPT)^ACMLCMS  
VA Fileman 1 YN^DICN  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Case Management System 1 ACMEP  

Entry Points

Name Comments DBIA/ICR reference
AP1 ;;D APHEAD^ACMCTRL2
CMP1 ;;S ACMLE(1)="W !!?1,ACMTL,?27,""ONSET DT"",?37,""ST"",?40,""COMMENTS""",ACMLE(2)="W !?1,""----------------------- -------- --""",ACMLE(3)="W ?40,""----------------------------------------""" F J=1:1:3 X ACMLE(J)
RF1 ;;W !!?14,ACMTL,!?14,"------------------------------"
ET1 ;;W !!?14,ACMTL,!?14,"------------------------------"
CT1 ;;W !?14,"-------------------------------------------------" S ACMCT=""
MEAS1 ;;W !!?14,ACMTL,?46,"VALUE",?60,"DATE",!?14,"------------------------------",?46,"------------------------------"
REG1 ;;S ACMREG="" D REGHEAD^ACMCTRL2
DC1 ;;S ACMLE(1)="W !!?14,""DIAGNOSTIC CRITERIA"",?50,""DATE ESTABLISHED""",ACMLE(2)="W !?14,""------------------------------""",ACMLE(3)="W ?50,""----------------""" F J=1:1:3 X ACMLE(J)
REGHEAD
DX1 ;;W !!?14,ACMTL,?46,"ONSET DATE",?60,"SEVERITY",!?14,"------------------------------",?46,"------------",?60,"--------------------"
FM1 ;;S ACMLE(1)="W !!?5,""FAMILY MEMBER"",?40,""CHART"",?51,""RELATION"",?65,""RELATED DX""",ACMLE(2)="W !?5,""-------------------------- --------""",ACMLE(3)="W ?51,""----------------"",?65,""----------""" F J=1:1:3 X ACMLE(J) S ACMFM=""
CH1 ;;S ACMLE(1)="W !!?3,""ONSET DATE"",?18,""PLACE OF ONSET""",ACMLE(2)="W ?40,""CASE HISTORY""",ACMLE(3)="W !?3,""------------- --------------------""",ACMLE(4)="W ?40,""---------------------------""" F J=1:1:4 X ACMLE(J)
CR1 ;;S ACMLE(1)="W !!?14,""LAST REVIEW"",?29,""NEXT REVIEW""",ACMLE(2)="W !?14,""------------ ------------""",DA=ACMRGDFN,ACMNT="" F J=1:1:2 X ACMLE(J)
APHEAD
SV1 ;;S ACMLE(1)="W !!?14,""SERVICES NEEDED BY THIS CLIENT""",ACMLE(2)="W ?50,""AVAILABILITY STATUS""",ACMLE(3)="W !?14,""---------------------------------""",ACMLE(4)="W ?50,""-------------------""" F J=1:1:4 X ACMLE(J)
MD1 ;;W !!?8,ACMTL,?60,"SIG",!?8,"--------------------------------------------------",?60,"--------------------"
PROB1 ;;D ^ACMPROB R !!,"Type the <ENTER> key to continue",ACMX#1:300,!! S ACMPROB="" Q

External References

Name Field # of Occurrence
^ACMLCMS REGHEAD+1
ACMPT^ACMLCMS REGHEAD+1
YN^DICN REGHEAD+3

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Prompt: "Type the <ENTER> key to continue"
  • Formatting: !!
  • Timeout: 300,!!
  • Variable: ACMX#1
  • Line Location: PROB1+0
Function Call: WRITE
  • Prompt: !!,?14,"CURRENT STATUS FOR THIS CLIENT",!,?14,"-------------------------------------"
  • Line Location: REGHEAD+0
Function Call: WRITE
  • Prompt: !!,?14,"Do you want to update this information"
  • Line Location: REGHEAD+2
Function Call: WRITE
  • Prompt: !!?5,"INTERVENTION",?30,"RESULTS",?50,"RESULT DATE",?65,"NEXT DATE DUE",!?5,"------------",?30,"-------",?50,"-----------",?65,"-------------"
  • Line Location: APHEAD+0

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % REGHEAD+3*, REGHEAD+4
>> %Y REGHEAD+4
>> ACMOUT REGHEAD+4*
>> ACMQUIT REGHEAD+4*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Local Variables |  All